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

⟦67b026a89⟧

    Length: 14336 (0x3800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1aa0       |    |		.CONST	0x1aa0								; 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 8011       |    |		.CONST	0x8011								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 021d       |    |		.CONST	0x021d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0080       |    |		.CONST	0x0080								; Number of locals
000b			INIT_0008:
000b 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
000d 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
000f 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0011 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0013 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0015 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0017 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0019 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
001b 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
001d 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
001f 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0021 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
0023 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0025 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
0027 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0029 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
002b 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
002d 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
002f 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0031 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
0033 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
0035 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
0037 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
0039 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
003b 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
003d 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
003f 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
0041 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0043 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0044 00d8       |    |		Load_Top	At_Offset_0
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0047 4802       |H   |		Short_Literal	0x2
0048 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0049 00d8       |    |		Load_Top	At_Offset_0
004a 02a0       |    |		Declare_Subprogram	Null_Subprogram
004b 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
004c 4804       |H   |		Short_Literal	0x4
004d 032b       | +  |		Declare_Type	Record,Incomplete,Visible
004e 00d8       |    |		Load_Top	At_Offset_0
004f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0050 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0051 00bf       |    |		Action	Accept_Activation
0052 0093 0000  |    |		push_full_address	0x0
0054 6297       |b   |		Indirect_Literal	Discrete,0x2ec,{0x80000000, 0x00060000}
0055 0273       | s  |		Execute	Discrete,Plus
0056 e20d       |    |		Load	0x1,0xd
0057 6290       |b   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
0058 0279       | y  |		Execute	Discrete,And
0059 0273       | s  |		Execute	Discrete,Plus
005a e002       |    |		Load	0x0,0x2
005b 0273       | s  |		Execute	Discrete,Plus
005c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
005d e003       |    |		Load	0x0,0x3
005e 0387       |    |		Declare_Variable	Package
005f 00d8       |    |		Load_Top	At_Offset_0
0060 020f       |    |		Execute	Module,Activate
0061 4800       |H   |		Short_Literal	0x0
0062 4801       |H   |		Short_Literal	0x1
0063 029f 061b  |    |		Declare_Subprogram	INIT_0618,For_Call
0065 03fd       |    |		Declare_Type	Discrete,Defined
0066 4800       |H   |		Short_Literal	0x0
0067 4802       |H   |		Short_Literal	0x2
0068 029f 0643  |   C|		Declare_Subprogram	INIT_0640,For_Call
006a 03fd       |    |		Declare_Type	Discrete,Defined
006b 4800       |H   |		Short_Literal	0x0
006c 4804       |H   |		Short_Literal	0x4
006d 029f 066b  |   k|		Declare_Subprogram	INIT_0668,For_Call
006f 03fd       |    |		Declare_Type	Discrete,Defined
0070 4800       |H   |		Short_Literal	0x0
0071 4806       |H   |		Short_Literal	0x6
0072 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
0074 03fd       |    |		Declare_Type	Discrete,Defined
0075 4800       |H   |		Short_Literal	0x0
0076 4801       |H   |		Short_Literal	0x1
0077 029f 06bb  |    |		Declare_Subprogram	INIT_06b8,For_Call
0079 03fd       |    |		Declare_Type	Discrete,Defined
007a 00da       |    |		Load_Top	At_Offset_2
007b e233       | 3  |		Load	0x1,0x33
007c 00da       |    |		Load_Top	At_Offset_2
007d e004       |    |		Load	0x0,0x4
007e 00d8       |    |		Load_Top	At_Offset_0
007f e005       |    |		Load	0x0,0x5
0080 00d8       |    |		Load_Top	At_Offset_0
0081 e005       |    |		Load	0x0,0x5
0082 e006       |    |		Load	0x0,0x6
0083 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0084 02a0       |    |		Declare_Subprogram	Null_Subprogram
0085 4809       |H   |		Short_Literal	0x9
0086 032d       | -  |		Declare_Type	Record,Defined
0087 00d8       |    |		Load_Top	At_Offset_0
0088 0322       | "  |		Declare_Variable	Record
0089 029b 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Unelaborated
008b 4800       |H   |		Short_Literal	0x0
008c 4806       |H   |		Short_Literal	0x6
008d 029f 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Call
008f 03fd       |    |		Declare_Type	Discrete,Defined
0090 00e3       |    |		Load_Encached	Natural_Cache
0091 00e3       |    |		Load_Encached	Natural_Cache
0092 00e3       |    |		Load_Encached	Natural_Cache
0093 00e3       |    |		Load_Encached	Natural_Cache
0094 02a0       |    |		Declare_Subprogram	Null_Subprogram
0095 4804       |H   |		Short_Literal	0x4
0096 032d       | -  |		Declare_Type	Record,Defined
0097 00d9       |    |		Load_Top	At_Offset_1
0098 00e1       |    |		Load_Encached	Boolean_Cache
0099 e22e       | .  |		Load	0x1,0x2e
009a 029f 0713  |    |		Declare_Subprogram	INIT_0710,For_Call
009c 4800       |H   |		Short_Literal	0x0
009d 4802       |H   |		Short_Literal	0x2
009e 4800       |H   |		Short_Literal	0x0
009f 4800       |H   |		Short_Literal	0x0
00a0 4801       |H   |		Short_Literal	0x1
00a1 031d       |    |		Declare_Type	Variant_Record,Defined
00a2 4800       |H   |		Short_Literal	0x0
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a7 029b 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Unelaborated
00a9 e235       | 5  |		Load	0x1,0x35
00aa e23a       | :  |		Load	0x1,0x3a
00ab 4801       |H   |		Short_Literal	0x1
00ac e005       |    |		Load	0x0,0x5
00ad 4801       |H   |		Short_Literal	0x1
00ae 00e2       |    |		Load_Encached	Integer_Cache
00af 4801       |H   |		Short_Literal	0x1
00b0 00e3       |    |		Load_Encached	Natural_Cache
00b1 4803       |H   |		Short_Literal	0x3
00b2 e23b       | ;  |		Load	0x1,0x3b
00b3 00e3       |    |		Load_Encached	Natural_Cache
00b4 00e3       |    |		Load_Encached	Natural_Cache
00b5 4801       |H   |		Short_Literal	0x1
00b6 00e3       |    |		Load_Encached	Natural_Cache
00b7 4803       |H   |		Short_Literal	0x3
00b8 e23b       | ;  |		Load	0x1,0x3b
00b9 00e3       |    |		Load_Encached	Natural_Cache
00ba 00e3       |    |		Load_Encached	Natural_Cache
00bb 029f 075b  |   [|		Declare_Subprogram	INIT_0758,For_Call
00bd 480a       |H   |		Short_Literal	0xa
00be 4801       |H   |		Short_Literal	0x1
00bf 4806       |H   |		Short_Literal	0x6
00c0 4800       |H   |		Short_Literal	0x0
00c1 4801       |H   |		Short_Literal	0x1
00c2 031d       |    |		Declare_Type	Variant_Record,Defined
00c3 4800       |H   |		Short_Literal	0x0
00c4 00d9       |    |		Load_Top	At_Offset_1
00c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c6 029b 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Unelaborated
00c8 029b 07d3  |    |		Declare_Subprogram	INIT_07d0,For_Outer_Call,Unelaborated
00ca 029b 0803  |    |		Declare_Subprogram	INIT_0800,For_Outer_Call,Unelaborated
00cc 029b 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call,Unelaborated
00ce 029b 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Unelaborated
00d0 0093 0000  |    |		push_full_address	0x0
00d2 6211       |b   |		Indirect_Literal	Discrete,0x2e4,{0x80000000, 0x00050000}
00d3 0273       | s  |		Execute	Discrete,Plus
00d4 e20d       |    |		Load	0x1,0xd
00d5 6212       |b   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
00d6 0279       | y  |		Execute	Discrete,And
00d7 0273       | s  |		Execute	Discrete,Plus
00d8 e007       |    |		Load	0x0,0x7
00d9 0273       | s  |		Execute	Discrete,Plus
00da e235       | 5  |		Load	0x1,0x35
00db e237       | 7  |		Load	0x1,0x37
00dc e238       | 8  |		Load	0x1,0x38
00dd 0320       |    |		Declare_Variable	Record,Duplicate
00de 00cd       |    |		Action	Spare6_Action
00df 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
00e0 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
00e1 e23c       | <  |		Load	0x1,0x3c
00e2 e23d       | =  |		Load	0x1,0x3d
00e3 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
00e4 00cd       |    |		Action	Spare6_Action
00e5 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00e6 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
00e7 e23f       | ?  |		Load	0x1,0x3f
00e8 e240       | @  |		Load	0x1,0x40
00e9 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
00ea 00cd       |    |		Action	Spare6_Action
00eb 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
00ec 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
00ed 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
00ee 0092 187a  |   z|		Action	Push_String_Extended,0x187a					; " "
00f0 e008       |    |		Load	0x0,0x8
00f1 0387       |    |		Declare_Variable	Package
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 020f       |    |		Execute	Module,Activate
00f4 e009       |    |		Load	0x0,0x9
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 0098       |    |		Execute	Package,Field_Read_Dynamic
00f7 e22b       | +  |		Load	0x1,0x2b
00f8 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
00f9 e00a       |    |		Load	0x0,0xa
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 0098       |    |		Execute	Package,Field_Read_Dynamic
00fc e22d       | -  |		Load	0x1,0x2d
00fd 0325       | %  |		Complete_Type	Record,By_Renaming
00fe e22e       | .  |		Load	0x1,0x2e
00ff 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
0100 e00b       |    |		Load	0x0,0xb
0101 00d9       |    |		Load_Top	At_Offset_1
0102 0098       |    |		Execute	Package,Field_Read_Dynamic
0103 e22f       | /  |		Load	0x1,0x2f
0104 0325       | %  |		Complete_Type	Record,By_Renaming
0105 e230       | 0  |		Load	0x1,0x30
0106 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
0107 e00c       |    |		Load	0x0,0xc
0108 00d9       |    |		Load_Top	At_Offset_1
0109 0098       |    |		Execute	Package,Field_Read_Dynamic
010a 0337       | 7  |		Declare_Variable	Array
010b 00d8       |    |		Load_Top	At_Offset_0
010c 0335       | 5  |		Declare_Variable	Array,Duplicate
010d 00cd       |    |		Action	Spare6_Action
010e 4800       |H   |		Short_Literal	0x0
010f 4800       |H   |		Short_Literal	0x0
0110 00da       |    |		Load_Top	At_Offset_2
0111 01d6       |    |		Execute	Vector,Field_Write
0112 4822       |H"  |		Short_Literal	0x22
0113 4801       |H   |		Short_Literal	0x1
0114 00da       |    |		Load_Top	At_Offset_2
0115 01d6       |    |		Execute	Vector,Field_Write
0116 4808       |H   |		Short_Literal	0x8
0117 4802       |H   |		Short_Literal	0x2
0118 00da       |    |		Load_Top	At_Offset_2
0119 01d6       |    |		Execute	Vector,Field_Write
011a 4808       |H   |		Short_Literal	0x8
011b 4803       |H   |		Short_Literal	0x3
011c 00da       |    |		Load_Top	At_Offset_2
011d 01d6       |    |		Execute	Vector,Field_Write
011e 480a       |H   |		Short_Literal	0xa
011f 4804       |H   |		Short_Literal	0x4
0120 00da       |    |		Load_Top	At_Offset_2
0121 01d6       |    |		Execute	Vector,Field_Write
0122 4808       |H   |		Short_Literal	0x8
0123 4805       |H   |		Short_Literal	0x5
0124 00da       |    |		Load_Top	At_Offset_2
0125 01d6       |    |		Execute	Vector,Field_Write
0126 480a       |H   |		Short_Literal	0xa
0127 4806       |H   |		Short_Literal	0x6
0128 00da       |    |		Load_Top	At_Offset_2
0129 01d6       |    |		Execute	Vector,Field_Write
012a 00d9       |    |		Load_Top	At_Offset_1
012b 01d4       |    |		Execute	Vector,Structure_Write
012c 00ea       |    |		Load_Encached	Null_String_Cache
012d 0092 187b  |   {|		Action	Push_String_Extended,0x187b					; "DIFFERENTIAL COVERAGE: "
012f 0092 187c  |   ||		Action	Push_String_Extended,0x187c					; "     NAME"
0131 0092 187d  |   }|		Action	Push_String_Extended,0x187d					; " COUNTS 1"
0133 0092 187e  |   ~|		Action	Push_String_Extended,0x187e					; " % COV 1"
0135 0092 187f  |    |		Action	Push_String_Extended,0x187f					; " COUNTS 2"
0137 0092 1880  |    |		Action	Push_String_Extended,0x1880					; " % COV 2"
0139 0092 1881  |    |		Action	Push_String_Extended,0x1881					; " % DIFF"
013b 4801       |H   |		Short_Literal	0x1
013c 4850       |HP  |		Short_Literal	0x50
013d 00e9       |    |		Load_Encached	String_Cache
013e 035b       | [  |		Declare_Type	Array,Constrained
013f 0337       | 7  |		Declare_Variable	Array
0140 4850       |HP  |		Short_Literal	0x50
0141 4801       |H   |		Short_Literal	0x1
0142 482d       |H-  |		Short_Literal	0x2d
0143 00d9       |    |		Load_Top	At_Offset_1
0144 e250       | P  |		Load	0x1,0x50
0145 01d6       |    |		Execute	Vector,Field_Write
0146 3ffb       |?   |		Loop_Increasing	0x142
0147 e00d       |    |		Load	0x0,0xd
0148 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0149 029d 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call
014b 029b 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Unelaborated
014d 029d 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call
014f 029b 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Outer_Call,Unelaborated
0151 029d 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Outer_Call
0153 029d 0a6b  |   k|		Declare_Subprogram	INIT_0a68,For_Outer_Call
0155 029d 0aab  |    |		Declare_Subprogram	INIT_0aa8,For_Outer_Call
0157 029d 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Outer_Call
0159 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
015a 00c7       |    |		Action	Elaborate_Subprogram
015b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
015c 00c7       |    |		Action	Elaborate_Subprogram
015d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
015e 00c7       |    |		Action	Elaborate_Subprogram
015f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0160 00c7       |    |		Action	Elaborate_Subprogram
0161 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0162 00c7       |    |		Action	Elaborate_Subprogram
0163 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0164 00c7       |    |		Action	Elaborate_Subprogram
0165 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0166 00c7       |    |		Action	Elaborate_Subprogram
0167 029b 0afb  |    |		Declare_Subprogram	INIT_0af8,For_Outer_Call,Unelaborated
0169 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
016a 00c7       |    |		Action	Elaborate_Subprogram
016b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
016c 00c7       |    |		Action	Elaborate_Subprogram
016d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
016e 00c7       |    |		Action	Elaborate_Subprogram
016f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0170 00c7       |    |		Action	Elaborate_Subprogram
0171 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0172 00c7       |    |		Action	Elaborate_Subprogram
0173 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0174 00c7       |    |		Action	Elaborate_Subprogram
0175 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0176 00c7       |    |		Action	Elaborate_Subprogram
0177 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0178 00c7       |    |		Action	Elaborate_Subprogram
0179 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
017a 00c7       |    |		Action	Elaborate_Subprogram
017b 029d 0b63  |   c|		Declare_Subprogram	INIT_0b60,For_Outer_Call
017d 029d 0b73  |   s|		Declare_Subprogram	INIT_0b70,For_Outer_Call
017f 029d 0b93  |    |		Declare_Subprogram	INIT_0b90,For_Outer_Call
0181 029d 0bbb  |    |		Declare_Subprogram	INIT_0bb8,For_Outer_Call
0183 029d 0bdb  |    |		Declare_Subprogram	INIT_0bd8,For_Outer_Call
0185 029d 0bfb  |    |		Declare_Subprogram	INIT_0bf8,For_Outer_Call
0187 029d 0c23  |   #|		Declare_Subprogram	INIT_0c20,For_Outer_Call
0189 029d 0c43  |   C|		Declare_Subprogram	INIT_0c40,For_Outer_Call
018b 029d 0c63  |   c|		Declare_Subprogram	INIT_0c60,For_Outer_Call
018d 029d 0c83  |    |		Declare_Subprogram	INIT_0c80,For_Outer_Call
018f 029d 0ca3  |    |		Declare_Subprogram	INIT_0ca0,For_Outer_Call
0191 029d 0cc3  |    |		Declare_Subprogram	INIT_0cc0,For_Outer_Call
0193 029d 0cfb  |    |		Declare_Subprogram	INIT_0cf8,For_Outer_Call
0195 029d 0d33  |   3|		Declare_Subprogram	INIT_0d30,For_Outer_Call
0197 029d 0ddb  |    |		Declare_Subprogram	INIT_0dd8,For_Outer_Call
0199 e00e       |    |		Load	0x0,0xe
019a e246       | F  |		Load	0x1,0x46
019b 0095       |    |		Execute	Package,Field_Reference_Dynamic
019c 00c6       |    |		Action	Check_Subprogram_Elaborated
019d 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
019e 0093 0000  |    |		push_full_address	0x0
01a0 613f       |a?  |		Indirect_Literal	Discrete,0x2e0,{0x80000000, 0x00040000}
01a1 0273       | s  |		Execute	Discrete,Plus
01a2 e20d       |    |		Load	0x1,0xd
01a3 6144       |aD  |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
01a4 0279       | y  |		Execute	Discrete,And
01a5 0273       | s  |		Execute	Discrete,Plus
01a6 e00f       |    |		Load	0x0,0xf
01a7 0273       | s  |		Execute	Discrete,Plus
01a8 4800       |H   |		Short_Literal	0x0
01a9 0007       |    |		Action	Break_Optional
01aa e00e       |    |		Load	0x0,0xe
01ab e246       | F  |		Load	0x1,0x46
01ac 0095       |    |		Execute	Package,Field_Reference_Dynamic
01ad 00c6       |    |		Action	Check_Subprogram_Elaborated
01ae 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
01af 0093 0000  |    |		push_full_address	0x0
01b1 612a       |a*  |		Indirect_Literal	Discrete,0x2dc,{0x80000000, 0x00030000}
01b2 0273       | s  |		Execute	Discrete,Plus
01b3 e20d       |    |		Load	0x1,0xd
01b4 6133       |a3  |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
01b5 0279       | y  |		Execute	Discrete,And
01b6 0273       | s  |		Execute	Discrete,Plus
01b7 e010       |    |		Load	0x0,0x10
01b8 0273       | s  |		Execute	Discrete,Plus
01b9 4800       |H   |		Short_Literal	0x0
01ba 0007       |    |		Action	Break_Optional
01bb e00e       |    |		Load	0x0,0xe
01bc e246       | F  |		Load	0x1,0x46
01bd 0095       |    |		Execute	Package,Field_Reference_Dynamic
01be 00c6       |    |		Action	Check_Subprogram_Elaborated
01bf 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
01c0 0093 0000  |    |		push_full_address	0x0
01c2 6115       |a   |		Indirect_Literal	Discrete,0x2d8,{0x80000000, 0x00020000}
01c3 0273       | s  |		Execute	Discrete,Plus
01c4 e20d       |    |		Load	0x1,0xd
01c5 6122       |a"  |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
01c6 0279       | y  |		Execute	Discrete,And
01c7 0273       | s  |		Execute	Discrete,Plus
01c8 e011       |    |		Load	0x0,0x11
01c9 0273       | s  |		Execute	Discrete,Plus
01ca 4800       |H   |		Short_Literal	0x0
01cb 0007       |    |		Action	Break_Optional
01cc e00e       |    |		Load	0x0,0xe
01cd e246       | F  |		Load	0x1,0x46
01ce 0095       |    |		Execute	Package,Field_Reference_Dynamic
01cf 00c6       |    |		Action	Check_Subprogram_Elaborated
01d0 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
01d1 0093 0000  |    |		push_full_address	0x0
01d3 6100       |a   |		Indirect_Literal	Discrete,0x2d4,{0x80000000, 0x00010000}
01d4 0273       | s  |		Execute	Discrete,Plus
01d5 e20d       |    |		Load	0x1,0xd
01d6 6111       |a   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x0000ffff}
01d7 0279       | y  |		Execute	Discrete,And
01d8 0273       | s  |		Execute	Discrete,Plus
01d9 e012       |    |		Load	0x0,0x12
01da 0273       | s  |		Execute	Discrete,Plus
01db 4800       |H   |		Short_Literal	0x0
01dc 0007       |    |		Action	Break_Optional
01dd 029d 0e83  |    |		Declare_Subprogram	INIT_0e80,For_Outer_Call
01df 029d 0f1b  |    |		Declare_Subprogram	INIT_0f18,For_Outer_Call
01e1 029d 0fa3  |    |		Declare_Subprogram	INIT_0fa0,For_Outer_Call
01e3 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
01e4 00c7       |    |		Action	Elaborate_Subprogram
01e5 029d 0fe3  |    |		Declare_Subprogram	INIT_0fe0,For_Outer_Call
01e7 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
01e8 00c7       |    |		Action	Elaborate_Subprogram
01e9 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01ea 00c7       |    |		Action	Elaborate_Subprogram
01eb 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
01ec 00c7       |    |		Action	Elaborate_Subprogram
01ed 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
01ee 00c7       |    |		Action	Elaborate_Subprogram
01ef 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
01f0 00c7       |    |		Action	Elaborate_Subprogram
01f1 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
01f2 00c7       |    |		Action	Elaborate_Subprogram
01f3 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
01f4 00c7       |    |		Action	Elaborate_Subprogram
01f5 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
01f6 00c7       |    |		Action	Elaborate_Subprogram
01f7 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
01f8 00c7       |    |		Action	Elaborate_Subprogram
01f9 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
01fa 00c7       |    |		Action	Elaborate_Subprogram
01fb 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
01fc 00c7       |    |		Action	Elaborate_Subprogram
01fd 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01fe 00c7       |    |		Action	Elaborate_Subprogram
01ff 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0200 00c7       |    |		Action	Elaborate_Subprogram
0201 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
0202 00c7       |    |		Action	Elaborate_Subprogram
0203 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0204 00c7       |    |		Action	Elaborate_Subprogram
0205 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0206 00c7       |    |		Action	Elaborate_Subprogram
0207 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0208 00c7       |    |		Action	Elaborate_Subprogram
0209 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
020a 00c7       |    |		Action	Elaborate_Subprogram
020b 029d 1003  |    |		Declare_Subprogram	INIT_1000,For_Outer_Call
020d 029d 101b  |    |		Declare_Subprogram	INIT_1018,For_Outer_Call
020f 029d 1033  |   3|		Declare_Subprogram	INIT_1030,For_Outer_Call
0211 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0212 00c7       |    |		Action	Elaborate_Subprogram
0213 029d 105b  |   [|		Declare_Subprogram	INIT_1058,For_Outer_Call
0215 029d 106b  |   k|		Declare_Subprogram	INIT_1068,For_Outer_Call
0217 029d 107b  |   {|		Declare_Subprogram	INIT_1078,For_Outer_Call
0219 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
021a 00c7       |    |		Action	Elaborate_Subprogram
021b 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
021c 00c7       |    |		Action	Elaborate_Subprogram
021d			BODY_0008:
021d 00bc       |    |		Action	Signal_Activated
021e 00bb       |    |		Action	Signal_Completion
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0238       | 8  |		.CONST	0x0238								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 000e       |    |		.CONST	0x000e								; Number of locals
0223			INIT_0220:
0223 e22c       | ,  |		Load	0x1,0x2c
0224 0007       |    |		Action	Break_Optional
0225 e013       |    |		Load	0x0,0x13
0226 0007       |    |		Action	Break_Optional
0227 e014       |    |		Load	0x0,0x14
0228 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0229 e005       |    |		Load	0x0,0x5
022a 039d       |    |		Declare_Variable	Heap_Access,Duplicate
022b 039d       |    |		Declare_Variable	Heap_Access,Duplicate
022c e00a       |    |		Load	0x0,0xa
022d e246       | F  |		Load	0x1,0x46
022e 0098       |    |		Execute	Package,Field_Read_Dynamic
022f 0322       | "  |		Declare_Variable	Record
0230 00e1       |    |		Load_Encached	Boolean_Cache
0231 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0232 00e1       |    |		Load_Encached	Boolean_Cache
0233 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0234 e004       |    |		Load	0x0,0x4
0235 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0236 029f 10bb  |    |		Declare_Subprogram	INIT_10b8,For_Call
0238			BODY_0220:
0238 e5fc       |    |		Load	0x2,-0x4
0239 e015       |    |		Load	0x0,0x15
023a e246       | F  |		Load	0x1,0x46
023b 0096       |    |		Execute	Package,Entry
023c e22c       | ,  |		Load	0x1,0x2c
023d e5fc       |    |		Load	0x2,-0x4
023e 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
023f a402       |    |		Store_Unchecked	0x2,0x2
0240 e408       |    |		Load	0x2,0x8
0241 e407       |    |		Load	0x2,0x7
0242 e406       |    |		Load	0x2,0x6
0243 e5fc       |    |		Load	0x2,-0x4
0244 e5fe       |    |		Load	0x2,-0x2
0245 e5ff       |    |		Load	0x2,-0x1
0246 8253       | S  |		Call	0x1,0x53
0247 c406       |    |		Store	0x2,0x6
0248 c407       |    |		Store	0x2,0x7
0249 c408       |    |		Store	0x2,0x8
024a e409       |    |		Load	0x2,0x9
024b e402       |    |		Load	0x2,0x2
024c e5fc       |    |		Load	0x2,-0x4
024d e408       |    |		Load	0x2,0x8
024e e407       |    |		Load	0x2,0x7
024f e406       |    |		Load	0x2,0x6
0250 8255       | U  |		Call	0x1,0x55
0251 c402       |    |		Store	0x2,0x2
0252 00d1       |    |		Pop_Control	Pop_Count_1
0253 e5fc       |    |		Load	0x2,-0x4
0254 8016       |    |		Call	0x0,0x16
0255 a251       | Q  |		Store_Unchecked	0x1,0x51
0256 e013       |    |		Load	0x0,0x13
0257 e5ff       |    |		Load	0x2,-0x1
0258 8017       |    |		Call	0x0,0x17
0259 c403       |    |		Store	0x2,0x3
025a 00cf       |    |		Action	Mark_Auxiliary
025b 7829       |x)  |		Jump	0x285
025c e5fc       |    |		Load	0x2,-0x4
025d 8018       |    |		Call	0x0,0x18
025e a404       |    |		Store_Unchecked	0x2,0x4
025f e404       |    |		Load	0x2,0x4
0260 e5fc       |    |		Load	0x2,-0x4
0261 e403       |    |		Load	0x2,0x3
0262 8019       |    |		Call	0x0,0x19
0263 e5ff       |    |		Load	0x2,-0x1
0264 801a       |    |		Call	0x0,0x1a
0265 801b       |    |		Call	0x0,0x1b
0266 c404       |    |		Store	0x2,0x4
0267 e404       |    |		Load	0x2,0x4
0268 e5fc       |    |		Load	0x2,-0x4
0269 e40a       |    |		Load	0x2,0xa
026a e40b       |    |		Load	0x2,0xb
026b 4800       |H   |		Short_Literal	0x0
026c e409       |    |		Load	0x2,0x9
026d e402       |    |		Load	0x2,0x2
026e 8254       | T  |		Call	0x1,0x54
026f c404       |    |		Store	0x2,0x4
0270 00db       |    |		Load_Top	At_Offset_3
0271 e5fc       |    |		Load	0x2,-0x4
0272 e403       |    |		Load	0x2,0x3
0273 8019       |    |		Call	0x0,0x19
0274 e404       |    |		Load	0x2,0x4
0275 801c       |    |		Call	0x0,0x1c
0276 c40c       |    |		Store	0x2,0xc
0277 e402       |    |		Load	0x2,0x2
0278 e5fc       |    |		Load	0x2,-0x4
0279 e403       |    |		Load	0x2,0x3
027a 8019       |    |		Call	0x0,0x19
027b 4800       |H   |		Short_Literal	0x0
027c e404       |    |		Load	0x2,0x4
027d 825a       | Z  |		Call	0x1,0x5a
027e c402       |    |		Store	0x2,0x2
027f e403       |    |		Load	0x2,0x3
0280 801d       |    |		Call	0x0,0x1d
0281 c403       |    |		Store	0x2,0x3
0282 4801       |H   |		Short_Literal	0x1
0283 a40a       |    |		Store_Unchecked	0x2,0xa
0284 00c9       |    |		Action	Pop_Auxiliary_Loop
0285 e403       |    |		Load	0x2,0x3
0286 801e       |    |		Call	0x0,0x1e
0287 6fd4       |o   |		Jump_Zero	0x25c
0288 00ce       |    |		Action	Pop_Auxiliary
0289 00da       |    |		Load_Top	At_Offset_2
028a e402       |    |		Load	0x2,0x2
028b 4800       |H   |		Short_Literal	0x0
028c 8259       | Y  |		Call	0x1,0x59
028d c402       |    |		Store	0x2,0x2
028e 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
028f 4801       |H   |		Short_Literal	0x1
0290 a40b       |    |		Store_Unchecked	0x2,0xb
0291 e5fc       |    |		Load	0x2,-0x4
0292 8016       |    |		Call	0x0,0x16
0293 a252       | R  |		Store_Unchecked	0x1,0x52
0294 e013       |    |		Load	0x0,0x13
0295 e5fe       |    |		Load	0x2,-0x2
0296 8017       |    |		Call	0x0,0x17
0297 c403       |    |		Store	0x2,0x3
0298 00cf       |    |		Action	Mark_Auxiliary
0299 7829       |x)  |		Jump	0x2c3
029a e5fc       |    |		Load	0x2,-0x4
029b 8018       |    |		Call	0x0,0x18
029c a405       |    |		Store_Unchecked	0x2,0x5
029d e405       |    |		Load	0x2,0x5
029e e5fc       |    |		Load	0x2,-0x4
029f e403       |    |		Load	0x2,0x3
02a0 8019       |    |		Call	0x0,0x19
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 801a       |    |		Call	0x0,0x1a
02a3 801b       |    |		Call	0x0,0x1b
02a4 c405       |    |		Store	0x2,0x5
02a5 e405       |    |		Load	0x2,0x5
02a6 e5fc       |    |		Load	0x2,-0x4
02a7 e40a       |    |		Load	0x2,0xa
02a8 e40b       |    |		Load	0x2,0xb
02a9 4801       |H   |		Short_Literal	0x1
02aa e409       |    |		Load	0x2,0x9
02ab e402       |    |		Load	0x2,0x2
02ac 8254       | T  |		Call	0x1,0x54
02ad c405       |    |		Store	0x2,0x5
02ae 00da       |    |		Load_Top	At_Offset_2
02af e5fc       |    |		Load	0x2,-0x4
02b0 e403       |    |		Load	0x2,0x3
02b1 8019       |    |		Call	0x0,0x19
02b2 e405       |    |		Load	0x2,0x5
02b3 801c       |    |		Call	0x0,0x1c
02b4 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
02b5 e402       |    |		Load	0x2,0x2
02b6 e5fc       |    |		Load	0x2,-0x4
02b7 e403       |    |		Load	0x2,0x3
02b8 8019       |    |		Call	0x0,0x19
02b9 4801       |H   |		Short_Literal	0x1
02ba e405       |    |		Load	0x2,0x5
02bb 825a       | Z  |		Call	0x1,0x5a
02bc c402       |    |		Store	0x2,0x2
02bd e403       |    |		Load	0x2,0x3
02be 801d       |    |		Call	0x0,0x1d
02bf c403       |    |		Store	0x2,0x3
02c0 4800       |H   |		Short_Literal	0x0
02c1 a40b       |    |		Store_Unchecked	0x2,0xb
02c2 00c9       |    |		Action	Pop_Auxiliary_Loop
02c3 e403       |    |		Load	0x2,0x3
02c4 801e       |    |		Call	0x0,0x1e
02c5 6fd4       |o   |		Jump_Zero	0x29a
02c6 00ce       |    |		Action	Pop_Auxiliary
02c7 00d9       |    |		Load_Top	At_Offset_1
02c8 e402       |    |		Load	0x2,0x2
02c9 4801       |H   |		Short_Literal	0x1
02ca 8259       | Y  |		Call	0x1,0x59
02cb c402       |    |		Store	0x2,0x2
02cc 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
02cd e402       |    |		Load	0x2,0x2
02ce 8258       | X  |		Call	0x1,0x58
02cf c402       |    |		Store	0x2,0x2
02d0 840e       |    |		Call	0x2,0xe
02d1 e402       |    |		Load	0x2,0x2
02d2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02d3 0000       |    |		.XXX[0x1]
02d4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
02d8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
02dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
02e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
02e4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
02e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
02ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0307       |    |		.CONST	0x0307								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0004       |    |		.CONST	0x0004								; Number of locals
02fb			INIT_02f8:
02fb 4801       |H   |		Short_Literal	0x1
02fc e01f       |    |		Load	0x0,0x1f
02fd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02fe 00d8       |    |		Load_Top	At_Offset_0
02ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0300 e005       |    |		Load	0x0,0x5
0301 0007       |    |		Action	Break_Optional
0302 e5ff       |    |		Load	0x2,-0x1
0303 0219       |    |		Execute	Heap_Access,All_Read
0304 e020       |    |		Load	0x0,0x20
0305 e246       | F  |		Load	0x1,0x46
0306 0096       |    |		Execute	Package,Entry
0307			BODY_02f8:
0307 00d8       |    |		Load_Top	At_Offset_0
0308 4801       |H   |		Short_Literal	0x1
0309 8021       | !  |		Call	0x0,0x21
030a 00db       |    |		Load_Top	At_Offset_3
030b 016d       | m  |		Execute	Variant_Record,Structure_Write
030c 00d8       |    |		Load_Top	At_Offset_0
030d e248       | H  |		Load	0x1,0x48
030e 8022       | "  |		Call	0x0,0x22
030f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0310 00d9       |    |		Load_Top	At_Offset_1
0311 00db       |    |		Load_Top	At_Offset_3
0312 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0313 00da       |    |		Load_Top	At_Offset_2
0314 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0327       | '  |		.CONST	0x0327								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0003       |    |		.CONST	0x0003								; Number of locals
031b			INIT_0318:
031b e237       | 7  |		Load	0x1,0x37
031c 0322       | "  |		Declare_Variable	Record
031d 00db       |    |		Load_Top	At_Offset_3
031e 0219       |    |		Execute	Heap_Access,All_Read
031f e023       | #  |		Load	0x0,0x23
0320 e246       | F  |		Load	0x1,0x46
0321 0096       |    |		Execute	Package,Entry
0322 00d9       |    |		Load_Top	At_Offset_1
0323 017d       | }  |		Execute	Record,Structure_Write
0324 00d8       |    |		Load_Top	At_Offset_0
0325 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0326 8024       | $  |		Call	0x0,0x24
0327			BODY_0318:
0327 00d8       |    |		Load_Top	At_Offset_0
0328 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0329 0000 0000  |    |		.BLANK	0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0336       | 6  |		.CONST	0x0336								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 e22c       | ,  |		Load	0x1,0x2c
0334 e5fe       |    |		Load	0x2,-0x2
0335 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0336			BODY_0330:
0336 00d8       |    |		Load_Top	At_Offset_0
0337 00d8       |    |		Load_Top	At_Offset_0
0338 0219       |    |		Execute	Heap_Access,All_Read
0339 e009       |    |		Load	0x0,0x9
033a e246       | F  |		Load	0x1,0x46
033b 0098       |    |		Execute	Package,Field_Read_Dynamic
033c 0216       |    |		Execute	Heap_Access,Convert
033d e5fe       |    |		Load	0x2,-0x2
033e e5ff       |    |		Load	0x2,-0x1
033f 0219       |    |		Execute	Heap_Access,All_Read
0340 e025       | %  |		Load	0x0,0x25
0341 e246       | F  |		Load	0x1,0x46
0342 0096       |    |		Execute	Package,Entry
0343 00d9       |    |		Load_Top	At_Offset_1
0344 0218       |    |		Execute	Heap_Access,All_Write
0345 00d1       |    |		Pop_Control	Pop_Count_1
0346 00d8       |    |		Load_Top	At_Offset_0
0347 a5fd       |    |		Store_Unchecked	0x2,-0x3
0348 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0349 0000 0000  |    |		.BLANK	0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 4801       |H   |		Short_Literal	0x1
0354 a5fc       |    |		Store_Unchecked	0x2,-0x4
0355 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0356 0000 0000  |    |		.XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036d       | m  |		.CONST	0x036d								; Address of begin
0359 0386       |    |		.CONST	0x0386								; Address of exception handler
035a 0003       |    |		.CONST	0x0003								; Number of locals
035b			INIT_0358:
035b 00db       |    |		Load_Top	At_Offset_3
035c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035d 00d8       |    |		Load_Top	At_Offset_0
035e 00e4       |    |		Load_Encached	Positive_Cache
035f 0260       | `  |		Execute	Discrete,In_Type
0360 7001       |p   |		Jump_Nonzero	0x362
0361 0801       |    |		Execute_Immediate	Raise,0x1
0362 00db       |    |		Load_Top	At_Offset_3
0363 0219       |    |		Execute	Heap_Access,All_Read
0364 e026       | &  |		Load	0x0,0x26
0365 e246       | F  |		Load	0x1,0x46
0366 0096       |    |		Execute	Package,Entry
0367 00d8       |    |		Load_Top	At_Offset_0
0368 e027       | '  |		Load	0x0,0x27
0369 e246       | F  |		Load	0x1,0x46
036a 0096       |    |		Execute	Package,Entry
036b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
036c 0007       |    |		Action	Break_Optional
036d			BODY_0358:
036d 00d8       |    |		Load_Top	At_Offset_0
036e 4803       |H   |		Short_Literal	0x3
036f 4806       |H   |		Short_Literal	0x6
0370 0262       | b  |		Execute	Discrete,In_Range
0371 700d       |p   |		Jump_Nonzero	0x37f
0372 0092 1882  |    |		Action	Push_String_Extended,0x1882					; "on this"
0374 00d9       |    |		Load_Top	At_Offset_1
0375 e23a       | :  |		Load	0x1,0x3a
0376 011c       |    |		Execute	Any,Convert_Unchecked
0377 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0378 01cc       |    |		Execute	Vector,Catenate
0379 0092 1883  |    |		Action	Push_String_Extended,0x1883					; "Explain"
037b e028       | (  |		Load	0x0,0x28
037c e231       | 1  |		Load	0x1,0x31
037d 0096       |    |		Execute	Package,Entry
037e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
037f 00ea       |    |		Load_Encached	Null_String_Cache
0380 0092 1884  |    |		Action	Push_String_Extended,0x1884					; "Explanation of coverage by test case"
0382 e029       | )  |		Load	0x0,0x29
0383 e231       | 1  |		Load	0x1,0x31
0384 0096       |    |		Execute	Package,Entry
0385 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0386			TRAP_0358:
0386 e02a       | *  |		Load	0x0,0x2a
0387 e246       | F  |		Load	0x1,0x46
0388 0098       |    |		Execute	Package,Field_Read_Dynamic
0389 010f       |    |		Execute	Exception,Equal
038a 7002       |p   |		Jump_Nonzero	0x38d
038b 010e       |    |		Execute	Exception,Is_Constraint_Error
038c 6805       |h   |		Jump_Zero	0x392
038d 4801       |H   |		Short_Literal	0x1
038e 0092 1885  |    |		Action	Push_String_Extended,0x1885					; "Explanation not supported at this position"
0390 820e       |    |		Call	0x1,0xe
0391 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0392 0100       |    |		Execute	Exception,Raise
0393 0000 0000  |    |		.BLANK	0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03b0       |    |		.CONST	0x03b0								; Address of begin
0399 03cd       |    |		.CONST	0x03cd								; Address of exception handler
039a 0005       |    |		.CONST	0x0005								; Number of locals
039b			INIT_0398:
039b 00db       |    |		Load_Top	At_Offset_3
039c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
039d 00d8       |    |		Load_Top	At_Offset_0
039e 00e4       |    |		Load_Encached	Positive_Cache
039f 0260       | `  |		Execute	Discrete,In_Type
03a0 7001       |p   |		Jump_Nonzero	0x3a2
03a1 0801       |    |		Execute_Immediate	Raise,0x1
03a2 00db       |    |		Load_Top	At_Offset_3
03a3 0219       |    |		Execute	Heap_Access,All_Read
03a4 e026       | &  |		Load	0x0,0x26
03a5 e246       | F  |		Load	0x1,0x46
03a6 0096       |    |		Execute	Package,Entry
03a7 00d8       |    |		Load_Top	At_Offset_0
03a8 e027       | '  |		Load	0x0,0x27
03a9 e246       | F  |		Load	0x1,0x46
03aa 0096       |    |		Execute	Package,Entry
03ab 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ac 029f 10cb  |    |		Declare_Subprogram	INIT_10c8,For_Call
03ae 029f 10fb  |    |		Declare_Subprogram	INIT_10f8,For_Call
03b0			BODY_0398:
03b0 00da       |    |		Load_Top	At_Offset_2
03b1 4606       |F   |		Jump_Case	0x7
03b2 780d       |x   |		Jump	0x3c0								; case 0x0
03b3 780c       |x   |		Jump	0x3c0								; case 0x1
03b4 780b       |x   |		Jump	0x3c0								; case 0x2
03b5 7808       |x   |		Jump	0x3be								; case 0x3
03b6 7802       |x   |		Jump	0x3b9								; case 0x4
03b7 7801       |x   |		Jump	0x3b9								; case 0x5
03b8 7800       |x   |		Jump	0x3b9								; case 0x6
03b9 8404       |    |		Call	0x2,0x4
03ba 802b       | +  |		Call	0x0,0x2b
03bb e5fd       |    |		Load	0x2,-0x3
03bc 016d       | m  |		Execute	Variant_Record,Structure_Write
03bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03be 8405       |    |		Call	0x2,0x5
03bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c0 4800       |H   |		Short_Literal	0x0
03c1 0092 1886  |    |		Action	Push_String_Extended,0x1886					; "Definition not supported on this "
03c3 e403       |    |		Load	0x2,0x3
03c4 e23a       | :  |		Load	0x1,0x3a
03c5 011c       |    |		Execute	Any,Convert_Unchecked
03c6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03c7 01cc       |    |		Execute	Vector,Catenate
03c8 820e       |    |		Call	0x1,0xe
03c9 802b       | +  |		Call	0x0,0x2b
03ca e5fd       |    |		Load	0x2,-0x3
03cb 016d       | m  |		Execute	Variant_Record,Structure_Write
03cc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cd			TRAP_0398:
03cd e02a       | *  |		Load	0x0,0x2a
03ce e246       | F  |		Load	0x1,0x46
03cf 0098       |    |		Execute	Package,Field_Read_Dynamic
03d0 010f       |    |		Execute	Exception,Equal
03d1 7002       |p   |		Jump_Nonzero	0x3d4
03d2 010e       |    |		Execute	Exception,Is_Constraint_Error
03d3 6805       |h   |		Jump_Zero	0x3d9
03d4 4801       |H   |		Short_Literal	0x1
03d5 0092 1887  |    |		Action	Push_String_Extended,0x1887					; "Definition not supported at this position"
03d7 820e       |    |		Call	0x1,0xe
03d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d9 0100       |    |		Execute	Exception,Raise
03da 0000 0000  |    |		.BLANK	0000[0x6]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03f0       |    |		.CONST	0x03f0								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0003       |    |		.CONST	0x0003								; Number of locals
03e3			INIT_03e0:
03e3 e01f       |    |		Load	0x0,0x1f
03e4 02ff       |    |		Declare_Variable	Variant_Record
03e5 00db       |    |		Load_Top	At_Offset_3
03e6 0219       |    |		Execute	Heap_Access,All_Read
03e7 e020       |    |		Load	0x0,0x20
03e8 e246       | F  |		Load	0x1,0x46
03e9 0096       |    |		Execute	Package,Entry
03ea 4810       |H   |		Short_Literal	0x10
03eb 8021       | !  |		Call	0x0,0x21
03ec 00d9       |    |		Load_Top	At_Offset_1
03ed 016d       | m  |		Execute	Variant_Record,Structure_Write
03ee 00db       |    |		Load_Top	At_Offset_3
03ef 8212       |    |		Call	0x1,0x12
03f0			BODY_03e0:
03f0 00d9       |    |		Load_Top	At_Offset_1
03f1 00d8       |    |		Load_Top	At_Offset_0
03f2 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
03f3 00d8       |    |		Load_Top	At_Offset_0
03f4 e5ff       |    |		Load	0x2,-0x1
03f5 0219       |    |		Execute	Heap_Access,All_Read
03f6 e020       |    |		Load	0x0,0x20
03f7 e246       | F  |		Load	0x1,0x46
03f8 0096       |    |		Execute	Package,Entry
03f9 e5ff       |    |		Load	0x2,-0x1
03fa 8212       |    |		Call	0x1,0x12
03fb 802c       | ,  |		Call	0x0,0x2c
03fc 8022       | "  |		Call	0x0,0x22
03fd 00d9       |    |		Load_Top	At_Offset_1
03fe 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
03ff 00d1       |    |		Pop_Control	Pop_Count_1
0400 00d0       |    |		Action	Swap_Control
0401 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0402 4800       |H   |		Short_Literal	0x0
0403 a5fd       |    |		Store_Unchecked	0x2,-0x3
0404 00d9       |    |		Load_Top	At_Offset_1
0405 e5fe       |    |		Load	0x2,-0x2
0406 016d       | m  |		Execute	Variant_Record,Structure_Write
0407 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0414       |    |		.CONST	0x0414								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0002       |    |		.CONST	0x0002								; Number of locals
040b			INIT_0408:
040b e237       | 7  |		Load	0x1,0x37
040c 0322       | "  |		Declare_Variable	Record
040d 00db       |    |		Load_Top	At_Offset_3
040e 0219       |    |		Execute	Heap_Access,All_Read
040f e023       | #  |		Load	0x0,0x23
0410 e246       | F  |		Load	0x1,0x46
0411 0096       |    |		Execute	Package,Entry
0412 00d9       |    |		Load_Top	At_Offset_1
0413 017d       | }  |		Execute	Record,Structure_Write
0414			BODY_0408:
0414 00d8       |    |		Load_Top	At_Offset_0
0415 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0416 4602       |F   |		Jump_Case	0x3
0417 7810       |x   |		Jump	0x428								; case 0x0
0418 7814       |x   |		Jump	0x42d								; case 0x1
0419 7800       |x   |		Jump	0x41a								; case 0x2
041a 4801       |H   |		Short_Literal	0x1
041b 00d9       |    |		Load_Top	At_Offset_1
041c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
041d 00d8       |    |		Load_Top	At_Offset_0
041e e5ff       |    |		Load	0x2,-0x1
041f 0219       |    |		Execute	Heap_Access,All_Read
0420 e02d       | -  |		Load	0x0,0x2d
0421 e246       | F  |		Load	0x1,0x46
0422 0096       |    |		Execute	Package,Entry
0423 4801       |H   |		Short_Literal	0x1
0424 4805       |H   |		Short_Literal	0x5
0425 e5ff       |    |		Load	0x2,-0x1
0426 8256       | V  |		Call	0x1,0x56
0427 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0428 4800       |H   |		Short_Literal	0x0
0429 0092 1888  |    |		Action	Push_String_Extended,0x1888					; "Image is fully elided"
042b 820e       |    |		Call	0x1,0xe
042c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
042d 4800       |H   |		Short_Literal	0x0
042e 00d9       |    |		Load_Top	At_Offset_1
042f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0430 00d8       |    |		Load_Top	At_Offset_0
0431 e5ff       |    |		Load	0x2,-0x1
0432 0219       |    |		Execute	Heap_Access,All_Read
0433 e02d       | -  |		Load	0x0,0x2d
0434 e246       | F  |		Load	0x1,0x46
0435 0096       |    |		Execute	Package,Entry
0436 4801       |H   |		Short_Literal	0x1
0437 4804       |H   |		Short_Literal	0x4
0438 e5ff       |    |		Load	0x2,-0x1
0439 8256       | V  |		Call	0x1,0x56
043a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043b 1889 00da  |    |		.XXX[0x9]
043d 3c01 e233  |<  3|
043f 011c 1c01  |    |
0441 01cc 820e  |    |
0443 4504       |E   |
0444 0000 0000  |    |		.BLANK	0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0454       | T  |		.CONST	0x0454								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b e237       | 7  |		Load	0x1,0x37
044c 0322       | "  |		Declare_Variable	Record
044d 00db       |    |		Load_Top	At_Offset_3
044e 0219       |    |		Execute	Heap_Access,All_Read
044f e023       | #  |		Load	0x0,0x23
0450 e246       | F  |		Load	0x1,0x46
0451 0096       |    |		Execute	Package,Entry
0452 00d9       |    |		Load_Top	At_Offset_1
0453 017d       | }  |		Execute	Record,Structure_Write
0454			BODY_0448:
0454 00d8       |    |		Load_Top	At_Offset_0
0455 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0456 4602       |F   |		Jump_Case	0x3
0457 7815       |x   |		Jump	0x46d								; case 0x0
0458 7806       |x   |		Jump	0x45f								; case 0x1
0459 7800       |x   |		Jump	0x45a								; case 0x2
045a 4800       |H   |		Short_Literal	0x0
045b 0092 188a  |    |		Action	Push_String_Extended,0x188a					; "Image is fully expanded"
045d 820e       |    |		Call	0x1,0xe
045e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
045f 4802       |H   |		Short_Literal	0x2
0460 00d9       |    |		Load_Top	At_Offset_1
0461 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0462 00d8       |    |		Load_Top	At_Offset_0
0463 e5ff       |    |		Load	0x2,-0x1
0464 0219       |    |		Execute	Heap_Access,All_Read
0465 e02d       | -  |		Load	0x0,0x2d
0466 e246       | F  |		Load	0x1,0x46
0467 0096       |    |		Execute	Package,Entry
0468 4800       |H   |		Short_Literal	0x0
0469 4805       |H   |		Short_Literal	0x5
046a e5ff       |    |		Load	0x2,-0x1
046b 8256       | V  |		Call	0x1,0x56
046c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
046d 4801       |H   |		Short_Literal	0x1
046e 00d9       |    |		Load_Top	At_Offset_1
046f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0470 00d8       |    |		Load_Top	At_Offset_0
0471 e5ff       |    |		Load	0x2,-0x1
0472 0219       |    |		Execute	Heap_Access,All_Read
0473 e02d       | -  |		Load	0x0,0x2d
0474 e246       | F  |		Load	0x1,0x46
0475 0096       |    |		Execute	Package,Entry
0476 4800       |H   |		Short_Literal	0x0
0477 4804       |H   |		Short_Literal	0x4
0478 e5ff       |    |		Load	0x2,-0x1
0479 8256       | V  |		Call	0x1,0x56
047a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
047b 188b 00da  |    |		.XXX[0x9]
047d 3c01 e233  |<  3|
047f 011c 1c01  |    |
0481 01cc 820e  |    |
0483 4504       |E   |
0484 0000 0000  |    |		.BLANK	0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 0833       | 3  |		Execute_Immediate	Raise,0x33
048c 0000 0000  |    |		.BLANK	0000[0x4]
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 0833       | 3  |		Execute_Immediate	Raise,0x33
0494 0000 0000  |    |		.BLANK	0000[0x4]
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 00ea       |    |		Load_Encached	Null_String_Cache
049c 0092 188c  |    |		Action	Push_String_Extended,0x188c					; "Promote"
049e e028       | (  |		Load	0x0,0x28
049f e231       | 1  |		Load	0x1,0x31
04a0 0096       |    |		Execute	Package,Entry
04a1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04a2 0000 0000  |    |		.BLANK	0000[0x6]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00ea       |    |		Load_Encached	Null_String_Cache
04ac 0092 188d  |    |		Action	Push_String_Extended,0x188d					; "Demote"
04ae e028       | (  |		Load	0x0,0x28
04af e231       | 1  |		Load	0x1,0x31
04b0 0096       |    |		Execute	Package,Entry
04b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04b2 0000 0000  |    |		.BLANK	0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bf       |    |		.CONST	0x04bf								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0003       |    |		.CONST	0x0003								; Number of locals
04bb			INIT_04b8:
04bb 00db       |    |		Load_Top	At_Offset_3
04bc 802e       | .  |		Call	0x0,0x2e
04bd 029f 112b  |   +|		Declare_Subprogram	INIT_1128,For_Call
04bf			BODY_04b8:
04bf 00d9       |    |		Load_Top	At_Offset_1
04c0 6802       |h   |		Jump_Zero	0x4c3
04c1 8403       |    |		Call	0x2,0x3
04c2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c3 4800       |H   |		Short_Literal	0x0
04c4 0092 188e  |    |		Action	Push_String_Extended,0x188e					; "Delete requires a selected line"
04c6 820e       |    |		Call	0x1,0xe
04c7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d4       |    |		.CONST	0x04d4								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb e237       | 7  |		Load	0x1,0x37
04cc 0322       | "  |		Declare_Variable	Record
04cd 00db       |    |		Load_Top	At_Offset_3
04ce 0219       |    |		Execute	Heap_Access,All_Read
04cf e023       | #  |		Load	0x0,0x23
04d0 e246       | F  |		Load	0x1,0x46
04d1 0096       |    |		Execute	Package,Entry
04d2 00d9       |    |		Load_Top	At_Offset_1
04d3 017d       | }  |		Execute	Record,Structure_Write
04d4			BODY_04c8:
04d4 e5fe       |    |		Load	0x2,-0x2
04d5 00d8       |    |		Load_Top	At_Offset_0
04d6 4ffd       |O   |		Short_Literal	-0x3
04d7 4803       |H   |		Short_Literal	0x3
04d8 0262       | b  |		Execute	Discrete,In_Range
04d9 6850       |hP  |		Jump_Zero	0x52a
04da 0a03       |    |		Execute_Immediate	Plus,0x3
04db 4606       |F   |		Jump_Case	0x7
04dc 782d       |x-  |		Jump	0x50a								; case 0x0
04dd 784d       |xM  |		Jump	0x52b								; case 0x1
04de 781e       |x   |		Jump	0x4fd								; case 0x2
04df 784b       |xK  |		Jump	0x52b								; case 0x3
04e0 780f       |x   |		Jump	0x4f0								; case 0x4
04e1 7835       |x5  |		Jump	0x517								; case 0x5
04e2 7800       |x   |		Jump	0x4e3								; case 0x6
04e3 4803       |H   |		Short_Literal	0x3
04e4 00d9       |    |		Load_Top	At_Offset_1
04e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04e6 6055       |`U  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x7fffffff}
04e7 4801       |H   |		Short_Literal	0x1
04e8 e5ff       |    |		Load	0x2,-0x1
04e9 0219       |    |		Execute	Heap_Access,All_Read
04ea 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
04eb 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
04ec e00e       |    |		Load	0x0,0xe
04ed e246       | F  |		Load	0x1,0x46
04ee 0096       |    |		Execute	Package,Entry
04ef 7843       |xC  |		Jump	0x533
04f0 4801       |H   |		Short_Literal	0x1
04f1 00d9       |    |		Load_Top	At_Offset_1
04f2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04f3 6048       |`H  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x7fffffff}
04f4 4801       |H   |		Short_Literal	0x1
04f5 e5ff       |    |		Load	0x2,-0x1
04f6 0219       |    |		Execute	Heap_Access,All_Read
04f7 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
04f8 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
04f9 e00e       |    |		Load	0x0,0xe
04fa e246       | F  |		Load	0x1,0x46
04fb 0096       |    |		Execute	Package,Entry
04fc 7836       |x6  |		Jump	0x533
04fd 4802       |H   |		Short_Literal	0x2
04fe 00d9       |    |		Load_Top	At_Offset_1
04ff 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0500 603b       |`;  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x7fffffff}
0501 4801       |H   |		Short_Literal	0x1
0502 e5ff       |    |		Load	0x2,-0x1
0503 0219       |    |		Execute	Heap_Access,All_Read
0504 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0505 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
0506 e00e       |    |		Load	0x0,0xe
0507 e246       | F  |		Load	0x1,0x46
0508 0096       |    |		Execute	Package,Entry
0509 7829       |x)  |		Jump	0x533
050a 4804       |H   |		Short_Literal	0x4
050b 00d9       |    |		Load_Top	At_Offset_1
050c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
050d 602e       |`.  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x7fffffff}
050e 4801       |H   |		Short_Literal	0x1
050f e5ff       |    |		Load	0x2,-0x1
0510 0219       |    |		Execute	Heap_Access,All_Read
0511 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
0512 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0513 e00e       |    |		Load	0x0,0xe
0514 e246       | F  |		Load	0x1,0x46
0515 0096       |    |		Execute	Package,Entry
0516 781c       |x   |		Jump	0x533
0517 00d8       |    |		Load_Top	At_Offset_0
0518 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0519 7004       |p   |		Jump_Nonzero	0x51e
051a 4801       |H   |		Short_Literal	0x1
051b 00d9       |    |		Load_Top	At_Offset_1
051c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
051d 7807       |x   |		Jump	0x525
051e 00d8       |    |		Load_Top	At_Offset_0
051f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0520 0f01       |    |		Execute_Immediate	Equal,0x1
0521 6803       |h   |		Jump_Zero	0x525
0522 4800       |H   |		Short_Literal	0x0
0523 00d9       |    |		Load_Top	At_Offset_1
0524 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0525 00d8       |    |		Load_Top	At_Offset_0
0526 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0527 e5ff       |    |		Load	0x2,-0x1
0528 8279       | y  |		Call	0x1,0x79
0529 7809       |x   |		Jump	0x533
052a 00d1       |    |		Pop_Control	Pop_Count_1
052b 4800       |H   |		Short_Literal	0x0
052c 0092 188f  |    |		Action	Push_String_Extended,0x188f					; "No operation defined for value "
052e e5fe       |    |		Load	0x2,-0x2
052f 00e0       |    |		Load_Encached	Standard_Cache
0530 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0531 01cc       |    |		Execute	Vector,Catenate
0532 820e       |    |		Call	0x1,0xe
0533 00d8       |    |		Load_Top	At_Offset_0
0534 e5ff       |    |		Load	0x2,-0x1
0535 0219       |    |		Execute	Heap_Access,All_Read
0536 e02d       | -  |		Load	0x0,0x2d
0537 e246       | F  |		Load	0x1,0x46
0538 0096       |    |		Execute	Package,Entry
0539 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
053a 0000 0000  |    |		.XXX[0x2]
053c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 00ea       |    |		Load_Encached	Null_String_Cache
0544 0092 1890  |    |		Action	Push_String_Extended,0x1890					; "Filter"
0546 e028       | (  |		Load	0x0,0x28
0547 e231       | 1  |		Load	0x1,0x31
0548 0096       |    |		Execute	Package,Entry
0549 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
054a 0000 0000  |    |		.BLANK	0000[0x6]
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 00ea       |    |		Load_Encached	Null_String_Cache
0554 0092 1891  |    |		Action	Push_String_Extended,0x1891					; "Show_Differential"
0556 e028       | (  |		Load	0x0,0x28
0557 e231       | 1  |		Load	0x1,0x31
0558 0096       |    |		Execute	Package,Entry
0559 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
055a 0000 0000  |    |		.BLANK	0000[0x6]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 00ea       |    |		Load_Encached	Null_String_Cache
0564 0092 1892  |    |		Action	Push_String_Extended,0x1892					; "Generate_Test_Set"
0566 e028       | (  |		Load	0x0,0x28
0567 e231       | 1  |		Load	0x1,0x31
0568 0096       |    |		Execute	Package,Entry
0569 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
056a 0000 0000  |    |		.BLANK	0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0578       | x  |		.CONST	0x0578								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 0217       |    |		Execute	Heap_Access,All_Reference
0575 e02f       | /  |		Load	0x0,0x2f
0576 e246       | F  |		Load	0x1,0x46
0577 0096       |    |		Execute	Package,Entry
0578			BODY_0570:
0578 00d8       |    |		Load_Top	At_Offset_0
0579 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057a 0000 0000  |    |		.BLANK	0000[0x6]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058c       |    |		.CONST	0x058c								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0002       |    |		.CONST	0x0002								; Number of locals
0583			INIT_0580:
0583 e237       | 7  |		Load	0x1,0x37
0584 0322       | "  |		Declare_Variable	Record
0585 00db       |    |		Load_Top	At_Offset_3
0586 0219       |    |		Execute	Heap_Access,All_Read
0587 e023       | #  |		Load	0x0,0x23
0588 e246       | F  |		Load	0x1,0x46
0589 0096       |    |		Execute	Package,Entry
058a 00d9       |    |		Load_Top	At_Offset_1
058b 017d       | }  |		Execute	Record,Structure_Write
058c			BODY_0580:
058c 00d8       |    |		Load_Top	At_Offset_0
058d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
058e e233       | 3  |		Load	0x1,0x33
058f 011c       |    |		Execute	Any,Convert_Unchecked
0590 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0591 0092 1893  |    |		Action	Push_String_Extended,0x1893					; " ("
0593 01cc       |    |		Execute	Vector,Catenate
0594 00d9       |    |		Load_Top	At_Offset_1
0595 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0596 e236       | 6  |		Load	0x1,0x36
0597 011c       |    |		Execute	Any,Convert_Unchecked
0598 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0599 01cc       |    |		Execute	Vector,Catenate
059a 0092 1894  |    |		Action	Push_String_Extended,0x1894					; "S) by "
059c 01cc       |    |		Execute	Vector,Catenate
059d 00d9       |    |		Load_Top	At_Offset_1
059e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
059f e234       | 4  |		Load	0x1,0x34
05a0 011c       |    |		Execute	Any,Convert_Unchecked
05a1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05a2 01cc       |    |		Execute	Vector,Catenate
05a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a4 0000 0000  |    |		.BLANK	0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b4       |    |		.CONST	0x05b4								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0002       |    |		.CONST	0x0002								; Number of locals
05ab			INIT_05a8:
05ab e237       | 7  |		Load	0x1,0x37
05ac 0322       | "  |		Declare_Variable	Record
05ad 00db       |    |		Load_Top	At_Offset_3
05ae 0219       |    |		Execute	Heap_Access,All_Read
05af e023       | #  |		Load	0x0,0x23
05b0 e246       | F  |		Load	0x1,0x46
05b1 0096       |    |		Execute	Package,Entry
05b2 00d9       |    |		Load_Top	At_Offset_1
05b3 017d       | }  |		Execute	Record,Structure_Write
05b4			BODY_05a8:
05b4 00d8       |    |		Load_Top	At_Offset_0
05b5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
05b6 8024       | $  |		Call	0x0,0x24
05b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 00da       |    |		Load_Top	At_Offset_2
05bc 8225       | %  |		Call	0x1,0x25
05bd e5fe       |    |		Load	0x2,-0x2
05be 8225       | %  |		Call	0x1,0x25
05bf 01df       |    |		Execute	Vector,Equal
05c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05c1 0000 0000  |    |		.BLANK	0000[0x7]
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 4801       |H   |		Short_Literal	0x1
05cc 00db       |    |		Load_Top	At_Offset_3
05cd 0219       |    |		Execute	Heap_Access,All_Read
05ce e030       | 0  |		Load	0x0,0x30
05cf e246       | F  |		Load	0x1,0x46
05d0 0096       |    |		Execute	Package,Entry
05d1 e230       | 0  |		Load	0x1,0x30
05d2 e5ff       |    |		Load	0x2,-0x1
05d3 0219       |    |		Execute	Heap_Access,All_Read
05d4 e020       |    |		Load	0x0,0x20
05d5 e246       | F  |		Load	0x1,0x46
05d6 0096       |    |		Execute	Package,Entry
05d7 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
05d8 a5fe       |    |		Store_Unchecked	0x2,-0x2
05d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05da 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
05e4 0217       |    |		Execute	Heap_Access,All_Reference
05e5 e031       | 1  |		Load	0x0,0x31
05e6 e246       | F  |		Load	0x1,0x46
05e7 0096       |    |		Execute	Package,Entry
05e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e9 0000 0000  |    |		.BLANK	0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05fb       |    |		.CONST	0x05fb								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0002       |    |		.CONST	0x0002								; Number of locals
05f3			INIT_05f0:
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 0217       |    |		Execute	Heap_Access,All_Reference
05f5 e032       | 2  |		Load	0x0,0x32
05f6 e246       | F  |		Load	0x1,0x46
05f7 0096       |    |		Execute	Package,Entry
05f8 e020       |    |		Load	0x0,0x20
05f9 e246       | F  |		Load	0x1,0x46
05fa 0096       |    |		Execute	Package,Entry
05fb			BODY_05f0:
05fb 00db       |    |		Load_Top	At_Offset_3
05fc 0217       |    |		Execute	Heap_Access,All_Reference
05fd e033       | 3  |		Load	0x0,0x33
05fe e246       | F  |		Load	0x1,0x46
05ff 0096       |    |		Execute	Package,Entry
0600 e22e       | .  |		Load	0x1,0x2e
0601 00da       |    |		Load_Top	At_Offset_2
0602 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0603 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0604 0000 0000  |    |		.BLANK	0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2
060c 0219       |    |		Execute	Heap_Access,All_Read
060d 00d8       |    |		Load_Top	At_Offset_0
060e e034       | 4  |		Load	0x0,0x34
060f e246       | F  |		Load	0x1,0x46
0610 0096       |    |		Execute	Package,Entry
0611 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0612 0000 0000  |    |		.BLANK	0000[0x6]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 4607       |F   |		Jump_Case	0x8
061c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
061d 7807       |x   |		Jump	0x625								; case 0x1
061e 780a       |x   |		Jump	0x629								; case 0x2
061f 780e       |x   |		Jump	0x62e								; case 0x3
0620 7811       |x   |		Jump	0x632								; case 0x4
0621 7812       |x   |		Jump	0x634								; case 0x5
0622 7813       |x   |		Jump	0x636								; case 0x6
0623 7816       |x   |		Jump	0x63a								; case 0x7
0624 4302       |C   |		.XXX[0x1]
0625 00da       |    |		Load_Top	At_Offset_2
0626 0091 1860  |   `|		Action	Push_String_Extended_Indexed,0x1860				; "ONE"
0628 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0629 00db       |    |		Load_Top	At_Offset_3
062a 00db       |    |		Load_Top	At_Offset_3
062b 00e0       |    |		Load_Encached	Standard_Cache
062c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
062d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
062e 00da       |    |		Load_Top	At_Offset_2
062f 00e0       |    |		Load_Encached	Standard_Cache
0630 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0631 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0632 00db       |    |		Load_Top	At_Offset_3
0633 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0634 00db       |    |		Load_Top	At_Offset_3
0635 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0636 e232       | 2  |		Load	0x1,0x32
0637 00dc       |    |		Load_Top	At_Offset_4
0638 0267       | g  |		Execute	Discrete,Predecessor
0639 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
063a e232       | 2  |		Load	0x1,0x32
063b 00dc       |    |		Load_Top	At_Offset_4
063c 0268       | h  |		Execute	Discrete,Successor
063d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
063e 0000 0000  |    |		.XXX[0x2]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 4607       |F   |		Jump_Case	0x8
0644 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0645 7807       |x   |		Jump	0x64d								; case 0x1
0646 780a       |x   |		Jump	0x651								; case 0x2
0647 780e       |x   |		Jump	0x656								; case 0x3
0648 7811       |x   |		Jump	0x65a								; case 0x4
0649 7812       |x   |		Jump	0x65c								; case 0x5
064a 7813       |x   |		Jump	0x65e								; case 0x6
064b 7816       |x   |		Jump	0x662								; case 0x7
064c 4302       |C   |		.XXX[0x1]
064d 00da       |    |		Load_Top	At_Offset_2
064e 0091 1862  |   b|		Action	Push_String_Extended_Indexed,0x1862				; "WORLD"
0650 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0651 00db       |    |		Load_Top	At_Offset_3
0652 00db       |    |		Load_Top	At_Offset_3
0653 00e0       |    |		Load_Encached	Standard_Cache
0654 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0655 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0656 00da       |    |		Load_Top	At_Offset_2
0657 00e0       |    |		Load_Encached	Standard_Cache
0658 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0659 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
065a 00db       |    |		Load_Top	At_Offset_3
065b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
065c 00db       |    |		Load_Top	At_Offset_3
065d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
065e e233       | 3  |		Load	0x1,0x33
065f 00dc       |    |		Load_Top	At_Offset_4
0660 0267       | g  |		Execute	Discrete,Predecessor
0661 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0662 e233       | 3  |		Load	0x1,0x33
0663 00dc       |    |		Load_Top	At_Offset_4
0664 0268       | h  |		Execute	Discrete,Successor
0665 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0666 0000 0000  |    |		.XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 4607       |F   |		Jump_Case	0x8
066c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
066d 7807       |x   |		Jump	0x675								; case 0x1
066e 780a       |x   |		Jump	0x679								; case 0x2
066f 780e       |x   |		Jump	0x67e								; case 0x3
0670 7811       |x   |		Jump	0x682								; case 0x4
0671 7812       |x   |		Jump	0x684								; case 0x5
0672 7813       |x   |		Jump	0x686								; case 0x6
0673 7816       |x   |		Jump	0x68a								; case 0x7
0674 4302       |C   |		.XXX[0x1]
0675 00da       |    |		Load_Top	At_Offset_2
0676 0091 1865  |   e|		Action	Push_String_Extended_Indexed,0x1865				; "NONE"
0678 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0679 00db       |    |		Load_Top	At_Offset_3
067a 00db       |    |		Load_Top	At_Offset_3
067b 00e0       |    |		Load_Encached	Standard_Cache
067c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
067d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067e 00da       |    |		Load_Top	At_Offset_2
067f 00e0       |    |		Load_Encached	Standard_Cache
0680 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0681 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0682 00db       |    |		Load_Top	At_Offset_3
0683 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0684 00db       |    |		Load_Top	At_Offset_3
0685 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0686 e234       | 4  |		Load	0x1,0x34
0687 00dc       |    |		Load_Top	At_Offset_4
0688 0267       | g  |		Execute	Discrete,Predecessor
0689 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
068a e234       | 4  |		Load	0x1,0x34
068b 00dc       |    |		Load_Top	At_Offset_4
068c 0268       | h  |		Execute	Discrete,Successor
068d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
068e 0000 0000  |    |		.XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 4607       |F   |		Jump_Case	0x8
0694 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0695 7807       |x   |		Jump	0x69d								; case 0x1
0696 780a       |x   |		Jump	0x6a1								; case 0x2
0697 780e       |x   |		Jump	0x6a6								; case 0x3
0698 7811       |x   |		Jump	0x6aa								; case 0x4
0699 7812       |x   |		Jump	0x6ac								; case 0x5
069a 7813       |x   |		Jump	0x6ae								; case 0x6
069b 7816       |x   |		Jump	0x6b2								; case 0x7
069c 4302       |C   |		.XXX[0x1]
069d 00da       |    |		Load_Top	At_Offset_2
069e 0091 186a  |   j|		Action	Push_String_Extended_Indexed,0x186a				; "NIL_COL"
06a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06a1 00db       |    |		Load_Top	At_Offset_3
06a2 00db       |    |		Load_Top	At_Offset_3
06a3 00e0       |    |		Load_Encached	Standard_Cache
06a4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06a6 00da       |    |		Load_Top	At_Offset_2
06a7 00e0       |    |		Load_Encached	Standard_Cache
06a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06a9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06aa 00db       |    |		Load_Top	At_Offset_3
06ab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ac 00db       |    |		Load_Top	At_Offset_3
06ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ae e235       | 5  |		Load	0x1,0x35
06af 00dc       |    |		Load_Top	At_Offset_4
06b0 0267       | g  |		Execute	Discrete,Predecessor
06b1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06b2 e235       | 5  |		Load	0x1,0x35
06b3 00dc       |    |		Load_Top	At_Offset_4
06b4 0268       | h  |		Execute	Discrete,Successor
06b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06b6 0000 0000  |    |		.XXX[0x2]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb       |    |		.CONST	0x06bb								; Address of begin
06b9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ba 0001       |    |		.CONST	0x0001								; Number of locals
06bb			BODY_06b8:
06bb			INIT_06b8:
06bb 4607       |F   |		Jump_Case	0x8
06bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06bd 7807       |x   |		Jump	0x6c5								; case 0x1
06be 780a       |x   |		Jump	0x6c9								; case 0x2
06bf 780e       |x   |		Jump	0x6ce								; case 0x3
06c0 7811       |x   |		Jump	0x6d2								; case 0x4
06c1 7812       |x   |		Jump	0x6d4								; case 0x5
06c2 7813       |x   |		Jump	0x6d6								; case 0x6
06c3 7816       |x   |		Jump	0x6da								; case 0x7
06c4 4302       |C   |		.XXX[0x1]
06c5 00da       |    |		Load_Top	At_Offset_2
06c6 0091 1871  |   q|		Action	Push_String_Extended_Indexed,0x1871				; "SEGMENT"
06c8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06c9 00db       |    |		Load_Top	At_Offset_3
06ca 00db       |    |		Load_Top	At_Offset_3
06cb 00e0       |    |		Load_Encached	Standard_Cache
06cc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ce 00da       |    |		Load_Top	At_Offset_2
06cf 00e0       |    |		Load_Encached	Standard_Cache
06d0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06d1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06d2 00db       |    |		Load_Top	At_Offset_3
06d3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06d4 00db       |    |		Load_Top	At_Offset_3
06d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06d6 e236       | 6  |		Load	0x1,0x36
06d7 00dc       |    |		Load_Top	At_Offset_4
06d8 0267       | g  |		Execute	Discrete,Predecessor
06d9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06da e236       | 6  |		Load	0x1,0x36
06db 00dc       |    |		Load_Top	At_Offset_4
06dc 0268       | h  |		Execute	Discrete,Successor
06dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06de 0000 0000  |    |		.XXX[0x2]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e4 0000 0000  |    |		.BLANK	0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb 4607       |F   |		Jump_Case	0x8
06ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06ed 7807       |x   |		Jump	0x6f5								; case 0x1
06ee 780a       |x   |		Jump	0x6f9								; case 0x2
06ef 780e       |x   |		Jump	0x6fe								; case 0x3
06f0 7811       |x   |		Jump	0x702								; case 0x4
06f1 7812       |x   |		Jump	0x704								; case 0x5
06f2 7813       |x   |		Jump	0x706								; case 0x6
06f3 7816       |x   |		Jump	0x70a								; case 0x7
06f4 4302       |C   |		.XXX[0x1]
06f5 00da       |    |		Load_Top	At_Offset_2
06f6 0091 1873  |   s|		Action	Push_String_Extended_Indexed,0x1873				; "NIL_ROW"
06f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06f9 00db       |    |		Load_Top	At_Offset_3
06fa 00db       |    |		Load_Top	At_Offset_3
06fb 00e0       |    |		Load_Encached	Standard_Cache
06fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06fe 00da       |    |		Load_Top	At_Offset_2
06ff 00e0       |    |		Load_Encached	Standard_Cache
0700 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0701 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0702 00db       |    |		Load_Top	At_Offset_3
0703 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0704 00db       |    |		Load_Top	At_Offset_3
0705 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0706 e23a       | :  |		Load	0x1,0x3a
0707 00dc       |    |		Load_Top	At_Offset_4
0708 0267       | g  |		Execute	Discrete,Predecessor
0709 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
070a e23a       | :  |		Load	0x1,0x3a
070b 00dc       |    |		Load_Top	At_Offset_4
070c 0268       | h  |		Execute	Discrete,Successor
070d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
070e 0000 0000  |    |		.XXX[0x2]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 4609       |F   |		Jump_Case	0xa
0714 7809       |x   |		Jump	0x71e								; case 0x0
0715 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0716 781d       |x   |		Jump	0x734								; case 0x2
0717 7820       |x   |		Jump	0x738								; case 0x3
0718 7831       |x1  |		Jump	0x74a								; case 0x4
0719 7830       |x0  |		Jump	0x74a								; case 0x5
071a 782f       |x/  |		Jump	0x74a								; case 0x6
071b 7822       |x"  |		Jump	0x73e								; case 0x7
071c 7825       |x%  |		Jump	0x742								; case 0x8
071d 7828       |x(  |		Jump	0x746								; case 0x9
071e 00da       |    |		Load_Top	At_Offset_2
071f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0720 7009       |p   |		Jump_Nonzero	0x72a
0721 00cf       |    |		Action	Mark_Auxiliary
0722 4800       |H   |		Short_Literal	0x0
0723 e5ff       |    |		Load	0x2,-0x1
0724 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0725 00d8       |    |		Load_Top	At_Offset_0
0726 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0727 c5ff       |    |		Store	0x2,-0x1
0728 00ce       |    |		Action	Pop_Auxiliary
0729 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
072a 4800       |H   |		Short_Literal	0x0
072b 00db       |    |		Load_Top	At_Offset_3
072c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
072d 00da       |    |		Load_Top	At_Offset_2
072e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
072f 4800       |H   |		Short_Literal	0x0
0730 4802       |H   |		Short_Literal	0x2
0731 0262       | b  |		Execute	Discrete,In_Range
0732 7000       |p   |		Jump_Nonzero	0x733
0733 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0734 4801       |H   |		Short_Literal	0x1
0735 4803       |H   |		Short_Literal	0x3
0736 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0737 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0738 e5fd       |    |		Load	0x2,-0x3
0739 00db       |    |		Load_Top	At_Offset_3
073a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
073b e5fe       |    |		Load	0x2,-0x2
073c 0306       |    |		Complete_Type	Variant_Record,By_Renaming
073d 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
073e 00db       |    |		Load_Top	At_Offset_3
073f e5ff       |    |		Load	0x2,-0x1
0740 031b       |    |		Declare_Type	Variant_Record,Constrained
0741 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0742 00db       |    |		Load_Top	At_Offset_3
0743 00db       |    |		Load_Top	At_Offset_3
0744 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0745 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0746 4800       |H   |		Short_Literal	0x0
0747 00db       |    |		Load_Top	At_Offset_3
0748 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0749 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
074a 0869       | i  |		Execute_Immediate	Raise,0x69
074b 0000 0000  |    |		.BLANK	0000[0x5]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0754 0000 0000  |    |		.BLANK	0000[0x4]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b       | [  |		.CONST	0x075b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0001       |    |		.CONST	0x0001								; Number of locals
075b			BODY_0758:
075b			INIT_0758:
075b 4609       |F   |		Jump_Case	0xa
075c 7809       |x   |		Jump	0x766								; case 0x0
075d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
075e 781e       |x   |		Jump	0x77d								; case 0x2
075f 7821       |x!  |		Jump	0x781								; case 0x3
0760 7862       |xb  |		Jump	0x7c3								; case 0x4
0761 7861       |xa  |		Jump	0x7c3								; case 0x5
0762 7824       |x$  |		Jump	0x787								; case 0x6
0763 783a       |x:  |		Jump	0x79e								; case 0x7
0764 7853       |xS  |		Jump	0x7b8								; case 0x8
0765 7859       |xY  |		Jump	0x7bf								; case 0x9
0766 00da       |    |		Load_Top	At_Offset_2
0767 016c       | l  |		Execute	Variant_Record,Is_Constrained
0768 7009       |p   |		Jump_Nonzero	0x772
0769 00cf       |    |		Action	Mark_Auxiliary
076a 4800       |H   |		Short_Literal	0x0
076b e5ff       |    |		Load	0x2,-0x1
076c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
076d 00d8       |    |		Load_Top	At_Offset_0
076e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
076f c5ff       |    |		Store	0x2,-0x1
0770 00ce       |    |		Action	Pop_Auxiliary
0771 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0772 00da       |    |		Load_Top	At_Offset_2
0773 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0774 4606       |F   |		Jump_Case	0x7
0775 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0776 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0777 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0778 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0779 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
077a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
077b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
077c 4302       |C   |		.XXX[0x1]
077d 4801       |H   |		Short_Literal	0x1
077e 480c       |H   |		Short_Literal	0xc
077f 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0780 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0781 e5fd       |    |		Load	0x2,-0x3
0782 00db       |    |		Load_Top	At_Offset_3
0783 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0784 e5fe       |    |		Load	0x2,-0x2
0785 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0786 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0787 00db       |    |		Load_Top	At_Offset_3
0788 4606       |F   |		Jump_Case	0x7
0789 7812       |x   |		Jump	0x79c								; case 0x0
078a 7807       |x   |		Jump	0x792								; case 0x1
078b 7808       |x   |		Jump	0x794								; case 0x2
078c 7809       |x   |		Jump	0x796								; case 0x3
078d 780a       |x   |		Jump	0x798								; case 0x4
078e 780b       |x   |		Jump	0x79a								; case 0x5
078f 7800       |x   |		Jump	0x790								; case 0x6
0790 4806       |H   |		Short_Literal	0x6
0791 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0792 4801       |H   |		Short_Literal	0x1
0793 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0794 4802       |H   |		Short_Literal	0x2
0795 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0796 4803       |H   |		Short_Literal	0x3
0797 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0798 4804       |H   |		Short_Literal	0x4
0799 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
079a 4805       |H   |		Short_Literal	0x5
079b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
079c 48ff       |H   |		Short_Literal	0xff
079d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
079e 00db       |    |		Load_Top	At_Offset_3
079f e5fe       |    |		Load	0x2,-0x2
07a0 4606       |F   |		Jump_Case	0x7
07a1 7812       |x   |		Jump	0x7b4								; case 0x0
07a2 7807       |x   |		Jump	0x7aa								; case 0x1
07a3 7808       |x   |		Jump	0x7ac								; case 0x2
07a4 7809       |x   |		Jump	0x7ae								; case 0x3
07a5 780a       |x   |		Jump	0x7b0								; case 0x4
07a6 780b       |x   |		Jump	0x7b2								; case 0x5
07a7 7800       |x   |		Jump	0x7a8								; case 0x6
07a8 4806       |H   |		Short_Literal	0x6
07a9 780b       |x   |		Jump	0x7b5
07aa 4801       |H   |		Short_Literal	0x1
07ab 7809       |x   |		Jump	0x7b5
07ac 4802       |H   |		Short_Literal	0x2
07ad 7807       |x   |		Jump	0x7b5
07ae 4803       |H   |		Short_Literal	0x3
07af 7805       |x   |		Jump	0x7b5
07b0 4804       |H   |		Short_Literal	0x4
07b1 7803       |x   |		Jump	0x7b5
07b2 4805       |H   |		Short_Literal	0x5
07b3 7801       |x   |		Jump	0x7b5
07b4 48ff       |H   |		Short_Literal	0xff
07b5 e5ff       |    |		Load	0x2,-0x1
07b6 031b       |    |		Declare_Type	Variant_Record,Constrained
07b7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07b8 00db       |    |		Load_Top	At_Offset_3
07b9 e5fe       |    |		Load	0x2,-0x2
07ba e5ff       |    |		Load	0x2,-0x1
07bb 1c06       |    |		Execute_Immediate	Run_Utility,0x6
07bc e5ff       |    |		Load	0x2,-0x1
07bd 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
07be 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07bf 4800       |H   |		Short_Literal	0x0
07c0 00db       |    |		Load_Top	At_Offset_3
07c1 1c07       |    |		Execute_Immediate	Run_Utility,0x7
07c2 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07c3 0869       | i  |		Execute_Immediate	Raise,0x69
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb       |    |		.CONST	0x07cb								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0001       |    |		.CONST	0x0001								; Number of locals
07cb			BODY_07c8:
07cb			INIT_07c8:
07cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07cc 0000 0000  |    |		.BLANK	0000[0x4]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3       |    |		.CONST	0x07d3								; Address of begin
07d1 0004       |    |		.CONST	0x0004								; Address of exception handler
07d2 0001       |    |		.CONST	0x0001								; Number of locals
07d3			BODY_07d0:
07d3			INIT_07d0:
07d3 00da       |    |		Load_Top	At_Offset_2
07d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07d5 e5fd       |    |		Load	0x2,-0x3
07d6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07d7 00da       |    |		Load_Top	At_Offset_2
07d8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d9 e5fd       |    |		Load	0x2,-0x3
07da 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07db 00da       |    |		Load_Top	At_Offset_2
07dc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
07dd e5fd       |    |		Load	0x2,-0x3
07de 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07df 00da       |    |		Load_Top	At_Offset_2
07e0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
07e1 e5fd       |    |		Load	0x2,-0x3
07e2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
07e3 e5fd       |    |		Load	0x2,-0x3
07e4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07e5 e5fe       |    |		Load	0x2,-0x2
07e6 e5ff       |    |		Load	0x2,-0x1
07e7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07e8 8035       | 5  |		Call	0x0,0x35
07e9 e5fd       |    |		Load	0x2,-0x3
07ea 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
07eb e5fd       |    |		Load	0x2,-0x3
07ec 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
07ed e5fe       |    |		Load	0x2,-0x2
07ee e5ff       |    |		Load	0x2,-0x1
07ef 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
07f0 8035       | 5  |		Call	0x0,0x35
07f1 e5fd       |    |		Load	0x2,-0x3
07f2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
07f3 e5fd       |    |		Load	0x2,-0x3
07f4 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07f5 e5fe       |    |		Load	0x2,-0x2
07f6 e5ff       |    |		Load	0x2,-0x1
07f7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
07f8 8035       | 5  |		Call	0x0,0x35
07f9 e5fd       |    |		Load	0x2,-0x3
07fa 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
07fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07fc 0000 0000  |    |		.BLANK	0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 00da       |    |		Load_Top	At_Offset_2
0804 e5fd       |    |		Load	0x2,-0x3
0805 016d       | m  |		Execute	Variant_Record,Structure_Write
0806 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0807 0000       |    |		.XXX[0x1]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080d       |    |		.CONST	0x080d								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0002       |    |		.CONST	0x0002								; Number of locals
080b			INIT_0808:
080b 029f 1153  |   S|		Declare_Subprogram	INIT_1150,For_Call
080d			BODY_0808:
080d 00db       |    |		Load_Top	At_Offset_3
080e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
080f 0f01       |    |		Execute_Immediate	Equal,0x1
0810 6802       |h   |		Jump_Zero	0x813
0811 8402       |    |		Call	0x2,0x2
0812 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0813 00db       |    |		Load_Top	At_Offset_3
0814 e5fd       |    |		Load	0x2,-0x3
0815 016d       | m  |		Execute	Variant_Record,Structure_Write
0816 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0817 0000       |    |		.XXX[0x1]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00da       |    |		Load_Top	At_Offset_2
081c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
081d 4606       |F   |		Jump_Case	0x7
081e 780e       |x   |		Jump	0x82d								; case 0x0
081f 780f       |x   |		Jump	0x82f								; case 0x1
0820 7816       |x   |		Jump	0x837								; case 0x2
0821 781b       |x   |		Jump	0x83d								; case 0x3
0822 7826       |x&  |		Jump	0x849								; case 0x4
0823 781f       |x   |		Jump	0x843								; case 0x5
0824 7800       |x   |		Jump	0x825								; case 0x6
0825 00da       |    |		Load_Top	At_Offset_2
0826 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0827 00db       |    |		Load_Top	At_Offset_3
0828 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0829 e5ff       |    |		Load	0x2,-0x1
082a 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
082b 827d       | }  |		Call	0x1,0x7d
082c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
082d e248       | H  |		Load	0x1,0x48
082e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
082f 00da       |    |		Load_Top	At_Offset_2
0830 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0831 827b       | {  |		Call	0x1,0x7b
0832 00db       |    |		Load_Top	At_Offset_3
0833 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0834 8024       | $  |		Call	0x0,0x24
0835 01cc       |    |		Execute	Vector,Catenate
0836 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0837 00da       |    |		Load_Top	At_Offset_2
0838 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0839 00db       |    |		Load_Top	At_Offset_3
083a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
083b 827c       | |  |		Call	0x1,0x7c
083c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
083d 00da       |    |		Load_Top	At_Offset_2
083e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
083f 00db       |    |		Load_Top	At_Offset_3
0840 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0841 827c       | |  |		Call	0x1,0x7c
0842 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0843 00da       |    |		Load_Top	At_Offset_2
0844 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0845 00db       |    |		Load_Top	At_Offset_3
0846 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0847 827c       | |  |		Call	0x1,0x7c
0848 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0849 00da       |    |		Load_Top	At_Offset_2
084a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
084b 00db       |    |		Load_Top	At_Offset_3
084c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
084d e5ff       |    |		Load	0x2,-0x1
084e 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
084f 827d       | }  |		Call	0x1,0x7d
0850 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0851 0000 0000  |    |		.BLANK	0000[0x7]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085f       | _  |		.CONST	0x085f								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0003       |    |		.CONST	0x0003								; Number of locals
085b			INIT_0858:
085b e013       |    |		Load	0x0,0x13
085c 0007       |    |		Action	Break_Optional
085d 029f 116b  |   k|		Declare_Subprogram	INIT_1168,For_Call
085f			BODY_0858:
085f e013       |    |		Load	0x0,0x13
0860 e5ff       |    |		Load	0x2,-0x1
0861 8017       |    |		Call	0x0,0x17
0862 003a       | :  |		Store_Top	Access,At_Offset_2
0863 e5fd       |    |		Load	0x2,-0x3
0864 00da       |    |		Load_Top	At_Offset_2
0865 8019       |    |		Call	0x0,0x19
0866 8036       | 6  |		Call	0x0,0x36
0867 8403       |    |		Call	0x2,0x3
0868 8022       | "  |		Call	0x0,0x22
0869 a5fb       |    |		Store_Unchecked	0x2,-0x5
086a e013       |    |		Load	0x0,0x13
086b e5fe       |    |		Load	0x2,-0x2
086c 8017       |    |		Call	0x0,0x17
086d 003a       | :  |		Store_Top	Access,At_Offset_2
086e e5fd       |    |		Load	0x2,-0x3
086f 00da       |    |		Load_Top	At_Offset_2
0870 8019       |    |		Call	0x0,0x19
0871 8036       | 6  |		Call	0x0,0x36
0872 8403       |    |		Call	0x2,0x3
0873 8022       | "  |		Call	0x0,0x22
0874 a5fa       |    |		Store_Unchecked	0x2,-0x6
0875 e5fd       |    |		Load	0x2,-0x3
0876 0092 1895  |    |		Action	Push_String_Extended,0x1895					; "diff: "
0878 e5fb       |    |		Load	0x2,-0x5
0879 8024       | $  |		Call	0x0,0x24
087a 01cc       |    |		Execute	Vector,Catenate
087b 0092 1896  |    |		Action	Push_String_Extended,0x1896					; " & "
087d 01cc       |    |		Execute	Vector,Catenate
087e e5fa       |    |		Load	0x2,-0x6
087f 8024       | $  |		Call	0x0,0x24
0880 01cc       |    |		Execute	Vector,Catenate
0881 8022       | "  |		Call	0x0,0x22
0882 a5fc       |    |		Store_Unchecked	0x2,-0x4
0883 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0884 0000 0000  |    |		.BLANK	0000[0x4]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 08c0       |    |		.CONST	0x08c0								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 001c       |    |		.CONST	0x001c								; Number of locals
088b			INIT_0888:
088b e037       | 7  |		Load	0x0,0x37
088c 0007       |    |		Action	Break_Optional
088d e038       | 8  |		Load	0x0,0x38
088e 0007       |    |		Action	Break_Optional
088f e039       | 9  |		Load	0x0,0x39
0890 0007       |    |		Action	Break_Optional
0891 e03a       | :  |		Load	0x0,0x3a
0892 0007       |    |		Action	Break_Optional
0893 e03b       | ;  |		Load	0x0,0x3b
0894 0007       |    |		Action	Break_Optional
0895 e03c       | <  |		Load	0x0,0x3c
0896 0007       |    |		Action	Break_Optional
0897 e03d       | =  |		Load	0x0,0x3d
0898 0322       | "  |		Declare_Variable	Record
0899 00d8       |    |		Load_Top	At_Offset_0
089a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
089b e005       |    |		Load	0x0,0x5
089c 039d       |    |		Declare_Variable	Heap_Access,Duplicate
089d 039d       |    |		Declare_Variable	Heap_Access,Duplicate
089e e23b       | ;  |		Load	0x1,0x3b
089f 0322       | "  |		Declare_Variable	Record
08a0 00d8       |    |		Load_Top	At_Offset_0
08a1 0322       | "  |		Declare_Variable	Record
08a2 00d8       |    |		Load_Top	At_Offset_0
08a3 0322       | "  |		Declare_Variable	Record
08a4 e00a       |    |		Load	0x0,0xa
08a5 e246       | F  |		Load	0x1,0x46
08a6 0098       |    |		Execute	Package,Field_Read_Dynamic
08a7 0322       | "  |		Declare_Variable	Record
08a8 00d8       |    |		Load_Top	At_Offset_0
08a9 0322       | "  |		Declare_Variable	Record
08aa 00d8       |    |		Load_Top	At_Offset_0
08ab 0322       | "  |		Declare_Variable	Record
08ac 00e1       |    |		Load_Encached	Boolean_Cache
08ad 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08ae 03e9       |    |		Declare_Variable	Discrete,Duplicate
08af 03e9       |    |		Declare_Variable	Discrete,Duplicate
08b0 03e9       |    |		Declare_Variable	Discrete,Duplicate
08b1 e5fb       |    |		Load	0x2,-0x5
08b2 00e1       |    |		Load_Encached	Boolean_Cache
08b3 03f1       |    |		Declare_Variable	Discrete,With_Value
08b4 029f 118b  |    |		Declare_Subprogram	INIT_1188,For_Call
08b6 029f 11a3  |    |		Declare_Subprogram	INIT_11a0,For_Call
08b8 029f 11f3  |    |		Declare_Subprogram	INIT_11f0,For_Call
08ba 029f 1203  |    |		Declare_Subprogram	INIT_1200,For_Call
08bc 029f 121b  |    |		Declare_Subprogram	INIT_1218,For_Call
08be 029f 122b  |   +|		Declare_Subprogram	INIT_1228,For_Call
08c0			BODY_0888:
08c0 e5fd       |    |		Load	0x2,-0x3
08c1 6804       |h   |		Jump_Zero	0x8c6
08c2 e5fa       |    |		Load	0x2,-0x6
08c3 8016       |    |		Call	0x0,0x16
08c4 a252       | R  |		Store_Unchecked	0x1,0x52
08c5 7803       |x   |		Jump	0x8c9
08c6 e5fa       |    |		Load	0x2,-0x6
08c7 8016       |    |		Call	0x0,0x16
08c8 a251       | Q  |		Store_Unchecked	0x1,0x51
08c9 e5fa       |    |		Load	0x2,-0x6
08ca 803e       | >  |		Call	0x0,0x3e
08cb a402       |    |		Store_Unchecked	0x2,0x2
08cc e402       |    |		Load	0x2,0x2
08cd e5f9       |    |		Load	0x2,-0x7
08ce 803f       | ?  |		Call	0x0,0x3f
08cf c402       |    |		Store	0x2,0x2
08d0 e038       | 8  |		Load	0x0,0x38
08d1 e402       |    |		Load	0x2,0x2
08d2 8040       | @  |		Call	0x0,0x40
08d3 c403       |    |		Store	0x2,0x3
08d4 00cf       |    |		Action	Mark_Auxiliary
08d5 7863       |xc  |		Jump	0x939
08d6 e5fb       |    |		Load	0x2,-0x5
08d7 a416       |    |		Store_Unchecked	0x2,0x16
08d8 e403       |    |		Load	0x2,0x3
08d9 8041       | A  |		Call	0x0,0x41
08da a409       |    |		Store_Unchecked	0x2,0x9
08db e409       |    |		Load	0x2,0x9
08dc e402       |    |		Load	0x2,0x2
08dd 8042       | B  |		Call	0x0,0x42
08de a404       |    |		Store_Unchecked	0x2,0x4
08df e40c       |    |		Load	0x2,0xc
08e0 e40f       |    |		Load	0x2,0xf
08e1 4803       |H   |		Short_Literal	0x3
08e2 841a       |    |		Call	0x2,0x1a
08e3 00d2       |    |		Pop_Control	Pop_Count_2
08e4 e03a       | :  |		Load	0x0,0x3a
08e5 e404       |    |		Load	0x2,0x4
08e6 8043       | C  |		Call	0x0,0x43
08e7 c405       |    |		Store	0x2,0x5
08e8 00cf       |    |		Action	Mark_Auxiliary
08e9 7843       |xC  |		Jump	0x92d
08ea e405       |    |		Load	0x2,0x5
08eb 8044       | D  |		Call	0x0,0x44
08ec a40a       |    |		Store_Unchecked	0x2,0xa
08ed e40a       |    |		Load	0x2,0xa
08ee e404       |    |		Load	0x2,0x4
08ef 8045       | E  |		Call	0x0,0x45
08f0 a406       |    |		Store_Unchecked	0x2,0x6
08f1 e40d       |    |		Load	0x2,0xd
08f2 e410       |    |		Load	0x2,0x10
08f3 4804       |H   |		Short_Literal	0x4
08f4 841a       |    |		Call	0x2,0x1a
08f5 00d2       |    |		Pop_Control	Pop_Count_2
08f6 e03c       | <  |		Load	0x0,0x3c
08f7 e406       |    |		Load	0x2,0x6
08f8 8046       | F  |		Call	0x0,0x46
08f9 c407       |    |		Store	0x2,0x7
08fa 00cf       |    |		Action	Mark_Auxiliary
08fb 7825       |x%  |		Jump	0x921
08fc e407       |    |		Load	0x2,0x7
08fd 8047       | G  |		Call	0x0,0x47
08fe a40b       |    |		Store_Unchecked	0x2,0xb
08ff e40b       |    |		Load	0x2,0xb
0900 e406       |    |		Load	0x2,0x6
0901 8048       | H  |		Call	0x0,0x48
0902 e408       |    |		Load	0x2,0x8
0903 017d       | }  |		Execute	Record,Structure_Write
0904 e40e       |    |		Load	0x2,0xe
0905 e411       |    |		Load	0x2,0x11
0906 4805       |H   |		Short_Literal	0x5
0907 841a       |    |		Call	0x2,0x1a
0908 00d2       |    |		Pop_Control	Pop_Count_2
0909 e416       |    |		Load	0x2,0x16
090a e5fc       |    |		Load	0x2,-0x4
090b 0f00       |    |		Execute_Immediate	Equal,0x0
090c 0279       | y  |		Execute	Discrete,And
090d 6809       |h   |		Jump_Zero	0x917
090e e413       |    |		Load	0x2,0x13
090f 7005       |p   |		Jump_Nonzero	0x915
0910 e408       |    |		Load	0x2,0x8
0911 8418       |    |		Call	0x2,0x18
0912 4801       |H   |		Short_Literal	0x1
0913 a412       |    |		Store_Unchecked	0x2,0x12
0914 7804       |x   |		Jump	0x919
0915 841c       |    |		Call	0x2,0x1c
0916 7802       |x   |		Jump	0x919
0917 e408       |    |		Load	0x2,0x8
0918 8418       |    |		Call	0x2,0x18
0919 e411       |    |		Load	0x2,0x11
091a e40e       |    |		Load	0x2,0xe
091b 841b       |    |		Call	0x2,0x1b
091c 00d1       |    |		Pop_Control	Pop_Count_1
091d e407       |    |		Load	0x2,0x7
091e 8049       | I  |		Call	0x0,0x49
091f c407       |    |		Store	0x2,0x7
0920 00c9       |    |		Action	Pop_Auxiliary_Loop
0921 e407       |    |		Load	0x2,0x7
0922 804a       | J  |		Call	0x0,0x4a
0923 6fd8       |o   |		Jump_Zero	0x8fc
0924 00ce       |    |		Action	Pop_Auxiliary
0925 e410       |    |		Load	0x2,0x10
0926 e40d       |    |		Load	0x2,0xd
0927 841b       |    |		Call	0x2,0x1b
0928 00d1       |    |		Pop_Control	Pop_Count_1
0929 e405       |    |		Load	0x2,0x5
092a 804b       | K  |		Call	0x0,0x4b
092b c405       |    |		Store	0x2,0x5
092c 00c9       |    |		Action	Pop_Auxiliary_Loop
092d e405       |    |		Load	0x2,0x5
092e 804c       | L  |		Call	0x0,0x4c
092f 6fba       |o   |		Jump_Zero	0x8ea
0930 00ce       |    |		Action	Pop_Auxiliary
0931 e40f       |    |		Load	0x2,0xf
0932 e40c       |    |		Load	0x2,0xc
0933 841b       |    |		Call	0x2,0x1b
0934 00d1       |    |		Pop_Control	Pop_Count_1
0935 e403       |    |		Load	0x2,0x3
0936 804d       | M  |		Call	0x0,0x4d
0937 c403       |    |		Store	0x2,0x3
0938 00c9       |    |		Action	Pop_Auxiliary_Loop
0939 e403       |    |		Load	0x2,0x3
093a 804e       | N  |		Call	0x0,0x4e
093b 6f9a       |o   |		Jump_Zero	0x8d6
093c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
093d 0000 0000  |    |		.XXX[0x3]
093f 0000       |    |
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0949       | I  |		.CONST	0x0949								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0003       |    |		.CONST	0x0003								; Number of locals
0943			INIT_0940:
0943 e00a       |    |		Load	0x0,0xa
0944 e246       | F  |		Load	0x1,0x46
0945 0098       |    |		Execute	Package,Field_Read_Dynamic
0946 0322       | "  |		Declare_Variable	Record
0947 029f 1263  |   c|		Declare_Subprogram	INIT_1260,For_Call
0949			BODY_0940:
0949 e237       | 7  |		Load	0x1,0x37
094a 0322       | "  |		Declare_Variable	Record
094b 4801       |H   |		Short_Literal	0x1
094c 00d9       |    |		Load_Top	At_Offset_1
094d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
094e e5fc       |    |		Load	0x2,-0x4
094f 00d9       |    |		Load_Top	At_Offset_1
0950 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0951 4801       |H   |		Short_Literal	0x1
0952 00d9       |    |		Load_Top	At_Offset_1
0953 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0954 4800       |H   |		Short_Literal	0x0
0955 00d9       |    |		Load_Top	At_Offset_1
0956 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0957 e004       |    |		Load	0x0,0x4
0958 00d9       |    |		Load_Top	At_Offset_1
0959 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
095a e004       |    |		Load	0x0,0x4
095b 00d9       |    |		Load_Top	At_Offset_1
095c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
095d e5ff       |    |		Load	0x2,-0x1
095e 00d9       |    |		Load_Top	At_Offset_1
095f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0960 e5fe       |    |		Load	0x2,-0x2
0961 00d9       |    |		Load_Top	At_Offset_1
0962 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0963 e5fd       |    |		Load	0x2,-0x3
0964 00d9       |    |		Load_Top	At_Offset_1
0965 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0966 e5fb       |    |		Load	0x2,-0x5
0967 0219       |    |		Execute	Heap_Access,All_Read
0968 e02d       | -  |		Load	0x0,0x2d
0969 e246       | F  |		Load	0x1,0x46
096a 0096       |    |		Execute	Package,Entry
096b 00d9       |    |		Load_Top	At_Offset_1
096c 4800       |H   |		Short_Literal	0x0
096d e5fb       |    |		Load	0x2,-0x5
096e 0219       |    |		Execute	Heap_Access,All_Read
096f e04f       | O  |		Load	0x0,0x4f
0970 e246       | F  |		Load	0x1,0x46
0971 0096       |    |		Execute	Package,Entry
0972 00d1       |    |		Pop_Control	Pop_Count_1
0973 4801       |H   |		Short_Literal	0x1
0974 e23c       | <  |		Load	0x1,0x3c
0975 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0976 e22e       | .  |		Load	0x1,0x2e
0977 00d9       |    |		Load_Top	At_Offset_1
0978 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0979 4800       |H   |		Short_Literal	0x0
097a 00d9       |    |		Load_Top	At_Offset_1
097b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
097c 00da       |    |		Load_Top	At_Offset_2
097d e050       | P  |		Load	0x0,0x50
097e e246       | F  |		Load	0x1,0x46
097f 0096       |    |		Execute	Package,Entry
0980 e249       | I  |		Load	0x1,0x49
0981 e5fe       |    |		Load	0x2,-0x2
0982 8024       | $  |		Call	0x0,0x24
0983 01cc       |    |		Execute	Vector,Catenate
0984 0092 1897  |    |		Action	Push_String_Extended,0x1897					; " (1) AND "
0986 01cc       |    |		Execute	Vector,Catenate
0987 e5fd       |    |		Load	0x2,-0x3
0988 8024       | $  |		Call	0x0,0x24
0989 01cc       |    |		Execute	Vector,Catenate
098a 0092 1898  |    |		Action	Push_String_Extended,0x1898					; " (2)"
098c 01cc       |    |		Execute	Vector,Catenate
098d 8403       |    |		Call	0x2,0x3
098e 00da       |    |		Load_Top	At_Offset_2
098f e051       | Q  |		Load	0x0,0x51
0990 e246       | F  |		Load	0x1,0x46
0991 0096       |    |		Execute	Package,Entry
0992 00d9       |    |		Load_Top	At_Offset_1
0993 4801       |H   |		Short_Literal	0x1
0994 e5fb       |    |		Load	0x2,-0x5
0995 0219       |    |		Execute	Heap_Access,All_Read
0996 e04f       | O  |		Load	0x0,0x4f
0997 e246       | F  |		Load	0x1,0x46
0998 0096       |    |		Execute	Package,Entry
0999 00d1       |    |		Pop_Control	Pop_Count_1
099a 4802       |H   |		Short_Literal	0x2
099b e23c       | <  |		Load	0x1,0x3c
099c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
099d e22e       | .  |		Load	0x1,0x2e
099e 00d9       |    |		Load_Top	At_Offset_1
099f 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09a0 4800       |H   |		Short_Literal	0x0
09a1 00d9       |    |		Load_Top	At_Offset_1
09a2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09a3 00da       |    |		Load_Top	At_Offset_2
09a4 e050       | P  |		Load	0x0,0x50
09a5 e246       | F  |		Load	0x1,0x46
09a6 0096       |    |		Execute	Package,Entry
09a7 4801       |H   |		Short_Literal	0x1
09a8 e24a       | J  |		Load	0x1,0x4a
09a9 00db       |    |		Load_Top	At_Offset_3
09aa e052       | R  |		Load	0x0,0x52
09ab e246       | F  |		Load	0x1,0x46
09ac 0096       |    |		Execute	Package,Entry
09ad 4802       |H   |		Short_Literal	0x2
09ae e24f       | O  |		Load	0x1,0x4f
09af 00db       |    |		Load_Top	At_Offset_3
09b0 e052       | R  |		Load	0x0,0x52
09b1 e246       | F  |		Load	0x1,0x46
09b2 0096       |    |		Execute	Package,Entry
09b3 4803       |H   |		Short_Literal	0x3
09b4 e24c       | L  |		Load	0x1,0x4c
09b5 00db       |    |		Load_Top	At_Offset_3
09b6 e052       | R  |		Load	0x0,0x52
09b7 e246       | F  |		Load	0x1,0x46
09b8 0096       |    |		Execute	Package,Entry
09b9 4805       |H   |		Short_Literal	0x5
09ba e24e       | N  |		Load	0x1,0x4e
09bb 00db       |    |		Load_Top	At_Offset_3
09bc e052       | R  |		Load	0x0,0x52
09bd e246       | F  |		Load	0x1,0x46
09be 0096       |    |		Execute	Package,Entry
09bf 4804       |H   |		Short_Literal	0x4
09c0 e24b       | K  |		Load	0x1,0x4b
09c1 00db       |    |		Load_Top	At_Offset_3
09c2 e052       | R  |		Load	0x0,0x52
09c3 e246       | F  |		Load	0x1,0x46
09c4 0096       |    |		Execute	Package,Entry
09c5 4806       |H   |		Short_Literal	0x6
09c6 e24d       | M  |		Load	0x1,0x4d
09c7 00db       |    |		Load_Top	At_Offset_3
09c8 e052       | R  |		Load	0x0,0x52
09c9 e246       | F  |		Load	0x1,0x46
09ca 0096       |    |		Execute	Package,Entry
09cb 00d9       |    |		Load_Top	At_Offset_1
09cc 4801       |H   |		Short_Literal	0x1
09cd e5fb       |    |		Load	0x2,-0x5
09ce 0219       |    |		Execute	Heap_Access,All_Read
09cf e04f       | O  |		Load	0x0,0x4f
09d0 e246       | F  |		Load	0x1,0x46
09d1 0096       |    |		Execute	Package,Entry
09d2 00d1       |    |		Pop_Control	Pop_Count_1
09d3 4802       |H   |		Short_Literal	0x2
09d4 e23c       | <  |		Load	0x1,0x3c
09d5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
09d6 e22e       | .  |		Load	0x1,0x2e
09d7 00d9       |    |		Load_Top	At_Offset_1
09d8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09d9 4800       |H   |		Short_Literal	0x0
09da 00d9       |    |		Load_Top	At_Offset_1
09db 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09dc 00da       |    |		Load_Top	At_Offset_2
09dd e050       | P  |		Load	0x0,0x50
09de e246       | F  |		Load	0x1,0x46
09df 0096       |    |		Execute	Package,Entry
09e0 4801       |H   |		Short_Literal	0x1
09e1 4801       |H   |		Short_Literal	0x1
09e2 4801       |H   |		Short_Literal	0x1
09e3 e247       | G  |		Load	0x1,0x47
09e4 01d7       |    |		Execute	Vector,Field_Read
09e5 e250       | P  |		Load	0x1,0x50
09e6 01cf       |    |		Execute	Vector,Slice_Read
09e7 00db       |    |		Load_Top	At_Offset_3
09e8 e052       | R  |		Load	0x0,0x52
09e9 e246       | F  |		Load	0x1,0x46
09ea 0096       |    |		Execute	Package,Entry
09eb 4802       |H   |		Short_Literal	0x2
09ec 4801       |H   |		Short_Literal	0x1
09ed 4802       |H   |		Short_Literal	0x2
09ee e247       | G  |		Load	0x1,0x47
09ef 01d7       |    |		Execute	Vector,Field_Read
09f0 e250       | P  |		Load	0x1,0x50
09f1 01cf       |    |		Execute	Vector,Slice_Read
09f2 00db       |    |		Load_Top	At_Offset_3
09f3 e052       | R  |		Load	0x0,0x52
09f4 e246       | F  |		Load	0x1,0x46
09f5 0096       |    |		Execute	Package,Entry
09f6 4803       |H   |		Short_Literal	0x3
09f7 4801       |H   |		Short_Literal	0x1
09f8 4803       |H   |		Short_Literal	0x3
09f9 e247       | G  |		Load	0x1,0x47
09fa 01d7       |    |		Execute	Vector,Field_Read
09fb e250       | P  |		Load	0x1,0x50
09fc 01cf       |    |		Execute	Vector,Slice_Read
09fd 00db       |    |		Load_Top	At_Offset_3
09fe e052       | R  |		Load	0x0,0x52
09ff e246       | F  |		Load	0x1,0x46
0a00 0096       |    |		Execute	Package,Entry
0a01 4804       |H   |		Short_Literal	0x4
0a02 4801       |H   |		Short_Literal	0x1
0a03 4804       |H   |		Short_Literal	0x4
0a04 e247       | G  |		Load	0x1,0x47
0a05 01d7       |    |		Execute	Vector,Field_Read
0a06 e250       | P  |		Load	0x1,0x50
0a07 01cf       |    |		Execute	Vector,Slice_Read
0a08 00db       |    |		Load_Top	At_Offset_3
0a09 e052       | R  |		Load	0x0,0x52
0a0a e246       | F  |		Load	0x1,0x46
0a0b 0096       |    |		Execute	Package,Entry
0a0c 4805       |H   |		Short_Literal	0x5
0a0d 4801       |H   |		Short_Literal	0x1
0a0e 4805       |H   |		Short_Literal	0x5
0a0f e247       | G  |		Load	0x1,0x47
0a10 01d7       |    |		Execute	Vector,Field_Read
0a11 e250       | P  |		Load	0x1,0x50
0a12 01cf       |    |		Execute	Vector,Slice_Read
0a13 00db       |    |		Load_Top	At_Offset_3
0a14 e052       | R  |		Load	0x0,0x52
0a15 e246       | F  |		Load	0x1,0x46
0a16 0096       |    |		Execute	Package,Entry
0a17 4806       |H   |		Short_Literal	0x6
0a18 4801       |H   |		Short_Literal	0x1
0a19 4806       |H   |		Short_Literal	0x6
0a1a e247       | G  |		Load	0x1,0x47
0a1b 01d7       |    |		Execute	Vector,Field_Read
0a1c e250       | P  |		Load	0x1,0x50
0a1d 01cf       |    |		Execute	Vector,Slice_Read
0a1e 00db       |    |		Load_Top	At_Offset_3
0a1f e052       | R  |		Load	0x0,0x52
0a20 e246       | F  |		Load	0x1,0x46
0a21 0096       |    |		Execute	Package,Entry
0a22 e247       | G  |		Load	0x1,0x47
0a23 e5fb       |    |		Load	0x2,-0x5
0a24 0219       |    |		Execute	Heap_Access,All_Read
0a25 e053       | S  |		Load	0x0,0x53
0a26 e246       | F  |		Load	0x1,0x46
0a27 0096       |    |		Execute	Package,Entry
0a28 00d9       |    |		Load_Top	At_Offset_1
0a29 e5fa       |    |		Load	0x2,-0x6
0a2a 017d       | }  |		Execute	Record,Structure_Write
0a2b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a2c 0000 0000  |    |		.BLANK	0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a41       | A  |		.CONST	0x0a41								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0003       |    |		.CONST	0x0003								; Number of locals
0a33			INIT_0a30:
0a33 e00b       |    |		Load	0x0,0xb
0a34 e246       | F  |		Load	0x1,0x46
0a35 0098       |    |		Execute	Package,Field_Read_Dynamic
0a36 0322       | "  |		Declare_Variable	Record
0a37 e5fd       |    |		Load	0x2,-0x3
0a38 e5ff       |    |		Load	0x2,-0x1
0a39 0219       |    |		Execute	Heap_Access,All_Read
0a3a e030       | 0  |		Load	0x0,0x30
0a3b e246       | F  |		Load	0x1,0x46
0a3c 0096       |    |		Execute	Package,Entry
0a3d 00d9       |    |		Load_Top	At_Offset_1
0a3e 017d       | }  |		Execute	Record,Structure_Write
0a3f 029f 127b  |   {|		Declare_Subprogram	INIT_1278,For_Call
0a41			BODY_0a30:
0a41 00cf       |    |		Action	Mark_Auxiliary
0a42 7807       |x   |		Jump	0xa4a
0a43 8403       |    |		Call	0x2,0x3
0a44 00da       |    |		Load_Top	At_Offset_2
0a45 e034       | 4  |		Load	0x0,0x34
0a46 e246       | F  |		Load	0x1,0x46
0a47 0096       |    |		Execute	Package,Entry
0a48 00d1       |    |		Pop_Control	Pop_Count_1
0a49 00c9       |    |		Action	Pop_Auxiliary_Loop
0a4a 00da       |    |		Load_Top	At_Offset_2
0a4b e031       | 1  |		Load	0x0,0x31
0a4c e246       | F  |		Load	0x1,0x46
0a4d 0096       |    |		Execute	Package,Entry
0a4e 6ff4       |o   |		Jump_Zero	0xa43
0a4f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a5a       | Z  |		.CONST	0x0a5a								; Address of begin
0a51 0004       |    |		.CONST	0x0004								; Address of exception handler
0a52 0004       |    |		.CONST	0x0004								; Number of locals
0a53			INIT_0a50:
0a53 4802       |H   |		Short_Literal	0x2
0a54 e23f       | ?  |		Load	0x1,0x3f
0a55 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a56 029f 129b  |    |		Declare_Subprogram	INIT_1298,For_Call
0a58 029f 12b3  |    |		Declare_Subprogram	INIT_12b0,For_Call
0a5a			BODY_0a50:
0a5a 8404       |    |		Call	0x2,0x4
0a5b 00da       |    |		Load_Top	At_Offset_2
0a5c 4802       |H   |		Short_Literal	0x2
0a5d e5ff       |    |		Load	0x2,-0x1
0a5e e054       | T  |		Load	0x0,0x54
0a5f e246       | F  |		Load	0x1,0x46
0a60 0096       |    |		Execute	Package,Entry
0a61 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a62 0000 0000  |    |		.BLANK	0000[0x6]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a7b       | {  |		.CONST	0x0a7b								; Address of begin
0a69 0004       |    |		.CONST	0x0004								; Address of exception handler
0a6a 0003       |    |		.CONST	0x0003								; Number of locals
0a6b			INIT_0a68:
0a6b e23c       | <  |		Load	0x1,0x3c
0a6c 02ff       |    |		Declare_Variable	Variant_Record
0a6d 00d8       |    |		Load_Top	At_Offset_0
0a6e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a6f e00b       |    |		Load	0x0,0xb
0a70 e246       | F  |		Load	0x1,0x46
0a71 0098       |    |		Execute	Package,Field_Read_Dynamic
0a72 0322       | "  |		Declare_Variable	Record
0a73 4800       |H   |		Short_Literal	0x0
0a74 e5ff       |    |		Load	0x2,-0x1
0a75 0219       |    |		Execute	Heap_Access,All_Read
0a76 e030       | 0  |		Load	0x0,0x30
0a77 e246       | F  |		Load	0x1,0x46
0a78 0096       |    |		Execute	Package,Entry
0a79 00d9       |    |		Load_Top	At_Offset_1
0a7a 017d       | }  |		Execute	Record,Structure_Write
0a7b			BODY_0a68:
0a7b 00cf       |    |		Action	Mark_Auxiliary
0a7c 781b       |x   |		Jump	0xa98
0a7d 00d9       |    |		Load_Top	At_Offset_1
0a7e e033       | 3  |		Load	0x0,0x33
0a7f e246       | F  |		Load	0x1,0x46
0a80 0096       |    |		Execute	Package,Entry
0a81 e027       | '  |		Load	0x0,0x27
0a82 e246       | F  |		Load	0x1,0x46
0a83 0096       |    |		Execute	Package,Entry
0a84 00db       |    |		Load_Top	At_Offset_3
0a85 016d       | m  |		Execute	Variant_Record,Structure_Write
0a86 00da       |    |		Load_Top	At_Offset_2
0a87 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a88 4800       |H   |		Short_Literal	0x0
0a89 4802       |H   |		Short_Literal	0x2
0a8a 0262       | b  |		Execute	Discrete,In_Range
0a8b 7006       |p   |		Jump_Nonzero	0xa92
0a8c 7800       |x   |		Jump	0xa8d
0a8d 00d9       |    |		Load_Top	At_Offset_1
0a8e e033       | 3  |		Load	0x0,0x33
0a8f e246       | F  |		Load	0x1,0x46
0a90 0096       |    |		Execute	Package,Entry
0a91 8257       | W  |		Call	0x1,0x57
0a92 00d9       |    |		Load_Top	At_Offset_1
0a93 e034       | 4  |		Load	0x0,0x34
0a94 e246       | F  |		Load	0x1,0x46
0a95 0096       |    |		Execute	Package,Entry
0a96 00d1       |    |		Pop_Control	Pop_Count_1
0a97 00c9       |    |		Action	Pop_Auxiliary_Loop
0a98 00d9       |    |		Load_Top	At_Offset_1
0a99 e031       | 1  |		Load	0x0,0x31
0a9a e246       | F  |		Load	0x1,0x46
0a9b 0096       |    |		Execute	Package,Entry
0a9c 6fe0       |o   |		Jump_Zero	0xa7d
0a9d 00ce       |    |		Action	Pop_Auxiliary
0a9e 4801       |H   |		Short_Literal	0x1
0a9f 4805       |H   |		Short_Literal	0x5
0aa0 e5ff       |    |		Load	0x2,-0x1
0aa1 8256       | V  |		Call	0x1,0x56
0aa2 4801       |H   |		Short_Literal	0x1
0aa3 e5ff       |    |		Load	0x2,-0x1
0aa4 821f       |    |		Call	0x1,0x1f
0aa5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aa6 0000 0000  |    |		.XXX[0x2]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0ab4       |    |		.CONST	0x0ab4								; Address of begin
0aa9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aaa 0002       |    |		.CONST	0x0002								; Number of locals
0aab			INIT_0aa8:
0aab e237       | 7  |		Load	0x1,0x37
0aac 0322       | "  |		Declare_Variable	Record
0aad e5fe       |    |		Load	0x2,-0x2
0aae 0219       |    |		Execute	Heap_Access,All_Read
0aaf e023       | #  |		Load	0x0,0x23
0ab0 e246       | F  |		Load	0x1,0x46
0ab1 0096       |    |		Execute	Package,Entry
0ab2 00d9       |    |		Load_Top	At_Offset_1
0ab3 017d       | }  |		Execute	Record,Structure_Write
0ab4			BODY_0aa8:
0ab4 00db       |    |		Load_Top	At_Offset_3
0ab5 6804       |h   |		Jump_Zero	0xaba
0ab6 e5fd       |    |		Load	0x2,-0x3
0ab7 00d9       |    |		Load_Top	At_Offset_1
0ab8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0ab9 7803       |x   |		Jump	0xabd
0aba e5fd       |    |		Load	0x2,-0x3
0abb 00d9       |    |		Load_Top	At_Offset_1
0abc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0abd 00d8       |    |		Load_Top	At_Offset_0
0abe e5fe       |    |		Load	0x2,-0x2
0abf 0219       |    |		Execute	Heap_Access,All_Read
0ac0 e02d       | -  |		Load	0x0,0x2d
0ac1 e246       | F  |		Load	0x1,0x46
0ac2 0096       |    |		Execute	Package,Entry
0ac3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ac4 0000 0000  |    |		.BLANK	0000[0x4]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acd       |    |		.CONST	0x0acd								; Address of begin
0ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aca 0002       |    |		.CONST	0x0002								; Number of locals
0acb			INIT_0ac8:
0acb e004       |    |		Load	0x0,0x4
0acc 0007       |    |		Action	Break_Optional
0acd			BODY_0ac8:
0acd e004       |    |		Load	0x0,0x4
0ace e5fc       |    |		Load	0x2,-0x4
0acf 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0ad0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0ad1 e5fd       |    |		Load	0x2,-0x3
0ad2 00d9       |    |		Load_Top	At_Offset_1
0ad3 0217       |    |		Execute	Heap_Access,All_Reference
0ad4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ad5 e5fc       |    |		Load	0x2,-0x4
0ad6 803e       | >  |		Call	0x0,0x3e
0ad7 00d9       |    |		Load_Top	At_Offset_1
0ad8 0217       |    |		Execute	Heap_Access,All_Reference
0ad9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ada 00d8       |    |		Load_Top	At_Offset_0
0adb 0219       |    |		Execute	Heap_Access,All_Read
0adc 00d8       |    |		Load_Top	At_Offset_0
0add 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ade e5ff       |    |		Load	0x2,-0x1
0adf 803f       | ?  |		Call	0x0,0x3f
0ae0 00d9       |    |		Load_Top	At_Offset_1
0ae1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ae2 00d1       |    |		Pop_Control	Pop_Count_1
0ae3 e5fc       |    |		Load	0x2,-0x4
0ae4 8055       | U  |		Call	0x0,0x55
0ae5 00d9       |    |		Load_Top	At_Offset_1
0ae6 0217       |    |		Execute	Heap_Access,All_Reference
0ae7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ae8 00d8       |    |		Load_Top	At_Offset_0
0ae9 0219       |    |		Execute	Heap_Access,All_Read
0aea 00d8       |    |		Load_Top	At_Offset_0
0aeb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0aec e5ff       |    |		Load	0x2,-0x1
0aed 8056       | V  |		Call	0x0,0x56
0aee 00d9       |    |		Load_Top	At_Offset_1
0aef 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0af0 00d1       |    |		Pop_Control	Pop_Count_1
0af1 00d8       |    |		Load_Top	At_Offset_0
0af2 e5fb       |    |		Load	0x2,-0x5
0af3 e5fe       |    |		Load	0x2,-0x2
0af4 8259       | Y  |		Call	0x1,0x59
0af5 c5fb       |    |		Store	0x2,-0x5
0af6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0af7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0af8 ; --------------------------------------------------------------------------------------
0af8 ; SUBPROGRAM
0af8 ; --------------------------------------------------------------------------------------
0af8 0b24       | $  |		.CONST	0x0b24								; Address of begin
0af9 0004       |    |		.CONST	0x0004								; Address of exception handler
0afa 0011       |    |		.CONST	0x0011								; Number of locals
0afb			INIT_0af8:
0afb 00f1       |    |		Load_Encached	Diana_Temp_Seq
0afc e237       | 7  |		Load	0x1,0x37
0afd 0322       | "  |		Declare_Variable	Record
0afe e5ff       |    |		Load	0x2,-0x1
0aff 0219       |    |		Execute	Heap_Access,All_Read
0b00 e023       | #  |		Load	0x0,0x23
0b01 e246       | F  |		Load	0x1,0x46
0b02 0096       |    |		Execute	Package,Entry
0b03 00d9       |    |		Load_Top	At_Offset_1
0b04 017d       | }  |		Execute	Record,Structure_Write
0b05 e004       |    |		Load	0x0,0x4
0b06 0007       |    |		Action	Break_Optional
0b07 e00d       |    |		Load	0x0,0xd
0b08 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0b09 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0b0a e403       |    |		Load	0x2,0x3
0b0b 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0b0c 0007       |    |		Action	Break_Optional
0b0d e039       | 9  |		Load	0x0,0x39
0b0e 0007       |    |		Action	Break_Optional
0b0f e03b       | ;  |		Load	0x0,0x3b
0b10 0007       |    |		Action	Break_Optional
0b11 e03d       | =  |		Load	0x0,0x3d
0b12 0322       | "  |		Declare_Variable	Record
0b13 00d8       |    |		Load_Top	At_Offset_0
0b14 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b15 e403       |    |		Load	0x2,0x3
0b16 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b17 0f00       |    |		Execute_Immediate	Equal,0x0
0b18 00e1       |    |		Load_Encached	Boolean_Cache
0b19 03f1       |    |		Declare_Variable	Discrete,With_Value
0b1a 029f 12d3  |    |		Declare_Subprogram	INIT_12d0,For_Call
0b1c 029f 1303  |    |		Declare_Subprogram	INIT_1300,For_Call
0b1e 029f 1323  |   #|		Declare_Subprogram	INIT_1320,For_Call
0b20 029f 1353  |   S|		Declare_Subprogram	INIT_1350,For_Call
0b22 029f 13a3  |    |		Declare_Subprogram	INIT_13a0,For_Call
0b24			BODY_0af8:
0b24 e5fc       |    |		Load	0x2,-0x4
0b25 6808       |h   |		Jump_Zero	0xb2e
0b26 e5ff       |    |		Load	0x2,-0x1
0b27 0219       |    |		Execute	Heap_Access,All_Read
0b28 e023       | #  |		Load	0x0,0x23
0b29 e246       | F  |		Load	0x1,0x46
0b2a 0096       |    |		Execute	Package,Entry
0b2b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b2c a404       |    |		Store_Unchecked	0x2,0x4
0b2d 7807       |x   |		Jump	0xb35
0b2e e5ff       |    |		Load	0x2,-0x1
0b2f 0219       |    |		Execute	Heap_Access,All_Read
0b30 e023       | #  |		Load	0x0,0x23
0b31 e246       | F  |		Load	0x1,0x46
0b32 0096       |    |		Execute	Package,Entry
0b33 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b34 a404       |    |		Store_Unchecked	0x2,0x4
0b35 e5fd       |    |		Load	0x2,-0x3
0b36 4800       |H   |		Short_Literal	0x0
0b37 4803       |H   |		Short_Literal	0x3
0b38 0262       | b  |		Execute	Discrete,In_Range
0b39 701d       |p   |		Jump_Nonzero	0xb57
0b3a 7800       |x   |		Jump	0xb3b
0b3b e5fb       |    |		Load	0x2,-0x5
0b3c 6802       |h   |		Jump_Zero	0xb3f
0b3d 8410       |    |		Call	0x2,0x10
0b3e 7818       |x   |		Jump	0xb57
0b3f 4801       |H   |		Short_Literal	0x1
0b40 a5fb       |    |		Store_Unchecked	0x2,-0x5
0b41 e408       |    |		Load	0x2,0x8
0b42 8016       |    |		Call	0x0,0x16
0b43 a405       |    |		Store_Unchecked	0x2,0x5
0b44 e408       |    |		Load	0x2,0x8
0b45 8016       |    |		Call	0x0,0x16
0b46 a406       |    |		Store_Unchecked	0x2,0x6
0b47 e408       |    |		Load	0x2,0x8
0b48 8016       |    |		Call	0x0,0x16
0b49 a407       |    |		Store_Unchecked	0x2,0x7
0b4a 00cf       |    |		Action	Mark_Auxiliary
0b4b 7806       |x   |		Jump	0xb52
0b4c 8411       |    |		Call	0x2,0x11
0b4d e404       |    |		Load	0x2,0x4
0b4e 0217       |    |		Execute	Heap_Access,All_Reference
0b4f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b50 a404       |    |		Store_Unchecked	0x2,0x4
0b51 00c9       |    |		Action	Pop_Auxiliary_Loop
0b52 e404       |    |		Load	0x2,0x4
0b53 77f8       |w   |		Jump_Nonzero	0xb4c
0b54 00ce       |    |		Action	Pop_Auxiliary
0b55 840e       |    |		Call	0x2,0xe
0b56 840f       |    |		Call	0x2,0xf
0b57 e402       |    |		Load	0x2,0x2
0b58 a5fa       |    |		Store_Unchecked	0x2,-0x6
0b59 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0b5a 0000 0000  |    |		.BLANK	0000[0x6]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b6c       | l  |		.CONST	0x0b6c								; Address of begin
0b61 0004       |    |		.CONST	0x0004								; Address of exception handler
0b62 0002       |    |		.CONST	0x0002								; Number of locals
0b63			INIT_0b60:
0b63 e00a       |    |		Load	0x0,0xa
0b64 e246       | F  |		Load	0x1,0x46
0b65 0098       |    |		Execute	Package,Field_Read_Dynamic
0b66 0322       | "  |		Declare_Variable	Record
0b67 00db       |    |		Load_Top	At_Offset_3
0b68 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0b69 0217       |    |		Execute	Heap_Access,All_Reference
0b6a 00d9       |    |		Load_Top	At_Offset_1
0b6b 017d       | }  |		Execute	Record,Structure_Write
0b6c			BODY_0b60:
0b6c 00d8       |    |		Load_Top	At_Offset_0
0b6d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b6e 0000 0000  |    |		.XXX[0x2]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b7c       | |  |		.CONST	0x0b7c								; Address of begin
0b71 0004       |    |		.CONST	0x0004								; Address of exception handler
0b72 0002       |    |		.CONST	0x0002								; Number of locals
0b73			INIT_0b70:
0b73 e00a       |    |		Load	0x0,0xa
0b74 e246       | F  |		Load	0x1,0x46
0b75 0098       |    |		Execute	Package,Field_Read_Dynamic
0b76 0322       | "  |		Declare_Variable	Record
0b77 00db       |    |		Load_Top	At_Offset_3
0b78 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0b79 0217       |    |		Execute	Heap_Access,All_Reference
0b7a 00d9       |    |		Load_Top	At_Offset_1
0b7b 017d       | }  |		Execute	Record,Structure_Write
0b7c			BODY_0b70:
0b7c 00db       |    |		Load_Top	At_Offset_3
0b7d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b7e 4606       |F   |		Jump_Case	0x7
0b7f 780e       |x   |		Jump	0xb8e								; case 0x0
0b80 780d       |x   |		Jump	0xb8e								; case 0x1
0b81 780c       |x   |		Jump	0xb8e								; case 0x2
0b82 780b       |x   |		Jump	0xb8e								; case 0x3
0b83 7808       |x   |		Jump	0xb8c								; case 0x4
0b84 7801       |x   |		Jump	0xb86								; case 0x5
0b85 7800       |x   |		Jump	0xb86								; case 0x6
0b86 00d8       |    |		Load_Top	At_Offset_0
0b87 e027       | '  |		Load	0x0,0x27
0b88 e246       | F  |		Load	0x1,0x46
0b89 0096       |    |		Execute	Package,Entry
0b8a 825d       | ]  |		Call	0x1,0x5d
0b8b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b8c 00d8       |    |		Load_Top	At_Offset_0
0b8d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b8e 00d8       |    |		Load_Top	At_Offset_0
0b8f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b9b       |    |		.CONST	0x0b9b								; Address of begin
0b91 0004       |    |		.CONST	0x0004								; Address of exception handler
0b92 0002       |    |		.CONST	0x0002								; Number of locals
0b93			INIT_0b90:
0b93 e23c       | <  |		Load	0x1,0x3c
0b94 02ff       |    |		Declare_Variable	Variant_Record
0b95 00db       |    |		Load_Top	At_Offset_3
0b96 e027       | '  |		Load	0x0,0x27
0b97 e246       | F  |		Load	0x1,0x46
0b98 0096       |    |		Execute	Package,Entry
0b99 00d9       |    |		Load_Top	At_Offset_1
0b9a 016d       | m  |		Execute	Variant_Record,Structure_Write
0b9b			BODY_0b90:
0b9b 00d8       |    |		Load_Top	At_Offset_0
0b9c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b9d 4606       |F   |		Jump_Case	0x7
0b9e 780d       |x   |		Jump	0xbac								; case 0x0
0b9f 780c       |x   |		Jump	0xbac								; case 0x1
0ba0 780b       |x   |		Jump	0xbac								; case 0x2
0ba1 7808       |x   |		Jump	0xbaa								; case 0x3
0ba2 7809       |x   |		Jump	0xbac								; case 0x4
0ba3 7801       |x   |		Jump	0xba5								; case 0x5
0ba4 7800       |x   |		Jump	0xba5								; case 0x6
0ba5 00d8       |    |		Load_Top	At_Offset_0
0ba6 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0ba7 0217       |    |		Execute	Heap_Access,All_Reference
0ba8 825e       | ^  |		Call	0x1,0x5e
0ba9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0baa 00db       |    |		Load_Top	At_Offset_3
0bab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bac 00d8       |    |		Load_Top	At_Offset_0
0bad 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0bae 0217       |    |		Execute	Heap_Access,All_Reference
0baf 0320       |    |		Declare_Variable	Record,Duplicate
0bb0 00cd       |    |		Action	Spare6_Action
0bb1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb2 0000 0000  |    |		.BLANK	0000[0x6]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bc3       |    |		.CONST	0x0bc3								; Address of begin
0bb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bba 0002       |    |		.CONST	0x0002								; Number of locals
0bbb			INIT_0bb8:
0bbb e00a       |    |		Load	0x0,0xa
0bbc e246       | F  |		Load	0x1,0x46
0bbd 0098       |    |		Execute	Package,Field_Read_Dynamic
0bbe 0322       | "  |		Declare_Variable	Record
0bbf 00db       |    |		Load_Top	At_Offset_3
0bc0 825e       | ^  |		Call	0x1,0x5e
0bc1 00d9       |    |		Load_Top	At_Offset_1
0bc2 017d       | }  |		Execute	Record,Structure_Write
0bc3			BODY_0bb8:
0bc3 00d8       |    |		Load_Top	At_Offset_0
0bc4 e027       | '  |		Load	0x0,0x27
0bc5 e246       | F  |		Load	0x1,0x46
0bc6 0096       |    |		Execute	Package,Entry
0bc7 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0bc8 4803       |H   |		Short_Literal	0x3
0bc9 4806       |H   |		Short_Literal	0x6
0bca 0262       | b  |		Execute	Discrete,In_Range
0bcb 7002       |p   |		Jump_Nonzero	0xbce
0bcc e5fe       |    |		Load	0x2,-0x2
0bcd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0bce 4801       |H   |		Short_Literal	0x1
0bcf 00d9       |    |		Load_Top	At_Offset_1
0bd0 e057       | W  |		Load	0x0,0x57
0bd1 e246       | F  |		Load	0x1,0x46
0bd2 0096       |    |		Execute	Package,Entry
0bd3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0bd4 8024       | $  |		Call	0x0,0x24
0bd5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0bd6 0000 0000  |    |		.XXX[0x2]
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0be5       |    |		.CONST	0x0be5								; Address of begin
0bd9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bda 0003       |    |		.CONST	0x0003								; Number of locals
0bdb			INIT_0bd8:
0bdb e00a       |    |		Load	0x0,0xa
0bdc e246       | F  |		Load	0x1,0x46
0bdd 0098       |    |		Execute	Package,Field_Read_Dynamic
0bde 0322       | "  |		Declare_Variable	Record
0bdf 00db       |    |		Load_Top	At_Offset_3
0be0 825e       | ^  |		Call	0x1,0x5e
0be1 00d9       |    |		Load_Top	At_Offset_1
0be2 017d       | }  |		Execute	Record,Structure_Write
0be3 e005       |    |		Load	0x0,0x5
0be4 0007       |    |		Action	Break_Optional
0be5			BODY_0bd8:
0be5 00d9       |    |		Load_Top	At_Offset_1
0be6 e027       | '  |		Load	0x0,0x27
0be7 e246       | F  |		Load	0x1,0x46
0be8 0096       |    |		Execute	Package,Entry
0be9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0bea 4803       |H   |		Short_Literal	0x3
0beb 4806       |H   |		Short_Literal	0x6
0bec 0262       | b  |		Execute	Discrete,In_Range
0bed 7002       |p   |		Jump_Nonzero	0xbf0
0bee 00d8       |    |		Load_Top	At_Offset_0
0bef 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bf0 4801       |H   |		Short_Literal	0x1
0bf1 00da       |    |		Load_Top	At_Offset_2
0bf2 e057       | W  |		Load	0x0,0x57
0bf3 e246       | F  |		Load	0x1,0x46
0bf4 0096       |    |		Execute	Package,Entry
0bf5 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0bf6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bf7 0000       |    |		.XXX[0x1]
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0c03       |    |		.CONST	0x0c03								; Address of begin
0bf9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bfa 0002       |    |		.CONST	0x0002								; Number of locals
0bfb			INIT_0bf8:
0bfb e23c       | <  |		Load	0x1,0x3c
0bfc 02ff       |    |		Declare_Variable	Variant_Record
0bfd 00db       |    |		Load_Top	At_Offset_3
0bfe e027       | '  |		Load	0x0,0x27
0bff e246       | F  |		Load	0x1,0x46
0c00 0096       |    |		Execute	Package,Entry
0c01 00d9       |    |		Load_Top	At_Offset_1
0c02 016d       | m  |		Execute	Variant_Record,Structure_Write
0c03			BODY_0bf8:
0c03 00d8       |    |		Load_Top	At_Offset_0
0c04 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c05 4606       |F   |		Jump_Case	0x7
0c06 780e       |x   |		Jump	0xc15								; case 0x0
0c07 780d       |x   |		Jump	0xc15								; case 0x1
0c08 780c       |x   |		Jump	0xc15								; case 0x2
0c09 780b       |x   |		Jump	0xc15								; case 0x3
0c0a 7808       |x   |		Jump	0xc13								; case 0x4
0c0b 7801       |x   |		Jump	0xc0d								; case 0x5
0c0c 7800       |x   |		Jump	0xc0d								; case 0x6
0c0d 00d8       |    |		Load_Top	At_Offset_0
0c0e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c0f 0217       |    |		Execute	Heap_Access,All_Reference
0c10 0320       |    |		Declare_Variable	Record,Duplicate
0c11 00cd       |    |		Action	Spare6_Action
0c12 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c13 00db       |    |		Load_Top	At_Offset_3
0c14 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c15 00d8       |    |		Load_Top	At_Offset_0
0c16 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c17 0217       |    |		Execute	Heap_Access,All_Reference
0c18 0320       |    |		Declare_Variable	Record,Duplicate
0c19 00cd       |    |		Action	Spare6_Action
0c1a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c1b 0000 0000  |    |		.BLANK	0000[0x5]
0c20 ; --------------------------------------------------------------------------------------
0c20 ; SUBPROGRAM
0c20 ; --------------------------------------------------------------------------------------
0c20 0c2b       | +  |		.CONST	0x0c2b								; Address of begin
0c21 0004       |    |		.CONST	0x0004								; Address of exception handler
0c22 0002       |    |		.CONST	0x0002								; Number of locals
0c23			INIT_0c20:
0c23 e00a       |    |		Load	0x0,0xa
0c24 e246       | F  |		Load	0x1,0x46
0c25 0098       |    |		Execute	Package,Field_Read_Dynamic
0c26 0322       | "  |		Declare_Variable	Record
0c27 00db       |    |		Load_Top	At_Offset_3
0c28 8261       | a  |		Call	0x1,0x61
0c29 00d9       |    |		Load_Top	At_Offset_1
0c2a 017d       | }  |		Execute	Record,Structure_Write
0c2b			BODY_0c20:
0c2b 00d8       |    |		Load_Top	At_Offset_0
0c2c e027       | '  |		Load	0x0,0x27
0c2d e246       | F  |		Load	0x1,0x46
0c2e 0096       |    |		Execute	Package,Entry
0c2f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c30 4803       |H   |		Short_Literal	0x3
0c31 4806       |H   |		Short_Literal	0x6
0c32 0262       | b  |		Execute	Discrete,In_Range
0c33 7002       |p   |		Jump_Nonzero	0xc36
0c34 e5fe       |    |		Load	0x2,-0x2
0c35 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c36 4801       |H   |		Short_Literal	0x1
0c37 00d9       |    |		Load_Top	At_Offset_1
0c38 e057       | W  |		Load	0x0,0x57
0c39 e246       | F  |		Load	0x1,0x46
0c3a 0096       |    |		Execute	Package,Entry
0c3b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c3c 8024       | $  |		Call	0x0,0x24
0c3d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c3e 0000 0000  |    |		.XXX[0x2]
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c4d       | M  |		.CONST	0x0c4d								; Address of begin
0c41 0004       |    |		.CONST	0x0004								; Address of exception handler
0c42 0003       |    |		.CONST	0x0003								; Number of locals
0c43			INIT_0c40:
0c43 e00a       |    |		Load	0x0,0xa
0c44 e246       | F  |		Load	0x1,0x46
0c45 0098       |    |		Execute	Package,Field_Read_Dynamic
0c46 0322       | "  |		Declare_Variable	Record
0c47 00db       |    |		Load_Top	At_Offset_3
0c48 8261       | a  |		Call	0x1,0x61
0c49 00d9       |    |		Load_Top	At_Offset_1
0c4a 017d       | }  |		Execute	Record,Structure_Write
0c4b e005       |    |		Load	0x0,0x5
0c4c 0007       |    |		Action	Break_Optional
0c4d			BODY_0c40:
0c4d 00d9       |    |		Load_Top	At_Offset_1
0c4e e027       | '  |		Load	0x0,0x27
0c4f e246       | F  |		Load	0x1,0x46
0c50 0096       |    |		Execute	Package,Entry
0c51 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c52 4803       |H   |		Short_Literal	0x3
0c53 4806       |H   |		Short_Literal	0x6
0c54 0262       | b  |		Execute	Discrete,In_Range
0c55 7002       |p   |		Jump_Nonzero	0xc58
0c56 00d8       |    |		Load_Top	At_Offset_0
0c57 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c58 4801       |H   |		Short_Literal	0x1
0c59 00da       |    |		Load_Top	At_Offset_2
0c5a e057       | W  |		Load	0x0,0x57
0c5b e246       | F  |		Load	0x1,0x46
0c5c 0096       |    |		Execute	Package,Entry
0c5d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c5e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c5f 0000       |    |		.XXX[0x1]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c6c       | l  |		.CONST	0x0c6c								; Address of begin
0c61 0004       |    |		.CONST	0x0004								; Address of exception handler
0c62 0002       |    |		.CONST	0x0002								; Number of locals
0c63			INIT_0c60:
0c63 e23f       | ?  |		Load	0x1,0x3f
0c64 02ff       |    |		Declare_Variable	Variant_Record
0c65 4801       |H   |		Short_Literal	0x1
0c66 e5ff       |    |		Load	0x2,-0x1
0c67 e057       | W  |		Load	0x0,0x57
0c68 e246       | F  |		Load	0x1,0x46
0c69 0096       |    |		Execute	Package,Entry
0c6a 00d9       |    |		Load_Top	At_Offset_1
0c6b 016d       | m  |		Execute	Variant_Record,Structure_Write
0c6c			BODY_0c60:
0c6c 00db       |    |		Load_Top	At_Offset_3
0c6d e027       | '  |		Load	0x0,0x27
0c6e e246       | F  |		Load	0x1,0x46
0c6f 0096       |    |		Execute	Package,Entry
0c70 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c71 4805       |H   |		Short_Literal	0x5
0c72 4806       |H   |		Short_Literal	0x6
0c73 0262       | b  |		Execute	Discrete,In_Range
0c74 7002       |p   |		Jump_Nonzero	0xc77
0c75 e5fe       |    |		Load	0x2,-0x2
0c76 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c77 00d8       |    |		Load_Top	At_Offset_0
0c78 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c79 8024       | $  |		Call	0x0,0x24
0c7a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c7b 0000 0000  |    |		.BLANK	0000[0x5]
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c8e       |    |		.CONST	0x0c8e								; Address of begin
0c81 0004       |    |		.CONST	0x0004								; Address of exception handler
0c82 0003       |    |		.CONST	0x0003								; Number of locals
0c83			INIT_0c80:
0c83 e23f       | ?  |		Load	0x1,0x3f
0c84 02ff       |    |		Declare_Variable	Variant_Record
0c85 4801       |H   |		Short_Literal	0x1
0c86 e5ff       |    |		Load	0x2,-0x1
0c87 e057       | W  |		Load	0x0,0x57
0c88 e246       | F  |		Load	0x1,0x46
0c89 0096       |    |		Execute	Package,Entry
0c8a 00d9       |    |		Load_Top	At_Offset_1
0c8b 016d       | m  |		Execute	Variant_Record,Structure_Write
0c8c e005       |    |		Load	0x0,0x5
0c8d 0007       |    |		Action	Break_Optional
0c8e			BODY_0c80:
0c8e e5ff       |    |		Load	0x2,-0x1
0c8f e027       | '  |		Load	0x0,0x27
0c90 e246       | F  |		Load	0x1,0x46
0c91 0096       |    |		Execute	Package,Entry
0c92 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c93 4805       |H   |		Short_Literal	0x5
0c94 4806       |H   |		Short_Literal	0x6
0c95 0262       | b  |		Execute	Discrete,In_Range
0c96 7002       |p   |		Jump_Nonzero	0xc99
0c97 00d8       |    |		Load_Top	At_Offset_0
0c98 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c99 00d9       |    |		Load_Top	At_Offset_1
0c9a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c9b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c9c 0000 0000  |    |		.BLANK	0000[0x4]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0cac       |    |		.CONST	0x0cac								; Address of begin
0ca1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ca2 0002       |    |		.CONST	0x0002								; Number of locals
0ca3			INIT_0ca0:
0ca3 e23f       | ?  |		Load	0x1,0x3f
0ca4 02ff       |    |		Declare_Variable	Variant_Record
0ca5 4802       |H   |		Short_Literal	0x2
0ca6 e5ff       |    |		Load	0x2,-0x1
0ca7 e057       | W  |		Load	0x0,0x57
0ca8 e246       | F  |		Load	0x1,0x46
0ca9 0096       |    |		Execute	Package,Entry
0caa 00d9       |    |		Load_Top	At_Offset_1
0cab 016d       | m  |		Execute	Variant_Record,Structure_Write
0cac			BODY_0ca0:
0cac 00d8       |    |		Load_Top	At_Offset_0
0cad 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0cae 4803       |H   |		Short_Literal	0x3
0caf 4806       |H   |		Short_Literal	0x6
0cb0 0262       | b  |		Execute	Discrete,In_Range
0cb1 7002       |p   |		Jump_Nonzero	0xcb4
0cb2 4fff       |O   |		Short_Literal	-0x1
0cb3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cb4 00d8       |    |		Load_Top	At_Offset_0
0cb5 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0cb6 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
0cb7 6802       |h   |		Jump_Zero	0xcba
0cb8 4fff       |O   |		Short_Literal	-0x1
0cb9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cba 00d8       |    |		Load_Top	At_Offset_0
0cbb 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0cbc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cbd 0000 0000  |    |		.XXX[0x3]
0cbf 0000       |    |
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cc5       |    |		.CONST	0x0cc5								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0002       |    |		.CONST	0x0002								; Number of locals
0cc3			INIT_0cc0:
0cc3 00e1       |    |		Load_Encached	Boolean_Cache
0cc4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cc5			BODY_0cc0:
0cc5 e248       | H  |		Load	0x1,0x48
0cc6 e5ff       |    |		Load	0x2,-0x1
0cc7 825f       | _  |		Call	0x1,0x5f
0cc8 e248       | H  |		Load	0x1,0x48
0cc9 e5fe       |    |		Load	0x2,-0x2
0cca 825f       | _  |		Call	0x1,0x5f
0ccb 01c1       |    |		Execute	Vector,Less
0ccc 6803       |h   |		Jump_Zero	0xcd0
0ccd 4801       |H   |		Short_Literal	0x1
0cce 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0ccf 7823       |x#  |		Jump	0xcf3
0cd0 e248       | H  |		Load	0x1,0x48
0cd1 e5ff       |    |		Load	0x2,-0x1
0cd2 825f       | _  |		Call	0x1,0x5f
0cd3 e248       | H  |		Load	0x1,0x48
0cd4 e5fe       |    |		Load	0x2,-0x2
0cd5 825f       | _  |		Call	0x1,0x5f
0cd6 01df       |    |		Execute	Vector,Equal
0cd7 681b       |h   |		Jump_Zero	0xcf3
0cd8 e248       | H  |		Load	0x1,0x48
0cd9 e5ff       |    |		Load	0x2,-0x1
0cda 8262       | b  |		Call	0x1,0x62
0cdb e248       | H  |		Load	0x1,0x48
0cdc e5fe       |    |		Load	0x2,-0x2
0cdd 8262       | b  |		Call	0x1,0x62
0cde 01c1       |    |		Execute	Vector,Less
0cdf 6803       |h   |		Jump_Zero	0xce3
0ce0 4801       |H   |		Short_Literal	0x1
0ce1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0ce2 7810       |x   |		Jump	0xcf3
0ce3 e248       | H  |		Load	0x1,0x48
0ce4 e5ff       |    |		Load	0x2,-0x1
0ce5 8262       | b  |		Call	0x1,0x62
0ce6 e248       | H  |		Load	0x1,0x48
0ce7 e5fe       |    |		Load	0x2,-0x2
0ce8 8262       | b  |		Call	0x1,0x62
0ce9 01df       |    |		Execute	Vector,Equal
0cea 6808       |h   |		Jump_Zero	0xcf3
0ceb e248       | H  |		Load	0x1,0x48
0cec e5ff       |    |		Load	0x2,-0x1
0ced 8264       | d  |		Call	0x1,0x64
0cee e248       | H  |		Load	0x1,0x48
0cef e5fe       |    |		Load	0x2,-0x2
0cf0 8264       | d  |		Call	0x1,0x64
0cf1 01c1       |    |		Execute	Vector,Less
0cf2 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0cf3 00d8       |    |		Load_Top	At_Offset_0
0cf4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cf5 0000 0000  |    |		.XXX[0x3]
0cf7 0000       |    |
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0cff       |    |		.CONST	0x0cff								; Address of begin
0cf9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cfa 0003       |    |		.CONST	0x0003								; Number of locals
0cfb			INIT_0cf8:
0cfb 00e1       |    |		Load_Encached	Boolean_Cache
0cfc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cfd 0092 1899  |    |		Action	Push_String_Extended,0x1899					; "~"
0cff			BODY_0cf8:
0cff 00d8       |    |		Load_Top	At_Offset_0
0d00 e5fe       |    |		Load	0x2,-0x2
0d01 825f       | _  |		Call	0x1,0x5f
0d02 00d9       |    |		Load_Top	At_Offset_1
0d03 e5ff       |    |		Load	0x2,-0x1
0d04 825f       | _  |		Call	0x1,0x5f
0d05 01c1       |    |		Execute	Vector,Less
0d06 6803       |h   |		Jump_Zero	0xd0a
0d07 4801       |H   |		Short_Literal	0x1
0d08 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d09 7823       |x#  |		Jump	0xd2d
0d0a 00d8       |    |		Load_Top	At_Offset_0
0d0b e5ff       |    |		Load	0x2,-0x1
0d0c 825f       | _  |		Call	0x1,0x5f
0d0d 00d9       |    |		Load_Top	At_Offset_1
0d0e e5fe       |    |		Load	0x2,-0x2
0d0f 825f       | _  |		Call	0x1,0x5f
0d10 01df       |    |		Execute	Vector,Equal
0d11 681b       |h   |		Jump_Zero	0xd2d
0d12 00d8       |    |		Load_Top	At_Offset_0
0d13 e5fe       |    |		Load	0x2,-0x2
0d14 8262       | b  |		Call	0x1,0x62
0d15 00d9       |    |		Load_Top	At_Offset_1
0d16 e5ff       |    |		Load	0x2,-0x1
0d17 8262       | b  |		Call	0x1,0x62
0d18 01c1       |    |		Execute	Vector,Less
0d19 6803       |h   |		Jump_Zero	0xd1d
0d1a 4801       |H   |		Short_Literal	0x1
0d1b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d1c 7810       |x   |		Jump	0xd2d
0d1d 00d8       |    |		Load_Top	At_Offset_0
0d1e e5ff       |    |		Load	0x2,-0x1
0d1f 8262       | b  |		Call	0x1,0x62
0d20 00d9       |    |		Load_Top	At_Offset_1
0d21 e5fe       |    |		Load	0x2,-0x2
0d22 8262       | b  |		Call	0x1,0x62
0d23 01df       |    |		Execute	Vector,Equal
0d24 6808       |h   |		Jump_Zero	0xd2d
0d25 00d8       |    |		Load_Top	At_Offset_0
0d26 e5fe       |    |		Load	0x2,-0x2
0d27 8264       | d  |		Call	0x1,0x64
0d28 00d9       |    |		Load_Top	At_Offset_1
0d29 e5ff       |    |		Load	0x2,-0x1
0d2a 8264       | d  |		Call	0x1,0x64
0d2b 01c1       |    |		Execute	Vector,Less
0d2c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d2d 00d9       |    |		Load_Top	At_Offset_1
0d2e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0d2f 0000       |    |		.XXX[0x1]
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d47       | G  |		.CONST	0x0d47								; Address of begin
0d31 0004       |    |		.CONST	0x0004								; Address of exception handler
0d32 0006       |    |		.CONST	0x0006								; Number of locals
0d33			INIT_0d30:
0d33 e23c       | <  |		Load	0x1,0x3c
0d34 02ff       |    |		Declare_Variable	Variant_Record
0d35 00db       |    |		Load_Top	At_Offset_3
0d36 e027       | '  |		Load	0x0,0x27
0d37 e246       | F  |		Load	0x1,0x46
0d38 0096       |    |		Execute	Package,Entry
0d39 00d9       |    |		Load_Top	At_Offset_1
0d3a 016d       | m  |		Execute	Variant_Record,Structure_Write
0d3b e23c       | <  |		Load	0x1,0x3c
0d3c 02ff       |    |		Declare_Variable	Variant_Record
0d3d e5fe       |    |		Load	0x2,-0x2
0d3e e027       | '  |		Load	0x0,0x27
0d3f e246       | F  |		Load	0x1,0x46
0d40 0096       |    |		Execute	Package,Entry
0d41 00d9       |    |		Load_Top	At_Offset_1
0d42 016d       | m  |		Execute	Variant_Record,Structure_Write
0d43 00e1       |    |		Load_Encached	Boolean_Cache
0d44 00e2       |    |		Load_Encached	Integer_Cache
0d45 029f 13d3  |    |		Declare_Subprogram	INIT_13d0,For_Call
0d47			BODY_0d30:
0d47 e402       |    |		Load	0x2,0x2
0d48 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0d49 4606       |F   |		Jump_Case	0x7
0d4a 7887       |x   |		Jump	0xdd2								; case 0x0
0d4b 7886       |x   |		Jump	0xdd2								; case 0x1
0d4c 7885       |x   |		Jump	0xdd2								; case 0x2
0d4d 784f       |xO  |		Jump	0xd9d								; case 0x3
0d4e 7881       |x   |		Jump	0xdd0								; case 0x4
0d4f 7801       |x   |		Jump	0xd51								; case 0x5
0d50 7800       |x   |		Jump	0xd51								; case 0x6
0d51 00db       |    |		Load_Top	At_Offset_3
0d52 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0d53 4606       |F   |		Jump_Case	0x7
0d54 7845       |xE  |		Jump	0xd9a								; case 0x0
0d55 7844       |xD  |		Jump	0xd9a								; case 0x1
0d56 7843       |xC  |		Jump	0xd9a								; case 0x2
0d57 7836       |x6  |		Jump	0xd8e								; case 0x3
0d58 783b       |x;  |		Jump	0xd94								; case 0x4
0d59 7801       |x   |		Jump	0xd5b								; case 0x5
0d5a 7800       |x   |		Jump	0xd5b								; case 0x6
0d5b e248       | H  |		Load	0x1,0x48
0d5c e5ff       |    |		Load	0x2,-0x1
0d5d 825f       | _  |		Call	0x1,0x5f
0d5e e248       | H  |		Load	0x1,0x48
0d5f e5fe       |    |		Load	0x2,-0x2
0d60 825f       | _  |		Call	0x1,0x5f
0d61 01df       |    |		Execute	Vector,Equal
0d62 6824       |h$  |		Jump_Zero	0xd87
0d63 e248       | H  |		Load	0x1,0x48
0d64 e5ff       |    |		Load	0x2,-0x1
0d65 8262       | b  |		Call	0x1,0x62
0d66 e248       | H  |		Load	0x1,0x48
0d67 e5fe       |    |		Load	0x2,-0x2
0d68 8262       | b  |		Call	0x1,0x62
0d69 01df       |    |		Execute	Vector,Equal
0d6a 6815       |h   |		Jump_Zero	0xd80
0d6b e5ff       |    |		Load	0x2,-0x1
0d6c 8266       | f  |		Call	0x1,0x66
0d6d e5fe       |    |		Load	0x2,-0x2
0d6e 8266       | f  |		Call	0x1,0x66
0d6f 0272       | r  |		Execute	Discrete,Minus
0d70 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0d71 00d9       |    |		Load_Top	At_Offset_1
0d72 7009       |p   |		Jump_Nonzero	0xd7c
0d73 e248       | H  |		Load	0x1,0x48
0d74 e5ff       |    |		Load	0x2,-0x1
0d75 8264       | d  |		Call	0x1,0x64
0d76 e248       | H  |		Load	0x1,0x48
0d77 e5fe       |    |		Load	0x2,-0x2
0d78 8264       | d  |		Call	0x1,0x64
0d79 01c1       |    |		Execute	Vector,Less
0d7a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d7b 7858       |xX  |		Jump	0xdd4
0d7c 00d9       |    |		Load_Top	At_Offset_1
0d7d 0d00       |    |		Execute_Immediate	Less,0x0
0d7e 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d7f 7854       |xT  |		Jump	0xdd4
0d80 00db       |    |		Load_Top	At_Offset_3
0d81 825c       | \  |		Call	0x1,0x5c
0d82 e402       |    |		Load	0x2,0x2
0d83 825c       | \  |		Call	0x1,0x5c
0d84 8269       | i  |		Call	0x1,0x69
0d85 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d86 784d       |xM  |		Jump	0xdd4
0d87 00db       |    |		Load_Top	At_Offset_3
0d88 825d       | ]  |		Call	0x1,0x5d
0d89 e402       |    |		Load	0x2,0x2
0d8a 825d       | ]  |		Call	0x1,0x5d
0d8b 8269       | i  |		Call	0x1,0x69
0d8c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d8d 7846       |xF  |		Jump	0xdd4
0d8e e5fe       |    |		Load	0x2,-0x2
0d8f e402       |    |		Load	0x2,0x2
0d90 825d       | ]  |		Call	0x1,0x5d
0d91 8269       | i  |		Call	0x1,0x69
0d92 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d93 7840       |x@  |		Jump	0xdd4
0d94 e5fe       |    |		Load	0x2,-0x2
0d95 e402       |    |		Load	0x2,0x2
0d96 825c       | \  |		Call	0x1,0x5c
0d97 8269       | i  |		Call	0x1,0x69
0d98 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d99 783a       |x:  |		Jump	0xdd4
0d9a 4800       |H   |		Short_Literal	0x0
0d9b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0d9c 7837       |x7  |		Jump	0xdd4
0d9d 00db       |    |		Load_Top	At_Offset_3
0d9e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0d9f 4606       |F   |		Jump_Case	0x7
0da0 782c       |x,  |		Jump	0xdcd								; case 0x0
0da1 782b       |x+  |		Jump	0xdcd								; case 0x1
0da2 782a       |x*  |		Jump	0xdcd								; case 0x2
0da3 7814       |x   |		Jump	0xdb8								; case 0x3
0da4 7802       |x   |		Jump	0xda7								; case 0x4
0da5 7801       |x   |		Jump	0xda7								; case 0x5
0da6 7800       |x   |		Jump	0xda7								; case 0x6
0da7 e248       | H  |		Load	0x1,0x48
0da8 e5ff       |    |		Load	0x2,-0x1
0da9 825f       | _  |		Call	0x1,0x5f
0daa e248       | H  |		Load	0x1,0x48
0dab e5fe       |    |		Load	0x2,-0x2
0dac 825f       | _  |		Call	0x1,0x5f
0dad 01df       |    |		Execute	Vector,Equal
0dae 6803       |h   |		Jump_Zero	0xdb2
0daf 4801       |H   |		Short_Literal	0x1
0db0 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0db1 7822       |x"  |		Jump	0xdd4
0db2 00db       |    |		Load_Top	At_Offset_3
0db3 825d       | ]  |		Call	0x1,0x5d
0db4 e5ff       |    |		Load	0x2,-0x1
0db5 8269       | i  |		Call	0x1,0x69
0db6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0db7 781c       |x   |		Jump	0xdd4
0db8 e5ff       |    |		Load	0x2,-0x1
0db9 8266       | f  |		Call	0x1,0x66
0dba e5fe       |    |		Load	0x2,-0x2
0dbb 8266       | f  |		Call	0x1,0x66
0dbc 0272       | r  |		Execute	Discrete,Minus
0dbd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0dbe 00d9       |    |		Load_Top	At_Offset_1
0dbf 7009       |p   |		Jump_Nonzero	0xdc9
0dc0 e248       | H  |		Load	0x1,0x48
0dc1 e5ff       |    |		Load	0x2,-0x1
0dc2 825f       | _  |		Call	0x1,0x5f
0dc3 e248       | H  |		Load	0x1,0x48
0dc4 e5fe       |    |		Load	0x2,-0x2
0dc5 825f       | _  |		Call	0x1,0x5f
0dc6 01c1       |    |		Execute	Vector,Less
0dc7 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0dc8 780b       |x   |		Jump	0xdd4
0dc9 00d9       |    |		Load_Top	At_Offset_1
0dca 0d00       |    |		Execute_Immediate	Less,0x0
0dcb 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0dcc 7807       |x   |		Jump	0xdd4
0dcd 4800       |H   |		Short_Literal	0x0
0dce 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0dcf 7804       |x   |		Jump	0xdd4
0dd0 8406       |    |		Call	0x2,0x6
0dd1 7802       |x   |		Jump	0xdd4
0dd2 4801       |H   |		Short_Literal	0x1
0dd3 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0dd4 00da       |    |		Load_Top	At_Offset_2
0dd5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0dd6 0000 0000  |    |		.XXX[0x2]
0dd8 ; --------------------------------------------------------------------------------------
0dd8 ; SUBPROGRAM
0dd8 ; --------------------------------------------------------------------------------------
0dd8 0df1       |    |		.CONST	0x0df1								; Address of begin
0dd9 0004       |    |		.CONST	0x0004								; Address of exception handler
0dda 0007       |    |		.CONST	0x0007								; Number of locals
0ddb			INIT_0dd8:
0ddb e23c       | <  |		Load	0x1,0x3c
0ddc 02ff       |    |		Declare_Variable	Variant_Record
0ddd 00db       |    |		Load_Top	At_Offset_3
0dde e027       | '  |		Load	0x0,0x27
0ddf e246       | F  |		Load	0x1,0x46
0de0 0096       |    |		Execute	Package,Entry
0de1 00d9       |    |		Load_Top	At_Offset_1
0de2 016d       | m  |		Execute	Variant_Record,Structure_Write
0de3 e23c       | <  |		Load	0x1,0x3c
0de4 02ff       |    |		Declare_Variable	Variant_Record
0de5 e5fe       |    |		Load	0x2,-0x2
0de6 e027       | '  |		Load	0x0,0x27
0de7 e246       | F  |		Load	0x1,0x46
0de8 0096       |    |		Execute	Package,Entry
0de9 00d9       |    |		Load_Top	At_Offset_1
0dea 016d       | m  |		Execute	Variant_Record,Structure_Write
0deb 00e1       |    |		Load_Encached	Boolean_Cache
0dec 00e2       |    |		Load_Encached	Integer_Cache
0ded 0092 1899  |    |		Action	Push_String_Extended,0x1899					; "~"
0def 029f 1433  |   3|		Declare_Subprogram	INIT_1430,For_Call
0df1			BODY_0dd8:
0df1 e402       |    |		Load	0x2,0x2
0df2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0df3 4606       |F   |		Jump_Case	0x7
0df4 7887       |x   |		Jump	0xe7c								; case 0x0
0df5 7886       |x   |		Jump	0xe7c								; case 0x1
0df6 7885       |x   |		Jump	0xe7c								; case 0x2
0df7 784f       |xO  |		Jump	0xe47								; case 0x3
0df8 7881       |x   |		Jump	0xe7a								; case 0x4
0df9 7801       |x   |		Jump	0xdfb								; case 0x5
0dfa 7800       |x   |		Jump	0xdfb								; case 0x6
0dfb e403       |    |		Load	0x2,0x3
0dfc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0dfd 4606       |F   |		Jump_Case	0x7
0dfe 7845       |xE  |		Jump	0xe44								; case 0x0
0dff 7844       |xD  |		Jump	0xe44								; case 0x1
0e00 7843       |xC  |		Jump	0xe44								; case 0x2
0e01 7836       |x6  |		Jump	0xe38								; case 0x3
0e02 783b       |x;  |		Jump	0xe3e								; case 0x4
0e03 7801       |x   |		Jump	0xe05								; case 0x5
0e04 7800       |x   |		Jump	0xe05								; case 0x6
0e05 00d9       |    |		Load_Top	At_Offset_1
0e06 e5ff       |    |		Load	0x2,-0x1
0e07 825f       | _  |		Call	0x1,0x5f
0e08 00da       |    |		Load_Top	At_Offset_2
0e09 e5fe       |    |		Load	0x2,-0x2
0e0a 825f       | _  |		Call	0x1,0x5f
0e0b 01df       |    |		Execute	Vector,Equal
0e0c 6824       |h$  |		Jump_Zero	0xe31
0e0d 00d9       |    |		Load_Top	At_Offset_1
0e0e e5ff       |    |		Load	0x2,-0x1
0e0f 8262       | b  |		Call	0x1,0x62
0e10 00da       |    |		Load_Top	At_Offset_2
0e11 e5fe       |    |		Load	0x2,-0x2
0e12 8262       | b  |		Call	0x1,0x62
0e13 01df       |    |		Execute	Vector,Equal
0e14 6815       |h   |		Jump_Zero	0xe2a
0e15 e5ff       |    |		Load	0x2,-0x1
0e16 8266       | f  |		Call	0x1,0x66
0e17 e5fe       |    |		Load	0x2,-0x2
0e18 8266       | f  |		Call	0x1,0x66
0e19 0272       | r  |		Execute	Discrete,Minus
0e1a 005b       | [  |		Store_Top	Discrete,At_Offset_3
0e1b 00da       |    |		Load_Top	At_Offset_2
0e1c 7009       |p   |		Jump_Nonzero	0xe26
0e1d 00d9       |    |		Load_Top	At_Offset_1
0e1e e5ff       |    |		Load	0x2,-0x1
0e1f 8264       | d  |		Call	0x1,0x64
0e20 00da       |    |		Load_Top	At_Offset_2
0e21 e5fe       |    |		Load	0x2,-0x2
0e22 8264       | d  |		Call	0x1,0x64
0e23 01c1       |    |		Execute	Vector,Less
0e24 a404       |    |		Store_Unchecked	0x2,0x4
0e25 7858       |xX  |		Jump	0xe7e
0e26 00da       |    |		Load_Top	At_Offset_2
0e27 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e28 a404       |    |		Store_Unchecked	0x2,0x4
0e29 7854       |xT  |		Jump	0xe7e
0e2a e403       |    |		Load	0x2,0x3
0e2b 825c       | \  |		Call	0x1,0x5c
0e2c e402       |    |		Load	0x2,0x2
0e2d 825c       | \  |		Call	0x1,0x5c
0e2e 826a       | j  |		Call	0x1,0x6a
0e2f a404       |    |		Store_Unchecked	0x2,0x4
0e30 784d       |xM  |		Jump	0xe7e
0e31 e403       |    |		Load	0x2,0x3
0e32 825d       | ]  |		Call	0x1,0x5d
0e33 e402       |    |		Load	0x2,0x2
0e34 825d       | ]  |		Call	0x1,0x5d
0e35 826a       | j  |		Call	0x1,0x6a
0e36 a404       |    |		Store_Unchecked	0x2,0x4
0e37 7846       |xF  |		Jump	0xe7e
0e38 e5fe       |    |		Load	0x2,-0x2
0e39 e402       |    |		Load	0x2,0x2
0e3a 825d       | ]  |		Call	0x1,0x5d
0e3b 826a       | j  |		Call	0x1,0x6a
0e3c a404       |    |		Store_Unchecked	0x2,0x4
0e3d 7840       |x@  |		Jump	0xe7e
0e3e e5fe       |    |		Load	0x2,-0x2
0e3f e402       |    |		Load	0x2,0x2
0e40 825c       | \  |		Call	0x1,0x5c
0e41 826a       | j  |		Call	0x1,0x6a
0e42 a404       |    |		Store_Unchecked	0x2,0x4
0e43 783a       |x:  |		Jump	0xe7e
0e44 4800       |H   |		Short_Literal	0x0
0e45 a404       |    |		Store_Unchecked	0x2,0x4
0e46 7837       |x7  |		Jump	0xe7e
0e47 e403       |    |		Load	0x2,0x3
0e48 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e49 4606       |F   |		Jump_Case	0x7
0e4a 782c       |x,  |		Jump	0xe77								; case 0x0
0e4b 782b       |x+  |		Jump	0xe77								; case 0x1
0e4c 782a       |x*  |		Jump	0xe77								; case 0x2
0e4d 7814       |x   |		Jump	0xe62								; case 0x3
0e4e 7802       |x   |		Jump	0xe51								; case 0x4
0e4f 7801       |x   |		Jump	0xe51								; case 0x5
0e50 7800       |x   |		Jump	0xe51								; case 0x6
0e51 00d9       |    |		Load_Top	At_Offset_1
0e52 e5ff       |    |		Load	0x2,-0x1
0e53 825f       | _  |		Call	0x1,0x5f
0e54 00da       |    |		Load_Top	At_Offset_2
0e55 e5fe       |    |		Load	0x2,-0x2
0e56 825f       | _  |		Call	0x1,0x5f
0e57 01df       |    |		Execute	Vector,Equal
0e58 6803       |h   |		Jump_Zero	0xe5c
0e59 4801       |H   |		Short_Literal	0x1
0e5a a404       |    |		Store_Unchecked	0x2,0x4
0e5b 7822       |x"  |		Jump	0xe7e
0e5c e403       |    |		Load	0x2,0x3
0e5d 825d       | ]  |		Call	0x1,0x5d
0e5e e5ff       |    |		Load	0x2,-0x1
0e5f 826a       | j  |		Call	0x1,0x6a
0e60 a404       |    |		Store_Unchecked	0x2,0x4
0e61 781c       |x   |		Jump	0xe7e
0e62 e5ff       |    |		Load	0x2,-0x1
0e63 8266       | f  |		Call	0x1,0x66
0e64 e5fe       |    |		Load	0x2,-0x2
0e65 8266       | f  |		Call	0x1,0x66
0e66 0272       | r  |		Execute	Discrete,Minus
0e67 005b       | [  |		Store_Top	Discrete,At_Offset_3
0e68 00da       |    |		Load_Top	At_Offset_2
0e69 7009       |p   |		Jump_Nonzero	0xe73
0e6a 00d9       |    |		Load_Top	At_Offset_1
0e6b e5ff       |    |		Load	0x2,-0x1
0e6c 825f       | _  |		Call	0x1,0x5f
0e6d 00da       |    |		Load_Top	At_Offset_2
0e6e e5fe       |    |		Load	0x2,-0x2
0e6f 825f       | _  |		Call	0x1,0x5f
0e70 01c1       |    |		Execute	Vector,Less
0e71 a404       |    |		Store_Unchecked	0x2,0x4
0e72 780b       |x   |		Jump	0xe7e
0e73 00da       |    |		Load_Top	At_Offset_2
0e74 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e75 a404       |    |		Store_Unchecked	0x2,0x4
0e76 7807       |x   |		Jump	0xe7e
0e77 4800       |H   |		Short_Literal	0x0
0e78 a404       |    |		Store_Unchecked	0x2,0x4
0e79 7804       |x   |		Jump	0xe7e
0e7a 8407       |    |		Call	0x2,0x7
0e7b 7802       |x   |		Jump	0xe7e
0e7c 4801       |H   |		Short_Literal	0x1
0e7d a404       |    |		Store_Unchecked	0x2,0x4
0e7e 00db       |    |		Load_Top	At_Offset_3
0e7f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e80 ; --------------------------------------------------------------------------------------
0e80 ; SUBPROGRAM
0e80 ; --------------------------------------------------------------------------------------
0e80 0e95       |    |		.CONST	0x0e95								; Address of begin
0e81 0004       |    |		.CONST	0x0004								; Address of exception handler
0e82 0003       |    |		.CONST	0x0003								; Number of locals
0e83			INIT_0e80:
0e83 e23f       | ?  |		Load	0x1,0x3f
0e84 02ff       |    |		Declare_Variable	Variant_Record
0e85 4803       |H   |		Short_Literal	0x3
0e86 e5ff       |    |		Load	0x2,-0x1
0e87 e057       | W  |		Load	0x0,0x57
0e88 e246       | F  |		Load	0x1,0x46
0e89 0096       |    |		Execute	Package,Entry
0e8a 00d9       |    |		Load_Top	At_Offset_1
0e8b 016d       | m  |		Execute	Variant_Record,Structure_Write
0e8c e23f       | ?  |		Load	0x1,0x3f
0e8d 02ff       |    |		Declare_Variable	Variant_Record
0e8e 4804       |H   |		Short_Literal	0x4
0e8f e5ff       |    |		Load	0x2,-0x1
0e90 e057       | W  |		Load	0x0,0x57
0e91 e246       | F  |		Load	0x1,0x46
0e92 0096       |    |		Execute	Package,Entry
0e93 00d9       |    |		Load_Top	At_Offset_1
0e94 016d       | m  |		Execute	Variant_Record,Structure_Write
0e95			BODY_0e80:
0e95 00d8       |    |		Load_Top	At_Offset_0
0e96 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e97 7001       |p   |		Jump_Nonzero	0xe99
0e98 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e99 e5fe       |    |		Load	0x2,-0x2
0e9a 7030       |p0  |		Jump_Nonzero	0xecb
0e9b 00d8       |    |		Load_Top	At_Offset_0
0e9c 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0e9d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e9e 6816       |h   |		Jump_Zero	0xeb5
0e9f 6070       |`p  |		Indirect_Literal	Discrete,0xf10,{0x00000000, 0x00320000}
0ea0 00d9       |    |		Load_Top	At_Offset_1
0ea1 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ea2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ea3 0271       | q  |		Execute	Discrete,Times
0ea4 00d9       |    |		Load_Top	At_Offset_1
0ea5 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ea6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ea7 0270       | p  |		Execute	Discrete,Divide
0ea8 00d8       |    |		Load_Top	At_Offset_0
0ea9 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0eaa 7002       |p   |		Jump_Nonzero	0xead
0eab 6060       |``  |		Indirect_Literal	Discrete,0xf0c,{0xffffffff, 0xffffc000}
0eac 7801       |x   |		Jump	0xeae
0ead 605a       |`Z  |		Indirect_Literal	Discrete,0xf08,{0x00000000, 0x00004000}
0eae 0273       | s  |		Execute	Discrete,Plus
0eaf 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
0eb0 00e3       |    |		Load_Encached	Natural_Cache
0eb1 025e       | ^  |		Execute	Discrete,Convert
0eb2 00da       |    |		Load_Top	At_Offset_2
0eb3 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0eb4 780b       |x   |		Jump	0xec0
0eb5 00d8       |    |		Load_Top	At_Offset_0
0eb6 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0eb7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0eb8 7004       |p   |		Jump_Nonzero	0xebd
0eb9 4865       |He  |		Short_Literal	0x65
0eba 00da       |    |		Load_Top	At_Offset_2
0ebb 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0ebc 7803       |x   |		Jump	0xec0
0ebd 4800       |H   |		Short_Literal	0x0
0ebe 00da       |    |		Load_Top	At_Offset_2
0ebf 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0ec0 00d8       |    |		Load_Top	At_Offset_0
0ec1 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ec2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ec3 00d9       |    |		Load_Top	At_Offset_1
0ec4 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0ec5 00d8       |    |		Load_Top	At_Offset_0
0ec6 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ec7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ec8 00d9       |    |		Load_Top	At_Offset_1
0ec9 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0eca 782f       |x/  |		Jump	0xefa
0ecb 00d8       |    |		Load_Top	At_Offset_0
0ecc 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ecd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0ece 6816       |h   |		Jump_Zero	0xee5
0ecf 6040       |`@  |		Indirect_Literal	Discrete,0xf10,{0x00000000, 0x00320000}
0ed0 00d9       |    |		Load_Top	At_Offset_1
0ed1 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ed2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ed3 0271       | q  |		Execute	Discrete,Times
0ed4 00d9       |    |		Load_Top	At_Offset_1
0ed5 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ed6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0ed7 0270       | p  |		Execute	Discrete,Divide
0ed8 00d8       |    |		Load_Top	At_Offset_0
0ed9 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0eda 7002       |p   |		Jump_Nonzero	0xedd
0edb 6030       |`0  |		Indirect_Literal	Discrete,0xf0c,{0xffffffff, 0xffffc000}
0edc 7801       |x   |		Jump	0xede
0edd 602a       |`*  |		Indirect_Literal	Discrete,0xf08,{0x00000000, 0x00004000}
0ede 0273       | s  |		Execute	Discrete,Plus
0edf 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
0ee0 00e3       |    |		Load_Encached	Natural_Cache
0ee1 025e       | ^  |		Execute	Discrete,Convert
0ee2 00da       |    |		Load_Top	At_Offset_2
0ee3 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0ee4 780b       |x   |		Jump	0xef0
0ee5 00d8       |    |		Load_Top	At_Offset_0
0ee6 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ee7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ee8 7004       |p   |		Jump_Nonzero	0xeed
0ee9 4865       |He  |		Short_Literal	0x65
0eea 00da       |    |		Load_Top	At_Offset_2
0eeb 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0eec 7803       |x   |		Jump	0xef0
0eed 4800       |H   |		Short_Literal	0x0
0eee 00da       |    |		Load_Top	At_Offset_2
0eef 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0ef0 00d8       |    |		Load_Top	At_Offset_0
0ef1 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ef2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ef3 00d9       |    |		Load_Top	At_Offset_1
0ef4 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0ef5 00d8       |    |		Load_Top	At_Offset_0
0ef6 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0ef7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0ef8 00d9       |    |		Load_Top	At_Offset_1
0ef9 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0efa 00d9       |    |		Load_Top	At_Offset_1
0efb 4803       |H   |		Short_Literal	0x3
0efc e5ff       |    |		Load	0x2,-0x1
0efd e054       | T  |		Load	0x0,0x54
0efe e246       | F  |		Load	0x1,0x46
0eff 0096       |    |		Execute	Package,Entry
0f00 00d8       |    |		Load_Top	At_Offset_0
0f01 4804       |H   |		Short_Literal	0x4
0f02 e5ff       |    |		Load	0x2,-0x1
0f03 e054       | T  |		Load	0x0,0x54
0f04 e246       | F  |		Load	0x1,0x46
0f05 0096       |    |		Execute	Package,Entry
0f06 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f07 0000       |    |		.XXX[0x1]
0f08 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0f0c ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
0f10 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320000}
0f14 0000 0000  |    |		.BLANK	0000[0x4]
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f2d       | -  |		.CONST	0x0f2d								; Address of begin
0f19 0004       |    |		.CONST	0x0004								; Address of exception handler
0f1a 0003       |    |		.CONST	0x0003								; Number of locals
0f1b			INIT_0f18:
0f1b e23f       | ?  |		Load	0x1,0x3f
0f1c 02ff       |    |		Declare_Variable	Variant_Record
0f1d 4805       |H   |		Short_Literal	0x5
0f1e e5ff       |    |		Load	0x2,-0x1
0f1f e057       | W  |		Load	0x0,0x57
0f20 e246       | F  |		Load	0x1,0x46
0f21 0096       |    |		Execute	Package,Entry
0f22 00d9       |    |		Load_Top	At_Offset_1
0f23 016d       | m  |		Execute	Variant_Record,Structure_Write
0f24 e23f       | ?  |		Load	0x1,0x3f
0f25 02ff       |    |		Declare_Variable	Variant_Record
0f26 4806       |H   |		Short_Literal	0x6
0f27 e5ff       |    |		Load	0x2,-0x1
0f28 e057       | W  |		Load	0x0,0x57
0f29 e246       | F  |		Load	0x1,0x46
0f2a 0096       |    |		Execute	Package,Entry
0f2b 00d9       |    |		Load_Top	At_Offset_1
0f2c 016d       | m  |		Execute	Variant_Record,Structure_Write
0f2d			BODY_0f18:
0f2d 00d8       |    |		Load_Top	At_Offset_0
0f2e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0f2f 7001       |p   |		Jump_Nonzero	0xf31
0f30 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f31 e5fe       |    |		Load	0x2,-0x2
0f32 7030       |p0  |		Jump_Nonzero	0xf63
0f33 00d8       |    |		Load_Top	At_Offset_0
0f34 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f35 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0f36 6816       |h   |		Jump_Zero	0xf4d
0f37 67d8       |g   |		Indirect_Literal	Discrete,0xf10,{0x00000000, 0x00320000}
0f38 00d9       |    |		Load_Top	At_Offset_1
0f39 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f3a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f3b 0271       | q  |		Execute	Discrete,Times
0f3c 00d9       |    |		Load_Top	At_Offset_1
0f3d 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f3e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0f3f 0270       | p  |		Execute	Discrete,Divide
0f40 00d8       |    |		Load_Top	At_Offset_0
0f41 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0f42 7002       |p   |		Jump_Nonzero	0xf45
0f43 67c8       |g   |		Indirect_Literal	Discrete,0xf0c,{0xffffffff, 0xffffc000}
0f44 7801       |x   |		Jump	0xf46
0f45 67c2       |g   |		Indirect_Literal	Discrete,0xf08,{0x00000000, 0x00004000}
0f46 0273       | s  |		Execute	Discrete,Plus
0f47 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
0f48 00e3       |    |		Load_Encached	Natural_Cache
0f49 025e       | ^  |		Execute	Discrete,Convert
0f4a 00da       |    |		Load_Top	At_Offset_2
0f4b 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0f4c 780b       |x   |		Jump	0xf58
0f4d 00d8       |    |		Load_Top	At_Offset_0
0f4e 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f4f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f50 7004       |p   |		Jump_Nonzero	0xf55
0f51 4865       |He  |		Short_Literal	0x65
0f52 00da       |    |		Load_Top	At_Offset_2
0f53 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0f54 7803       |x   |		Jump	0xf58
0f55 4800       |H   |		Short_Literal	0x0
0f56 00da       |    |		Load_Top	At_Offset_2
0f57 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0f58 00d8       |    |		Load_Top	At_Offset_0
0f59 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f5a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f5b 00d9       |    |		Load_Top	At_Offset_1
0f5c 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0f5d 00d8       |    |		Load_Top	At_Offset_0
0f5e 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f5f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0f60 00d9       |    |		Load_Top	At_Offset_1
0f61 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0f62 782f       |x/  |		Jump	0xf92
0f63 00d8       |    |		Load_Top	At_Offset_0
0f64 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f65 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f66 6816       |h   |		Jump_Zero	0xf7d
0f67 67a8       |g   |		Indirect_Literal	Discrete,0xf10,{0x00000000, 0x00320000}
0f68 00d9       |    |		Load_Top	At_Offset_1
0f69 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f6a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0f6b 0271       | q  |		Execute	Discrete,Times
0f6c 00d9       |    |		Load_Top	At_Offset_1
0f6d 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f6e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f6f 0270       | p  |		Execute	Discrete,Divide
0f70 00d8       |    |		Load_Top	At_Offset_0
0f71 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0f72 7002       |p   |		Jump_Nonzero	0xf75
0f73 6798       |g   |		Indirect_Literal	Discrete,0xf0c,{0xffffffff, 0xffffc000}
0f74 7801       |x   |		Jump	0xf76
0f75 6792       |g   |		Indirect_Literal	Discrete,0xf08,{0x00000000, 0x00004000}
0f76 0273       | s  |		Execute	Discrete,Plus
0f77 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
0f78 00e3       |    |		Load_Encached	Natural_Cache
0f79 025e       | ^  |		Execute	Discrete,Convert
0f7a 00da       |    |		Load_Top	At_Offset_2
0f7b 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0f7c 780b       |x   |		Jump	0xf88
0f7d 00d8       |    |		Load_Top	At_Offset_0
0f7e 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f7f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0f80 7004       |p   |		Jump_Nonzero	0xf85
0f81 4865       |He  |		Short_Literal	0x65
0f82 00da       |    |		Load_Top	At_Offset_2
0f83 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0f84 7803       |x   |		Jump	0xf88
0f85 4800       |H   |		Short_Literal	0x0
0f86 00da       |    |		Load_Top	At_Offset_2
0f87 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0f88 00d8       |    |		Load_Top	At_Offset_0
0f89 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f8a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0f8b 00d9       |    |		Load_Top	At_Offset_1
0f8c 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0f8d 00d8       |    |		Load_Top	At_Offset_0
0f8e 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0f8f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f90 00d9       |    |		Load_Top	At_Offset_1
0f91 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0f92 00d9       |    |		Load_Top	At_Offset_1
0f93 4805       |H   |		Short_Literal	0x5
0f94 e5ff       |    |		Load	0x2,-0x1
0f95 e054       | T  |		Load	0x0,0x54
0f96 e246       | F  |		Load	0x1,0x46
0f97 0096       |    |		Execute	Package,Entry
0f98 00d8       |    |		Load_Top	At_Offset_0
0f99 4806       |H   |		Short_Literal	0x6
0f9a e5ff       |    |		Load	0x2,-0x1
0f9b e054       | T  |		Load	0x0,0x54
0f9c e246       | F  |		Load	0x1,0x46
0f9d 0096       |    |		Execute	Package,Entry
0f9e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f9f 0000       |    |		.XXX[0x1]
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fb3       |    |		.CONST	0x0fb3								; Address of begin
0fa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fa2 0003       |    |		.CONST	0x0003								; Number of locals
0fa3			INIT_0fa0:
0fa3 e00b       |    |		Load	0x0,0xb
0fa4 e246       | F  |		Load	0x1,0x46
0fa5 0098       |    |		Execute	Package,Field_Read_Dynamic
0fa6 0322       | "  |		Declare_Variable	Record
0fa7 4800       |H   |		Short_Literal	0x0
0fa8 e5ff       |    |		Load	0x2,-0x1
0fa9 0219       |    |		Execute	Heap_Access,All_Read
0faa e030       | 0  |		Load	0x0,0x30
0fab e246       | F  |		Load	0x1,0x46
0fac 0096       |    |		Execute	Package,Entry
0fad 00d9       |    |		Load_Top	At_Offset_1
0fae 017d       | }  |		Execute	Record,Structure_Write
0faf e00a       |    |		Load	0x0,0xa
0fb0 e246       | F  |		Load	0x1,0x46
0fb1 0098       |    |		Execute	Package,Field_Read_Dynamic
0fb2 0322       | "  |		Declare_Variable	Record
0fb3			BODY_0fa0:
0fb3 00cf       |    |		Action	Mark_Auxiliary
0fb4 781e       |x   |		Jump	0xfd3
0fb5 00da       |    |		Load_Top	At_Offset_2
0fb6 e033       | 3  |		Load	0x0,0x33
0fb7 e246       | F  |		Load	0x1,0x46
0fb8 0096       |    |		Execute	Package,Entry
0fb9 00da       |    |		Load_Top	At_Offset_2
0fba 017d       | }  |		Execute	Record,Structure_Write
0fbb 00d9       |    |		Load_Top	At_Offset_1
0fbc e027       | '  |		Load	0x0,0x27
0fbd e246       | F  |		Load	0x1,0x46
0fbe 0096       |    |		Execute	Package,Entry
0fbf 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0fc0 4800       |H   |		Short_Literal	0x0
0fc1 4802       |H   |		Short_Literal	0x2
0fc2 0262       | b  |		Execute	Discrete,In_Range
0fc3 7009       |p   |		Jump_Nonzero	0xfcd
0fc4 7800       |x   |		Jump	0xfc5
0fc5 e5fe       |    |		Load	0x2,-0x2
0fc6 00da       |    |		Load_Top	At_Offset_2
0fc7 8277       | w  |		Call	0x1,0x77
0fc8 e5fe       |    |		Load	0x2,-0x2
0fc9 00da       |    |		Load_Top	At_Offset_2
0fca 8278       | x  |		Call	0x1,0x78
0fcb 00d9       |    |		Load_Top	At_Offset_1
0fcc 8257       | W  |		Call	0x1,0x57
0fcd 00da       |    |		Load_Top	At_Offset_2
0fce e034       | 4  |		Load	0x0,0x34
0fcf e246       | F  |		Load	0x1,0x46
0fd0 0096       |    |		Execute	Package,Entry
0fd1 00d1       |    |		Pop_Control	Pop_Count_1
0fd2 00c9       |    |		Action	Pop_Auxiliary_Loop
0fd3 00da       |    |		Load_Top	At_Offset_2
0fd4 e031       | 1  |		Load	0x0,0x31
0fd5 e246       | F  |		Load	0x1,0x46
0fd6 0096       |    |		Execute	Package,Entry
0fd7 6fdd       |o   |		Jump_Zero	0xfb5
0fd8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fd9 0000 0000  |    |		.BLANK	0000[0x7]
0fe0 ; --------------------------------------------------------------------------------------
0fe0 ; SUBPROGRAM
0fe0 ; --------------------------------------------------------------------------------------
0fe0 0feb       |    |		.CONST	0x0feb								; Address of begin
0fe1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fe2 0002       |    |		.CONST	0x0002								; Number of locals
0fe3			INIT_0fe0:
0fe3 e23c       | <  |		Load	0x1,0x3c
0fe4 02ff       |    |		Declare_Variable	Variant_Record
0fe5 00db       |    |		Load_Top	At_Offset_3
0fe6 e027       | '  |		Load	0x0,0x27
0fe7 e246       | F  |		Load	0x1,0x46
0fe8 0096       |    |		Execute	Package,Entry
0fe9 00d9       |    |		Load_Top	At_Offset_1
0fea 016d       | m  |		Execute	Variant_Record,Structure_Write
0feb			BODY_0fe0:
0feb e5fe       |    |		Load	0x2,-0x2
0fec 00d9       |    |		Load_Top	At_Offset_1
0fed 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0fee 00d8       |    |		Load_Top	At_Offset_0
0fef e5ff       |    |		Load	0x2,-0x1
0ff0 e050       | P  |		Load	0x0,0x50
0ff1 e246       | F  |		Load	0x1,0x46
0ff2 0096       |    |		Execute	Package,Entry
0ff3 e5fe       |    |		Load	0x2,-0x2
0ff4 0f00       |    |		Execute_Immediate	Equal,0x0
0ff5 e5ff       |    |		Load	0x2,-0x1
0ff6 e058       | X  |		Load	0x0,0x58
0ff7 e246       | F  |		Load	0x1,0x46
0ff8 0096       |    |		Execute	Package,Entry
0ff9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ffa 0000 0000  |    |		.BLANK	0000[0x6]
1000 ; --------------------------------------------------------------------------------------
1000 ; SUBPROGRAM
1000 ; --------------------------------------------------------------------------------------
1000 1003       |    |		.CONST	0x1003								; Address of begin
1001 0004       |    |		.CONST	0x0004								; Address of exception handler
1002 0001       |    |		.CONST	0x0001								; Number of locals
1003			BODY_1000:
1003			INIT_1000:
1003 00da       |    |		Load_Top	At_Offset_2
1004 4606       |F   |		Jump_Case	0x7
1005 7806       |x   |		Jump	0x100c								; case 0x0
1006 7805       |x   |		Jump	0x100c								; case 0x1
1007 7804       |x   |		Jump	0x100c								; case 0x2
1008 7808       |x   |		Jump	0x1011								; case 0x3
1009 7804       |x   |		Jump	0x100e								; case 0x4
100a 7808       |x   |		Jump	0x1013								; case 0x5
100b 7800       |x   |		Jump	0x100c								; case 0x6
100c e248       | H  |		Load	0x1,0x48
100d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
100e 0092 189a  |    |		Action	Push_String_Extended,0x189a					; "  "
1010 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1011 e248       | H  |		Load	0x1,0x48
1012 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1013 0092 189b  |    |		Action	Push_String_Extended,0x189b					; "    "
1015 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1016 0000 0000  |    |		.XXX[0x2]
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 101b       |    |		.CONST	0x101b								; Address of begin
1019 0004       |    |		.CONST	0x0004								; Address of exception handler
101a 0001       |    |		.CONST	0x0001								; Number of locals
101b			BODY_1018:
101b			INIT_1018:
101b 00da       |    |		Load_Top	At_Offset_2
101c 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
101d 6806       |h   |		Jump_Zero	0x1024
101e 00db       |    |		Load_Top	At_Offset_3
101f 827b       | {  |		Call	0x1,0x7b
1020 0092 189c  |    |		Action	Push_String_Extended,0x189c					; "  -"
1022 01cc       |    |		Execute	Vector,Catenate
1023 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1024 4825       |H%  |		Short_Literal	0x25
1025 e5fe       |    |		Load	0x2,-0x2
1026 827b       | {  |		Call	0x1,0x7b
1027 4820       |H   |		Short_Literal	0x20
1028 4803       |H   |		Short_Literal	0x3
1029 480a       |H   |		Short_Literal	0xa
102a e5ff       |    |		Load	0x2,-0x1
102b e059       | Y  |		Load	0x0,0x59
102c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
102d 01cc       |    |		Execute	Vector,Catenate
102e 01cb       |    |		Execute	Vector,Append
102f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1030 ; --------------------------------------------------------------------------------------
1030 ; SUBPROGRAM
1030 ; --------------------------------------------------------------------------------------
1030 1039       | 9  |		.CONST	0x1039								; Address of begin
1031 0004       |    |		.CONST	0x0004								; Address of exception handler
1032 0003       |    |		.CONST	0x0003								; Number of locals
1033			INIT_1030:
1033 00da       |    |		Load_Top	At_Offset_2
1034 00e0       |    |		Load_Encached	Standard_Cache
1035 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1036 e5fe       |    |		Load	0x2,-0x2
1037 00e0       |    |		Load_Encached	Standard_Cache
1038 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1039			BODY_1030:
1039 482f       |H/  |		Short_Literal	0x2f
103a e5fd       |    |		Load	0x2,-0x3
103b 827b       | {  |		Call	0x1,0x7b
103c 00db       |    |		Load_Top	At_Offset_3
103d 01dd       |    |		Execute	Vector,First
103e 0a01       |    |		Execute_Immediate	Plus,0x1
103f 00d8       |    |		Load_Top	At_Offset_0
1040 00e2       |    |		Load_Encached	Integer_Cache
1041 0260       | `  |		Execute	Discrete,In_Type
1042 7001       |p   |		Jump_Nonzero	0x1044
1043 0801       |    |		Execute_Immediate	Raise,0x1
1044 e402       |    |		Load	0x2,0x2
1045 01dc       |    |		Execute	Vector,Last
1046 e402       |    |		Load	0x2,0x2
1047 01cf       |    |		Execute	Vector,Slice_Read
1048 01cc       |    |		Execute	Vector,Catenate
1049 01cb       |    |		Execute	Vector,Append
104a 00d9       |    |		Load_Top	At_Offset_1
104b 01dd       |    |		Execute	Vector,First
104c 0a01       |    |		Execute_Immediate	Plus,0x1
104d 00d8       |    |		Load_Top	At_Offset_0
104e 00e2       |    |		Load_Encached	Integer_Cache
104f 0260       | `  |		Execute	Discrete,In_Type
1050 7001       |p   |		Jump_Nonzero	0x1052
1051 0801       |    |		Execute_Immediate	Raise,0x1
1052 00da       |    |		Load_Top	At_Offset_2
1053 01dc       |    |		Execute	Vector,Last
1054 00db       |    |		Load_Top	At_Offset_3
1055 01cf       |    |		Execute	Vector,Slice_Read
1056 01cc       |    |		Execute	Vector,Catenate
1057 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 105b       | [  |		.CONST	0x105b								; Address of begin
1059 0004       |    |		.CONST	0x0004								; Address of exception handler
105a 0001       |    |		.CONST	0x0001								; Number of locals
105b			BODY_1058:
105b			INIT_1058:
105b 00da       |    |		Load_Top	At_Offset_2
105c 6802       |h   |		Jump_Zero	0x105f
105d 4806       |H   |		Short_Literal	0x6
105e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
105f 4804       |H   |		Short_Literal	0x4
1060 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1061 0000 0000  |    |		.BLANK	0000[0x7]
1068 ; --------------------------------------------------------------------------------------
1068 ; SUBPROGRAM
1068 ; --------------------------------------------------------------------------------------
1068 106b       | k  |		.CONST	0x106b								; Address of begin
1069 0004       |    |		.CONST	0x0004								; Address of exception handler
106a 0001       |    |		.CONST	0x0001								; Number of locals
106b			BODY_1068:
106b			INIT_1068:
106b 00da       |    |		Load_Top	At_Offset_2
106c 6802       |h   |		Jump_Zero	0x106f
106d 4805       |H   |		Short_Literal	0x5
106e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
106f 4803       |H   |		Short_Literal	0x3
1070 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1071 0000 0000  |    |		.BLANK	0000[0x7]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 1098       |    |		.CONST	0x1098								; Address of begin
1079 0004       |    |		.CONST	0x0004								; Address of exception handler
107a 000e       |    |		.CONST	0x000e								; Number of locals
107b			INIT_1078:
107b e004       |    |		Load	0x0,0x4
107c 0007       |    |		Action	Break_Optional
107d e039       | 9  |		Load	0x0,0x39
107e 0007       |    |		Action	Break_Optional
107f e03b       | ;  |		Load	0x0,0x3b
1080 0007       |    |		Action	Break_Optional
1081 e03d       | =  |		Load	0x0,0x3d
1082 0322       | "  |		Declare_Variable	Record
1083 00d8       |    |		Load_Top	At_Offset_0
1084 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1085 e05a       | Z  |		Load	0x0,0x5a
1086 03bd       |    |		Declare_Variable	Access,Duplicate
1087 e05b       | [  |		Load	0x0,0x5b
1088 0322       | "  |		Declare_Variable	Record
1089 00d8       |    |		Load_Top	At_Offset_0
108a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
108b 00d8       |    |		Load_Top	At_Offset_0
108c 0322       | "  |		Declare_Variable	Record
108d 00d8       |    |		Load_Top	At_Offset_0
108e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
108f 00e1       |    |		Load_Encached	Boolean_Cache
1090 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1091 03e9       |    |		Declare_Variable	Discrete,Duplicate
1092 029f 1493  |    |		Declare_Subprogram	INIT_1490,For_Call
1094 029f 14ab  |    |		Declare_Subprogram	INIT_14a8,For_Call
1096 029f 14c3  |    |		Declare_Subprogram	INIT_14c0,For_Call
1098			BODY_1078:
1098 e5fb       |    |		Load	0x2,-0x5
1099 6808       |h   |		Jump_Zero	0x10a2
109a e5ff       |    |		Load	0x2,-0x1
109b 0219       |    |		Execute	Heap_Access,All_Read
109c e023       | #  |		Load	0x0,0x23
109d e246       | F  |		Load	0x1,0x46
109e 0096       |    |		Execute	Package,Entry
109f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
10a0 a402       |    |		Store_Unchecked	0x2,0x2
10a1 7807       |x   |		Jump	0x10a9
10a2 e5ff       |    |		Load	0x2,-0x1
10a3 0219       |    |		Execute	Heap_Access,All_Read
10a4 e023       | #  |		Load	0x0,0x23
10a5 e246       | F  |		Load	0x1,0x46
10a6 0096       |    |		Execute	Package,Entry
10a7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
10a8 a402       |    |		Store_Unchecked	0x2,0x2
10a9 4800       |H   |		Short_Literal	0x0
10aa a5f8       |    |		Store_Unchecked	0x2,-0x8
10ab 4800       |H   |		Short_Literal	0x0
10ac a5f7       |    |		Store_Unchecked	0x2,-0x9
10ad 00cf       |    |		Action	Mark_Auxiliary
10ae 7806       |x   |		Jump	0x10b5
10af 840e       |    |		Call	0x2,0xe
10b0 e402       |    |		Load	0x2,0x2
10b1 0217       |    |		Execute	Heap_Access,All_Reference
10b2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
10b3 a402       |    |		Store_Unchecked	0x2,0x2
10b4 00c9       |    |		Action	Pop_Auxiliary_Loop
10b5 e402       |    |		Load	0x2,0x2
10b6 77f8       |w   |		Jump_Nonzero	0x10af
10b7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
10b8 ; --------------------------------------------------------------------------------------
10b8 ; SUBPROGRAM
10b8 ; --------------------------------------------------------------------------------------
10b8 10bf       |    |		.CONST	0x10bf								; Address of begin
10b9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ba 0003       |    |		.CONST	0x0003								; Number of locals
10bb			INIT_10b8:
10bb e5ff       |    |		Load	0x2,-0x1
10bc 0007       |    |		Action	Break_Optional
10bd e5fe       |    |		Load	0x2,-0x2
10be 0007       |    |		Action	Break_Optional
10bf			BODY_10b8:
10bf 00d9       |    |		Load_Top	At_Offset_1
10c0 4800       |H   |		Short_Literal	0x0
10c1 805c       | \  |		Call	0x0,0x5c
10c2 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
10c3 00d8       |    |		Load_Top	At_Offset_0
10c4 4800       |H   |		Short_Literal	0x0
10c5 805c       | \  |		Call	0x0,0x5c
10c6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
10c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10c8 ; --------------------------------------------------------------------------------------
10c8 ; SUBPROGRAM
10c8 ; --------------------------------------------------------------------------------------
10c8 10dc       |    |		.CONST	0x10dc								; Address of begin
10c9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ca 0007       |    |		.CONST	0x0007								; Number of locals
10cb			INIT_10c8:
10cb e5fe       |    |		Load	0x2,-0x2
10cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
10cd e5ff       |    |		Load	0x2,-0x1
10ce 0219       |    |		Execute	Heap_Access,All_Read
10cf e05d       | ]  |		Load	0x0,0x5d
10d0 e246       | F  |		Load	0x1,0x46
10d1 0096       |    |		Execute	Package,Entry
10d2 00e3       |    |		Load_Encached	Natural_Cache
10d3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
10d4 00e3       |    |		Load_Encached	Natural_Cache
10d5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
10d6 029f 153b  |   ;|		Declare_Subprogram	INIT_1538,For_Call
10d8 029f 1563  |   c|		Declare_Subprogram	INIT_1560,For_Call
10da 029f 158b  |    |		Declare_Subprogram	INIT_1588,For_Call
10dc			BODY_10c8:
10dc e602       |    |		Load	0x3,0x2
10dd 4606       |F   |		Jump_Case	0x7
10de 780c       |x   |		Jump	0x10eb								; case 0x0
10df 780b       |x   |		Jump	0x10eb								; case 0x1
10e0 780a       |x   |		Jump	0x10eb								; case 0x2
10e1 7806       |x   |		Jump	0x10e8								; case 0x3
10e2 7805       |x   |		Jump	0x10e8								; case 0x4
10e3 7801       |x   |		Jump	0x10e5								; case 0x5
10e4 7800       |x   |		Jump	0x10e5								; case 0x6
10e5 4801       |H   |		Short_Literal	0x1
10e6 8607       |    |		Call	0x3,0x7
10e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10e8 4800       |H   |		Short_Literal	0x0
10e9 8607       |    |		Call	0x3,0x7
10ea 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10eb 4800       |H   |		Short_Literal	0x0
10ec 0092 1886  |    |		Action	Push_String_Extended,0x1886					; "Definition not supported on this "
10ee e602       |    |		Load	0x3,0x2
10ef e235       | 5  |		Load	0x1,0x35
10f0 011c       |    |		Execute	Any,Convert_Unchecked
10f1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
10f2 01cc       |    |		Execute	Vector,Catenate
10f3 820e       |    |		Call	0x1,0xe
10f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10f5 0000 0000  |    |		.XXX[0x3]
10f7 0000       |    |
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 1111       |    |		.CONST	0x1111								; Address of begin
10f9 0004       |    |		.CONST	0x0004								; Address of exception handler
10fa 0004       |    |		.CONST	0x0004								; Number of locals
10fb			INIT_10f8:
10fb e01f       |    |		Load	0x0,0x1f
10fc 02ff       |    |		Declare_Variable	Variant_Record
10fd 00d8       |    |		Load_Top	At_Offset_0
10fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
10ff e5ff       |    |		Load	0x2,-0x1
1100 0219       |    |		Execute	Heap_Access,All_Read
1101 e023       | #  |		Load	0x0,0x23
1102 e246       | F  |		Load	0x1,0x46
1103 0096       |    |		Execute	Package,Entry
1104 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1105 0007       |    |		Action	Break_Optional
1106 e005       |    |		Load	0x0,0x5
1107 00d9       |    |		Load_Top	At_Offset_1
1108 4801       |H   |		Short_Literal	0x1
1109 e402       |    |		Load	0x2,0x2
110a e057       | W  |		Load	0x0,0x57
110b e246       | F  |		Load	0x1,0x46
110c 0096       |    |		Execute	Package,Entry
110d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
110e 8024       | $  |		Call	0x0,0x24
110f 8022       | "  |		Call	0x0,0x22
1110 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
1111			BODY_10f8:
1111 00d9       |    |		Load_Top	At_Offset_1
1112 4810       |H   |		Short_Literal	0x10
1113 8021       | !  |		Call	0x0,0x21
1114 00db       |    |		Load_Top	At_Offset_3
1115 016d       | m  |		Execute	Variant_Record,Structure_Write
1116 00da       |    |		Load_Top	At_Offset_2
1117 00d8       |    |		Load_Top	At_Offset_0
1118 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
1119 00d8       |    |		Load_Top	At_Offset_0
111a 00db       |    |		Load_Top	At_Offset_3
111b 00d9       |    |		Load_Top	At_Offset_1
111c 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
111d 00d1       |    |		Pop_Control	Pop_Count_1
111e 00d0       |    |		Action	Swap_Control
111f 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
1120 00da       |    |		Load_Top	At_Offset_2
1121 e5fd       |    |		Load	0x2,-0x3
1122 016d       | m  |		Execute	Variant_Record,Structure_Write
1123 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1124 0000 0000  |    |		.BLANK	0000[0x4]
1128 ; --------------------------------------------------------------------------------------
1128 ; SUBPROGRAM
1128 ; --------------------------------------------------------------------------------------
1128 113b       | ;  |		.CONST	0x113b								; Address of begin
1129 0004       |    |		.CONST	0x0004								; Address of exception handler
112a 0003       |    |		.CONST	0x0003								; Number of locals
112b			INIT_1128:
112b e5fe       |    |		Load	0x2,-0x2
112c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
112d 00d8       |    |		Load_Top	At_Offset_0
112e 00e4       |    |		Load_Encached	Positive_Cache
112f 0260       | `  |		Execute	Discrete,In_Type
1130 7001       |p   |		Jump_Nonzero	0x1132
1131 0801       |    |		Execute_Immediate	Raise,0x1
1132 e5ff       |    |		Load	0x2,-0x1
1133 0219       |    |		Execute	Heap_Access,All_Read
1134 e026       | &  |		Load	0x0,0x26
1135 e246       | F  |		Load	0x1,0x46
1136 0096       |    |		Execute	Package,Entry
1137 00d8       |    |		Load_Top	At_Offset_0
1138 e027       | '  |		Load	0x0,0x27
1139 e246       | F  |		Load	0x1,0x46
113a 0096       |    |		Execute	Package,Entry
113b			BODY_1128:
113b 00d8       |    |		Load_Top	At_Offset_0
113c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
113d 4800       |H   |		Short_Literal	0x0
113e 4802       |H   |		Short_Literal	0x2
113f 0262       | b  |		Execute	Discrete,In_Range
1140 7005       |p   |		Jump_Nonzero	0x1146
1141 4800       |H   |		Short_Literal	0x0
1142 0092 189d  |    |		Action	Push_String_Extended,0x189d					; "Deletion is not supported for coverage images"
1144 820e       |    |		Call	0x1,0xe
1145 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1146 4800       |H   |		Short_Literal	0x0
1147 0092 189e  |    |		Action	Push_String_Extended,0x189e					; "Delete not defined for this line"
1149 820e       |    |		Call	0x1,0xe
114a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
114b 0000 0000  |    |		.BLANK	0000[0x5]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 1156       | V  |		.CONST	0x1156								; Address of begin
1151 0004       |    |		.CONST	0x0004								; Address of exception handler
1152 0002       |    |		.CONST	0x0002								; Number of locals
1153			INIT_1150:
1153 4801       |H   |		Short_Literal	0x1
1154 e23f       | ?  |		Load	0x1,0x3f
1155 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1156			BODY_1150:
1156 00d8       |    |		Load_Top	At_Offset_0
1157 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
1158 e5fe       |    |		Load	0x2,-0x2
1159 e5ff       |    |		Load	0x2,-0x1
115a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
115b 8035       | 5  |		Call	0x0,0x35
115c 00d9       |    |		Load_Top	At_Offset_1
115d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
115e 00d8       |    |		Load_Top	At_Offset_0
115f e5fd       |    |		Load	0x2,-0x3
1160 016d       | m  |		Execute	Variant_Record,Structure_Write
1161 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1162 0000 0000  |    |		.BLANK	0000[0x6]
1168 ; --------------------------------------------------------------------------------------
1168 ; SUBPROGRAM
1168 ; --------------------------------------------------------------------------------------
1168 1170       | p  |		.CONST	0x1170								; Address of begin
1169 117c       | |  |		.CONST	0x117c								; Address of exception handler
116a 0002       |    |		.CONST	0x0002								; Number of locals
116b			INIT_1168:
116b 4800       |H   |		Short_Literal	0x0
116c 00db       |    |		Load_Top	At_Offset_3
116d 482e       |H.  |		Short_Literal	0x2e
116e e059       | Y  |		Load	0x0,0x59
116f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
1170			BODY_1168:
1170 00d8       |    |		Load_Top	At_Offset_0
1171 0a01       |    |		Execute_Immediate	Plus,0x1
1172 00d8       |    |		Load_Top	At_Offset_0
1173 00e2       |    |		Load_Encached	Integer_Cache
1174 0260       | `  |		Execute	Discrete,In_Type
1175 7001       |p   |		Jump_Nonzero	0x1177
1176 0801       |    |		Execute_Immediate	Raise,0x1
1177 e7ff       |    |		Load	0x3,-0x1
1178 01dc       |    |		Execute	Vector,Last
1179 e7ff       |    |		Load	0x3,-0x1
117a 01cf       |    |		Execute	Vector,Slice_Read
117b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
117c			TRAP_1168:
117c 010e       |    |		Execute	Exception,Is_Constraint_Error
117d 6802       |h   |		Jump_Zero	0x1180
117e e7ff       |    |		Load	0x3,-0x1
117f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1180 0100       |    |		Execute	Exception,Raise
1181 0000 0000  |    |		.BLANK	0000[0x7]
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 118b       |    |		.CONST	0x118b								; Address of begin
1189 1194       |    |		.CONST	0x1194								; Address of exception handler
118a 0001       |    |		.CONST	0x0001								; Number of locals
118b			BODY_1188:
118b			INIT_1188:
118b 00da       |    |		Load_Top	At_Offset_2
118c e7fe       |    |		Load	0x3,-0x2
118d 0273       | s  |		Execute	Discrete,Plus
118e 00d8       |    |		Load_Top	At_Offset_0
118f 00e3       |    |		Load_Encached	Natural_Cache
1190 0260       | `  |		Execute	Discrete,In_Type
1191 7001       |p   |		Jump_Nonzero	0x1193
1192 0801       |    |		Execute_Immediate	Raise,0x1
1193 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1194			TRAP_1188:
1194 010e       |    |		Execute	Exception,Is_Constraint_Error
1195 7002       |p   |		Jump_Nonzero	0x1198
1196 010d       |    |		Execute	Exception,Is_Numeric_Error
1197 6802       |h   |		Jump_Zero	0x119a
1198 4800       |H   |		Short_Literal	0x0
1199 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
119a 0100       |    |		Execute	Exception,Raise
119b 0000 0000  |    |		.BLANK	0000[0x5]
11a0 ; --------------------------------------------------------------------------------------
11a0 ; SUBPROGRAM
11a0 ; --------------------------------------------------------------------------------------
11a0 11a3       |    |		.CONST	0x11a3								; Address of begin
11a1 0004       |    |		.CONST	0x0004								; Address of exception handler
11a2 0001       |    |		.CONST	0x0001								; Number of locals
11a3			BODY_11a0:
11a3			INIT_11a0:
11a3 00da       |    |		Load_Top	At_Offset_2
11a4 805e       | ^  |		Call	0x0,0x5e
11a5 e40e       |    |		Load	0x2,0xe
11a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
11a7 00da       |    |		Load_Top	At_Offset_2
11a8 805f       | _  |		Call	0x0,0x5f
11a9 e40e       |    |		Load	0x2,0xe
11aa 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
11ab 00da       |    |		Load_Top	At_Offset_2
11ac 8060       | `  |		Call	0x0,0x60
11ad e40e       |    |		Load	0x2,0xe
11ae 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
11af 00da       |    |		Load_Top	At_Offset_2
11b0 8061       | a  |		Call	0x0,0x61
11b1 e40e       |    |		Load	0x2,0xe
11b2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
11b3 e40e       |    |		Load	0x2,0xe
11b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11b5 e40c       |    |		Load	0x2,0xc
11b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11b7 8417       |    |		Call	0x2,0x17
11b8 e40c       |    |		Load	0x2,0xc
11b9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
11ba e40e       |    |		Load	0x2,0xe
11bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11bc e40d       |    |		Load	0x2,0xd
11bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11be 8417       |    |		Call	0x2,0x17
11bf e40d       |    |		Load	0x2,0xd
11c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
11c1 e40e       |    |		Load	0x2,0xe
11c2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
11c3 e40c       |    |		Load	0x2,0xc
11c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
11c5 8417       |    |		Call	0x2,0x17
11c6 e40c       |    |		Load	0x2,0xc
11c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
11c8 e40e       |    |		Load	0x2,0xe
11c9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
11ca e40d       |    |		Load	0x2,0xd
11cb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
11cc 8417       |    |		Call	0x2,0x17
11cd e40d       |    |		Load	0x2,0xd
11ce 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
11cf e40e       |    |		Load	0x2,0xe
11d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
11d1 e40d       |    |		Load	0x2,0xd
11d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
11d3 8417       |    |		Call	0x2,0x17
11d4 e40d       |    |		Load	0x2,0xd
11d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
11d6 e40e       |    |		Load	0x2,0xe
11d7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
11d8 e40c       |    |		Load	0x2,0xc
11d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
11da 8417       |    |		Call	0x2,0x17
11db e40c       |    |		Load	0x2,0xc
11dc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
11dd e40e       |    |		Load	0x2,0xe
11de 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
11df e40d       |    |		Load	0x2,0xd
11e0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
11e1 8417       |    |		Call	0x2,0x17
11e2 e40d       |    |		Load	0x2,0xd
11e3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
11e4 e40e       |    |		Load	0x2,0xe
11e5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
11e6 e40c       |    |		Load	0x2,0xc
11e7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
11e8 8417       |    |		Call	0x2,0x17
11e9 e40c       |    |		Load	0x2,0xc
11ea 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
11eb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
11ec 0000 0000  |    |		.BLANK	0000[0x4]
11f0 ; --------------------------------------------------------------------------------------
11f0 ; SUBPROGRAM
11f0 ; --------------------------------------------------------------------------------------
11f0 11f5       |    |		.CONST	0x11f5								; Address of begin
11f1 0004       |    |		.CONST	0x0004								; Address of exception handler
11f2 0002       |    |		.CONST	0x0002								; Number of locals
11f3			INIT_11f0:
11f3 029f 15db  |    |		Declare_Subprogram	INIT_15d8,For_Call
11f5			BODY_11f0:
11f5 4800       |H   |		Short_Literal	0x0
11f6 a7fc       |    |		Store_Unchecked	0x3,-0x4
11f7 e416       |    |		Load	0x2,0x16
11f8 7001       |p   |		Jump_Nonzero	0x11fa
11f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
11fa 8602       |    |		Call	0x3,0x2
11fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
11fc 0000 0000  |    |		.BLANK	0000[0x4]
1200 ; --------------------------------------------------------------------------------------
1200 ; SUBPROGRAM
1200 ; --------------------------------------------------------------------------------------
1200 120b       |    |		.CONST	0x120b								; Address of begin
1201 0004       |    |		.CONST	0x0004								; Address of exception handler
1202 0004       |    |		.CONST	0x0004								; Number of locals
1203			INIT_1200:
1203 00da       |    |		Load_Top	At_Offset_2
1204 e23c       | <  |		Load	0x1,0x3c
1205 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1206 00d8       |    |		Load_Top	At_Offset_0
1207 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1208 00e1       |    |		Load_Encached	Boolean_Cache
1209 029f 167b  |   {|		Declare_Subprogram	INIT_1678,For_Call
120b			BODY_1200:
120b 00d9       |    |		Load_Top	At_Offset_1
120c e7fd       |    |		Load	0x3,-0x3
120d e7fe       |    |		Load	0x3,-0x2
120e e7ff       |    |		Load	0x3,-0x1
120f 8419       |    |		Call	0x2,0x19
1210 00d2       |    |		Pop_Control	Pop_Count_2
1211 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1212 00d9       |    |		Load_Top	At_Offset_1
1213 7001       |p   |		Jump_Nonzero	0x1215
1214 8604       |    |		Call	0x3,0x4
1215 00d9       |    |		Load_Top	At_Offset_1
1216 a412       |    |		Store_Unchecked	0x2,0x12
1217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1218 ; --------------------------------------------------------------------------------------
1218 ; SUBPROGRAM
1218 ; --------------------------------------------------------------------------------------
1218 121d       |    |		.CONST	0x121d								; Address of begin
1219 0004       |    |		.CONST	0x0004								; Address of exception handler
121a 0002       |    |		.CONST	0x0002								; Number of locals
121b			INIT_1218:
121b 029f 16fb  |    |		Declare_Subprogram	INIT_16f8,For_Call
121d			BODY_1218:
121d e416       |    |		Load	0x2,0x16
121e 0f00       |    |		Execute_Immediate	Equal,0x0
121f e412       |    |		Load	0x2,0x12
1220 0278       | x  |		Execute	Discrete,Or
1221 e5fc       |    |		Load	0x2,-0x4
1222 0278       | x  |		Execute	Discrete,Or
1223 6801       |h   |		Jump_Zero	0x1225
1224 8602       |    |		Call	0x3,0x2
1225 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1226 0000 0000  |    |		.XXX[0x2]
1228 ; --------------------------------------------------------------------------------------
1228 ; SUBPROGRAM
1228 ; --------------------------------------------------------------------------------------
1228 122d       | -  |		.CONST	0x122d								; Address of begin
1229 0004       |    |		.CONST	0x0004								; Address of exception handler
122a 0003       |    |		.CONST	0x0003								; Number of locals
122b			INIT_1228:
122b 00e3       |    |		Load_Encached	Natural_Cache
122c 03e9       |    |		Declare_Variable	Discrete,Duplicate
122d			BODY_1228:
122d 00d8       |    |		Load_Top	At_Offset_0
122e 00da       |    |		Load_Top	At_Offset_2
122f e40e       |    |		Load	0x2,0xe
1230 e5fa       |    |		Load	0x2,-0x6
1231 e5fd       |    |		Load	0x2,-0x3
1232 e408       |    |		Load	0x2,0x8
1233 e40b       |    |		Load	0x2,0xb
1234 e411       |    |		Load	0x2,0x11
1235 e5ff       |    |		Load	0x2,-0x1
1236 8280       |    |		Call	0x1,0x80
1237 00d1       |    |		Pop_Control	Pop_Count_1
1238 005b       | [  |		Store_Top	Discrete,At_Offset_3
1239 0059       | Y  |		Store_Top	Discrete,At_Offset_1
123a 00d9       |    |		Load_Top	At_Offset_1
123b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
123c 680e       |h   |		Jump_Zero	0x124b
123d e40d       |    |		Load	0x2,0xd
123e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
123f 00da       |    |		Load_Top	At_Offset_2
1240 0273       | s  |		Execute	Discrete,Plus
1241 e40d       |    |		Load	0x2,0xd
1242 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1243 e40c       |    |		Load	0x2,0xc
1244 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1245 00da       |    |		Load_Top	At_Offset_2
1246 0273       | s  |		Execute	Discrete,Plus
1247 e40c       |    |		Load	0x2,0xc
1248 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1249 4801       |H   |		Short_Literal	0x1
124a a412       |    |		Store_Unchecked	0x2,0x12
124b 00d8       |    |		Load_Top	At_Offset_0
124c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
124d 680e       |h   |		Jump_Zero	0x125c
124e e40d       |    |		Load	0x2,0xd
124f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1250 00d9       |    |		Load_Top	At_Offset_1
1251 0273       | s  |		Execute	Discrete,Plus
1252 e40d       |    |		Load	0x2,0xd
1253 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1254 e40c       |    |		Load	0x2,0xc
1255 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1256 00d9       |    |		Load_Top	At_Offset_1
1257 0273       | s  |		Execute	Discrete,Plus
1258 e40c       |    |		Load	0x2,0xc
1259 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
125a 4801       |H   |		Short_Literal	0x1
125b a412       |    |		Store_Unchecked	0x2,0x12
125c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
125d 0000 0000  |    |		.XXX[0x3]
125f 0000       |    |
1260 ; --------------------------------------------------------------------------------------
1260 ; SUBPROGRAM
1260 ; --------------------------------------------------------------------------------------
1260 1269       | i  |		.CONST	0x1269								; Address of begin
1261 0004       |    |		.CONST	0x0004								; Address of exception handler
1262 0003       |    |		.CONST	0x0003								; Number of locals
1263			INIT_1260:
1263 00da       |    |		Load_Top	At_Offset_2
1264 01db       |    |		Execute	Vector,Length
1265 00e2       |    |		Load_Encached	Integer_Cache
1266 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1267 029f 171b  |    |		Declare_Subprogram	INIT_1718,For_Call
1269			BODY_1260:
1269 00d9       |    |		Load_Top	At_Offset_1
126a 0d50       | P  |		Execute_Immediate	Less,0x50
126b 6802       |h   |		Jump_Zero	0x126e
126c 8603       |    |		Call	0x3,0x3
126d 7802       |x   |		Jump	0x1270
126e e7ff       |    |		Load	0x3,-0x1
126f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1270 0831       | 1  |		Execute_Immediate	Raise,0x31
1271 0000 0000  |    |		.BLANK	0000[0x7]
1278 ; --------------------------------------------------------------------------------------
1278 ; SUBPROGRAM
1278 ; --------------------------------------------------------------------------------------
1278 1286       |    |		.CONST	0x1286								; Address of begin
1279 0004       |    |		.CONST	0x0004								; Address of exception handler
127a 0002       |    |		.CONST	0x0002								; Number of locals
127b			INIT_1278:
127b e23c       | <  |		Load	0x1,0x3c
127c 02ff       |    |		Declare_Variable	Variant_Record
127d e402       |    |		Load	0x2,0x2
127e e033       | 3  |		Load	0x0,0x33
127f e246       | F  |		Load	0x1,0x46
1280 0096       |    |		Execute	Package,Entry
1281 e027       | '  |		Load	0x0,0x27
1282 e246       | F  |		Load	0x1,0x46
1283 0096       |    |		Execute	Package,Entry
1284 00d9       |    |		Load_Top	At_Offset_1
1285 016d       | m  |		Execute	Variant_Record,Structure_Write
1286			BODY_1278:
1286 00d8       |    |		Load_Top	At_Offset_0
1287 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1288 e5fe       |    |		Load	0x2,-0x2
1289 027f       |    |		Execute	Discrete,Equal
128a 680b       |h   |		Jump_Zero	0x1296
128b 00d8       |    |		Load_Top	At_Offset_0
128c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
128d e5fd       |    |		Load	0x2,-0x3
128e 027e       | ~  |		Execute	Discrete,Not_Equal
128f 6806       |h   |		Jump_Zero	0x1296
1290 e5fd       |    |		Load	0x2,-0x3
1291 e402       |    |		Load	0x2,0x2
1292 e033       | 3  |		Load	0x0,0x33
1293 e246       | F  |		Load	0x1,0x46
1294 0096       |    |		Execute	Package,Entry
1295 827a       | z  |		Call	0x1,0x7a
1296 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1297 0000       |    |		.XXX[0x1]
1298 ; --------------------------------------------------------------------------------------
1298 ; SUBPROGRAM
1298 ; --------------------------------------------------------------------------------------
1298 129b       |    |		.CONST	0x129b								; Address of begin
1299 12ab       |    |		.CONST	0x12ab								; Address of exception handler
129a 0001       |    |		.CONST	0x0001								; Number of locals
129b			BODY_1298:
129b			INIT_1298:
129b 00db       |    |		Load_Top	At_Offset_3
129c 6807       |h   |		Jump_Zero	0x12a4
129d 4803       |H   |		Short_Literal	0x3
129e 00db       |    |		Load_Top	At_Offset_3
129f e057       | W  |		Load	0x0,0x57
12a0 e246       | F  |		Load	0x1,0x46
12a1 0096       |    |		Execute	Package,Entry
12a2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
12a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
12a4 4805       |H   |		Short_Literal	0x5
12a5 00db       |    |		Load_Top	At_Offset_3
12a6 e057       | W  |		Load	0x0,0x57
12a7 e246       | F  |		Load	0x1,0x46
12a8 0096       |    |		Execute	Package,Entry
12a9 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
12aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
12ab			TRAP_1298:
12ab 0007       |    |		Action	Break_Optional
12ac 4800       |H   |		Short_Literal	0x0
12ad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
12ae 0000 0000  |    |		.XXX[0x2]
12b0 ; --------------------------------------------------------------------------------------
12b0 ; SUBPROGRAM
12b0 ; --------------------------------------------------------------------------------------
12b0 12bd       |    |		.CONST	0x12bd								; Address of begin
12b1 0004       |    |		.CONST	0x0004								; Address of exception handler
12b2 0003       |    |		.CONST	0x0003								; Number of locals
12b3			INIT_12b0:
12b3 4801       |H   |		Short_Literal	0x1
12b4 e5ff       |    |		Load	0x2,-0x1
12b5 8403       |    |		Call	0x2,0x3
12b6 00e3       |    |		Load_Encached	Natural_Cache
12b7 03f1       |    |		Declare_Variable	Discrete,With_Value
12b8 4800       |H   |		Short_Literal	0x0
12b9 e5ff       |    |		Load	0x2,-0x1
12ba 8403       |    |		Call	0x2,0x3
12bb 00e3       |    |		Load_Encached	Natural_Cache
12bc 03f1       |    |		Declare_Variable	Discrete,With_Value
12bd			BODY_12b0:
12bd 00d9       |    |		Load_Top	At_Offset_1
12be 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
12bf 00d9       |    |		Load_Top	At_Offset_1
12c0 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
12c1 0278       | x  |		Execute	Discrete,Or
12c2 6804       |h   |		Jump_Zero	0x12c7
12c3 4865       |He  |		Short_Literal	0x65
12c4 e402       |    |		Load	0x2,0x2
12c5 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
12c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12c7 00d8       |    |		Load_Top	At_Offset_0
12c8 00da       |    |		Load_Top	At_Offset_2
12c9 0272       | r  |		Execute	Discrete,Minus
12ca e402       |    |		Load	0x2,0x2
12cb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
12cc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12cd 0000 0000  |    |		.XXX[0x3]
12cf 0000       |    |
12d0 ; --------------------------------------------------------------------------------------
12d0 ; SUBPROGRAM
12d0 ; --------------------------------------------------------------------------------------
12d0 12db       |    |		.CONST	0x12db								; Address of begin
12d1 0004       |    |		.CONST	0x0004								; Address of exception handler
12d2 0004       |    |		.CONST	0x0004								; Number of locals
12d3			INIT_12d0:
12d3 e05a       | Z  |		Load	0x0,0x5a
12d4 0007       |    |		Action	Break_Optional
12d5 e05b       | [  |		Load	0x0,0x5b
12d6 0322       | "  |		Declare_Variable	Record
12d7 00d8       |    |		Load_Top	At_Offset_0
12d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12d9 029f 1743  |   C|		Declare_Subprogram	INIT_1740,For_Call
12db			BODY_12d0:
12db e05a       | Z  |		Load	0x0,0x5a
12dc e7ff       |    |		Load	0x3,-0x1
12dd 8062       | b  |		Call	0x0,0x62
12de 003b       | ;  |		Store_Top	Access,At_Offset_3
12df 00cf       |    |		Action	Mark_Auxiliary
12e0 7814       |x   |		Jump	0x12f5
12e1 00db       |    |		Load_Top	At_Offset_3
12e2 8063       | c  |		Call	0x0,0x63
12e3 00db       |    |		Load_Top	At_Offset_3
12e4 017d       | }  |		Execute	Record,Structure_Write
12e5 00da       |    |		Load_Top	At_Offset_2
12e6 8064       | d  |		Call	0x0,0x64
12e7 e40c       |    |		Load	0x2,0xc
12e8 0279       | y  |		Execute	Discrete,And
12e9 00db       |    |		Load_Top	At_Offset_3
12ea 8065       | e  |		Call	0x0,0x65
12eb e40c       |    |		Load	0x2,0xc
12ec 0f00       |    |		Execute_Immediate	Equal,0x0
12ed 0279       | y  |		Execute	Discrete,And
12ee 0278       | x  |		Execute	Discrete,Or
12ef 6801       |h   |		Jump_Zero	0x12f1
12f0 8604       |    |		Call	0x3,0x4
12f1 00db       |    |		Load_Top	At_Offset_3
12f2 8066       | f  |		Call	0x0,0x66
12f3 c602       |    |		Store	0x3,0x2
12f4 00c9       |    |		Action	Pop_Auxiliary_Loop
12f5 00db       |    |		Load_Top	At_Offset_3
12f6 8067       | g  |		Call	0x0,0x67
12f7 6fe9       |o   |		Jump_Zero	0x12e1
12f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
12f9 0000 0000  |    |		.BLANK	0000[0x7]
1300 ; --------------------------------------------------------------------------------------
1300 ; SUBPROGRAM
1300 ; --------------------------------------------------------------------------------------
1300 1307       |    |		.CONST	0x1307								; Address of begin
1301 0004       |    |		.CONST	0x0004								; Address of exception handler
1302 0003       |    |		.CONST	0x0003								; Number of locals
1303			INIT_1300:
1303 e068       | h  |		Load	0x0,0x68
1304 0007       |    |		Action	Break_Optional
1305 e069       | i  |		Load	0x0,0x69
1306 0007       |    |		Action	Break_Optional
1307			BODY_1300:
1307 e068       | h  |		Load	0x0,0x68
1308 e406       |    |		Load	0x2,0x6
1309 806a       | j  |		Call	0x0,0x6a
130a 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
130b 00cf       |    |		Action	Mark_Auxiliary
130c 780f       |x   |		Jump	0x131c
130d 00da       |    |		Load_Top	At_Offset_2
130e 806b       | k  |		Call	0x0,0x6b
130f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1310 00d9       |    |		Load_Top	At_Offset_1
1311 e407       |    |		Load	0x2,0x7
1312 806c       | l  |		Call	0x0,0x6c
1313 7004       |p   |		Jump_Nonzero	0x1318
1314 e405       |    |		Load	0x2,0x5
1315 00da       |    |		Load_Top	At_Offset_2
1316 806d       | m  |		Call	0x0,0x6d
1317 c405       |    |		Store	0x2,0x5
1318 00da       |    |		Load_Top	At_Offset_2
1319 806e       | n  |		Call	0x0,0x6e
131a 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
131b 00c9       |    |		Action	Pop_Auxiliary_Loop
131c 00da       |    |		Load_Top	At_Offset_2
131d 806f       | o  |		Call	0x0,0x6f
131e 6fee       |o   |		Jump_Zero	0x130d
131f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1320 ; --------------------------------------------------------------------------------------
1320 ; SUBPROGRAM
1320 ; --------------------------------------------------------------------------------------
1320 132e       | .  |		.CONST	0x132e								; Address of begin
1321 0004       |    |		.CONST	0x0004								; Address of exception handler
1322 0005       |    |		.CONST	0x0005								; Number of locals
1323			INIT_1320:
1323 e068       | h  |		Load	0x0,0x68
1324 0007       |    |		Action	Break_Optional
1325 e069       | i  |		Load	0x0,0x69
1326 0007       |    |		Action	Break_Optional
1327 e070       | p  |		Load	0x0,0x70
1328 0007       |    |		Action	Break_Optional
1329 e071       | q  |		Load	0x0,0x71
132a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
132b 02c7       |    |		Declare_Variable	Any
132c 00d8       |    |		Load_Top	At_Offset_0
132d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
132e			BODY_1320:
132e e068       | h  |		Load	0x0,0x68
132f e405       |    |		Load	0x2,0x5
1330 806a       | j  |		Call	0x0,0x6a
1331 c602       |    |		Store	0x3,0x2
1332 00cf       |    |		Action	Mark_Auxiliary
1333 7818       |x   |		Jump	0x134c
1334 e602       |    |		Load	0x3,0x2
1335 806b       | k  |		Call	0x0,0x6b
1336 a603       |    |		Store_Unchecked	0x3,0x3
1337 00d9       |    |		Load_Top	At_Offset_1
1338 e070       | p  |		Load	0x0,0x70
1339 0092 189f  |    |		Action	Push_String_Extended,0x189f					; "<DEFAULT>"
133b e603       |    |		Load	0x3,0x3
133c 8072       | r  |		Call	0x0,0x72
133d 8073       | s  |		Call	0x0,0x73
133e c604       |    |		Store	0x3,0x4
133f c605       |    |		Store	0x3,0x5
1340 e402       |    |		Load	0x2,0x2
1341 00db       |    |		Load_Top	At_Offset_3
1342 8074       | t  |		Call	0x0,0x74
1343 00eb       |    |		Load_Encached	Diana_Cache
1344 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
1345 a402       |    |		Store_Unchecked	0x2,0x2
1346 4800       |H   |		Short_Literal	0x0
1347 a5fb       |    |		Store_Unchecked	0x2,-0x5
1348 e602       |    |		Load	0x3,0x2
1349 806e       | n  |		Call	0x0,0x6e
134a c602       |    |		Store	0x3,0x2
134b 00c9       |    |		Action	Pop_Auxiliary_Loop
134c e602       |    |		Load	0x3,0x2
134d 806f       | o  |		Call	0x0,0x6f
134e 6fe5       |o   |		Jump_Zero	0x1334
134f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1362       | b  |		.CONST	0x1362								; Address of begin
1351 1394       |    |		.CONST	0x1394								; Address of exception handler
1352 0006       |    |		.CONST	0x0006								; Number of locals
1353			INIT_1350:
1353 e05a       | Z  |		Load	0x0,0x5a
1354 0007       |    |		Action	Break_Optional
1355 e05b       | [  |		Load	0x0,0x5b
1356 0322       | "  |		Declare_Variable	Record
1357 00d8       |    |		Load_Top	At_Offset_0
1358 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1359 e070       | p  |		Load	0x0,0x70
135a 0007       |    |		Action	Break_Optional
135b e071       | q  |		Load	0x0,0x71
135c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
135d 02c7       |    |		Declare_Variable	Any
135e 00d8       |    |		Load_Top	At_Offset_0
135f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1360 029f 175b  |   [|		Declare_Subprogram	INIT_1758,For_Call
1362			BODY_1350:
1362 e5fe       |    |		Load	0x2,-0x2
1363 8260       | `  |		Call	0x1,0x60
1364 e404       |    |		Load	0x2,0x4
1365 0217       |    |		Execute	Heap_Access,All_Reference
1366 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1367 8042       | B  |		Call	0x0,0x42
1368 a409       |    |		Store_Unchecked	0x2,0x9
1369 e5fe       |    |		Load	0x2,-0x2
136a 8263       | c  |		Call	0x1,0x63
136b e409       |    |		Load	0x2,0x9
136c 8045       | E  |		Call	0x0,0x45
136d a40a       |    |		Store_Unchecked	0x2,0xa
136e e5fd       |    |		Load	0x2,-0x3
136f 0f04       |    |		Execute_Immediate	Equal,0x4
1370 6802       |h   |		Jump_Zero	0x1373
1371 8606       |    |		Call	0x3,0x6
1372 7806       |x   |		Jump	0x1379
1373 e5fe       |    |		Load	0x2,-0x2
1374 8265       | e  |		Call	0x1,0x65
1375 e40a       |    |		Load	0x2,0xa
1376 8048       | H  |		Call	0x0,0x48
1377 e40b       |    |		Load	0x2,0xb
1378 017d       | }  |		Execute	Record,Structure_Write
1379 e05a       | Z  |		Load	0x0,0x5a
137a e40b       |    |		Load	0x2,0xb
137b 8062       | b  |		Call	0x0,0x62
137c c602       |    |		Store	0x3,0x2
137d e602       |    |		Load	0x3,0x2
137e 8067       | g  |		Call	0x0,0x67
137f 7013       |p   |		Jump_Nonzero	0x1393
1380 e602       |    |		Load	0x3,0x2
1381 8063       | c  |		Call	0x0,0x63
1382 e603       |    |		Load	0x3,0x3
1383 017d       | }  |		Execute	Record,Structure_Write
1384 00d9       |    |		Load_Top	At_Offset_1
1385 e070       | p  |		Load	0x0,0x70
1386 0092 189f  |    |		Action	Push_String_Extended,0x189f					; "<DEFAULT>"
1388 e603       |    |		Load	0x3,0x3
1389 8075       | u  |		Call	0x0,0x75
138a 8073       | s  |		Call	0x0,0x73
138b c604       |    |		Store	0x3,0x4
138c c605       |    |		Store	0x3,0x5
138d e402       |    |		Load	0x2,0x2
138e 00db       |    |		Load_Top	At_Offset_3
138f 8074       | t  |		Call	0x0,0x74
1390 00eb       |    |		Load_Encached	Diana_Cache
1391 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
1392 a402       |    |		Store_Unchecked	0x2,0x2
1393 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1394			TRAP_1350:
1394 e076       | v  |		Load	0x0,0x76
1395 010f       |    |		Execute	Exception,Equal
1396 7006       |p   |		Jump_Nonzero	0x139d
1397 e077       | w  |		Load	0x0,0x77
1398 010f       |    |		Execute	Exception,Equal
1399 7003       |p   |		Jump_Nonzero	0x139d
139a e078       | x  |		Load	0x0,0x78
139b 010f       |    |		Execute	Exception,Equal
139c 6801       |h   |		Jump_Zero	0x139e
139d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
139e 0100       |    |		Execute	Exception,Raise
139f 0000       |    |		.XXX[0x1]
13a0 ; --------------------------------------------------------------------------------------
13a0 ; SUBPROGRAM
13a0 ; --------------------------------------------------------------------------------------
13a0 13a5       |    |		.CONST	0x13a5								; Address of begin
13a1 13bf       |    |		.CONST	0x13bf								; Address of exception handler
13a2 0002       |    |		.CONST	0x0002								; Number of locals
13a3			INIT_13a0:
13a3 029f 1773  |   s|		Declare_Subprogram	INIT_1770,For_Call
13a5			BODY_13a0:
13a5 e5fe       |    |		Load	0x2,-0x2
13a6 8260       | `  |		Call	0x1,0x60
13a7 e404       |    |		Load	0x2,0x4
13a8 0217       |    |		Execute	Heap_Access,All_Reference
13a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
13aa 8042       | B  |		Call	0x0,0x42
13ab a409       |    |		Store_Unchecked	0x2,0x9
13ac e5fe       |    |		Load	0x2,-0x2
13ad 8263       | c  |		Call	0x1,0x63
13ae e409       |    |		Load	0x2,0x9
13af 8045       | E  |		Call	0x0,0x45
13b0 a40a       |    |		Store_Unchecked	0x2,0xa
13b1 e5fd       |    |		Load	0x2,-0x3
13b2 0f04       |    |		Execute_Immediate	Equal,0x4
13b3 6802       |h   |		Jump_Zero	0x13b6
13b4 8602       |    |		Call	0x3,0x2
13b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13b6 e5fe       |    |		Load	0x2,-0x2
13b7 8265       | e  |		Call	0x1,0x65
13b8 e40a       |    |		Load	0x2,0xa
13b9 8048       | H  |		Call	0x0,0x48
13ba e40b       |    |		Load	0x2,0xb
13bb 017d       | }  |		Execute	Record,Structure_Write
13bc e40b       |    |		Load	0x2,0xb
13bd 840d       |    |		Call	0x2,0xd
13be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13bf			TRAP_13a0:
13bf e076       | v  |		Load	0x0,0x76
13c0 010f       |    |		Execute	Exception,Equal
13c1 7006       |p   |		Jump_Nonzero	0x13c8
13c2 e077       | w  |		Load	0x0,0x77
13c3 010f       |    |		Execute	Exception,Equal
13c4 7003       |p   |		Jump_Nonzero	0x13c8
13c5 e078       | x  |		Load	0x0,0x78
13c6 010f       |    |		Execute	Exception,Equal
13c7 6801       |h   |		Jump_Zero	0x13c9
13c8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13c9 0100       |    |		Execute	Exception,Raise
13ca 0000 0000  |    |		.BLANK	0000[0x6]
13d0 ; --------------------------------------------------------------------------------------
13d0 ; SUBPROGRAM
13d0 ; --------------------------------------------------------------------------------------
13d0 13dc       |    |		.CONST	0x13dc								; Address of begin
13d1 0004       |    |		.CONST	0x0004								; Address of exception handler
13d2 0002       |    |		.CONST	0x0002								; Number of locals
13d3			INIT_13d0:
13d3 e248       | H  |		Load	0x1,0x48
13d4 e5ff       |    |		Load	0x2,-0x1
13d5 825f       | _  |		Call	0x1,0x5f
13d6 e248       | H  |		Load	0x1,0x48
13d7 e5fe       |    |		Load	0x2,-0x2
13d8 825f       | _  |		Call	0x1,0x5f
13d9 01df       |    |		Execute	Vector,Equal
13da 00e1       |    |		Load_Encached	Boolean_Cache
13db 03f1       |    |		Declare_Variable	Discrete,With_Value
13dc			BODY_13d0:
13dc e403       |    |		Load	0x2,0x3
13dd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
13de 4606       |F   |		Jump_Case	0x7
13df 7849       |xI  |		Jump	0x1429								; case 0x0
13e0 7848       |xH  |		Jump	0x1429								; case 0x1
13e1 7847       |xG  |		Jump	0x1429								; case 0x2
13e2 781d       |x   |		Jump	0x1400								; case 0x3
13e3 7827       |x'  |		Jump	0x140b								; case 0x4
13e4 7801       |x   |		Jump	0x13e6								; case 0x5
13e5 7800       |x   |		Jump	0x13e6								; case 0x6
13e6 00d8       |    |		Load_Top	At_Offset_0
13e7 6811       |h   |		Jump_Zero	0x13f9
13e8 e248       | H  |		Load	0x1,0x48
13e9 e5ff       |    |		Load	0x2,-0x1
13ea 8262       | b  |		Call	0x1,0x62
13eb e248       | H  |		Load	0x1,0x48
13ec e5fe       |    |		Load	0x2,-0x2
13ed 8262       | b  |		Call	0x1,0x62
13ee 01df       |    |		Execute	Vector,Equal
13ef 6803       |h   |		Jump_Zero	0x13f3
13f0 4801       |H   |		Short_Literal	0x1
13f1 a404       |    |		Store_Unchecked	0x2,0x4
13f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13f3 e403       |    |		Load	0x2,0x3
13f4 825c       | \  |		Call	0x1,0x5c
13f5 e5ff       |    |		Load	0x2,-0x1
13f6 8269       | i  |		Call	0x1,0x69
13f7 a404       |    |		Store_Unchecked	0x2,0x4
13f8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13f9 e403       |    |		Load	0x2,0x3
13fa 825d       | ]  |		Call	0x1,0x5d
13fb e402       |    |		Load	0x2,0x2
13fc 825d       | ]  |		Call	0x1,0x5d
13fd 8269       | i  |		Call	0x1,0x69
13fe a404       |    |		Store_Unchecked	0x2,0x4
13ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1400 00d8       |    |		Load_Top	At_Offset_0
1401 6803       |h   |		Jump_Zero	0x1405
1402 4800       |H   |		Short_Literal	0x0
1403 a404       |    |		Store_Unchecked	0x2,0x4
1404 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1405 e5fe       |    |		Load	0x2,-0x2
1406 e402       |    |		Load	0x2,0x2
1407 825d       | ]  |		Call	0x1,0x5d
1408 8269       | i  |		Call	0x1,0x69
1409 a404       |    |		Store_Unchecked	0x2,0x4
140a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
140b 00d8       |    |		Load_Top	At_Offset_0
140c 6815       |h   |		Jump_Zero	0x1422
140d e5ff       |    |		Load	0x2,-0x1
140e 8266       | f  |		Call	0x1,0x66
140f e5fe       |    |		Load	0x2,-0x2
1410 8266       | f  |		Call	0x1,0x66
1411 0272       | r  |		Execute	Discrete,Minus
1412 c405       |    |		Store	0x2,0x5
1413 e405       |    |		Load	0x2,0x5
1414 7009       |p   |		Jump_Nonzero	0x141e
1415 e248       | H  |		Load	0x1,0x48
1416 e5ff       |    |		Load	0x2,-0x1
1417 8262       | b  |		Call	0x1,0x62
1418 e248       | H  |		Load	0x1,0x48
1419 e5fe       |    |		Load	0x2,-0x2
141a 8262       | b  |		Call	0x1,0x62
141b 01c1       |    |		Execute	Vector,Less
141c a404       |    |		Store_Unchecked	0x2,0x4
141d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
141e e405       |    |		Load	0x2,0x5
141f 0d00       |    |		Execute_Immediate	Less,0x0
1420 a404       |    |		Store_Unchecked	0x2,0x4
1421 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1422 e403       |    |		Load	0x2,0x3
1423 825d       | ]  |		Call	0x1,0x5d
1424 e402       |    |		Load	0x2,0x2
1425 825d       | ]  |		Call	0x1,0x5d
1426 8269       | i  |		Call	0x1,0x69
1427 a404       |    |		Store_Unchecked	0x2,0x4
1428 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1429 4800       |H   |		Short_Literal	0x0
142a a404       |    |		Store_Unchecked	0x2,0x4
142b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
142c 0000 0000  |    |		.BLANK	0000[0x4]
1430 ; --------------------------------------------------------------------------------------
1430 ; SUBPROGRAM
1430 ; --------------------------------------------------------------------------------------
1430 143c       | <  |		.CONST	0x143c								; Address of begin
1431 0004       |    |		.CONST	0x0004								; Address of exception handler
1432 0002       |    |		.CONST	0x0002								; Number of locals
1433			INIT_1430:
1433 e406       |    |		Load	0x2,0x6
1434 e5ff       |    |		Load	0x2,-0x1
1435 825f       | _  |		Call	0x1,0x5f
1436 e406       |    |		Load	0x2,0x6
1437 e5fe       |    |		Load	0x2,-0x2
1438 825f       | _  |		Call	0x1,0x5f
1439 01df       |    |		Execute	Vector,Equal
143a 00e1       |    |		Load_Encached	Boolean_Cache
143b 03f1       |    |		Declare_Variable	Discrete,With_Value
143c			BODY_1430:
143c e403       |    |		Load	0x2,0x3
143d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
143e 4606       |F   |		Jump_Case	0x7
143f 7849       |xI  |		Jump	0x1489								; case 0x0
1440 7848       |xH  |		Jump	0x1489								; case 0x1
1441 7847       |xG  |		Jump	0x1489								; case 0x2
1442 781d       |x   |		Jump	0x1460								; case 0x3
1443 7827       |x'  |		Jump	0x146b								; case 0x4
1444 7801       |x   |		Jump	0x1446								; case 0x5
1445 7800       |x   |		Jump	0x1446								; case 0x6
1446 00d8       |    |		Load_Top	At_Offset_0
1447 6811       |h   |		Jump_Zero	0x1459
1448 e406       |    |		Load	0x2,0x6
1449 e5ff       |    |		Load	0x2,-0x1
144a 8262       | b  |		Call	0x1,0x62
144b e406       |    |		Load	0x2,0x6
144c e5fe       |    |		Load	0x2,-0x2
144d 8262       | b  |		Call	0x1,0x62
144e 01df       |    |		Execute	Vector,Equal
144f 6803       |h   |		Jump_Zero	0x1453
1450 4801       |H   |		Short_Literal	0x1
1451 a404       |    |		Store_Unchecked	0x2,0x4
1452 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1453 e403       |    |		Load	0x2,0x3
1454 825c       | \  |		Call	0x1,0x5c
1455 e5ff       |    |		Load	0x2,-0x1
1456 826a       | j  |		Call	0x1,0x6a
1457 a404       |    |		Store_Unchecked	0x2,0x4
1458 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1459 e403       |    |		Load	0x2,0x3
145a 825d       | ]  |		Call	0x1,0x5d
145b e402       |    |		Load	0x2,0x2
145c 825d       | ]  |		Call	0x1,0x5d
145d 826a       | j  |		Call	0x1,0x6a
145e a404       |    |		Store_Unchecked	0x2,0x4
145f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1460 00d8       |    |		Load_Top	At_Offset_0
1461 6803       |h   |		Jump_Zero	0x1465
1462 4800       |H   |		Short_Literal	0x0
1463 a404       |    |		Store_Unchecked	0x2,0x4
1464 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1465 e5fe       |    |		Load	0x2,-0x2
1466 e402       |    |		Load	0x2,0x2
1467 825d       | ]  |		Call	0x1,0x5d
1468 826a       | j  |		Call	0x1,0x6a
1469 a404       |    |		Store_Unchecked	0x2,0x4
146a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
146b 00d8       |    |		Load_Top	At_Offset_0
146c 6815       |h   |		Jump_Zero	0x1482
146d e5ff       |    |		Load	0x2,-0x1
146e 8266       | f  |		Call	0x1,0x66
146f e5fe       |    |		Load	0x2,-0x2
1470 8266       | f  |		Call	0x1,0x66
1471 0272       | r  |		Execute	Discrete,Minus
1472 c405       |    |		Store	0x2,0x5
1473 e405       |    |		Load	0x2,0x5
1474 7009       |p   |		Jump_Nonzero	0x147e
1475 e406       |    |		Load	0x2,0x6
1476 e5ff       |    |		Load	0x2,-0x1
1477 8262       | b  |		Call	0x1,0x62
1478 e406       |    |		Load	0x2,0x6
1479 e5fe       |    |		Load	0x2,-0x2
147a 8262       | b  |		Call	0x1,0x62
147b 01c1       |    |		Execute	Vector,Less
147c a404       |    |		Store_Unchecked	0x2,0x4
147d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
147e e405       |    |		Load	0x2,0x5
147f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1480 a404       |    |		Store_Unchecked	0x2,0x4
1481 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1482 e403       |    |		Load	0x2,0x3
1483 825d       | ]  |		Call	0x1,0x5d
1484 e402       |    |		Load	0x2,0x2
1485 825d       | ]  |		Call	0x1,0x5d
1486 826a       | j  |		Call	0x1,0x6a
1487 a404       |    |		Store_Unchecked	0x2,0x4
1488 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1489 4800       |H   |		Short_Literal	0x0
148a a404       |    |		Store_Unchecked	0x2,0x4
148b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
148c 0000 0000  |    |		.BLANK	0000[0x4]
1490 ; --------------------------------------------------------------------------------------
1490 ; SUBPROGRAM
1490 ; --------------------------------------------------------------------------------------
1490 1495       |    |		.CONST	0x1495								; Address of begin
1491 0004       |    |		.CONST	0x0004								; Address of exception handler
1492 0002       |    |		.CONST	0x0002								; Number of locals
1493			INIT_1490:
1493 e069       | i  |		Load	0x0,0x69
1494 0007       |    |		Action	Break_Optional
1495			BODY_1490:
1495 00d8       |    |		Load_Top	At_Offset_0
1496 e5fa       |    |		Load	0x2,-0x6
1497 e408       |    |		Load	0x2,0x8
1498 8079       | y  |		Call	0x0,0x79
1499 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
149a e5fb       |    |		Load	0x2,-0x5
149b 6805       |h   |		Jump_Zero	0x14a1
149c e252       | R  |		Load	0x1,0x52
149d 00d9       |    |		Load_Top	At_Offset_1
149e 806d       | m  |		Call	0x0,0x6d
149f c252       | R  |		Store	0x1,0x52
14a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14a1 e251       | Q  |		Load	0x1,0x51
14a2 00d9       |    |		Load_Top	At_Offset_1
14a3 806d       | m  |		Call	0x0,0x6d
14a4 c251       | Q  |		Store	0x1,0x51
14a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14a6 0000 0000  |    |		.XXX[0x2]
14a8 ; --------------------------------------------------------------------------------------
14a8 ; SUBPROGRAM
14a8 ; --------------------------------------------------------------------------------------
14a8 14ad       |    |		.CONST	0x14ad								; Address of begin
14a9 0004       |    |		.CONST	0x0004								; Address of exception handler
14aa 0002       |    |		.CONST	0x0002								; Number of locals
14ab			INIT_14a8:
14ab e069       | i  |		Load	0x0,0x69
14ac 0007       |    |		Action	Break_Optional
14ad			BODY_14a8:
14ad 00d8       |    |		Load_Top	At_Offset_0
14ae e5fa       |    |		Load	0x2,-0x6
14af e409       |    |		Load	0x2,0x9
14b0 8079       | y  |		Call	0x0,0x79
14b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
14b2 e5fb       |    |		Load	0x2,-0x5
14b3 6804       |h   |		Jump_Zero	0x14b8
14b4 00d8       |    |		Load_Top	At_Offset_0
14b5 e252       | R  |		Load	0x1,0x52
14b6 806c       | l  |		Call	0x0,0x6c
14b7 00ca       |    |		Action	Exit_Nullary_Function
14b8 00d8       |    |		Load_Top	At_Offset_0
14b9 e251       | Q  |		Load	0x1,0x51
14ba 806c       | l  |		Call	0x0,0x6c
14bb 00ca       |    |		Action	Exit_Nullary_Function
14bc 0000 0000  |    |		.BLANK	0000[0x4]
14c0 ; --------------------------------------------------------------------------------------
14c0 ; SUBPROGRAM
14c0 ; --------------------------------------------------------------------------------------
14c0 14c3       |    |		.CONST	0x14c3								; Address of begin
14c1 152d       | -  |		.CONST	0x152d								; Address of exception handler
14c2 0001       |    |		.CONST	0x0001								; Number of locals
14c3			BODY_14c0:
14c3			INIT_14c0:
14c3 e5fe       |    |		Load	0x2,-0x2
14c4 8260       | `  |		Call	0x1,0x60
14c5 e402       |    |		Load	0x2,0x2
14c6 0217       |    |		Execute	Heap_Access,All_Reference
14c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
14c8 8042       | B  |		Call	0x0,0x42
14c9 a403       |    |		Store_Unchecked	0x2,0x3
14ca e5fe       |    |		Load	0x2,-0x2
14cb 8263       | c  |		Call	0x1,0x63
14cc e403       |    |		Load	0x2,0x3
14cd 8045       | E  |		Call	0x0,0x45
14ce a404       |    |		Store_Unchecked	0x2,0x4
14cf e5fd       |    |		Load	0x2,-0x3
14d0 e404       |    |		Load	0x2,0x4
14d1 8048       | H  |		Call	0x0,0x48
14d2 e405       |    |		Load	0x2,0x5
14d3 017d       | }  |		Execute	Record,Structure_Write
14d4 e05a       | Z  |		Load	0x0,0x5a
14d5 e405       |    |		Load	0x2,0x5
14d6 8062       | b  |		Call	0x0,0x62
14d7 c406       |    |		Store	0x2,0x6
14d8 e05a       | Z  |		Load	0x0,0x5a
14d9 e5fc       |    |		Load	0x2,-0x4
14da 8062       | b  |		Call	0x0,0x62
14db c407       |    |		Store	0x2,0x7
14dc 00cf       |    |		Action	Mark_Auxiliary
14dd 7846       |xF  |		Jump	0x1524
14de e406       |    |		Load	0x2,0x6
14df 8063       | c  |		Call	0x0,0x63
14e0 e408       |    |		Load	0x2,0x8
14e1 017d       | }  |		Execute	Record,Structure_Write
14e2 e407       |    |		Load	0x2,0x7
14e3 8063       | c  |		Call	0x0,0x63
14e4 e409       |    |		Load	0x2,0x9
14e5 017d       | }  |		Execute	Record,Structure_Write
14e6 e408       |    |		Load	0x2,0x8
14e7 8064       | d  |		Call	0x0,0x64
14e8 6803       |h   |		Jump_Zero	0x14ec
14e9 e409       |    |		Load	0x2,0x9
14ea 8064       | d  |		Call	0x0,0x64
14eb 7801       |x   |		Jump	0x14ed
14ec 4800       |H   |		Short_Literal	0x0
14ed a40b       |    |		Store_Unchecked	0x2,0xb
14ee e408       |    |		Load	0x2,0x8
14ef 8065       | e  |		Call	0x0,0x65
14f0 6803       |h   |		Jump_Zero	0x14f4
14f1 e409       |    |		Load	0x2,0x9
14f2 8065       | e  |		Call	0x0,0x65
14f3 7801       |x   |		Jump	0x14f5
14f4 4800       |H   |		Short_Literal	0x0
14f5 a40a       |    |		Store_Unchecked	0x2,0xa
14f6 e40b       |    |		Load	0x2,0xb
14f7 e40a       |    |		Load	0x2,0xa
14f8 0278       | x  |		Execute	Discrete,Or
14f9 6823       |h#  |		Jump_Zero	0x151d
14fa e408       |    |		Load	0x2,0x8
14fb 807a       | z  |		Call	0x0,0x7a
14fc 6820       |h   |		Jump_Zero	0x151d
14fd e409       |    |		Load	0x2,0x9
14fe 807a       | z  |		Call	0x0,0x7a
14ff 701d       |p   |		Jump_Nonzero	0x151d
1500 e408       |    |		Load	0x2,0x8
1501 8075       | u  |		Call	0x0,0x75
1502 e409       |    |		Load	0x2,0x9
1503 8075       | u  |		Call	0x0,0x75
1504 01df       |    |		Execute	Vector,Equal
1505 6817       |h   |		Jump_Zero	0x151d
1506 840d       |    |		Call	0x2,0xd
1507 7015       |p   |		Jump_Nonzero	0x151d
1508 840c       |    |		Call	0x2,0xc
1509 e40b       |    |		Load	0x2,0xb
150a 6808       |h   |		Jump_Zero	0x1513
150b e5f9       |    |		Load	0x2,-0x7
150c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
150d 0a01       |    |		Execute_Immediate	Plus,0x1
150e e5f9       |    |		Load	0x2,-0x7
150f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1510 e5f8       |    |		Load	0x2,-0x8
1511 0a01       |    |		Execute_Immediate	Plus,0x1
1512 c5f8       |    |		Store	0x2,-0x8
1513 e40a       |    |		Load	0x2,0xa
1514 6808       |h   |		Jump_Zero	0x151d
1515 e5f9       |    |		Load	0x2,-0x7
1516 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1517 0a01       |    |		Execute_Immediate	Plus,0x1
1518 e5f9       |    |		Load	0x2,-0x7
1519 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
151a e5f7       |    |		Load	0x2,-0x9
151b 0a01       |    |		Execute_Immediate	Plus,0x1
151c c5f7       |    |		Store	0x2,-0x9
151d e406       |    |		Load	0x2,0x6
151e 8066       | f  |		Call	0x0,0x66
151f c406       |    |		Store	0x2,0x6
1520 e407       |    |		Load	0x2,0x7
1521 8066       | f  |		Call	0x0,0x66
1522 c407       |    |		Store	0x2,0x7
1523 00c9       |    |		Action	Pop_Auxiliary_Loop
1524 e406       |    |		Load	0x2,0x6
1525 8067       | g  |		Call	0x0,0x67
1526 0f00       |    |		Execute_Immediate	Equal,0x0
1527 e407       |    |		Load	0x2,0x7
1528 8067       | g  |		Call	0x0,0x67
1529 0f00       |    |		Execute_Immediate	Equal,0x0
152a 0279       | y  |		Execute	Discrete,And
152b 77b2       |w   |		Jump_Nonzero	0x14de
152c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
152d			TRAP_14c0:
152d e076       | v  |		Load	0x0,0x76
152e 010f       |    |		Execute	Exception,Equal
152f 7006       |p   |		Jump_Nonzero	0x1536
1530 e077       | w  |		Load	0x0,0x77
1531 010f       |    |		Execute	Exception,Equal
1532 7003       |p   |		Jump_Nonzero	0x1536
1533 e078       | x  |		Load	0x0,0x78
1534 010f       |    |		Execute	Exception,Equal
1535 6801       |h   |		Jump_Zero	0x1537
1536 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1537 0100       |    |		Execute	Exception,Raise
1538 ; --------------------------------------------------------------------------------------
1538 ; SUBPROGRAM
1538 ; --------------------------------------------------------------------------------------
1538 153d       | =  |		.CONST	0x153d								; Address of begin
1539 0004       |    |		.CONST	0x0004								; Address of exception handler
153a 0002       |    |		.CONST	0x0002								; Number of locals
153b			INIT_1538:
153b 029f 1793  |    |		Declare_Subprogram	INIT_1790,For_Call
153d			BODY_1538:
153d 00db       |    |		Load_Top	At_Offset_3
153e 680a       |h   |		Jump_Zero	0x1549
153f 00db       |    |		Load_Top	At_Offset_3
1540 0217       |    |		Execute	Heap_Access,All_Reference
1541 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1542 8802       |    |		Call	0x4,0x2
1543 e07b       | {  |		Load	0x0,0x7b
1544 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1545 4800       |H   |		Short_Literal	0x0
1546 e9ff       |    |		Load	0x4,-0x1
1547 e07c       | |  |		Load	0x0,0x7c
1548 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1549 e9fe       |    |		Load	0x4,-0x2
154a 7003       |p   |		Jump_Nonzero	0x154e
154b e07d       | }  |		Load	0x0,0x7d
154c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
154d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
154e 4800       |H   |		Short_Literal	0x0
154f e07e       | ~  |		Load	0x0,0x7e
1550 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
1551 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1552 4801       |H   |		Short_Literal	0x1
1553 4800       |H   |		Short_Literal	0x0
1554 4801       |H   |		Short_Literal	0x1
1555 e07e       | ~  |		Load	0x0,0x7e
1556 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1557 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1558 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1559 0000 0000  |    |		.BLANK	0000[0x7]
1560 ; --------------------------------------------------------------------------------------
1560 ; SUBPROGRAM
1560 ; --------------------------------------------------------------------------------------
1560 1563       | c  |		.CONST	0x1563								; Address of begin
1561 0004       |    |		.CONST	0x0004								; Address of exception handler
1562 0001       |    |		.CONST	0x0001								; Number of locals
1563			BODY_1560:
1563			INIT_1560:
1563 00da       |    |		Load_Top	At_Offset_2
1564 4606       |F   |		Jump_Case	0x7
1565 7818       |x   |		Jump	0x157e								; case 0x0
1566 7811       |x   |		Jump	0x1578								; case 0x1
1567 7813       |x   |		Jump	0x157b								; case 0x2
1568 7806       |x   |		Jump	0x156f								; case 0x3
1569 7808       |x   |		Jump	0x1572								; case 0x4
156a 780a       |x   |		Jump	0x1575								; case 0x5
156b 7800       |x   |		Jump	0x156c								; case 0x6
156c 0092 18a0  |    |		Action	Push_String_Extended,0x18a0					; "block"
156e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
156f 0092 18a1  |    |		Action	Push_String_Extended,0x18a1					; "world"
1571 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1572 0092 18a2  |    |		Action	Push_String_Extended,0x18a2					; "unit"
1574 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1575 0092 18a3  |    |		Action	Push_String_Extended,0x18a3					; "subprogram"
1577 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1578 0092 18a4  |    |		Action	Push_String_Extended,0x18a4					; "table title"
157a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
157b 0092 18a5  |    |		Action	Push_String_Extended,0x18a5					; "column title"
157d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
157e 0092 18a6  |    |		Action	Push_String_Extended,0x18a6					; "nil"
1580 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1581 0000 0000  |    |		.BLANK	0000[0x7]
1588 ; --------------------------------------------------------------------------------------
1588 ; SUBPROGRAM
1588 ; --------------------------------------------------------------------------------------
1588 1590       |    |		.CONST	0x1590								; Address of begin
1589 0004       |    |		.CONST	0x0004								; Address of exception handler
158a 0004       |    |		.CONST	0x0004								; Number of locals
158b			INIT_1588:
158b 00f1       |    |		Load_Encached	Diana_Temp_Seq
158c 00e1       |    |		Load_Encached	Boolean_Cache
158d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
158e 029f 17bb  |    |		Declare_Subprogram	INIT_17b8,For_Call
1590			BODY_1588:
1590 e9ff       |    |		Load	0x4,-0x1
1591 0f00       |    |		Execute_Immediate	Equal,0x0
1592 8804       |    |		Call	0x4,0x4
1593 680b       |h   |		Jump_Zero	0x159f
1594 4800       |H   |		Short_Literal	0x0
1595 0092 18a7  |    |		Action	Push_String_Extended,0x18a7					; "No "
1597 e403       |    |		Load	0x2,0x3
1598 8606       |    |		Call	0x3,0x6
1599 01cc       |    |		Execute	Vector,Catenate
159a 0092 18a8  |    |		Action	Push_String_Extended,0x18a8					; " coverage data is available for that selection"
159c 01cc       |    |		Execute	Vector,Catenate
159d 820e       |    |		Call	0x1,0xe
159e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
159f e603       |    |		Load	0x3,0x3
15a0 0c64       | d  |		Execute_Immediate	Greater_Equal,0x64
15a1 e604       |    |		Load	0x3,0x4
15a2 0d01       |    |		Execute_Immediate	Less,0x1
15a3 0278       | x  |		Execute	Discrete,Or
15a4 6802       |h   |		Jump_Zero	0x15a7
15a5 4801       |H   |		Short_Literal	0x1
15a6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
15a7 00da       |    |		Load_Top	At_Offset_2
15a8 00da       |    |		Load_Top	At_Offset_2
15a9 e9ff       |    |		Load	0x4,-0x1
15aa e403       |    |		Load	0x2,0x3
15ab e402       |    |		Load	0x2,0x2
15ac e5ff       |    |		Load	0x2,-0x1
15ad 825b       | [  |		Call	0x1,0x5b
15ae 005b       | [  |		Store_Top	Discrete,At_Offset_3
15af 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
15b0 00d9       |    |		Load_Top	At_Offset_1
15b1 6821       |h!  |		Jump_Zero	0x15d3
15b2 e5ff       |    |		Load	0x2,-0x1
15b3 0219       |    |		Execute	Heap_Access,All_Read
15b4 e023       | #  |		Load	0x0,0x23
15b5 e246       | F  |		Load	0x1,0x46
15b6 0096       |    |		Execute	Package,Entry
15b7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
15b8 7008       |p   |		Jump_Nonzero	0x15c1
15b9 4801       |H   |		Short_Literal	0x1
15ba 0092 18a9  |    |		Action	Push_String_Extended,0x18a9					; "No missed segments for this "
15bc e403       |    |		Load	0x2,0x3
15bd 8606       |    |		Call	0x3,0x6
15be 01cc       |    |		Execute	Vector,Catenate
15bf 820e       |    |		Call	0x1,0xe
15c0 7812       |x   |		Jump	0x15d3
15c1 e604       |    |		Load	0x3,0x4
15c2 0d01       |    |		Execute_Immediate	Less,0x1
15c3 6808       |h   |		Jump_Zero	0x15cc
15c4 4801       |H   |		Short_Literal	0x1
15c5 0092 18aa  |    |		Action	Push_String_Extended,0x18aa					; "No decisions exist for this "
15c7 e403       |    |		Load	0x2,0x3
15c8 8606       |    |		Call	0x3,0x6
15c9 01cc       |    |		Execute	Vector,Catenate
15ca 820e       |    |		Call	0x1,0xe
15cb 7807       |x   |		Jump	0x15d3
15cc 4801       |H   |		Short_Literal	0x1
15cd 0092 18ab  |    |		Action	Push_String_Extended,0x18ab					; "No missed decisions for this "
15cf e403       |    |		Load	0x2,0x3
15d0 8606       |    |		Call	0x3,0x6
15d1 01cc       |    |		Execute	Vector,Catenate
15d2 820e       |    |		Call	0x1,0xe
15d3 00d9       |    |		Load_Top	At_Offset_1
15d4 0f00       |    |		Execute_Immediate	Equal,0x0
15d5 00db       |    |		Load_Top	At_Offset_3
15d6 8605       |    |		Call	0x3,0x5
15d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
15d8 ; --------------------------------------------------------------------------------------
15d8 ; SUBPROGRAM
15d8 ; --------------------------------------------------------------------------------------
15d8 15ec       |    |		.CONST	0x15ec								; Address of begin
15d9 0004       |    |		.CONST	0x0004								; Address of exception handler
15da 0004       |    |		.CONST	0x0004								; Number of locals
15db			INIT_15d8:
15db e00b       |    |		Load	0x0,0xb
15dc e246       | F  |		Load	0x1,0x46
15dd 0098       |    |		Execute	Package,Field_Read_Dynamic
15de 0322       | "  |		Declare_Variable	Record
15df 4800       |H   |		Short_Literal	0x0
15e0 e5ff       |    |		Load	0x2,-0x1
15e1 0219       |    |		Execute	Heap_Access,All_Read
15e2 e030       | 0  |		Load	0x0,0x30
15e3 e246       | F  |		Load	0x1,0x46
15e4 0096       |    |		Execute	Package,Entry
15e5 00d9       |    |		Load_Top	At_Offset_1
15e6 017d       | }  |		Execute	Record,Structure_Write
15e7 e00a       |    |		Load	0x0,0xa
15e8 e246       | F  |		Load	0x1,0x46
15e9 0098       |    |		Execute	Package,Field_Read_Dynamic
15ea 0322       | "  |		Declare_Variable	Record
15eb e23a       | :  |		Load	0x1,0x3a
15ec			BODY_15d8:
15ec 00cf       |    |		Action	Mark_Auxiliary
15ed 7882       |x   |		Jump	0x1670
15ee 00db       |    |		Load_Top	At_Offset_3
15ef e033       | 3  |		Load	0x0,0x33
15f0 e246       | F  |		Load	0x1,0x46
15f1 0096       |    |		Execute	Package,Entry
15f2 00db       |    |		Load_Top	At_Offset_3
15f3 017d       | }  |		Execute	Record,Structure_Write
15f4 00da       |    |		Load_Top	At_Offset_2
15f5 e027       | '  |		Load	0x0,0x27
15f6 e246       | F  |		Load	0x1,0x46
15f7 0096       |    |		Execute	Package,Entry
15f8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
15f9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
15fa 00d9       |    |		Load_Top	At_Offset_1
15fb e7ff       |    |		Load	0x3,-0x1
15fc 027f       |    |		Execute	Discrete,Equal
15fd 686c       |hl  |		Jump_Zero	0x166a
15fe e7ff       |    |		Load	0x3,-0x1
15ff 4606       |F   |		Jump_Case	0x7
1600 783e       |x>  |		Jump	0x163f								; case 0x0
1601 783d       |x=  |		Jump	0x163f								; case 0x1
1602 783c       |x<  |		Jump	0x163f								; case 0x2
1603 7832       |x2  |		Jump	0x1636								; case 0x3
1604 781e       |x   |		Jump	0x1623								; case 0x4
1605 7801       |x   |		Jump	0x1607								; case 0x5
1606 7800       |x   |		Jump	0x1607								; case 0x6
1607 e248       | H  |		Load	0x1,0x48
1608 00db       |    |		Load_Top	At_Offset_3
1609 825f       | _  |		Call	0x1,0x5f
160a e409       |    |		Load	0x2,0x9
160b 8024       | $  |		Call	0x0,0x24
160c 01df       |    |		Execute	Vector,Equal
160d 6810       |h   |		Jump_Zero	0x161e
160e e248       | H  |		Load	0x1,0x48
160f 00db       |    |		Load_Top	At_Offset_3
1610 8262       | b  |		Call	0x1,0x62
1611 e40a       |    |		Load	0x2,0xa
1612 8024       | $  |		Call	0x0,0x24
1613 01df       |    |		Execute	Vector,Equal
1614 6807       |h   |		Jump_Zero	0x161c
1615 e248       | H  |		Load	0x1,0x48
1616 00db       |    |		Load_Top	At_Offset_3
1617 8264       | d  |		Call	0x1,0x64
1618 e40b       |    |		Load	0x2,0xb
1619 8024       | $  |		Call	0x0,0x24
161a 01df       |    |		Execute	Vector,Equal
161b 7803       |x   |		Jump	0x161f
161c 4800       |H   |		Short_Literal	0x0
161d 7801       |x   |		Jump	0x161f
161e 4800       |H   |		Short_Literal	0x0
161f a7fc       |    |		Store_Unchecked	0x3,-0x4
1620 e7fc       |    |		Load	0x3,-0x4
1621 a413       |    |		Store_Unchecked	0x2,0x13
1622 781c       |x   |		Jump	0x163f
1623 e248       | H  |		Load	0x1,0x48
1624 00db       |    |		Load_Top	At_Offset_3
1625 825f       | _  |		Call	0x1,0x5f
1626 e409       |    |		Load	0x2,0x9
1627 8024       | $  |		Call	0x0,0x24
1628 01df       |    |		Execute	Vector,Equal
1629 6807       |h   |		Jump_Zero	0x1631
162a e248       | H  |		Load	0x1,0x48
162b 00db       |    |		Load_Top	At_Offset_3
162c 8262       | b  |		Call	0x1,0x62
162d e40a       |    |		Load	0x2,0xa
162e 8024       | $  |		Call	0x0,0x24
162f 01df       |    |		Execute	Vector,Equal
1630 7801       |x   |		Jump	0x1632
1631 4800       |H   |		Short_Literal	0x0
1632 a7fc       |    |		Store_Unchecked	0x3,-0x4
1633 e7fc       |    |		Load	0x3,-0x4
1634 a414       |    |		Store_Unchecked	0x2,0x14
1635 7809       |x   |		Jump	0x163f
1636 e248       | H  |		Load	0x1,0x48
1637 00db       |    |		Load_Top	At_Offset_3
1638 825f       | _  |		Call	0x1,0x5f
1639 e409       |    |		Load	0x2,0x9
163a 8024       | $  |		Call	0x0,0x24
163b 01df       |    |		Execute	Vector,Equal
163c a7fc       |    |		Store_Unchecked	0x3,-0x4
163d e7fc       |    |		Load	0x3,-0x4
163e a415       |    |		Store_Unchecked	0x2,0x15
163f e7fc       |    |		Load	0x3,-0x4
1640 6829       |h)  |		Jump_Zero	0x166a
1641 00da       |    |		Load_Top	At_Offset_2
1642 e7fe       |    |		Load	0x3,-0x2
1643 017d       | }  |		Execute	Record,Structure_Write
1644 e5fd       |    |		Load	0x2,-0x3
1645 681c       |h   |		Jump_Zero	0x1662
1646 e5fc       |    |		Load	0x2,-0x4
1647 6811       |h   |		Jump_Zero	0x1659
1648 e23b       | ;  |		Load	0x1,0x3b
1649 0322       | "  |		Declare_Variable	Record
164a 4800       |H   |		Short_Literal	0x0
164b 00d9       |    |		Load_Top	At_Offset_1
164c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
164d 4800       |H   |		Short_Literal	0x0
164e 00d9       |    |		Load_Top	At_Offset_1
164f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
1650 4800       |H   |		Short_Literal	0x0
1651 00d9       |    |		Load_Top	At_Offset_1
1652 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1653 4800       |H   |		Short_Literal	0x0
1654 00d9       |    |		Load_Top	At_Offset_1
1655 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1656 e7fd       |    |		Load	0x3,-0x3
1657 017d       | }  |		Execute	Record,Structure_Write
1658 7811       |x   |		Jump	0x166a
1659 4806       |H   |		Short_Literal	0x6
165a 00db       |    |		Load_Top	At_Offset_3
165b e057       | W  |		Load	0x0,0x57
165c e246       | F  |		Load	0x1,0x46
165d 0096       |    |		Execute	Package,Entry
165e 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
165f e7fd       |    |		Load	0x3,-0x3
1660 017d       | }  |		Execute	Record,Structure_Write
1661 7808       |x   |		Jump	0x166a
1662 4804       |H   |		Short_Literal	0x4
1663 00db       |    |		Load_Top	At_Offset_3
1664 e057       | W  |		Load	0x0,0x57
1665 e246       | F  |		Load	0x1,0x46
1666 0096       |    |		Execute	Package,Entry
1667 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
1668 e7fd       |    |		Load	0x3,-0x3
1669 017d       | }  |		Execute	Record,Structure_Write
166a 00db       |    |		Load_Top	At_Offset_3
166b e034       | 4  |		Load	0x0,0x34
166c e246       | F  |		Load	0x1,0x46
166d 0096       |    |		Execute	Package,Entry
166e 00d1       |    |		Pop_Control	Pop_Count_1
166f 00c9       |    |		Action	Pop_Auxiliary_Loop
1670 e7fc       |    |		Load	0x3,-0x4
1671 7005       |p   |		Jump_Nonzero	0x1677
1672 00db       |    |		Load_Top	At_Offset_3
1673 e031       | 1  |		Load	0x0,0x31
1674 e246       | F  |		Load	0x1,0x46
1675 0096       |    |		Execute	Package,Entry
1676 6f77       |ow  |		Jump_Zero	0x15ee
1677 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1678 ; --------------------------------------------------------------------------------------
1678 ; SUBPROGRAM
1678 ; --------------------------------------------------------------------------------------
1678 167e       | ~  |		.CONST	0x167e								; Address of begin
1679 0004       |    |		.CONST	0x0004								; Address of exception handler
167a 0002       |    |		.CONST	0x0002								; Number of locals
167b			INIT_1678:
167b 4801       |H   |		Short_Literal	0x1
167c e23f       | ?  |		Load	0x1,0x3f
167d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
167e			BODY_1678:
167e e7ff       |    |		Load	0x3,-0x1
167f 4606       |F   |		Jump_Case	0x7
1680 7836       |x6  |		Jump	0x16b7								; case 0x0
1681 7835       |x5  |		Jump	0x16b7								; case 0x1
1682 7834       |x4  |		Jump	0x16b7								; case 0x2
1683 7823       |x#  |		Jump	0x16a7								; case 0x3
1684 7812       |x   |		Jump	0x1697								; case 0x4
1685 7801       |x   |		Jump	0x1687								; case 0x5
1686 7800       |x   |		Jump	0x1687								; case 0x6
1687 e410       |    |		Load	0x2,0x10
1688 e22e       | .  |		Load	0x1,0x2e
1689 e5fa       |    |		Load	0x2,-0x6
168a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
168b e602       |    |		Load	0x3,0x2
168c 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
168d 4801       |H   |		Short_Literal	0x1
168e e602       |    |		Load	0x3,0x2
168f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1690 e5fa       |    |		Load	0x2,-0x6
1691 e40b       |    |		Load	0x2,0xb
1692 8024       | $  |		Call	0x0,0x24
1693 8022       | "  |		Call	0x0,0x22
1694 00d9       |    |		Load_Top	At_Offset_1
1695 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
1696 7826       |x&  |		Jump	0x16bd
1697 e40f       |    |		Load	0x2,0xf
1698 e22e       | .  |		Load	0x1,0x2e
1699 e5fa       |    |		Load	0x2,-0x6
169a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
169b e602       |    |		Load	0x3,0x2
169c 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
169d 4800       |H   |		Short_Literal	0x0
169e e602       |    |		Load	0x3,0x2
169f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16a0 e5fa       |    |		Load	0x2,-0x6
16a1 e40a       |    |		Load	0x2,0xa
16a2 8024       | $  |		Call	0x0,0x24
16a3 8022       | "  |		Call	0x0,0x22
16a4 00d9       |    |		Load_Top	At_Offset_1
16a5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
16a6 7816       |x   |		Jump	0x16bd
16a7 e5fe       |    |		Load	0x2,-0x2
16a8 e22e       | .  |		Load	0x1,0x2e
16a9 e5fa       |    |		Load	0x2,-0x6
16aa 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
16ab e602       |    |		Load	0x3,0x2
16ac 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
16ad 4800       |H   |		Short_Literal	0x0
16ae e602       |    |		Load	0x3,0x2
16af 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16b0 e5fa       |    |		Load	0x2,-0x6
16b1 e409       |    |		Load	0x2,0x9
16b2 8024       | $  |		Call	0x0,0x24
16b3 8022       | "  |		Call	0x0,0x22
16b4 00d9       |    |		Load_Top	At_Offset_1
16b5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
16b6 7806       |x   |		Jump	0x16bd
16b7 e5fe       |    |		Load	0x2,-0x2
16b8 e22e       | .  |		Load	0x1,0x2e
16b9 e5fa       |    |		Load	0x2,-0x6
16ba 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
16bb e602       |    |		Load	0x3,0x2
16bc 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
16bd e23b       | ;  |		Load	0x1,0x3b
16be 0322       | "  |		Declare_Variable	Record
16bf 4800       |H   |		Short_Literal	0x0
16c0 00d9       |    |		Load_Top	At_Offset_1
16c1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
16c2 4800       |H   |		Short_Literal	0x0
16c3 00d9       |    |		Load_Top	At_Offset_1
16c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
16c5 4800       |H   |		Short_Literal	0x0
16c6 00d9       |    |		Load_Top	At_Offset_1
16c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
16c8 4800       |H   |		Short_Literal	0x0
16c9 00d9       |    |		Load_Top	At_Offset_1
16ca 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
16cb e7fd       |    |		Load	0x3,-0x3
16cc 017d       | }  |		Execute	Record,Structure_Write
16cd e7fe       |    |		Load	0x3,-0x2
16ce 4802       |H   |		Short_Literal	0x2
16cf e5ff       |    |		Load	0x2,-0x1
16d0 0219       |    |		Execute	Heap_Access,All_Read
16d1 e04f       | O  |		Load	0x0,0x4f
16d2 e246       | F  |		Load	0x1,0x46
16d3 0096       |    |		Execute	Package,Entry
16d4 00d1       |    |		Pop_Control	Pop_Count_1
16d5 e602       |    |		Load	0x3,0x2
16d6 e7fe       |    |		Load	0x3,-0x2
16d7 e050       | P  |		Load	0x0,0x50
16d8 e246       | F  |		Load	0x1,0x46
16d9 0096       |    |		Execute	Package,Entry
16da e602       |    |		Load	0x3,0x2
16db 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
16dc 0f00       |    |		Execute_Immediate	Equal,0x0
16dd e7fe       |    |		Load	0x3,-0x2
16de e058       | X  |		Load	0x0,0x58
16df e246       | F  |		Load	0x1,0x46
16e0 0096       |    |		Execute	Package,Entry
16e1 e7ff       |    |		Load	0x3,-0x1
16e2 4800       |H   |		Short_Literal	0x0
16e3 4802       |H   |		Short_Literal	0x2
16e4 0262       | b  |		Execute	Discrete,In_Range
16e5 700a       |p   |		Jump_Nonzero	0x16f0
16e6 7800       |x   |		Jump	0x16e7
16e7 e7ff       |    |		Load	0x3,-0x1
16e8 00d9       |    |		Load_Top	At_Offset_1
16e9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16ea 00d8       |    |		Load_Top	At_Offset_0
16eb 4801       |H   |		Short_Literal	0x1
16ec e7fe       |    |		Load	0x3,-0x2
16ed e054       | T  |		Load	0x0,0x54
16ee e246       | F  |		Load	0x1,0x46
16ef 0096       |    |		Execute	Package,Entry
16f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
16f1 0000 0000  |    |		.BLANK	0000[0x7]
16f8 ; --------------------------------------------------------------------------------------
16f8 ; SUBPROGRAM
16f8 ; --------------------------------------------------------------------------------------
16f8 1708       |    |		.CONST	0x1708								; Address of begin
16f9 0004       |    |		.CONST	0x0004								; Address of exception handler
16fa 0005       |    |		.CONST	0x0005								; Number of locals
16fb			INIT_16f8:
16fb e7fe       |    |		Load	0x3,-0x2
16fc e027       | '  |		Load	0x0,0x27
16fd e246       | F  |		Load	0x1,0x46
16fe 0096       |    |		Execute	Package,Entry
16ff 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1700 e23a       | :  |		Load	0x1,0x3a
1701 03f1       |    |		Declare_Variable	Discrete,With_Value
1702 e5fd       |    |		Load	0x2,-0x3
1703 827f       |    |		Call	0x1,0x7f
1704 e5fd       |    |		Load	0x2,-0x3
1705 827e       | ~  |		Call	0x1,0x7e
1706 029f 17e3  |    |		Declare_Subprogram	INIT_17e0,For_Call
1708			BODY_16f8:
1708 00cf       |    |		Action	Mark_Auxiliary
1709 00da       |    |		Load_Top	At_Offset_2
170a e803       |    |		Load	0x4,0x3
170b 0263       | c  |		Execute	Discrete,Above_Bound
170c 7003       |p   |		Jump_Nonzero	0x1710
170d 8805       |    |		Call	0x4,0x5
170e 00c8       |    |		Action	Pop_Auxiliary_Range
170f 3ffd       |?   |		Loop_Increasing	0x170d
1710 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1711 0000 0000  |    |		.BLANK	0000[0x7]
1718 ; --------------------------------------------------------------------------------------
1718 ; SUBPROGRAM
1718 ; --------------------------------------------------------------------------------------
1718 1734       | 4  |		.CONST	0x1734								; Address of begin
1719 0004       |    |		.CONST	0x0004								; Address of exception handler
171a 0003       |    |		.CONST	0x0003								; Number of locals
171b			INIT_1718:
171b 4850       |HP  |		Short_Literal	0x50
171c e602       |    |		Load	0x3,0x2
171d 0272       | r  |		Execute	Discrete,Minus
171e 00e2       |    |		Load_Encached	Integer_Cache
171f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1720 4801       |H   |		Short_Literal	0x1
1721 00d9       |    |		Load_Top	At_Offset_1
1722 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
1723 00e9       |    |		Load_Encached	String_Cache
1724 035b       | [  |		Declare_Type	Array,Constrained
1725 0337       | 7  |		Declare_Variable	Array
1726 00d8       |    |		Load_Top	At_Offset_0
1727 0335       | 5  |		Declare_Variable	Array,Duplicate
1728 00cd       |    |		Action	Spare6_Action
1729 00d9       |    |		Load_Top	At_Offset_1
172a 01d9       |    |		Execute	Vector,Reverse_Bounds
172b 0263       | c  |		Execute	Discrete,Above_Bound
172c 7005       |p   |		Jump_Nonzero	0x1732
172d 4820       |H   |		Short_Literal	0x20
172e 00d9       |    |		Load_Top	At_Offset_1
172f e804       |    |		Load	0x4,0x4
1730 01d6       |    |		Execute	Vector,Field_Write
1731 3ffb       |?   |		Loop_Increasing	0x172d
1732 00d9       |    |		Load_Top	At_Offset_1
1733 01d4       |    |		Execute	Vector,Structure_Write
1734			BODY_1718:
1734 00d8       |    |		Load_Top	At_Offset_0
1735 e7ff       |    |		Load	0x3,-0x1
1736 01cc       |    |		Execute	Vector,Catenate
1737 00e9       |    |		Load_Encached	String_Cache
1738 01c6       |    |		Execute	Vector,Convert_To_Formal
1739 00cb       |    |		Action	Pop_Block_With_Result
173a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
173b 0000 0000  |    |		.BLANK	0000[0x5]
1740 ; --------------------------------------------------------------------------------------
1740 ; SUBPROGRAM
1740 ; --------------------------------------------------------------------------------------
1740 1745       | E  |		.CONST	0x1745								; Address of begin
1741 0004       |    |		.CONST	0x0004								; Address of exception handler
1742 0002       |    |		.CONST	0x0002								; Number of locals
1743			INIT_1740:
1743 e069       | i  |		Load	0x0,0x69
1744 0007       |    |		Action	Break_Optional
1745			BODY_1740:
1745 00d8       |    |		Load_Top	At_Offset_0
1746 e408       |    |		Load	0x2,0x8
1747 e603       |    |		Load	0x3,0x3
1748 8079       | y  |		Call	0x0,0x79
1749 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
174a e603       |    |		Load	0x3,0x3
174b 807a       | z  |		Call	0x0,0x7a
174c 6805       |h   |		Jump_Zero	0x1752
174d e406       |    |		Load	0x2,0x6
174e 00d9       |    |		Load_Top	At_Offset_1
174f 806d       | m  |		Call	0x0,0x6d
1750 c406       |    |		Store	0x2,0x6
1751 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1752 e407       |    |		Load	0x2,0x7
1753 00d9       |    |		Load_Top	At_Offset_1
1754 806d       | m  |		Call	0x0,0x6d
1755 c407       |    |		Store	0x2,0x7
1756 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1757 0000       |    |		.XXX[0x1]
1758 ; --------------------------------------------------------------------------------------
1758 ; SUBPROGRAM
1758 ; --------------------------------------------------------------------------------------
1758 175d       | ]  |		.CONST	0x175d								; Address of begin
1759 0004       |    |		.CONST	0x0004								; Address of exception handler
175a 0002       |    |		.CONST	0x0002								; Number of locals
175b			INIT_1758:
175b e03c       | <  |		Load	0x0,0x3c
175c 0007       |    |		Action	Break_Optional
175d			BODY_1758:
175d e03c       | <  |		Load	0x0,0x3c
175e e40a       |    |		Load	0x2,0xa
175f 8046       | F  |		Call	0x0,0x46
1760 0039       | 9  |		Store_Top	Access,At_Offset_1
1761 00d8       |    |		Load_Top	At_Offset_0
1762 804a       | J  |		Call	0x0,0x4a
1763 7006       |p   |		Jump_Nonzero	0x176a
1764 00d8       |    |		Load_Top	At_Offset_0
1765 8047       | G  |		Call	0x0,0x47
1766 e40a       |    |		Load	0x2,0xa
1767 8048       | H  |		Call	0x0,0x48
1768 e40b       |    |		Load	0x2,0xb
1769 017d       | }  |		Execute	Record,Structure_Write
176a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
176b 0000 0000  |    |		.BLANK	0000[0x5]
1770 ; --------------------------------------------------------------------------------------
1770 ; SUBPROGRAM
1770 ; --------------------------------------------------------------------------------------
1770 1775       | u  |		.CONST	0x1775								; Address of begin
1771 0004       |    |		.CONST	0x0004								; Address of exception handler
1772 0002       |    |		.CONST	0x0002								; Number of locals
1773			INIT_1770:
1773 e03c       | <  |		Load	0x0,0x3c
1774 0007       |    |		Action	Break_Optional
1775			BODY_1770:
1775 e03c       | <  |		Load	0x0,0x3c
1776 e40a       |    |		Load	0x2,0xa
1777 8046       | F  |		Call	0x0,0x46
1778 0039       | 9  |		Store_Top	Access,At_Offset_1
1779 00cf       |    |		Action	Mark_Auxiliary
177a 780c       |x   |		Jump	0x1787
177b 00d9       |    |		Load_Top	At_Offset_1
177c 8047       | G  |		Call	0x0,0x47
177d e40a       |    |		Load	0x2,0xa
177e 8048       | H  |		Call	0x0,0x48
177f e40b       |    |		Load	0x2,0xb
1780 017d       | }  |		Execute	Record,Structure_Write
1781 e40b       |    |		Load	0x2,0xb
1782 840d       |    |		Call	0x2,0xd
1783 00d9       |    |		Load_Top	At_Offset_1
1784 8049       | I  |		Call	0x0,0x49
1785 003a       | :  |		Store_Top	Access,At_Offset_2
1786 00c9       |    |		Action	Pop_Auxiliary_Loop
1787 00d9       |    |		Load_Top	At_Offset_1
1788 804a       | J  |		Call	0x0,0x4a
1789 6ff1       |o   |		Jump_Zero	0x177b
178a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
178b 0000 0000  |    |		.BLANK	0000[0x5]
1790 ; --------------------------------------------------------------------------------------
1790 ; SUBPROGRAM
1790 ; --------------------------------------------------------------------------------------
1790 179b       |    |		.CONST	0x179b								; Address of begin
1791 0004       |    |		.CONST	0x0004								; Address of exception handler
1792 0003       |    |		.CONST	0x0003								; Number of locals
1793			INIT_1790:
1793 e07f       |    |		Load	0x0,0x7f
1794 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1795 e07f       |    |		Load	0x0,0x7f
1796 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
1797 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1798 02c7       |    |		Declare_Variable	Any
1799 00d8       |    |		Load_Top	At_Offset_0
179a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
179b			BODY_1790:
179b e07f       |    |		Load	0x0,0x7f
179c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
179d 00d9       |    |		Load_Top	At_Offset_1
179e 0120       |    |		Execute	Any,Is_Value
179f 6804       |h   |		Jump_Zero	0x17a4
17a0 e07f       |    |		Load	0x0,0x7f
17a1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
17a3 7801       |x   |		Jump	0x17a5
17a4 00d9       |    |		Load_Top	At_Offset_1
17a5 ebff       |    |		Load	0x5,-0x1
17a6 e07f       |    |		Load	0x0,0x7f
17a7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
17a9 ca03       |    |		Store	0x5,0x3
17aa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
17ab 00d9       |    |		Load_Top	At_Offset_1
17ac 7005       |p   |		Jump_Nonzero	0x17b2
17ad 00d8       |    |		Load_Top	At_Offset_0
17ae e07f       |    |		Load	0x0,0x7f
17af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17b0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
17b1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17b2 e07f       |    |		Load	0x0,0x7f
17b3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
17b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17b5 0000 0000  |    |		.XXX[0x3]
17b7 0000       |    |
17b8 ; --------------------------------------------------------------------------------------
17b8 ; SUBPROGRAM
17b8 ; --------------------------------------------------------------------------------------
17b8 17bb       |    |		.CONST	0x17bb								; Address of begin
17b9 17dc       |    |		.CONST	0x17dc								; Address of exception handler
17ba 0001       |    |		.CONST	0x0001								; Number of locals
17bb			BODY_17b8:
17bb			INIT_17b8:
17bb 00da       |    |		Load_Top	At_Offset_2
17bc 680f       |h   |		Jump_Zero	0x17cc
17bd 4803       |H   |		Short_Literal	0x3
17be e402       |    |		Load	0x2,0x2
17bf e057       | W  |		Load	0x0,0x57
17c0 e246       | F  |		Load	0x1,0x46
17c1 0096       |    |		Execute	Package,Entry
17c2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
17c3 a603       |    |		Store_Unchecked	0x3,0x3
17c4 4804       |H   |		Short_Literal	0x4
17c5 e402       |    |		Load	0x2,0x2
17c6 e057       | W  |		Load	0x0,0x57
17c7 e246       | F  |		Load	0x1,0x46
17c8 0096       |    |		Execute	Package,Entry
17c9 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
17ca a604       |    |		Store_Unchecked	0x3,0x4
17cb 780e       |x   |		Jump	0x17da
17cc 4805       |H   |		Short_Literal	0x5
17cd e402       |    |		Load	0x2,0x2
17ce e057       | W  |		Load	0x0,0x57
17cf e246       | F  |		Load	0x1,0x46
17d0 0096       |    |		Execute	Package,Entry
17d1 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
17d2 a603       |    |		Store_Unchecked	0x3,0x3
17d3 4806       |H   |		Short_Literal	0x6
17d4 e402       |    |		Load	0x2,0x2
17d5 e057       | W  |		Load	0x0,0x57
17d6 e246       | F  |		Load	0x1,0x46
17d7 0096       |    |		Execute	Package,Entry
17d8 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
17d9 a604       |    |		Store_Unchecked	0x3,0x4
17da 4800       |H   |		Short_Literal	0x0
17db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17dc			TRAP_17b8:
17dc 0007       |    |		Action	Break_Optional
17dd 4801       |H   |		Short_Literal	0x1
17de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17df 0000       |    |		.XXX[0x1]
17e0 ; --------------------------------------------------------------------------------------
17e0 ; SUBPROGRAM
17e0 ; --------------------------------------------------------------------------------------
17e0 17e6       |    |		.CONST	0x17e6								; Address of begin
17e1 0004       |    |		.CONST	0x0004								; Address of exception handler
17e2 0002       |    |		.CONST	0x0002								; Number of locals
17e3			INIT_17e0:
17e3 e808       |    |		Load	0x4,0x8
17e4 e23f       | ?  |		Load	0x1,0x3f
17e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
17e6			BODY_17e0:
17e6 e802       |    |		Load	0x4,0x2
17e7 00d9       |    |		Load_Top	At_Offset_1
17e8 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
17e9 e808       |    |		Load	0x4,0x8
17ea 4606       |F   |		Jump_Case	0x7
17eb 7861       |xa  |		Jump	0x184d								; case 0x0
17ec 7860       |x`  |		Jump	0x184d								; case 0x1
17ed 785f       |x_  |		Jump	0x184d								; case 0x2
17ee 783d       |x=  |		Jump	0x182c								; case 0x3
17ef 7830       |x0  |		Jump	0x1820								; case 0x4
17f0 780d       |x   |		Jump	0x17fe								; case 0x5
17f1 7800       |x   |		Jump	0x17f2								; case 0x6
17f2 e7ff       |    |		Load	0x3,-0x1
17f3 00d9       |    |		Load_Top	At_Offset_1
17f4 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
17f5 e7ff       |    |		Load	0x3,-0x1
17f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
17f7 00d9       |    |		Load_Top	At_Offset_1
17f8 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
17f9 e7ff       |    |		Load	0x3,-0x1
17fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
17fb 00d9       |    |		Load_Top	At_Offset_1
17fc 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
17fd 784f       |xO  |		Jump	0x184d
17fe e7ff       |    |		Load	0x3,-0x1
17ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1800 6814       |h   |		Jump_Zero	0x1815
1801 605a       |`Z  |		Indirect_Literal	Discrete,0x185c,{0x00000000, 0x00320000}
1802 e7ff       |    |		Load	0x3,-0x1
1803 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1804 0271       | q  |		Execute	Discrete,Times
1805 e7ff       |    |		Load	0x3,-0x1
1806 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1807 0270       | p  |		Execute	Discrete,Divide
1808 00d8       |    |		Load_Top	At_Offset_0
1809 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
180a 7002       |p   |		Jump_Nonzero	0x180d
180b 604c       |`L  |		Indirect_Literal	Discrete,0x1858,{0xffffffff, 0xffffc000}
180c 7801       |x   |		Jump	0x180e
180d 6046       |`F  |		Indirect_Literal	Discrete,0x1854,{0x00000000, 0x00004000}
180e 0273       | s  |		Execute	Discrete,Plus
180f 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
1810 00e3       |    |		Load_Encached	Natural_Cache
1811 025e       | ^  |		Execute	Discrete,Convert
1812 00d9       |    |		Load_Top	At_Offset_1
1813 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
1814 7838       |x8  |		Jump	0x184d
1815 e7ff       |    |		Load	0x3,-0x1
1816 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1817 7004       |p   |		Jump_Nonzero	0x181c
1818 4865       |He  |		Short_Literal	0x65
1819 00d9       |    |		Load_Top	At_Offset_1
181a 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
181b 7831       |x1  |		Jump	0x184d
181c 4800       |H   |		Short_Literal	0x0
181d 00d9       |    |		Load_Top	At_Offset_1
181e 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
181f 782d       |x-  |		Jump	0x184d
1820 e7ff       |    |		Load	0x3,-0x1
1821 00d9       |    |		Load_Top	At_Offset_1
1822 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
1823 e7ff       |    |		Load	0x3,-0x1
1824 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1825 00d9       |    |		Load_Top	At_Offset_1
1826 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
1827 e7ff       |    |		Load	0x3,-0x1
1828 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1829 00d9       |    |		Load_Top	At_Offset_1
182a 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
182b 7821       |x!  |		Jump	0x184d
182c e7ff       |    |		Load	0x3,-0x1
182d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
182e 6814       |h   |		Jump_Zero	0x1843
182f 602c       |`,  |		Indirect_Literal	Discrete,0x185c,{0x00000000, 0x00320000}
1830 e7ff       |    |		Load	0x3,-0x1
1831 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1832 0271       | q  |		Execute	Discrete,Times
1833 e7ff       |    |		Load	0x3,-0x1
1834 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1835 0270       | p  |		Execute	Discrete,Divide
1836 00d8       |    |		Load_Top	At_Offset_0
1837 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
1838 7002       |p   |		Jump_Nonzero	0x183b
1839 601e       |`   |		Indirect_Literal	Discrete,0x1858,{0xffffffff, 0xffffc000}
183a 7801       |x   |		Jump	0x183c
183b 6018       |`   |		Indirect_Literal	Discrete,0x1854,{0x00000000, 0x00004000}
183c 0273       | s  |		Execute	Discrete,Plus
183d 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
183e 00e3       |    |		Load_Encached	Natural_Cache
183f 025e       | ^  |		Execute	Discrete,Convert
1840 00d9       |    |		Load_Top	At_Offset_1
1841 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1842 780a       |x   |		Jump	0x184d
1843 e7ff       |    |		Load	0x3,-0x1
1844 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1845 7004       |p   |		Jump_Nonzero	0x184a
1846 4865       |He  |		Short_Literal	0x65
1847 00d9       |    |		Load_Top	At_Offset_1
1848 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1849 7803       |x   |		Jump	0x184d
184a 4800       |H   |		Short_Literal	0x0
184b 00d9       |    |		Load_Top	At_Offset_1
184c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
184d 00d8       |    |		Load_Top	At_Offset_0
184e e808       |    |		Load	0x4,0x8
184f e7fe       |    |		Load	0x3,-0x2
1850 e054       | T  |		Load	0x0,0x54
1851 e246       | F  |		Load	0x1,0x46
1852 0096       |    |		Execute	Package,Entry
1853 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1854 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
1858 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
185c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320000}
1860 ; --------------------------------------------------------------------------------------
1860 ; STRING TABLE
1860 ; --------------------------------------------------------------------------------------
1860 009a       |    |		.STRTAB	0x009a->0x18ad							; "ONE"
1861 009b       |    |		.STRTAB	0x009b->0x18ae							; "TWO"
1862 009c       |    |		.STRTAB	0x009c->0x18b0							; "WORLD"
1863 009f       |    |		.STRTAB	0x009f->0x18b2							; "UNIT"
1864 00a1       |    |		.STRTAB	0x00a1->0x18b4							; "SUBPROGRAM"
1865 00a9       |    |		.STRTAB	0x00a9->0x18b9							; "NONE"
1866 00ab       |    |		.STRTAB	0x00ab->0x18bb							; "ADA"
1867 00ac       |    |		.STRTAB	0x00ac->0x18bd							; "REVERSE_ADA"
1868 00b5       |    |		.STRTAB	0x00b5->0x18c2							; "COVERAGE"
1869 00bb       |    |		.STRTAB	0x00bb->0x18c6							; "REVERSE_COVERAGE"
186a 00c9       |    |		.STRTAB	0x00c9->0x18ce							; "NIL_COL"
186b 00ce       |    |		.STRTAB	0x00ce->0x18d2							; "NAME_COL"
186c 00d4       |    |		.STRTAB	0x00d4->0x18d6							; "PERCENT_COL"
186d 00dd       |    |		.STRTAB	0x00dd->0x18db							; "PER1_COL"
186e 00e3       |    |		.STRTAB	0x00e3->0x18df							; "COV1_COL"
186f 00e9       |    |		.STRTAB	0x00e9->0x18e3							; "PER2_COL"
1870 00ef       |    |		.STRTAB	0x00ef->0x18e7							; "COV2_COL"
1871 00f5       |    |		.STRTAB	0x00f5->0x18eb							; "SEGMENT"
1872 00fa       |    |		.STRTAB	0x00fa->0x18ef							; "DECISION"
1873 0100       |    |		.STRTAB	0x0100->0x18f3							; "NIL_ROW"
1874 0105       |    |		.STRTAB	0x0105->0x18f6							; "TABLE_TITLE_ROW"
1875 0112       |    |		.STRTAB	0x0112->0x18fe							; "COLUMN_TITLE_ROW"
1876 0120       |    |		.STRTAB	0x0120->0x1906							; "WORLD_ROW"
1877 0127       | '  |		.STRTAB	0x0127->0x190a							; "UNIT_ROW"
1878 012d       | -  |		.STRTAB	0x012d->0x190e							; "SUBPROGRAM_ROW"
1879 0139       | 9  |		.STRTAB	0x0139->0x1915							; "BLOCK_ROW"
187a 0140       | @  |		.STRTAB	0x0140->0x191a							; " "
187b 013f       | ?  |		.STRTAB	0x013f->0x191a							; "DIFFERENTIAL COVERAGE: "
187c 0154       | T  |		.STRTAB	0x0154->0x1926							; "     NAME"
187d 015b       | [  |		.STRTAB	0x015b->0x192a							; " COUNTS 1"
187e 0162       | b  |		.STRTAB	0x0162->0x192f							; " % COV 1"
187f 0168       | h  |		.STRTAB	0x0168->0x1933							; " COUNTS 2"
1880 016f       | o  |		.STRTAB	0x016f->0x1937							; " % COV 2"
1881 0175       | u  |		.STRTAB	0x0175->0x193b							; " % DIFF"
1882 017a       | z  |		.STRTAB	0x017a->0x193f							; "on this"
1883 017f       |    |		.STRTAB	0x017f->0x1942							; "Explain"
1884 0184       |    |		.STRTAB	0x0184->0x1946							; "Explanation of coverage by test case"
1885 01a6       |    |		.STRTAB	0x01a6->0x1958							; "Explanation not supported at this position"
1886 01ce       |    |		.STRTAB	0x01ce->0x196d							; "Definition not supported on this "
1887 01ed       |    |		.STRTAB	0x01ed->0x197d							; "Definition not supported at this position"
1888 0214       |    |		.STRTAB	0x0214->0x1992							; "Image is fully elided"
1889 0227       | '  |		.STRTAB	0x0227->0x199c							; "Elision not yet implemented for "
188a 0245       | E  |		.STRTAB	0x0245->0x19ac							; "Image is fully expanded"
188b 025a       | Z  |		.STRTAB	0x025a->0x19b8							; "Expansion not yet implemented for "
188c 027a       | z  |		.STRTAB	0x027a->0x19c9							; "Promote"
188d 027f       |    |		.STRTAB	0x027f->0x19cc							; "Demote"
188e 0283       |    |		.STRTAB	0x0283->0x19cf							; "Delete requires a selected line"
188f 02a0       |    |		.STRTAB	0x02a0->0x19df							; "No operation defined for value "
1890 02bd       |    |		.STRTAB	0x02bd->0x19ee							; "Filter"
1891 02c1       |    |		.STRTAB	0x02c1->0x19f1							; "Show_Differential"
1892 02d0       |    |		.STRTAB	0x02d0->0x19fa							; "Generate_Test_Set"
1893 02df       |    |		.STRTAB	0x02df->0x1a02							; " ("
1894 02df       |    |		.STRTAB	0x02df->0x1a03							; "S) by "
1895 02e3       |    |		.STRTAB	0x02e3->0x1a06							; "diff: "
1896 02e7       |    |		.STRTAB	0x02e7->0x1a09							; " & "
1897 02e8       |    |		.STRTAB	0x02e8->0x1a0b							; " (1) AND "
1898 02ef       |    |		.STRTAB	0x02ef->0x1a0f							; " (2)"
1899 02f1       |    |		.STRTAB	0x02f1->0x1a11							; "~"
189a 02f0       |    |		.STRTAB	0x02f0->0x1a12							; "  "
189b 02f0       |    |		.STRTAB	0x02f0->0x1a13							; "    "
189c 02f2       |    |		.STRTAB	0x02f2->0x1a15							; "  -"
189d 02f3       |    |		.STRTAB	0x02f3->0x1a16							; "Deletion is not supported for coverage images"
189e 031e       |    |		.STRTAB	0x031e->0x1a2d							; "Delete not defined for this line"
189f 033c       | <  |		.STRTAB	0x033c->0x1a3d							; "<DEFAULT>"
18a0 0343       | C  |		.STRTAB	0x0343->0x1a41							; "block"
18a1 0346       | F  |		.STRTAB	0x0346->0x1a44							; "world"
18a2 0349       | I  |		.STRTAB	0x0349->0x1a46							; "unit"
18a3 034b       | K  |		.STRTAB	0x034b->0x1a48							; "subprogram"
18a4 0353       | S  |		.STRTAB	0x0353->0x1a4d							; "table title"
18a5 035c       | \  |		.STRTAB	0x035c->0x1a53							; "column title"
18a6 0366       | f  |		.STRTAB	0x0366->0x1a59							; "nil"
18a7 0367       | g  |		.STRTAB	0x0367->0x1a5a							; "No "
18a8 0368       | h  |		.STRTAB	0x0368->0x1a5c							; " coverage data is available for that selection"
18a9 0394       |    |		.STRTAB	0x0394->0x1a73							; "No missed segments for this "
18aa 03ae       |    |		.STRTAB	0x03ae->0x1a81							; "No decisions exist for this "
18ab 03c8       |    |		.STRTAB	0x03c8->0x1a8f							; "No missed decisions for this "
18ac 03e3       |    |		.STREND 0x03e3->0x1a9d
18ad 4f4e 4554  |ONET|		.STRTAB_STRINGS
1a9e 0000 0000  |    |		.XXX[0x2]
1aa0 ; --------------------------------------------------------------------------------------
1aa0 ; Debug Table
1aa0 ; --------------------------------------------------------------------------------------
1aa0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x764b,0x0000,0x0001,0x0000
1aa6 0000 0000  |    |		.BLANK	0000[0x15a]