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

⟦2e827c7a3⟧

    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 1a10       |    |		.CONST	0x1a10								; 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 0206       |    |		.CONST	0x0206								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0079       | y  |		.CONST	0x0079								; Number of locals
000b			INIT_0008:
000b 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
000d 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
000f 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0011 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0013 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0015 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0017 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0019 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
001b 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
001d 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
001f 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0021 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
0023 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
0025 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
0027 029a 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Visible,Unelaborated
0029 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
002b 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
002d 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
002f 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
0031 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
0033 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
0035 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
0037 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0039 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
003b 029a 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call,Visible,Unelaborated
003d 029a 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Visible,Unelaborated
003f 029a 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call,Visible,Unelaborated
0041 029a 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Visible,Unelaborated
0043 029a 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Visible,Unelaborated
0045 029a 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Outer_Call,Visible,Unelaborated
0047 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0048 00d8       |    |		Load_Top	At_Offset_0
0049 02a0       |    |		Declare_Subprogram	Null_Subprogram
004a 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
004b 4802       |H   |		Short_Literal	0x2
004c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
004d 00d8       |    |		Load_Top	At_Offset_0
004e 02a0       |    |		Declare_Subprogram	Null_Subprogram
004f 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0050 4804       |H   |		Short_Literal	0x4
0051 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0052 00d8       |    |		Load_Top	At_Offset_0
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0055 00bf       |    |		Action	Accept_Activation
0056 0093 0000  |    |		push_full_address	0x0
0058 6217       |b   |		Indirect_Literal	Discrete,0x270,{0x80000000, 0x00060000}
0059 0273       | s  |		Execute	Discrete,Plus
005a e20d       |    |		Load	0x1,0xd
005b 6210       |b   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
005c 0279       | y  |		Execute	Discrete,And
005d 0273       | s  |		Execute	Discrete,Plus
005e e002       |    |		Load	0x0,0x2
005f 0273       | s  |		Execute	Discrete,Plus
0060 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0061 e003       |    |		Load	0x0,0x3
0062 0387       |    |		Declare_Variable	Package
0063 00d8       |    |		Load_Top	At_Offset_0
0064 020f       |    |		Execute	Module,Activate
0065 4800       |H   |		Short_Literal	0x0
0066 4802       |H   |		Short_Literal	0x2
0067 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
0069 03fd       |    |		Declare_Type	Discrete,Defined
006a 4800       |H   |		Short_Literal	0x0
006b 4804       |H   |		Short_Literal	0x4
006c 029f 06db  |    |		Declare_Subprogram	INIT_06d8,For_Call
006e 03fd       |    |		Declare_Type	Discrete,Defined
006f 4800       |H   |		Short_Literal	0x0
0070 4803       |H   |		Short_Literal	0x3
0071 029f 0703  |    |		Declare_Subprogram	INIT_0700,For_Call
0073 03fd       |    |		Declare_Type	Discrete,Defined
0074 4800       |H   |		Short_Literal	0x0
0075 4801       |H   |		Short_Literal	0x1
0076 029f 072b  |   +|		Declare_Subprogram	INIT_0728,For_Call
0078 03fd       |    |		Declare_Type	Discrete,Defined
0079 4800       |H   |		Short_Literal	0x0
007a 4802       |H   |		Short_Literal	0x2
007b 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call
007d 03fd       |    |		Declare_Type	Discrete,Defined
007e e004       |    |		Load	0x0,0x4
007f 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0080 e235       | 5  |		Load	0x1,0x35
0081 e234       | 4  |		Load	0x1,0x34
0082 e237       | 7  |		Load	0x1,0x37
0083 e005       |    |		Load	0x0,0x5
0084 e238       | 8  |		Load	0x1,0x38
0085 e005       |    |		Load	0x0,0x5
0086 e006       |    |		Load	0x0,0x6
0087 e005       |    |		Load	0x0,0x5
0088 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
008a 4809       |H   |		Short_Literal	0x9
008b 032d       | -  |		Declare_Type	Record,Defined
008c 00d8       |    |		Load_Top	At_Offset_0
008d 0322       | "  |		Declare_Variable	Record
008e 00d8       |    |		Load_Top	At_Offset_0
008f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0090 029b 078b  |    |		Declare_Subprogram	INIT_0788,For_Outer_Call,Unelaborated
0092 4800       |H   |		Short_Literal	0x0
0093 4806       |H   |		Short_Literal	0x6
0094 029f 0793  |    |		Declare_Subprogram	INIT_0790,For_Call
0096 03fd       |    |		Declare_Type	Discrete,Defined
0097 00e3       |    |		Load_Encached	Natural_Cache
0098 00e3       |    |		Load_Encached	Natural_Cache
0099 00e3       |    |		Load_Encached	Natural_Cache
009a 00e3       |    |		Load_Encached	Natural_Cache
009b 02a0       |    |		Declare_Subprogram	Null_Subprogram
009c 4804       |H   |		Short_Literal	0x4
009d 032d       | -  |		Declare_Type	Record,Defined
009e 00d9       |    |		Load_Top	At_Offset_1
009f 00e1       |    |		Load_Encached	Boolean_Cache
00a0 e230       | 0  |		Load	0x1,0x30
00a1 029f 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Call
00a3 4800       |H   |		Short_Literal	0x0
00a4 4802       |H   |		Short_Literal	0x2
00a5 4800       |H   |		Short_Literal	0x0
00a6 4800       |H   |		Short_Literal	0x0
00a7 4801       |H   |		Short_Literal	0x1
00a8 031d       |    |		Declare_Type	Variant_Record,Defined
00a9 4800       |H   |		Short_Literal	0x0
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ae 029b 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call,Unelaborated
00b0 e236       | 6  |		Load	0x1,0x36
00b1 e23c       | <  |		Load	0x1,0x3c
00b2 4801       |H   |		Short_Literal	0x1
00b3 e005       |    |		Load	0x0,0x5
00b4 4801       |H   |		Short_Literal	0x1
00b5 00e3       |    |		Load_Encached	Natural_Cache
00b6 4803       |H   |		Short_Literal	0x3
00b7 e23d       | =  |		Load	0x1,0x3d
00b8 00e3       |    |		Load_Encached	Natural_Cache
00b9 00e3       |    |		Load_Encached	Natural_Cache
00ba 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
00bc 4805       |H   |		Short_Literal	0x5
00bd 4801       |H   |		Short_Literal	0x1
00be 4803       |H   |		Short_Literal	0x3
00bf 4800       |H   |		Short_Literal	0x0
00c0 4801       |H   |		Short_Literal	0x1
00c1 031d       |    |		Declare_Type	Variant_Record,Defined
00c2 4800       |H   |		Short_Literal	0x0
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c5 029b 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Unelaborated
00c7 029b 0863  |   c|		Declare_Subprogram	INIT_0860,For_Outer_Call,Unelaborated
00c9 029b 087b  |   {|		Declare_Subprogram	INIT_0878,For_Outer_Call,Unelaborated
00cb 029b 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Unelaborated
00cd 029b 0893  |    |		Declare_Subprogram	INIT_0890,For_Outer_Call,Unelaborated
00cf 0093 0000  |    |		push_full_address	0x0
00d1 6196       |a   |		Indirect_Literal	Discrete,0x268,{0x80000000, 0x00050000}
00d2 0273       | s  |		Execute	Discrete,Plus
00d3 e20d       |    |		Load	0x1,0xd
00d4 6197       |a   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
00d5 0279       | y  |		Execute	Discrete,And
00d6 0273       | s  |		Execute	Discrete,Plus
00d7 e007       |    |		Load	0x0,0x7
00d8 0273       | s  |		Execute	Discrete,Plus
00d9 e236       | 6  |		Load	0x1,0x36
00da e239       | 9  |		Load	0x1,0x39
00db e23a       | :  |		Load	0x1,0x3a
00dc 0320       |    |		Declare_Variable	Record,Duplicate
00dd 00cd       |    |		Action	Spare6_Action
00de 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
00df 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
00e0 e23e       | >  |		Load	0x1,0x3e
00e1 e23f       | ?  |		Load	0x1,0x3f
00e2 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
00e3 00cd       |    |		Action	Spare6_Action
00e4 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00e5 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
00e6 e241       | A  |		Load	0x1,0x41
00e7 e242       | B  |		Load	0x1,0x42
00e8 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
00e9 00cd       |    |		Action	Spare6_Action
00ea 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
00eb 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
00ec 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00ed 0092 1830  |   0|		Action	Push_String_Extended,0x1830					; " "
00ef e008       |    |		Load	0x0,0x8
00f0 0387       |    |		Declare_Variable	Package
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 020f       |    |		Execute	Module,Activate
00f3 e009       |    |		Load	0x0,0x9
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 0098       |    |		Execute	Package,Field_Read_Dynamic
00f6 e22d       | -  |		Load	0x1,0x2d
00f7 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
00f8 e00a       |    |		Load	0x0,0xa
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 0098       |    |		Execute	Package,Field_Read_Dynamic
00fb e22f       | /  |		Load	0x1,0x2f
00fc 0325       | %  |		Complete_Type	Record,By_Renaming
00fd e230       | 0  |		Load	0x1,0x30
00fe 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
00ff e00b       |    |		Load	0x0,0xb
0100 00d9       |    |		Load_Top	At_Offset_1
0101 0098       |    |		Execute	Package,Field_Read_Dynamic
0102 e231       | 1  |		Load	0x1,0x31
0103 0325       | %  |		Complete_Type	Record,By_Renaming
0104 e232       | 2  |		Load	0x1,0x32
0105 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
0106 e00c       |    |		Load	0x0,0xc
0107 00d9       |    |		Load_Top	At_Offset_1
0108 0098       |    |		Execute	Package,Field_Read_Dynamic
0109 0337       | 7  |		Declare_Variable	Array
010a 00d8       |    |		Load_Top	At_Offset_0
010b 0335       | 5  |		Declare_Variable	Array,Duplicate
010c 00cd       |    |		Action	Spare6_Action
010d 4800       |H   |		Short_Literal	0x0
010e 4800       |H   |		Short_Literal	0x0
010f 00da       |    |		Load_Top	At_Offset_2
0110 01d6       |    |		Execute	Vector,Field_Write
0111 4835       |H5  |		Short_Literal	0x35
0112 4801       |H   |		Short_Literal	0x1
0113 00da       |    |		Load_Top	At_Offset_2
0114 01d6       |    |		Execute	Vector,Field_Write
0115 480a       |H   |		Short_Literal	0xa
0116 4802       |H   |		Short_Literal	0x2
0117 00da       |    |		Load_Top	At_Offset_2
0118 01d6       |    |		Execute	Vector,Field_Write
0119 480f       |H   |		Short_Literal	0xf
011a 4803       |H   |		Short_Literal	0x3
011b 00da       |    |		Load_Top	At_Offset_2
011c 01d6       |    |		Execute	Vector,Field_Write
011d 00d9       |    |		Load_Top	At_Offset_1
011e 01d4       |    |		Execute	Vector,Structure_Write
011f 00ea       |    |		Load_Encached	Null_String_Cache
0120 0092 1831  |   1|		Action	Push_String_Extended,0x1831					; "      NAME"
0122 0092 1832  |   2|		Action	Push_String_Extended,0x1832					; "    COVERAGE"
0124 0092 1833  |   3|		Action	Push_String_Extended,0x1833					; "  % COV"
0126 4801       |H   |		Short_Literal	0x1
0127 4850       |HP  |		Short_Literal	0x50
0128 00e9       |    |		Load_Encached	String_Cache
0129 035b       | [  |		Declare_Type	Array,Constrained
012a 0337       | 7  |		Declare_Variable	Array
012b 4850       |HP  |		Short_Literal	0x50
012c 4801       |H   |		Short_Literal	0x1
012d 482d       |H-  |		Short_Literal	0x2d
012e 00d9       |    |		Load_Top	At_Offset_1
012f e24e       | N  |		Load	0x1,0x4e
0130 01d6       |    |		Execute	Vector,Field_Write
0131 3ffb       |?   |		Loop_Increasing	0x12d
0132 e00d       |    |		Load	0x0,0xd
0133 0007       |    |		Action	Break_Optional
0134 029b 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call,Unelaborated
0136 029b 09ab  |    |		Declare_Subprogram	INIT_09a8,For_Outer_Call,Unelaborated
0138 029d 09cb  |    |		Declare_Subprogram	INIT_09c8,For_Outer_Call
013a 029b 0a5b  |   [|		Declare_Subprogram	INIT_0a58,For_Outer_Call,Unelaborated
013c 029d 0a93  |    |		Declare_Subprogram	INIT_0a90,For_Outer_Call
013e 029d 0abb  |    |		Declare_Subprogram	INIT_0ab8,For_Outer_Call
0140 029d 0ad3  |    |		Declare_Subprogram	INIT_0ad0,For_Outer_Call
0142 029d 0b0b  |    |		Declare_Subprogram	INIT_0b08,For_Outer_Call
0144 029d 0b23  |   #|		Declare_Subprogram	INIT_0b20,For_Outer_Call
0146 029d 0b3b  |   ;|		Declare_Subprogram	INIT_0b38,For_Outer_Call
0148 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 029d 0b4b  |   K|		Declare_Subprogram	INIT_0b48,For_Outer_Call
014e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 029b 0b5b  |   [|		Declare_Subprogram	INIT_0b58,For_Outer_Call,Unelaborated
015c 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 029d 0bc3  |    |		Declare_Subprogram	INIT_0bc0,For_Outer_Call
0170 029d 0bd3  |    |		Declare_Subprogram	INIT_0bd0,For_Outer_Call
0172 029d 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Outer_Call
0174 029d 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Outer_Call
0176 029d 0c3b  |   ;|		Declare_Subprogram	INIT_0c38,For_Outer_Call
0178 029d 0c5b  |   [|		Declare_Subprogram	INIT_0c58,For_Outer_Call
017a 029d 0c83  |    |		Declare_Subprogram	INIT_0c80,For_Outer_Call
017c 029d 0ca3  |    |		Declare_Subprogram	INIT_0ca0,For_Outer_Call
017e 029d 0cc3  |    |		Declare_Subprogram	INIT_0cc0,For_Outer_Call
0180 029d 0ce3  |    |		Declare_Subprogram	INIT_0ce0,For_Outer_Call
0182 029d 0d03  |    |		Declare_Subprogram	INIT_0d00,For_Outer_Call
0184 029d 0d23  |   #|		Declare_Subprogram	INIT_0d20,For_Outer_Call
0186 029d 0d5b  |   [|		Declare_Subprogram	INIT_0d58,For_Outer_Call
0188 029d 0d93  |    |		Declare_Subprogram	INIT_0d90,For_Outer_Call
018a 029d 0e3b  |   ;|		Declare_Subprogram	INIT_0e38,For_Outer_Call
018c e00e       |    |		Load	0x0,0xe
018d e248       | H  |		Load	0x1,0x48
018e 0095       |    |		Execute	Package,Field_Reference_Dynamic
018f 00c6       |    |		Action	Check_Subprogram_Elaborated
0190 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
0191 0093 0000  |    |		push_full_address	0x0
0193 60d0       |`   |		Indirect_Literal	Discrete,0x264,{0x80000000, 0x00040000}
0194 0273       | s  |		Execute	Discrete,Plus
0195 e20d       |    |		Load	0x1,0xd
0196 60d5       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
0197 0279       | y  |		Execute	Discrete,And
0198 0273       | s  |		Execute	Discrete,Plus
0199 e00f       |    |		Load	0x0,0xf
019a 0273       | s  |		Execute	Discrete,Plus
019b 4800       |H   |		Short_Literal	0x0
019c 0007       |    |		Action	Break_Optional
019d e00e       |    |		Load	0x0,0xe
019e e248       | H  |		Load	0x1,0x48
019f 0095       |    |		Execute	Package,Field_Reference_Dynamic
01a0 00c6       |    |		Action	Check_Subprogram_Elaborated
01a1 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
01a2 0093 0000  |    |		push_full_address	0x0
01a4 60bb       |`   |		Indirect_Literal	Discrete,0x260,{0x80000000, 0x00030000}
01a5 0273       | s  |		Execute	Discrete,Plus
01a6 e20d       |    |		Load	0x1,0xd
01a7 60c4       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
01a8 0279       | y  |		Execute	Discrete,And
01a9 0273       | s  |		Execute	Discrete,Plus
01aa e010       |    |		Load	0x0,0x10
01ab 0273       | s  |		Execute	Discrete,Plus
01ac 4800       |H   |		Short_Literal	0x0
01ad 0007       |    |		Action	Break_Optional
01ae e00e       |    |		Load	0x0,0xe
01af e248       | H  |		Load	0x1,0x48
01b0 0095       |    |		Execute	Package,Field_Reference_Dynamic
01b1 00c6       |    |		Action	Check_Subprogram_Elaborated
01b2 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
01b3 0093 0000  |    |		push_full_address	0x0
01b5 60a6       |`   |		Indirect_Literal	Discrete,0x25c,{0x80000000, 0x00020000}
01b6 0273       | s  |		Execute	Discrete,Plus
01b7 e20d       |    |		Load	0x1,0xd
01b8 60b3       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
01b9 0279       | y  |		Execute	Discrete,And
01ba 0273       | s  |		Execute	Discrete,Plus
01bb e011       |    |		Load	0x0,0x11
01bc 0273       | s  |		Execute	Discrete,Plus
01bd 4800       |H   |		Short_Literal	0x0
01be 0007       |    |		Action	Break_Optional
01bf e00e       |    |		Load	0x0,0xe
01c0 e248       | H  |		Load	0x1,0x48
01c1 0095       |    |		Execute	Package,Field_Reference_Dynamic
01c2 00c6       |    |		Action	Check_Subprogram_Elaborated
01c3 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
01c4 0093 0000  |    |		push_full_address	0x0
01c6 6091       |`   |		Indirect_Literal	Discrete,0x258,{0x80000000, 0x00010000}
01c7 0273       | s  |		Execute	Discrete,Plus
01c8 e20d       |    |		Load	0x1,0xd
01c9 60a2       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000ffff}
01ca 0279       | y  |		Execute	Discrete,And
01cb 0273       | s  |		Execute	Discrete,Plus
01cc e012       |    |		Load	0x0,0x12
01cd 0273       | s  |		Execute	Discrete,Plus
01ce 4800       |H   |		Short_Literal	0x0
01cf 0007       |    |		Action	Break_Optional
01d0 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
01d1 00c7       |    |		Action	Elaborate_Subprogram
01d2 029d 0ee3  |    |		Declare_Subprogram	INIT_0ee0,For_Outer_Call
01d4 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
01d5 00c7       |    |		Action	Elaborate_Subprogram
01d6 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
01d7 00c7       |    |		Action	Elaborate_Subprogram
01d8 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
01d9 00c7       |    |		Action	Elaborate_Subprogram
01da 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
01db 00c7       |    |		Action	Elaborate_Subprogram
01dc 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
01dd 00c7       |    |		Action	Elaborate_Subprogram
01de 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
01df 00c7       |    |		Action	Elaborate_Subprogram
01e0 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
01e1 00c7       |    |		Action	Elaborate_Subprogram
01e2 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
01e3 00c7       |    |		Action	Elaborate_Subprogram
01e4 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
01e5 00c7       |    |		Action	Elaborate_Subprogram
01e6 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01e7 00c7       |    |		Action	Elaborate_Subprogram
01e8 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
01e9 00c7       |    |		Action	Elaborate_Subprogram
01ea 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
01eb 00c7       |    |		Action	Elaborate_Subprogram
01ec 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
01ed 00c7       |    |		Action	Elaborate_Subprogram
01ee 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01ef 00c7       |    |		Action	Elaborate_Subprogram
01f0 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
01f1 00c7       |    |		Action	Elaborate_Subprogram
01f2 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
01f3 00c7       |    |		Action	Elaborate_Subprogram
01f4 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
01f5 00c7       |    |		Action	Elaborate_Subprogram
01f6 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01f7 00c7       |    |		Action	Elaborate_Subprogram
01f8 029d 0f03  |    |		Declare_Subprogram	INIT_0f00,For_Outer_Call
01fa 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
01fb 00c7       |    |		Action	Elaborate_Subprogram
01fc 029d 0f1b  |    |		Declare_Subprogram	INIT_0f18,For_Outer_Call
01fe 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
01ff 00c7       |    |		Action	Elaborate_Subprogram
0200 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0201 00c7       |    |		Action	Elaborate_Subprogram
0202 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0203 00c7       |    |		Action	Elaborate_Subprogram
0204 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0205 00c7       |    |		Action	Elaborate_Subprogram
0206			BODY_0008:
0206 00bc       |    |		Action	Signal_Activated
0207 00bb       |    |		Action	Signal_Completion
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021b       |    |		.CONST	0x021b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0007       |    |		.CONST	0x0007								; Number of locals
020b			INIT_0208:
020b e22e       | .  |		Load	0x1,0x2e
020c 0007       |    |		Action	Break_Optional
020d e005       |    |		Load	0x0,0x5
020e e5ff       |    |		Load	0x2,-0x1
020f 8013       |    |		Call	0x0,0x13
0210 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0211 e005       |    |		Load	0x0,0x5
0212 0007       |    |		Action	Break_Optional
0213 e014       |    |		Load	0x0,0x14
0214 0007       |    |		Action	Break_Optional
0215 e00a       |    |		Load	0x0,0xa
0216 e248       | H  |		Load	0x1,0x48
0217 0098       |    |		Execute	Package,Field_Read_Dynamic
0218 0322       | "  |		Declare_Variable	Record
0219 e237       | 7  |		Load	0x1,0x37
021a 0007       |    |		Action	Break_Optional
021b			BODY_0208:
021b e5fd       |    |		Load	0x2,-0x3
021c e015       |    |		Load	0x0,0x15
021d e248       | H  |		Load	0x1,0x48
021e 0096       |    |		Execute	Package,Entry
021f e22e       | .  |		Load	0x1,0x2e
0220 e5fd       |    |		Load	0x2,-0x3
0221 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0222 a402       |    |		Store_Unchecked	0x2,0x2
0223 e5fd       |    |		Load	0x2,-0x3
0224 e403       |    |		Load	0x2,0x3
0225 8016       |    |		Call	0x0,0x16
0226 8017       |    |		Call	0x0,0x17
0227 a404       |    |		Store_Unchecked	0x2,0x4
0228 00d9       |    |		Load_Top	At_Offset_1
0229 e402       |    |		Load	0x2,0x2
022a e5fd       |    |		Load	0x2,-0x3
022b 8018       |    |		Call	0x0,0x18
022c e404       |    |		Load	0x2,0x4
022d 8252       | R  |		Call	0x1,0x52
022e c402       |    |		Store	0x2,0x2
022f 00d1       |    |		Pop_Control	Pop_Count_1
0230 e5fd       |    |		Load	0x2,-0x3
0231 8019       |    |		Call	0x0,0x19
0232 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0233 00da       |    |		Load_Top	At_Offset_2
0234 e5fd       |    |		Load	0x2,-0x3
0235 e5ff       |    |		Load	0x2,-0x1
0236 801a       |    |		Call	0x0,0x1a
0237 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0238 00d8       |    |		Load_Top	At_Offset_0
0239 00db       |    |		Load_Top	At_Offset_3
023a 8259       | Y  |		Call	0x1,0x59
023b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
023c 00da       |    |		Load_Top	At_Offset_2
023d 8018       |    |		Call	0x0,0x18
023e e5fd       |    |		Load	0x2,-0x3
023f 4800       |H   |		Short_Literal	0x0
0240 4800       |H   |		Short_Literal	0x0
0241 e406       |    |		Load	0x2,0x6
0242 e402       |    |		Load	0x2,0x2
0243 8250       | P  |		Call	0x1,0x50
0244 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0245 00da       |    |		Load_Top	At_Offset_2
0246 e402       |    |		Load	0x2,0x2
0247 e5fd       |    |		Load	0x2,-0x3
0248 e403       |    |		Load	0x2,0x3
0249 8256       | V  |		Call	0x1,0x56
024a c402       |    |		Store	0x2,0x2
024b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
024c e402       |    |		Load	0x2,0x2
024d 00d9       |    |		Load_Top	At_Offset_1
024e 8254       | T  |		Call	0x1,0x54
024f c402       |    |		Store	0x2,0x2
0250 e402       |    |		Load	0x2,0x2
0251 4801       |H   |		Short_Literal	0x1
0252 8257       | W  |		Call	0x1,0x57
0253 c402       |    |		Store	0x2,0x2
0254 e402       |    |		Load	0x2,0x2
0255 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0256 0000 0000  |    |		.XXX[0x2]
0258 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
025c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0260 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0264 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0268 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
026c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0270 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0292       |    |		.CONST	0x0292								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 000c       |    |		.CONST	0x000c								; Number of locals
027b			INIT_0278:
027b e22e       | .  |		Load	0x1,0x2e
027c 0007       |    |		Action	Break_Optional
027d e01b       |    |		Load	0x0,0x1b
027e 0007       |    |		Action	Break_Optional
027f e014       |    |		Load	0x0,0x14
0280 0007       |    |		Action	Break_Optional
0281 e005       |    |		Load	0x0,0x5
0282 0007       |    |		Action	Break_Optional
0283 e00a       |    |		Load	0x0,0xa
0284 e248       | H  |		Load	0x1,0x48
0285 0098       |    |		Execute	Package,Field_Read_Dynamic
0286 0322       | "  |		Declare_Variable	Record
0287 00e1       |    |		Load_Encached	Boolean_Cache
0288 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0289 e006       |    |		Load	0x0,0x6
028a 0007       |    |		Action	Break_Optional
028b 00e1       |    |		Load_Encached	Boolean_Cache
028c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
028d e237       | 7  |		Load	0x1,0x37
028e 029f 0f5b  |   [|		Declare_Subprogram	INIT_0f58,For_Call
0290 029f 0fa3  |    |		Declare_Subprogram	INIT_0fa0,For_Call
0292			BODY_0278:
0292 e5fd       |    |		Load	0x2,-0x3
0293 e015       |    |		Load	0x0,0x15
0294 e248       | H  |		Load	0x1,0x48
0295 0096       |    |		Execute	Package,Entry
0296 e22e       | .  |		Load	0x1,0x2e
0297 e5fd       |    |		Load	0x2,-0x3
0298 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0299 a402       |    |		Store_Unchecked	0x2,0x2
029a e5fd       |    |		Load	0x2,-0x3
029b e5ff       |    |		Load	0x2,-0x1
029c 801c       |    |		Call	0x0,0x1c
029d 8017       |    |		Call	0x0,0x17
029e a405       |    |		Store_Unchecked	0x2,0x5
029f e406       |    |		Load	0x2,0x6
02a0 e402       |    |		Load	0x2,0x2
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 8018       |    |		Call	0x0,0x18
02a3 e405       |    |		Load	0x2,0x5
02a4 8252       | R  |		Call	0x1,0x52
02a5 c402       |    |		Store	0x2,0x2
02a6 00d1       |    |		Pop_Control	Pop_Count_1
02a7 e5fd       |    |		Load	0x2,-0x3
02a8 801d       |    |		Call	0x0,0x1d
02a9 a24f       | O  |		Store_Unchecked	0x1,0x4f
02aa e01b       |    |		Load	0x0,0x1b
02ab e5ff       |    |		Load	0x2,-0x1
02ac 801e       |    |		Call	0x0,0x1e
02ad c403       |    |		Store	0x2,0x3
02ae 00cf       |    |		Action	Mark_Auxiliary
02af 7802       |x   |		Jump	0x2b2
02b0 840b       |    |		Call	0x2,0xb
02b1 00c9       |    |		Action	Pop_Auxiliary_Loop
02b2 e403       |    |		Load	0x2,0x3
02b3 801f       |    |		Call	0x0,0x1f
02b4 6ffb       |o   |		Jump_Zero	0x2b0
02b5 00ce       |    |		Action	Pop_Auxiliary
02b6 e408       |    |		Load	0x2,0x8
02b7 e402       |    |		Load	0x2,0x2
02b8 8255       | U  |		Call	0x1,0x55
02b9 c402       |    |		Store	0x2,0x2
02ba c408       |    |		Store	0x2,0x8
02bb e402       |    |		Load	0x2,0x2
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 8254       | T  |		Call	0x1,0x54
02be c402       |    |		Store	0x2,0x2
02bf e402       |    |		Load	0x2,0x2
02c0 4800       |H   |		Short_Literal	0x0
02c1 8257       | W  |		Call	0x1,0x57
02c2 c402       |    |		Store	0x2,0x2
02c3 840c       |    |		Call	0x2,0xc
02c4 e402       |    |		Load	0x2,0x2
02c5 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02c6 0000 0000  |    |		.XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02e2       |    |		.CONST	0x02e2								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 000a       |    |		.CONST	0x000a								; Number of locals
02cb			INIT_02c8:
02cb e22e       | .  |		Load	0x1,0x2e
02cc 0007       |    |		Action	Break_Optional
02cd e014       |    |		Load	0x0,0x14
02ce 0007       |    |		Action	Break_Optional
02cf e005       |    |		Load	0x0,0x5
02d0 0007       |    |		Action	Break_Optional
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 0007       |    |		Action	Break_Optional
02d3 e020       |    |		Load	0x0,0x20
02d4 02ff       |    |		Declare_Variable	Variant_Record
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d7 e00a       |    |		Load	0x0,0xa
02d8 e248       | H  |		Load	0x1,0x48
02d9 0098       |    |		Execute	Package,Field_Read_Dynamic
02da 0322       | "  |		Declare_Variable	Record
02db e005       |    |		Load	0x0,0x5
02dc e5ff       |    |		Load	0x2,-0x1
02dd 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02de 00d8       |    |		Load_Top	At_Offset_0
02df 8016       |    |		Call	0x0,0x16
02e0 e237       | 7  |		Load	0x1,0x37
02e1 0007       |    |		Action	Break_Optional
02e2			BODY_02c8:
02e2 e5fc       |    |		Load	0x2,-0x4
02e3 e015       |    |		Load	0x0,0x15
02e4 e248       | H  |		Load	0x1,0x48
02e5 0096       |    |		Execute	Package,Entry
02e6 e22e       | .  |		Load	0x1,0x2e
02e7 e5fc       |    |		Load	0x2,-0x4
02e8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02e9 a402       |    |		Store_Unchecked	0x2,0x2
02ea e405       |    |		Load	0x2,0x5
02eb e5fc       |    |		Load	0x2,-0x4
02ec e5fe       |    |		Load	0x2,-0x2
02ed 8021       | !  |		Call	0x0,0x21
02ee 8022       | "  |		Call	0x0,0x22
02ef c405       |    |		Store	0x2,0x5
02f0 e5fc       |    |		Load	0x2,-0x4
02f1 482e       |H.  |		Short_Literal	0x2e
02f2 e405       |    |		Load	0x2,0x5
02f3 8016       |    |		Call	0x0,0x16
02f4 01cb       |    |		Execute	Vector,Append
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 01cc       |    |		Execute	Vector,Catenate
02f7 8017       |    |		Call	0x0,0x17
02f8 a404       |    |		Store_Unchecked	0x2,0x4
02f9 e5fc       |    |		Load	0x2,-0x4
02fa 4800       |H   |		Short_Literal	0x0
02fb e405       |    |		Load	0x2,0x5
02fc 8023       | #  |		Call	0x0,0x23
02fd e406       |    |		Load	0x2,0x6
02fe 016d       | m  |		Execute	Variant_Record,Structure_Write
02ff e406       |    |		Load	0x2,0x6
0300 00db       |    |		Load_Top	At_Offset_3
0301 8024       | $  |		Call	0x0,0x24
0302 00d1       |    |		Pop_Control	Pop_Count_1
0303 00db       |    |		Load_Top	At_Offset_3
0304 e402       |    |		Load	0x2,0x2
0305 e5fc       |    |		Load	0x2,-0x4
0306 e408       |    |		Load	0x2,0x8
0307 e404       |    |		Load	0x2,0x4
0308 8252       | R  |		Call	0x1,0x52
0309 c402       |    |		Store	0x2,0x2
030a 00d1       |    |		Pop_Control	Pop_Count_1
030b e5fc       |    |		Load	0x2,-0x4
030c 8019       |    |		Call	0x0,0x19
030d a403       |    |		Store_Unchecked	0x2,0x3
030e e403       |    |		Load	0x2,0x3
030f e5fc       |    |		Load	0x2,-0x4
0310 e406       |    |		Load	0x2,0x6
0311 801a       |    |		Call	0x0,0x1a
0312 c403       |    |		Store	0x2,0x3
0313 00d8       |    |		Load_Top	At_Offset_0
0314 e403       |    |		Load	0x2,0x3
0315 8259       | Y  |		Call	0x1,0x59
0316 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0317 e403       |    |		Load	0x2,0x3
0318 00db       |    |		Load_Top	At_Offset_3
0319 e5fc       |    |		Load	0x2,-0x4
031a 4800       |H   |		Short_Literal	0x0
031b 4800       |H   |		Short_Literal	0x0
031c e407       |    |		Load	0x2,0x7
031d e402       |    |		Load	0x2,0x2
031e 8250       | P  |		Call	0x1,0x50
031f c403       |    |		Store	0x2,0x3
0320 e403       |    |		Load	0x2,0x3
0321 e402       |    |		Load	0x2,0x2
0322 e5fc       |    |		Load	0x2,-0x4
0323 e405       |    |		Load	0x2,0x5
0324 8256       | V  |		Call	0x1,0x56
0325 c402       |    |		Store	0x2,0x2
0326 c403       |    |		Store	0x2,0x3
0327 e402       |    |		Load	0x2,0x2
0328 00d9       |    |		Load_Top	At_Offset_1
0329 8254       | T  |		Call	0x1,0x54
032a c402       |    |		Store	0x2,0x2
032b e402       |    |		Load	0x2,0x2
032c 4802       |H   |		Short_Literal	0x2
032d 8257       | W  |		Call	0x1,0x57
032e c402       |    |		Store	0x2,0x2
032f e402       |    |		Load	0x2,0x2
0330 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034f       | O  |		.CONST	0x034f								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0004       |    |		.CONST	0x0004								; Number of locals
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 0219       |    |		Execute	Heap_Access,All_Read
0345 e025       | %  |		Load	0x0,0x25
0346 e248       | H  |		Load	0x1,0x48
0347 0096       |    |		Execute	Package,Entry
0348 4801       |H   |		Short_Literal	0x1
0349 e026       | &  |		Load	0x0,0x26
034a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
034b 00d8       |    |		Load_Top	At_Offset_0
034c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
034d e005       |    |		Load	0x0,0x5
034e 0007       |    |		Action	Break_Optional
034f			BODY_0340:
034f 00da       |    |		Load_Top	At_Offset_2
0350 4801       |H   |		Short_Literal	0x1
0351 8027       | '  |		Call	0x0,0x27
0352 00da       |    |		Load_Top	At_Offset_2
0353 016d       | m  |		Execute	Variant_Record,Structure_Write
0354 00da       |    |		Load_Top	At_Offset_2
0355 e24a       | J  |		Load	0x1,0x4a
0356 8017       |    |		Call	0x0,0x17
0357 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0358 00d8       |    |		Load_Top	At_Offset_0
0359 00da       |    |		Load_Top	At_Offset_2
035a 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
035b 00d9       |    |		Load_Top	At_Offset_1
035c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035d 0000 0000  |    |		.XXX[0x3]
035f 0000       |    |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0371       | q  |		.CONST	0x0371								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0004       |    |		.CONST	0x0004								; Number of locals
0363			INIT_0360:
0363 e239       | 9  |		Load	0x1,0x39
0364 0322       | "  |		Declare_Variable	Record
0365 00db       |    |		Load_Top	At_Offset_3
0366 0219       |    |		Execute	Heap_Access,All_Read
0367 e028       | (  |		Load	0x0,0x28
0368 e248       | H  |		Load	0x1,0x48
0369 0096       |    |		Execute	Package,Entry
036a 00d9       |    |		Load_Top	At_Offset_1
036b 017d       | }  |		Execute	Record,Structure_Write
036c 00d8       |    |		Load_Top	At_Offset_0
036d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
036e 8016       |    |		Call	0x0,0x16
036f 029f 0fb3  |    |		Declare_Subprogram	INIT_0fb0,For_Call
0371			BODY_0360:
0371 00da       |    |		Load_Top	At_Offset_2
0372 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0373 4602       |F   |		Jump_Case	0x3
0374 7804       |x   |		Jump	0x379								; case 0x0
0375 780c       |x   |		Jump	0x382								; case 0x1
0376 7800       |x   |		Jump	0x377								; case 0x2
0377 8404       |    |		Call	0x2,0x4
0378 780b       |x   |		Jump	0x384
0379 00d9       |    |		Load_Top	At_Offset_1
037a 8029       | )  |		Call	0x0,0x29
037b 6804       |h   |		Jump_Zero	0x380
037c 00da       |    |		Load_Top	At_Offset_2
037d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
037e 802a       | *  |		Call	0x0,0x2a
037f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0380 00d9       |    |		Load_Top	At_Offset_1
0381 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0382 00d9       |    |		Load_Top	At_Offset_1
0383 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0384 0831       | 1  |		Execute_Immediate	Raise,0x31
0385 0000 0000  |    |		.XXX[0x3]
0387 0000       |    |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038e       |    |		.CONST	0x038e								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0002       |    |		.CONST	0x0002								; Number of locals
038b			INIT_0388:
038b e22e       | .  |		Load	0x1,0x2e
038c e5fe       |    |		Load	0x2,-0x2
038d 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
038e			BODY_0388:
038e 00d8       |    |		Load_Top	At_Offset_0
038f 00d8       |    |		Load_Top	At_Offset_0
0390 0219       |    |		Execute	Heap_Access,All_Read
0391 e009       |    |		Load	0x0,0x9
0392 e248       | H  |		Load	0x1,0x48
0393 0098       |    |		Execute	Package,Field_Read_Dynamic
0394 0216       |    |		Execute	Heap_Access,Convert
0395 e5fe       |    |		Load	0x2,-0x2
0396 e5ff       |    |		Load	0x2,-0x1
0397 0219       |    |		Execute	Heap_Access,All_Read
0398 e02b       | +  |		Load	0x0,0x2b
0399 e248       | H  |		Load	0x1,0x48
039a 0096       |    |		Execute	Package,Entry
039b 00d9       |    |		Load_Top	At_Offset_1
039c 0218       |    |		Execute	Heap_Access,All_Write
039d 00d1       |    |		Pop_Control	Pop_Count_1
039e 00d8       |    |		Load_Top	At_Offset_0
039f a5fd       |    |		Store_Unchecked	0x2,-0x3
03a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a1 0000 0000  |    |		.BLANK	0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 4801       |H   |		Short_Literal	0x1
03ac a5fc       |    |		Store_Unchecked	0x2,-0x4
03ad 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03ae 0000 0000  |    |		.XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c6       |    |		.CONST	0x03c6								; Address of begin
03b1 03d7       |    |		.CONST	0x03d7								; Address of exception handler
03b2 0004       |    |		.CONST	0x0004								; Number of locals
03b3			INIT_03b0:
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b5 00d8       |    |		Load_Top	At_Offset_0
03b6 00e4       |    |		Load_Encached	Positive_Cache
03b7 0260       | `  |		Execute	Discrete,In_Type
03b8 7001       |p   |		Jump_Nonzero	0x3ba
03b9 0801       |    |		Execute_Immediate	Raise,0x1
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 0219       |    |		Execute	Heap_Access,All_Read
03bc e02c       | ,  |		Load	0x0,0x2c
03bd e248       | H  |		Load	0x1,0x48
03be 0096       |    |		Execute	Package,Entry
03bf 00d8       |    |		Load_Top	At_Offset_0
03c0 e02d       | -  |		Load	0x0,0x2d
03c1 e248       | H  |		Load	0x1,0x48
03c2 0096       |    |		Execute	Package,Entry
03c3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03c4 029f 0fcb  |    |		Declare_Subprogram	INIT_0fc8,For_Call
03c6			BODY_03b0:
03c6 00d9       |    |		Load_Top	At_Offset_1
03c7 4804       |H   |		Short_Literal	0x4
03c8 4806       |H   |		Short_Literal	0x6
03c9 0262       | b  |		Execute	Discrete,In_Range
03ca 700a       |p   |		Jump_Nonzero	0x3d5
03cb 4800       |H   |		Short_Literal	0x0
03cc 0092 1834  |   4|		Action	Push_String_Extended,0x1834					; "Explanation not supported on this "
03ce 00db       |    |		Load_Top	At_Offset_3
03cf e23c       | <  |		Load	0x1,0x3c
03d0 011c       |    |		Execute	Any,Convert_Unchecked
03d1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03d2 01cc       |    |		Execute	Vector,Catenate
03d3 820e       |    |		Call	0x1,0xe
03d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d5 8404       |    |		Call	0x2,0x4
03d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d7			TRAP_03b0:
03d7 e02e       | .  |		Load	0x0,0x2e
03d8 e248       | H  |		Load	0x1,0x48
03d9 0098       |    |		Execute	Package,Field_Read_Dynamic
03da 010f       |    |		Execute	Exception,Equal
03db 7002       |p   |		Jump_Nonzero	0x3de
03dc 010e       |    |		Execute	Exception,Is_Constraint_Error
03dd 6805       |h   |		Jump_Zero	0x3e3
03de 4801       |H   |		Short_Literal	0x1
03df 0092 1835  |   5|		Action	Push_String_Extended,0x1835					; "Explanation not supported at this position"
03e1 820e       |    |		Call	0x1,0xe
03e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03e3 0100       |    |		Execute	Exception,Raise
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0403       |    |		.CONST	0x0403								; Address of begin
03e9 0420       |    |		.CONST	0x0420								; Address of exception handler
03ea 0006       |    |		.CONST	0x0006								; Number of locals
03eb			INIT_03e8:
03eb 00db       |    |		Load_Top	At_Offset_3
03ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ed 00d8       |    |		Load_Top	At_Offset_0
03ee 00e4       |    |		Load_Encached	Positive_Cache
03ef 0260       | `  |		Execute	Discrete,In_Type
03f0 7001       |p   |		Jump_Nonzero	0x3f2
03f1 0801       |    |		Execute_Immediate	Raise,0x1
03f2 00db       |    |		Load_Top	At_Offset_3
03f3 0219       |    |		Execute	Heap_Access,All_Read
03f4 e02c       | ,  |		Load	0x0,0x2c
03f5 e248       | H  |		Load	0x1,0x48
03f6 0096       |    |		Execute	Package,Entry
03f7 00d8       |    |		Load_Top	At_Offset_0
03f8 e02d       | -  |		Load	0x0,0x2d
03f9 e248       | H  |		Load	0x1,0x48
03fa 0096       |    |		Execute	Package,Entry
03fb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03fc 0007       |    |		Action	Break_Optional
03fd 00e1       |    |		Load_Encached	Boolean_Cache
03fe 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03ff 029f 0ff3  |    |		Declare_Subprogram	INIT_0ff0,For_Call
0401 029f 1023  |   #|		Declare_Subprogram	INIT_1020,For_Call
0403			BODY_03e8:
0403 00db       |    |		Load_Top	At_Offset_3
0404 4606       |F   |		Jump_Case	0x7
0405 780d       |x   |		Jump	0x413								; case 0x0
0406 780c       |x   |		Jump	0x413								; case 0x1
0407 780b       |x   |		Jump	0x413								; case 0x2
0408 7808       |x   |		Jump	0x411								; case 0x3
0409 7802       |x   |		Jump	0x40c								; case 0x4
040a 7801       |x   |		Jump	0x40c								; case 0x5
040b 7800       |x   |		Jump	0x40c								; case 0x6
040c 8405       |    |		Call	0x2,0x5
040d 802f       | /  |		Call	0x0,0x2f
040e e5fd       |    |		Load	0x2,-0x3
040f 016d       | m  |		Execute	Variant_Record,Structure_Write
0410 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0411 8406       |    |		Call	0x2,0x6
0412 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0413 4800       |H   |		Short_Literal	0x0
0414 0092 1836  |   6|		Action	Push_String_Extended,0x1836					; "Definition not supported on this "
0416 e403       |    |		Load	0x2,0x3
0417 e23c       | <  |		Load	0x1,0x3c
0418 011c       |    |		Execute	Any,Convert_Unchecked
0419 1c01       |    |		Execute_Immediate	Run_Utility,0x1
041a 01cc       |    |		Execute	Vector,Catenate
041b 820e       |    |		Call	0x1,0xe
041c 802f       | /  |		Call	0x0,0x2f
041d e5fd       |    |		Load	0x2,-0x3
041e 016d       | m  |		Execute	Variant_Record,Structure_Write
041f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0420			TRAP_03e8:
0420 e02e       | .  |		Load	0x0,0x2e
0421 e248       | H  |		Load	0x1,0x48
0422 0098       |    |		Execute	Package,Field_Read_Dynamic
0423 010f       |    |		Execute	Exception,Equal
0424 7002       |p   |		Jump_Nonzero	0x427
0425 010e       |    |		Execute	Exception,Is_Constraint_Error
0426 6805       |h   |		Jump_Zero	0x42c
0427 4801       |H   |		Short_Literal	0x1
0428 0092 1837  |   7|		Action	Push_String_Extended,0x1837					; "Definition not supported at this position"
042a 820e       |    |		Call	0x1,0xe
042b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
042c 0100       |    |		Execute	Exception,Raise
042d 0000 0000  |    |		.XXX[0x3]
042f 0000       |    |
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0452       | R  |		.CONST	0x0452								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0006       |    |		.CONST	0x0006								; Number of locals
0433			INIT_0430:
0433 e239       | 9  |		Load	0x1,0x39
0434 0322       | "  |		Declare_Variable	Record
0435 00db       |    |		Load_Top	At_Offset_3
0436 0219       |    |		Execute	Heap_Access,All_Read
0437 e028       | (  |		Load	0x0,0x28
0438 e248       | H  |		Load	0x1,0x48
0439 0096       |    |		Execute	Package,Entry
043a 00d9       |    |		Load_Top	At_Offset_1
043b 017d       | }  |		Execute	Record,Structure_Write
043c 00db       |    |		Load_Top	At_Offset_3
043d 8214       |    |		Call	0x1,0x14
043e e026       | &  |		Load	0x0,0x26
043f 02ff       |    |		Declare_Variable	Variant_Record
0440 e5ff       |    |		Load	0x2,-0x1
0441 0219       |    |		Execute	Heap_Access,All_Read
0442 e025       | %  |		Load	0x0,0x25
0443 e248       | H  |		Load	0x1,0x48
0444 0096       |    |		Execute	Package,Entry
0445 4810       |H   |		Short_Literal	0x10
0446 8027       | '  |		Call	0x0,0x27
0447 00d9       |    |		Load_Top	At_Offset_1
0448 016d       | m  |		Execute	Variant_Record,Structure_Write
0449 e020       |    |		Load	0x0,0x20
044a 02ff       |    |		Declare_Variable	Variant_Record
044b 00d8       |    |		Load_Top	At_Offset_0
044c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
044d e5ff       |    |		Load	0x2,-0x1
044e 0219       |    |		Execute	Heap_Access,All_Read
044f e025       | %  |		Load	0x0,0x25
0450 e248       | H  |		Load	0x1,0x48
0451 0096       |    |		Execute	Package,Entry
0452			BODY_0430:
0452 e402       |    |		Load	0x2,0x2
0453 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0454 4602       |F   |		Jump_Case	0x3
0455 7818       |x   |		Jump	0x46e								; case 0x0
0456 783b       |x;  |		Jump	0x492								; case 0x1
0457 7800       |x   |		Jump	0x458								; case 0x2
0458 00d8       |    |		Load_Top	At_Offset_0
0459 4802       |H   |		Short_Literal	0x2
045a 8027       | '  |		Call	0x0,0x27
045b 00db       |    |		Load_Top	At_Offset_3
045c 016d       | m  |		Execute	Variant_Record,Structure_Write
045d 00d8       |    |		Load_Top	At_Offset_0
045e 4801       |H   |		Short_Literal	0x1
045f 00da       |    |		Load_Top	At_Offset_2
0460 e403       |    |		Load	0x2,0x3
0461 8017       |    |		Call	0x0,0x17
0462 8023       | #  |		Call	0x0,0x23
0463 00da       |    |		Load_Top	At_Offset_2
0464 016d       | m  |		Execute	Variant_Record,Structure_Write
0465 00d9       |    |		Load_Top	At_Offset_1
0466 00db       |    |		Load_Top	At_Offset_3
0467 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0468 00da       |    |		Load_Top	At_Offset_2
0469 e5fe       |    |		Load	0x2,-0x2
046a 016d       | m  |		Execute	Variant_Record,Structure_Write
046b 4800       |H   |		Short_Literal	0x0
046c a5fd       |    |		Store_Unchecked	0x2,-0x3
046d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
046e 00db       |    |		Load_Top	At_Offset_3
046f 01db       |    |		Execute	Vector,Length
0470 6817       |h   |		Jump_Zero	0x488
0471 00da       |    |		Load_Top	At_Offset_2
0472 00d8       |    |		Load_Top	At_Offset_0
0473 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0474 00d8       |    |		Load_Top	At_Offset_0
0475 e5ff       |    |		Load	0x2,-0x1
0476 0219       |    |		Execute	Heap_Access,All_Read
0477 e025       | %  |		Load	0x0,0x25
0478 e248       | H  |		Load	0x1,0x48
0479 0096       |    |		Execute	Package,Entry
047a e403       |    |		Load	0x2,0x3
047b 8030       | 0  |		Call	0x0,0x30
047c 8017       |    |		Call	0x0,0x17
047d 00d9       |    |		Load_Top	At_Offset_1
047e 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
047f 00d1       |    |		Pop_Control	Pop_Count_1
0480 00d0       |    |		Action	Swap_Control
0481 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0482 4800       |H   |		Short_Literal	0x0
0483 a5fd       |    |		Store_Unchecked	0x2,-0x3
0484 00da       |    |		Load_Top	At_Offset_2
0485 e5fe       |    |		Load	0x2,-0x2
0486 016d       | m  |		Execute	Variant_Record,Structure_Write
0487 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0488 4800       |H   |		Short_Literal	0x0
0489 0092 1838  |   8|		Action	Push_String_Extended,0x1838					; "No enclosing object for an temporary Test_Run_Group"
048b 820e       |    |		Call	0x1,0xe
048c 802f       | /  |		Call	0x0,0x2f
048d e5fe       |    |		Load	0x2,-0x2
048e 016d       | m  |		Execute	Variant_Record,Structure_Write
048f 4800       |H   |		Short_Literal	0x0
0490 a5fd       |    |		Store_Unchecked	0x2,-0x3
0491 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0492 00da       |    |		Load_Top	At_Offset_2
0493 00d8       |    |		Load_Top	At_Offset_0
0494 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0495 00d8       |    |		Load_Top	At_Offset_0
0496 e5ff       |    |		Load	0x2,-0x1
0497 0219       |    |		Execute	Heap_Access,All_Read
0498 e025       | %  |		Load	0x0,0x25
0499 e248       | H  |		Load	0x1,0x48
049a 0096       |    |		Execute	Package,Entry
049b e403       |    |		Load	0x2,0x3
049c 8030       | 0  |		Call	0x0,0x30
049d 8017       |    |		Call	0x0,0x17
049e 00d9       |    |		Load_Top	At_Offset_1
049f 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
04a0 00d1       |    |		Pop_Control	Pop_Count_1
04a1 00d0       |    |		Action	Swap_Control
04a2 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
04a3 4800       |H   |		Short_Literal	0x0
04a4 a5fd       |    |		Store_Unchecked	0x2,-0x3
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 e5fe       |    |		Load	0x2,-0x2
04a7 016d       | m  |		Execute	Variant_Record,Structure_Write
04a8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04a9 0000 0000  |    |		.BLANK	0000[0x7]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04bc       |    |		.CONST	0x04bc								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0002       |    |		.CONST	0x0002								; Number of locals
04b3			INIT_04b0:
04b3 e239       | 9  |		Load	0x1,0x39
04b4 0322       | "  |		Declare_Variable	Record
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 0219       |    |		Execute	Heap_Access,All_Read
04b7 e028       | (  |		Load	0x0,0x28
04b8 e248       | H  |		Load	0x1,0x48
04b9 0096       |    |		Execute	Package,Entry
04ba 00d9       |    |		Load_Top	At_Offset_1
04bb 017d       | }  |		Execute	Record,Structure_Write
04bc			BODY_04b0:
04bc 00d8       |    |		Load_Top	At_Offset_0
04bd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04be 4602       |F   |		Jump_Case	0x3
04bf 7810       |x   |		Jump	0x4d0								; case 0x0
04c0 7814       |x   |		Jump	0x4d5								; case 0x1
04c1 7800       |x   |		Jump	0x4c2								; case 0x2
04c2 4801       |H   |		Short_Literal	0x1
04c3 00d9       |    |		Load_Top	At_Offset_1
04c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04c5 00d8       |    |		Load_Top	At_Offset_0
04c6 e5ff       |    |		Load	0x2,-0x1
04c7 0219       |    |		Execute	Heap_Access,All_Read
04c8 e031       | 1  |		Load	0x0,0x31
04c9 e248       | H  |		Load	0x1,0x48
04ca 0096       |    |		Execute	Package,Entry
04cb 4801       |H   |		Short_Literal	0x1
04cc 4805       |H   |		Short_Literal	0x5
04cd e5ff       |    |		Load	0x2,-0x1
04ce 8251       | Q  |		Call	0x1,0x51
04cf 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04d0 4800       |H   |		Short_Literal	0x0
04d1 0092 1839  |   9|		Action	Push_String_Extended,0x1839					; "Image is fully elided"
04d3 820e       |    |		Call	0x1,0xe
04d4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04d5 4800       |H   |		Short_Literal	0x0
04d6 00d9       |    |		Load_Top	At_Offset_1
04d7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04d8 00d8       |    |		Load_Top	At_Offset_0
04d9 e5ff       |    |		Load	0x2,-0x1
04da 0219       |    |		Execute	Heap_Access,All_Read
04db e031       | 1  |		Load	0x0,0x31
04dc e248       | H  |		Load	0x1,0x48
04dd 0096       |    |		Execute	Package,Entry
04de 4801       |H   |		Short_Literal	0x1
04df 4804       |H   |		Short_Literal	0x4
04e0 e5ff       |    |		Load	0x2,-0x1
04e1 8251       | Q  |		Call	0x1,0x51
04e2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04e3 183a 00da  | :  |		.XXX[0x9]
04e5 3c02 e234  |<  4|
04e7 011c 1c01  |    |
04e9 01cc 820e  |    |
04eb 4504       |E   |
04ec 0000 0000  |    |		.BLANK	0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04fc       |    |		.CONST	0x04fc								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0002       |    |		.CONST	0x0002								; Number of locals
04f3			INIT_04f0:
04f3 e239       | 9  |		Load	0x1,0x39
04f4 0322       | "  |		Declare_Variable	Record
04f5 00db       |    |		Load_Top	At_Offset_3
04f6 0219       |    |		Execute	Heap_Access,All_Read
04f7 e028       | (  |		Load	0x0,0x28
04f8 e248       | H  |		Load	0x1,0x48
04f9 0096       |    |		Execute	Package,Entry
04fa 00d9       |    |		Load_Top	At_Offset_1
04fb 017d       | }  |		Execute	Record,Structure_Write
04fc			BODY_04f0:
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04fe 4602       |F   |		Jump_Case	0x3
04ff 7815       |x   |		Jump	0x515								; case 0x0
0500 7806       |x   |		Jump	0x507								; case 0x1
0501 7800       |x   |		Jump	0x502								; case 0x2
0502 4800       |H   |		Short_Literal	0x0
0503 0092 183b  |   ;|		Action	Push_String_Extended,0x183b					; "Image is fully expanded"
0505 820e       |    |		Call	0x1,0xe
0506 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0507 4802       |H   |		Short_Literal	0x2
0508 00d9       |    |		Load_Top	At_Offset_1
0509 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
050a 00d8       |    |		Load_Top	At_Offset_0
050b e5ff       |    |		Load	0x2,-0x1
050c 0219       |    |		Execute	Heap_Access,All_Read
050d e031       | 1  |		Load	0x0,0x31
050e e248       | H  |		Load	0x1,0x48
050f 0096       |    |		Execute	Package,Entry
0510 4800       |H   |		Short_Literal	0x0
0511 4805       |H   |		Short_Literal	0x5
0512 e5ff       |    |		Load	0x2,-0x1
0513 8251       | Q  |		Call	0x1,0x51
0514 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0515 4801       |H   |		Short_Literal	0x1
0516 00d9       |    |		Load_Top	At_Offset_1
0517 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0518 00d8       |    |		Load_Top	At_Offset_0
0519 e5ff       |    |		Load	0x2,-0x1
051a 0219       |    |		Execute	Heap_Access,All_Read
051b e031       | 1  |		Load	0x0,0x31
051c e248       | H  |		Load	0x1,0x48
051d 0096       |    |		Execute	Package,Entry
051e 4800       |H   |		Short_Literal	0x0
051f 4804       |H   |		Short_Literal	0x4
0520 e5ff       |    |		Load	0x2,-0x1
0521 8251       | Q  |		Call	0x1,0x51
0522 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0523 183c 00da  | <  |		.XXX[0x9]
0525 3c02 e234  |<  4|
0527 011c 1c01  |    |
0529 01cc 820e  |    |
052b 4504       |E   |
052c 0000 0000  |    |		.BLANK	0000[0x4]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 0833       | 3  |		Execute_Immediate	Raise,0x33
0534 0000 0000  |    |		.BLANK	0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b       | ;  |		.CONST	0x053b								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0001       |    |		.CONST	0x0001								; Number of locals
053b			BODY_0538:
053b			INIT_0538:
053b 0833       | 3  |		Execute_Immediate	Raise,0x33
053c 0000 0000  |    |		.BLANK	0000[0x4]
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 183d  |   =|		Action	Push_String_Extended,0x183d					; "Promote"
0546 e032       | 2  |		Load	0x0,0x32
0547 e233       | 3  |		Load	0x1,0x33
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 183e  |   >|		Action	Push_String_Extended,0x183e					; "Demote"
0556 e032       | 2  |		Load	0x0,0x32
0557 e233       | 3  |		Load	0x1,0x33
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 0567       | g  |		.CONST	0x0567								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0003       |    |		.CONST	0x0003								; Number of locals
0563			INIT_0560:
0563 00db       |    |		Load_Top	At_Offset_3
0564 8033       | 3  |		Call	0x0,0x33
0565 029f 1053  |   S|		Declare_Subprogram	INIT_1050,For_Call
0567			BODY_0560:
0567 00d9       |    |		Load_Top	At_Offset_1
0568 6802       |h   |		Jump_Zero	0x56b
0569 8403       |    |		Call	0x2,0x3
056a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
056b 4800       |H   |		Short_Literal	0x0
056c 0092 183f  |   ?|		Action	Push_String_Extended,0x183f					; "Delete requires a selected line"
056e 820e       |    |		Call	0x1,0xe
056f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057c       | |  |		.CONST	0x057c								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 e239       | 9  |		Load	0x1,0x39
0574 0322       | "  |		Declare_Variable	Record
0575 00db       |    |		Load_Top	At_Offset_3
0576 0219       |    |		Execute	Heap_Access,All_Read
0577 e028       | (  |		Load	0x0,0x28
0578 e248       | H  |		Load	0x1,0x48
0579 0096       |    |		Execute	Package,Entry
057a 00d9       |    |		Load_Top	At_Offset_1
057b 017d       | }  |		Execute	Record,Structure_Write
057c			BODY_0570:
057c e5fe       |    |		Load	0x2,-0x2
057d 00d8       |    |		Load_Top	At_Offset_0
057e 4ffd       |O   |		Short_Literal	-0x3
057f 4803       |H   |		Short_Literal	0x3
0580 0262       | b  |		Execute	Discrete,In_Range
0581 683d       |h=  |		Jump_Zero	0x5bf
0582 0a03       |    |		Execute_Immediate	Plus,0x3
0583 4606       |F   |		Jump_Case	0x7
0584 782d       |x-  |		Jump	0x5b2								; case 0x0
0585 783a       |x:  |		Jump	0x5c0								; case 0x1
0586 781e       |x   |		Jump	0x5a5								; case 0x2
0587 7838       |x8  |		Jump	0x5c0								; case 0x3
0588 780f       |x   |		Jump	0x598								; case 0x4
0589 7836       |x6  |		Jump	0x5c0								; case 0x5
058a 7800       |x   |		Jump	0x58b								; case 0x6
058b 4803       |H   |		Short_Literal	0x3
058c 00d9       |    |		Load_Top	At_Offset_1
058d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
058e 6041       |`A  |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x7fffffff}
058f 4801       |H   |		Short_Literal	0x1
0590 e5ff       |    |		Load	0x2,-0x1
0591 0219       |    |		Execute	Heap_Access,All_Read
0592 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0593 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
0594 e00e       |    |		Load	0x0,0xe
0595 e248       | H  |		Load	0x1,0x48
0596 0096       |    |		Execute	Package,Entry
0597 7830       |x0  |		Jump	0x5c8
0598 4801       |H   |		Short_Literal	0x1
0599 00d9       |    |		Load_Top	At_Offset_1
059a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
059b 6034       |`4  |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x7fffffff}
059c 4801       |H   |		Short_Literal	0x1
059d e5ff       |    |		Load	0x2,-0x1
059e 0219       |    |		Execute	Heap_Access,All_Read
059f 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
05a0 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
05a1 e00e       |    |		Load	0x0,0xe
05a2 e248       | H  |		Load	0x1,0x48
05a3 0096       |    |		Execute	Package,Entry
05a4 7823       |x#  |		Jump	0x5c8
05a5 4802       |H   |		Short_Literal	0x2
05a6 00d9       |    |		Load_Top	At_Offset_1
05a7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a8 6027       |`'  |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x7fffffff}
05a9 4801       |H   |		Short_Literal	0x1
05aa e5ff       |    |		Load	0x2,-0x1
05ab 0219       |    |		Execute	Heap_Access,All_Read
05ac 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
05ad 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
05ae e00e       |    |		Load	0x0,0xe
05af e248       | H  |		Load	0x1,0x48
05b0 0096       |    |		Execute	Package,Entry
05b1 7816       |x   |		Jump	0x5c8
05b2 4804       |H   |		Short_Literal	0x4
05b3 00d9       |    |		Load_Top	At_Offset_1
05b4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05b5 601a       |`   |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x7fffffff}
05b6 4801       |H   |		Short_Literal	0x1
05b7 e5ff       |    |		Load	0x2,-0x1
05b8 0219       |    |		Execute	Heap_Access,All_Read
05b9 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
05ba 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
05bb e00e       |    |		Load	0x0,0xe
05bc e248       | H  |		Load	0x1,0x48
05bd 0096       |    |		Execute	Package,Entry
05be 7809       |x   |		Jump	0x5c8
05bf 00d1       |    |		Pop_Control	Pop_Count_1
05c0 4800       |H   |		Short_Literal	0x0
05c1 0092 1840  |   @|		Action	Push_String_Extended,0x1840					; "No operation defined for value "
05c3 e5fe       |    |		Load	0x2,-0x2
05c4 00e0       |    |		Load_Encached	Standard_Cache
05c5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c6 01cc       |    |		Execute	Vector,Catenate
05c7 820e       |    |		Call	0x1,0xe
05c8 00d8       |    |		Load_Top	At_Offset_0
05c9 e5ff       |    |		Load	0x2,-0x1
05ca 0219       |    |		Execute	Heap_Access,All_Read
05cb e031       | 1  |		Load	0x0,0x31
05cc e248       | H  |		Load	0x1,0x48
05cd 0096       |    |		Execute	Package,Entry
05ce 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05cf 0000       |    |		.XXX[0x1]
05d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
05d4 0000 0000  |    |		.BLANK	0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 00ea       |    |		Load_Encached	Null_String_Cache
05dc 0092 1841  |   A|		Action	Push_String_Extended,0x1841					; "Filter"
05de e032       | 2  |		Load	0x0,0x32
05df e233       | 3  |		Load	0x1,0x33
05e0 0096       |    |		Execute	Package,Entry
05e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05e2 0000 0000  |    |		.BLANK	0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00ea       |    |		Load_Encached	Null_String_Cache
05ec 0092 1842  |   B|		Action	Push_String_Extended,0x1842					; "Show_Differential"
05ee e032       | 2  |		Load	0x0,0x32
05ef e233       | 3  |		Load	0x1,0x33
05f0 0096       |    |		Execute	Package,Entry
05f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05f2 0000 0000  |    |		.BLANK	0000[0x6]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 00ea       |    |		Load_Encached	Null_String_Cache
05fc 0092 1843  |   C|		Action	Push_String_Extended,0x1843					; "Generate_Test_Set"
05fe e032       | 2  |		Load	0x0,0x32
05ff e233       | 3  |		Load	0x1,0x33
0600 0096       |    |		Execute	Package,Entry
0601 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0602 0000 0000  |    |		.BLANK	0000[0x6]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0610       |    |		.CONST	0x0610								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0002       |    |		.CONST	0x0002								; Number of locals
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2
060c 0217       |    |		Execute	Heap_Access,All_Reference
060d e034       | 4  |		Load	0x0,0x34
060e e248       | H  |		Load	0x1,0x48
060f 0096       |    |		Execute	Package,Entry
0610			BODY_0608:
0610 00d8       |    |		Load_Top	At_Offset_0
0611 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0612 0000 0000  |    |		.BLANK	0000[0x6]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0624       | $  |		.CONST	0x0624								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0002       |    |		.CONST	0x0002								; Number of locals
061b			INIT_0618:
061b e239       | 9  |		Load	0x1,0x39
061c 0322       | "  |		Declare_Variable	Record
061d 00db       |    |		Load_Top	At_Offset_3
061e 0219       |    |		Execute	Heap_Access,All_Read
061f e028       | (  |		Load	0x0,0x28
0620 e248       | H  |		Load	0x1,0x48
0621 0096       |    |		Execute	Package,Entry
0622 00d9       |    |		Load_Top	At_Offset_1
0623 017d       | }  |		Execute	Record,Structure_Write
0624			BODY_0618:
0624 00d8       |    |		Load_Top	At_Offset_0
0625 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0626 e234       | 4  |		Load	0x1,0x34
0627 011c       |    |		Execute	Any,Convert_Unchecked
0628 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0629 0092 1844  |   D|		Action	Push_String_Extended,0x1844					; " ("
062b 01cc       |    |		Execute	Vector,Catenate
062c 00d9       |    |		Load_Top	At_Offset_1
062d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
062e e237       | 7  |		Load	0x1,0x37
062f 011c       |    |		Execute	Any,Convert_Unchecked
0630 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0631 01cc       |    |		Execute	Vector,Catenate
0632 0092 1845  |   E|		Action	Push_String_Extended,0x1845					; "S) by "
0634 01cc       |    |		Execute	Vector,Catenate
0635 00d9       |    |		Load_Top	At_Offset_1
0636 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0637 e235       | 5  |		Load	0x1,0x35
0638 011c       |    |		Execute	Any,Convert_Unchecked
0639 1c01       |    |		Execute_Immediate	Run_Utility,0x1
063a 01cc       |    |		Execute	Vector,Catenate
063b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
063c 0000 0000  |    |		.BLANK	0000[0x4]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 064c       | L  |		.CONST	0x064c								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0002       |    |		.CONST	0x0002								; Number of locals
0643			INIT_0640:
0643 e239       | 9  |		Load	0x1,0x39
0644 0322       | "  |		Declare_Variable	Record
0645 00db       |    |		Load_Top	At_Offset_3
0646 0219       |    |		Execute	Heap_Access,All_Read
0647 e028       | (  |		Load	0x0,0x28
0648 e248       | H  |		Load	0x1,0x48
0649 0096       |    |		Execute	Package,Entry
064a 00d9       |    |		Load_Top	At_Offset_1
064b 017d       | }  |		Execute	Record,Structure_Write
064c			BODY_0640:
064c 00d8       |    |		Load_Top	At_Offset_0
064d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
064e 8016       |    |		Call	0x0,0x16
064f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2
0654 8227       | '  |		Call	0x1,0x27
0655 e5fe       |    |		Load	0x2,-0x2
0656 8227       | '  |		Call	0x1,0x27
0657 01df       |    |		Execute	Vector,Equal
0658 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0659 0000 0000  |    |		.BLANK	0000[0x7]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 4801       |H   |		Short_Literal	0x1
0664 00db       |    |		Load_Top	At_Offset_3
0665 0219       |    |		Execute	Heap_Access,All_Read
0666 e035       | 5  |		Load	0x0,0x35
0667 e248       | H  |		Load	0x1,0x48
0668 0096       |    |		Execute	Package,Entry
0669 e232       | 2  |		Load	0x1,0x32
066a e5ff       |    |		Load	0x2,-0x1
066b 0219       |    |		Execute	Heap_Access,All_Read
066c e025       | %  |		Load	0x0,0x25
066d e248       | H  |		Load	0x1,0x48
066e 0096       |    |		Execute	Package,Entry
066f 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0670 a5fe       |    |		Store_Unchecked	0x2,-0x2
0671 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0672 0000 0000  |    |		.BLANK	0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b 00da       |    |		Load_Top	At_Offset_2
067c 0217       |    |		Execute	Heap_Access,All_Reference
067d e036       | 6  |		Load	0x0,0x36
067e e248       | H  |		Load	0x1,0x48
067f 0096       |    |		Execute	Package,Entry
0680 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0681 0000 0000  |    |		.BLANK	0000[0x7]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0693       |    |		.CONST	0x0693								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0002       |    |		.CONST	0x0002								; Number of locals
068b			INIT_0688:
068b 00da       |    |		Load_Top	At_Offset_2
068c 0217       |    |		Execute	Heap_Access,All_Reference
068d e037       | 7  |		Load	0x0,0x37
068e e248       | H  |		Load	0x1,0x48
068f 0096       |    |		Execute	Package,Entry
0690 e025       | %  |		Load	0x0,0x25
0691 e248       | H  |		Load	0x1,0x48
0692 0096       |    |		Execute	Package,Entry
0693			BODY_0688:
0693 00db       |    |		Load_Top	At_Offset_3
0694 0217       |    |		Execute	Heap_Access,All_Reference
0695 e038       | 8  |		Load	0x0,0x38
0696 e248       | H  |		Load	0x1,0x48
0697 0096       |    |		Execute	Package,Entry
0698 e230       | 0  |		Load	0x1,0x30
0699 00da       |    |		Load_Top	At_Offset_2
069a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
069b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
069c 0000 0000  |    |		.BLANK	0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 00da       |    |		Load_Top	At_Offset_2
06a4 0219       |    |		Execute	Heap_Access,All_Read
06a5 00d8       |    |		Load_Top	At_Offset_0
06a6 e039       | 9  |		Load	0x0,0x39
06a7 e248       | H  |		Load	0x1,0x48
06a8 0096       |    |		Execute	Package,Entry
06a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06aa 0000 0000  |    |		.BLANK	0000[0x6]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 4607       |F   |		Jump_Case	0x8
06b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06b5 7807       |x   |		Jump	0x6bd								; case 0x1
06b6 780a       |x   |		Jump	0x6c1								; case 0x2
06b7 780e       |x   |		Jump	0x6c6								; case 0x3
06b8 7811       |x   |		Jump	0x6ca								; case 0x4
06b9 7812       |x   |		Jump	0x6cc								; case 0x5
06ba 7813       |x   |		Jump	0x6ce								; case 0x6
06bb 7816       |x   |		Jump	0x6d2								; case 0x7
06bc 4302       |C   |		.XXX[0x1]
06bd 00da       |    |		Load_Top	At_Offset_2
06be 0091 1818  |    |		Action	Push_String_Extended_Indexed,0x1818				; "WORLD"
06c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06c1 00db       |    |		Load_Top	At_Offset_3
06c2 00db       |    |		Load_Top	At_Offset_3
06c3 00e0       |    |		Load_Encached	Standard_Cache
06c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06c6 00da       |    |		Load_Top	At_Offset_2
06c7 00e0       |    |		Load_Encached	Standard_Cache
06c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06ca 00db       |    |		Load_Top	At_Offset_3
06cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06cc 00db       |    |		Load_Top	At_Offset_3
06cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ce e234       | 4  |		Load	0x1,0x34
06cf 00dc       |    |		Load_Top	At_Offset_4
06d0 0267       | g  |		Execute	Discrete,Predecessor
06d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06d2 e234       | 4  |		Load	0x1,0x34
06d3 00dc       |    |		Load_Top	At_Offset_4
06d4 0268       | h  |		Execute	Discrete,Successor
06d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06d6 0000 0000  |    |		.XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db 4607       |F   |		Jump_Case	0x8
06dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06dd 7807       |x   |		Jump	0x6e5								; case 0x1
06de 780a       |x   |		Jump	0x6e9								; case 0x2
06df 780e       |x   |		Jump	0x6ee								; case 0x3
06e0 7811       |x   |		Jump	0x6f2								; case 0x4
06e1 7812       |x   |		Jump	0x6f4								; case 0x5
06e2 7813       |x   |		Jump	0x6f6								; case 0x6
06e3 7816       |x   |		Jump	0x6fa								; case 0x7
06e4 4302       |C   |		.XXX[0x1]
06e5 00da       |    |		Load_Top	At_Offset_2
06e6 0091 181b  |    |		Action	Push_String_Extended_Indexed,0x181b				; "NONE"
06e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06e9 00db       |    |		Load_Top	At_Offset_3
06ea 00db       |    |		Load_Top	At_Offset_3
06eb 00e0       |    |		Load_Encached	Standard_Cache
06ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ee 00da       |    |		Load_Top	At_Offset_2
06ef 00e0       |    |		Load_Encached	Standard_Cache
06f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06f2 00db       |    |		Load_Top	At_Offset_3
06f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06f4 00db       |    |		Load_Top	At_Offset_3
06f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06f6 e235       | 5  |		Load	0x1,0x35
06f7 00dc       |    |		Load_Top	At_Offset_4
06f8 0267       | g  |		Execute	Discrete,Predecessor
06f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06fa e235       | 5  |		Load	0x1,0x35
06fb 00dc       |    |		Load_Top	At_Offset_4
06fc 0268       | h  |		Execute	Discrete,Successor
06fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06fe 0000 0000  |    |		.XXX[0x2]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			INIT_0700:
0703 4607       |F   |		Jump_Case	0x8
0704 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0705 7807       |x   |		Jump	0x70d								; case 0x1
0706 780a       |x   |		Jump	0x711								; case 0x2
0707 780e       |x   |		Jump	0x716								; case 0x3
0708 7811       |x   |		Jump	0x71a								; case 0x4
0709 7812       |x   |		Jump	0x71c								; case 0x5
070a 7813       |x   |		Jump	0x71e								; case 0x6
070b 7816       |x   |		Jump	0x722								; case 0x7
070c 4302       |C   |		.XXX[0x1]
070d 00da       |    |		Load_Top	At_Offset_2
070e 0091 1820  |    |		Action	Push_String_Extended_Indexed,0x1820				; "NIL_COL"
0710 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0711 00db       |    |		Load_Top	At_Offset_3
0712 00db       |    |		Load_Top	At_Offset_3
0713 00e0       |    |		Load_Encached	Standard_Cache
0714 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0715 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0716 00da       |    |		Load_Top	At_Offset_2
0717 00e0       |    |		Load_Encached	Standard_Cache
0718 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0719 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
071a 00db       |    |		Load_Top	At_Offset_3
071b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
071c 00db       |    |		Load_Top	At_Offset_3
071d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
071e e236       | 6  |		Load	0x1,0x36
071f 00dc       |    |		Load_Top	At_Offset_4
0720 0267       | g  |		Execute	Discrete,Predecessor
0721 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0722 e236       | 6  |		Load	0x1,0x36
0723 00dc       |    |		Load_Top	At_Offset_4
0724 0268       | h  |		Execute	Discrete,Successor
0725 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0726 0000 0000  |    |		.XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 4607       |F   |		Jump_Case	0x8
072c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
072d 7807       |x   |		Jump	0x735								; case 0x1
072e 780a       |x   |		Jump	0x739								; case 0x2
072f 780e       |x   |		Jump	0x73e								; case 0x3
0730 7811       |x   |		Jump	0x742								; case 0x4
0731 7812       |x   |		Jump	0x744								; case 0x5
0732 7813       |x   |		Jump	0x746								; case 0x6
0733 7816       |x   |		Jump	0x74a								; case 0x7
0734 4302       |C   |		.XXX[0x1]
0735 00da       |    |		Load_Top	At_Offset_2
0736 0091 1824  |   $|		Action	Push_String_Extended_Indexed,0x1824				; "SEGMENT"
0738 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0739 00db       |    |		Load_Top	At_Offset_3
073a 00db       |    |		Load_Top	At_Offset_3
073b 00e0       |    |		Load_Encached	Standard_Cache
073c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
073d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
073e 00da       |    |		Load_Top	At_Offset_2
073f 00e0       |    |		Load_Encached	Standard_Cache
0740 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0741 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0742 00db       |    |		Load_Top	At_Offset_3
0743 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0744 00db       |    |		Load_Top	At_Offset_3
0745 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0746 e237       | 7  |		Load	0x1,0x37
0747 00dc       |    |		Load_Top	At_Offset_4
0748 0267       | g  |		Execute	Discrete,Predecessor
0749 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
074a e237       | 7  |		Load	0x1,0x37
074b 00dc       |    |		Load_Top	At_Offset_4
074c 0268       | h  |		Execute	Discrete,Successor
074d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
074e 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
0754 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0755 7807       |x   |		Jump	0x75d								; case 0x1
0756 780a       |x   |		Jump	0x761								; case 0x2
0757 780e       |x   |		Jump	0x766								; case 0x3
0758 7811       |x   |		Jump	0x76a								; case 0x4
0759 7812       |x   |		Jump	0x76c								; case 0x5
075a 7813       |x   |		Jump	0x76e								; case 0x6
075b 7816       |x   |		Jump	0x772								; case 0x7
075c 4302       |C   |		.XXX[0x1]
075d 00da       |    |		Load_Top	At_Offset_2
075e 0091 1826  |   &|		Action	Push_String_Extended_Indexed,0x1826				; "RGROUP"
0760 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0761 00db       |    |		Load_Top	At_Offset_3
0762 00db       |    |		Load_Top	At_Offset_3
0763 00e0       |    |		Load_Encached	Standard_Cache
0764 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0765 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0766 00da       |    |		Load_Top	At_Offset_2
0767 00e0       |    |		Load_Encached	Standard_Cache
0768 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0769 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
076a 00db       |    |		Load_Top	At_Offset_3
076b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
076c 00db       |    |		Load_Top	At_Offset_3
076d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
076e e238       | 8  |		Load	0x1,0x38
076f 00dc       |    |		Load_Top	At_Offset_4
0770 0267       | g  |		Execute	Discrete,Predecessor
0771 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0772 e238       | 8  |		Load	0x1,0x38
0773 00dc       |    |		Load_Top	At_Offset_4
0774 0268       | h  |		Execute	Discrete,Successor
0775 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0776 0000 0000  |    |		.XXX[0x2]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b 4601       |F   |		Jump_Case	0x2
077c 7801       |x   |		Jump	0x77e								; case 0x0
077d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
077e 4800       |H   |		Short_Literal	0x0
077f 00db       |    |		Load_Top	At_Offset_3
0780 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0781 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0782 0000 0000  |    |		.BLANK	0000[0x6]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b       |    |		.CONST	0x078b								; Address of begin
0789 0004       |    |		.CONST	0x0004								; Address of exception handler
078a 0001       |    |		.CONST	0x0001								; Number of locals
078b			BODY_0788:
078b			INIT_0788:
078b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
078c 0000 0000  |    |		.BLANK	0000[0x4]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 4607       |F   |		Jump_Case	0x8
0794 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0795 7807       |x   |		Jump	0x79d								; case 0x1
0796 780a       |x   |		Jump	0x7a1								; case 0x2
0797 780e       |x   |		Jump	0x7a6								; case 0x3
0798 7811       |x   |		Jump	0x7aa								; case 0x4
0799 7812       |x   |		Jump	0x7ac								; case 0x5
079a 7813       |x   |		Jump	0x7ae								; case 0x6
079b 7816       |x   |		Jump	0x7b2								; case 0x7
079c 4302       |C   |		.XXX[0x1]
079d 00da       |    |		Load_Top	At_Offset_2
079e 0091 1829  |   )|		Action	Push_String_Extended_Indexed,0x1829				; "NIL_ROW"
07a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07a1 00db       |    |		Load_Top	At_Offset_3
07a2 00db       |    |		Load_Top	At_Offset_3
07a3 00e0       |    |		Load_Encached	Standard_Cache
07a4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
07a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07a6 00da       |    |		Load_Top	At_Offset_2
07a7 00e0       |    |		Load_Encached	Standard_Cache
07a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07a9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07aa 00db       |    |		Load_Top	At_Offset_3
07ab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07ac 00db       |    |		Load_Top	At_Offset_3
07ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07ae e23c       | <  |		Load	0x1,0x3c
07af 00dc       |    |		Load_Top	At_Offset_4
07b0 0267       | g  |		Execute	Discrete,Predecessor
07b1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07b2 e23c       | <  |		Load	0x1,0x3c
07b3 00dc       |    |		Load_Top	At_Offset_4
07b4 0268       | h  |		Execute	Discrete,Successor
07b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07b6 0000 0000  |    |		.XXX[0x2]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb       |    |		.CONST	0x07bb								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0001       |    |		.CONST	0x0001								; Number of locals
07bb			BODY_07b8:
07bb			INIT_07b8:
07bb 4609       |F   |		Jump_Case	0xa
07bc 7809       |x   |		Jump	0x7c6								; case 0x0
07bd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
07be 7821       |x!  |		Jump	0x7e0								; case 0x2
07bf 7824       |x$  |		Jump	0x7e4								; case 0x3
07c0 7835       |x5  |		Jump	0x7f6								; case 0x4
07c1 7834       |x4  |		Jump	0x7f6								; case 0x5
07c2 7833       |x3  |		Jump	0x7f6								; case 0x6
07c3 7826       |x&  |		Jump	0x7ea								; case 0x7
07c4 7829       |x)  |		Jump	0x7ee								; case 0x8
07c5 782c       |x,  |		Jump	0x7f2								; case 0x9
07c6 00da       |    |		Load_Top	At_Offset_2
07c7 016c       | l  |		Execute	Variant_Record,Is_Constrained
07c8 7009       |p   |		Jump_Nonzero	0x7d2
07c9 00cf       |    |		Action	Mark_Auxiliary
07ca 4800       |H   |		Short_Literal	0x0
07cb e5ff       |    |		Load	0x2,-0x1
07cc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07cd 00d8       |    |		Load_Top	At_Offset_0
07ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07cf c5ff       |    |		Store	0x2,-0x1
07d0 00ce       |    |		Action	Pop_Auxiliary
07d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
07d2 4800       |H   |		Short_Literal	0x0
07d3 00db       |    |		Load_Top	At_Offset_3
07d4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07d5 00da       |    |		Load_Top	At_Offset_2
07d6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07d7 4606       |F   |		Jump_Case	0x7
07d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
07d9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
07da 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
07db 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
07dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
07dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
07de 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
07df 4302       |C   |		.XXX[0x1]
07e0 4801       |H   |		Short_Literal	0x1
07e1 4803       |H   |		Short_Literal	0x3
07e2 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
07e3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07e4 e5fd       |    |		Load	0x2,-0x3
07e5 00db       |    |		Load_Top	At_Offset_3
07e6 1c07       |    |		Execute_Immediate	Run_Utility,0x7
07e7 e5fe       |    |		Load	0x2,-0x2
07e8 0306       |    |		Complete_Type	Variant_Record,By_Renaming
07e9 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
07ea 00db       |    |		Load_Top	At_Offset_3
07eb e5ff       |    |		Load	0x2,-0x1
07ec 031b       |    |		Declare_Type	Variant_Record,Constrained
07ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07ee 00db       |    |		Load_Top	At_Offset_3
07ef 00db       |    |		Load_Top	At_Offset_3
07f0 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
07f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07f2 4800       |H   |		Short_Literal	0x0
07f3 00db       |    |		Load_Top	At_Offset_3
07f4 1c07       |    |		Execute_Immediate	Run_Utility,0x7
07f5 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07f6 0869       | i  |		Execute_Immediate	Raise,0x69
07f7 0000       |    |		.XXX[0x1]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 4609       |F   |		Jump_Case	0xa
0804 7809       |x   |		Jump	0x80e								; case 0x0
0805 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0806 781b       |x   |		Jump	0x822								; case 0x2
0807 781e       |x   |		Jump	0x826								; case 0x3
0808 784d       |xM  |		Jump	0x856								; case 0x4
0809 784c       |xL  |		Jump	0x856								; case 0x5
080a 7821       |x!  |		Jump	0x82c								; case 0x6
080b 782e       |x.  |		Jump	0x83a								; case 0x7
080c 783e       |x>  |		Jump	0x84b								; case 0x8
080d 7844       |xD  |		Jump	0x852								; case 0x9
080e 00da       |    |		Load_Top	At_Offset_2
080f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0810 7009       |p   |		Jump_Nonzero	0x81a
0811 00cf       |    |		Action	Mark_Auxiliary
0812 4800       |H   |		Short_Literal	0x0
0813 e5ff       |    |		Load	0x2,-0x1
0814 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0815 00d8       |    |		Load_Top	At_Offset_0
0816 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0817 c5ff       |    |		Store	0x2,-0x1
0818 00ce       |    |		Action	Pop_Auxiliary
0819 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
081a 00da       |    |		Load_Top	At_Offset_2
081b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
081c 4603       |F   |		Jump_Case	0x4
081d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
081e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
081f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0820 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0821 4302       |C   |		.XXX[0x1]
0822 4801       |H   |		Short_Literal	0x1
0823 4807       |H   |		Short_Literal	0x7
0824 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0825 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0826 e5fd       |    |		Load	0x2,-0x3
0827 00db       |    |		Load_Top	At_Offset_3
0828 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0829 e5fe       |    |		Load	0x2,-0x2
082a 0306       |    |		Complete_Type	Variant_Record,By_Renaming
082b 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
082c 00db       |    |		Load_Top	At_Offset_3
082d 4603       |F   |		Jump_Case	0x4
082e 7809       |x   |		Jump	0x838								; case 0x0
082f 7804       |x   |		Jump	0x834								; case 0x1
0830 7805       |x   |		Jump	0x836								; case 0x2
0831 7800       |x   |		Jump	0x832								; case 0x3
0832 4803       |H   |		Short_Literal	0x3
0833 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0834 4801       |H   |		Short_Literal	0x1
0835 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0836 4802       |H   |		Short_Literal	0x2
0837 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0838 48ff       |H   |		Short_Literal	0xff
0839 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
083a 00db       |    |		Load_Top	At_Offset_3
083b e5fe       |    |		Load	0x2,-0x2
083c 4603       |F   |		Jump_Case	0x4
083d 7809       |x   |		Jump	0x847								; case 0x0
083e 7804       |x   |		Jump	0x843								; case 0x1
083f 7805       |x   |		Jump	0x845								; case 0x2
0840 7800       |x   |		Jump	0x841								; case 0x3
0841 4803       |H   |		Short_Literal	0x3
0842 7805       |x   |		Jump	0x848
0843 4801       |H   |		Short_Literal	0x1
0844 7803       |x   |		Jump	0x848
0845 4802       |H   |		Short_Literal	0x2
0846 7801       |x   |		Jump	0x848
0847 48ff       |H   |		Short_Literal	0xff
0848 e5ff       |    |		Load	0x2,-0x1
0849 031b       |    |		Declare_Type	Variant_Record,Constrained
084a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
084b 00db       |    |		Load_Top	At_Offset_3
084c e5fe       |    |		Load	0x2,-0x2
084d e5ff       |    |		Load	0x2,-0x1
084e 1c06       |    |		Execute_Immediate	Run_Utility,0x6
084f e5ff       |    |		Load	0x2,-0x1
0850 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0851 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0852 4800       |H   |		Short_Literal	0x0
0853 00db       |    |		Load_Top	At_Offset_3
0854 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0855 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0856 0869       | i  |		Execute_Immediate	Raise,0x69
0857 0000       |    |		.XXX[0x1]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b       | [  |		.CONST	0x085b								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0001       |    |		.CONST	0x0001								; Number of locals
085b			BODY_0858:
085b			INIT_0858:
085b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
085c 0000 0000  |    |		.BLANK	0000[0x4]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863       | c  |		.CONST	0x0863								; Address of begin
0861 0004       |    |		.CONST	0x0004								; Address of exception handler
0862 0001       |    |		.CONST	0x0001								; Number of locals
0863			BODY_0860:
0863			INIT_0860:
0863 00da       |    |		Load_Top	At_Offset_2
0864 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0865 e5fd       |    |		Load	0x2,-0x3
0866 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0867 00da       |    |		Load_Top	At_Offset_2
0868 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0869 e5fd       |    |		Load	0x2,-0x3
086a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
086b e5fd       |    |		Load	0x2,-0x3
086c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
086d e5fe       |    |		Load	0x2,-0x2
086e e5ff       |    |		Load	0x2,-0x1
086f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0870 803a       | :  |		Call	0x0,0x3a
0871 e5fd       |    |		Load	0x2,-0x3
0872 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0873 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0874 0000 0000  |    |		.BLANK	0000[0x4]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b       | {  |		.CONST	0x087b								; Address of begin
0879 0004       |    |		.CONST	0x0004								; Address of exception handler
087a 0001       |    |		.CONST	0x0001								; Number of locals
087b			BODY_0878:
087b			INIT_0878:
087b 00da       |    |		Load_Top	At_Offset_2
087c e5fd       |    |		Load	0x2,-0x3
087d 016d       | m  |		Execute	Variant_Record,Structure_Write
087e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
087f 0000       |    |		.XXX[0x1]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0885       |    |		.CONST	0x0885								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 029f 107b  |   {|		Declare_Subprogram	INIT_1078,For_Call
0885			BODY_0880:
0885 00db       |    |		Load_Top	At_Offset_3
0886 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0887 0f01       |    |		Execute_Immediate	Equal,0x1
0888 6802       |h   |		Jump_Zero	0x88b
0889 8402       |    |		Call	0x2,0x2
088a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
088b 00db       |    |		Load_Top	At_Offset_3
088c e5fd       |    |		Load	0x2,-0x3
088d 016d       | m  |		Execute	Variant_Record,Structure_Write
088e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
088f 0000       |    |		.XXX[0x1]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0895       |    |		.CONST	0x0895								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0002       |    |		.CONST	0x0002								; Number of locals
0893			INIT_0890:
0893 029f 1093  |    |		Declare_Subprogram	INIT_1090,For_Call
0895			BODY_0890:
0895 00db       |    |		Load_Top	At_Offset_3
0896 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0897 4603       |F   |		Jump_Case	0x4
0898 7805       |x   |		Jump	0x89e								; case 0x0
0899 7806       |x   |		Jump	0x8a0								; case 0x1
089a 780d       |x   |		Jump	0x8a8								; case 0x2
089b 7800       |x   |		Jump	0x89c								; case 0x3
089c 8402       |    |		Call	0x2,0x2
089d 7823       |x#  |		Jump	0x8c1
089e e24a       | J  |		Load	0x1,0x4a
089f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08a0 00db       |    |		Load_Top	At_Offset_3
08a1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08a2 8278       | x  |		Call	0x1,0x78
08a3 e5ff       |    |		Load	0x2,-0x1
08a4 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
08a5 8016       |    |		Call	0x0,0x16
08a6 01cc       |    |		Execute	Vector,Catenate
08a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08a8 00db       |    |		Load_Top	At_Offset_3
08a9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
08aa 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
08ab 6807       |h   |		Jump_Zero	0x8b3
08ac 00db       |    |		Load_Top	At_Offset_3
08ad 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08ae 8278       | x  |		Call	0x1,0x78
08af 0092 1846  |   F|		Action	Push_String_Extended,0x1846					; "   -"
08b1 01cc       |    |		Execute	Vector,Catenate
08b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08b3 4825       |H%  |		Short_Literal	0x25
08b4 e5ff       |    |		Load	0x2,-0x1
08b5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08b6 8278       | x  |		Call	0x1,0x78
08b7 4820       |H   |		Short_Literal	0x20
08b8 4804       |H   |		Short_Literal	0x4
08b9 480a       |H   |		Short_Literal	0xa
08ba e5ff       |    |		Load	0x2,-0x1
08bb 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
08bc e03b       | ;  |		Load	0x0,0x3b
08bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08be 01cc       |    |		Execute	Vector,Catenate
08bf 01cb       |    |		Execute	Vector,Append
08c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c1 0831       | 1  |		Execute_Immediate	Raise,0x31
08c2 0000 0000  |    |		.BLANK	0000[0x6]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 090f       |    |		.CONST	0x090f								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0021       | !  |		.CONST	0x0021								; Number of locals
08cb			INIT_08c8:
08cb e03c       | <  |		Load	0x0,0x3c
08cc 0007       |    |		Action	Break_Optional
08cd e03d       | =  |		Load	0x0,0x3d
08ce 0322       | "  |		Declare_Variable	Record
08cf 00d8       |    |		Load_Top	At_Offset_0
08d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08d1 e03e       | >  |		Load	0x0,0x3e
08d2 0007       |    |		Action	Break_Optional
08d3 e03f       | ?  |		Load	0x0,0x3f
08d4 0007       |    |		Action	Break_Optional
08d5 e040       | @  |		Load	0x0,0x40
08d6 0007       |    |		Action	Break_Optional
08d7 e041       | A  |		Load	0x0,0x41
08d8 0007       |    |		Action	Break_Optional
08d9 e042       | B  |		Load	0x0,0x42
08da 0007       |    |		Action	Break_Optional
08db e043       | C  |		Load	0x0,0x43
08dc 0007       |    |		Action	Break_Optional
08dd e044       | D  |		Load	0x0,0x44
08de 0322       | "  |		Declare_Variable	Record
08df 00d8       |    |		Load_Top	At_Offset_0
08e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08e1 e005       |    |		Load	0x0,0x5
08e2 039d       |    |		Declare_Variable	Heap_Access,Duplicate
08e3 039d       |    |		Declare_Variable	Heap_Access,Duplicate
08e4 e23d       | =  |		Load	0x1,0x3d
08e5 0322       | "  |		Declare_Variable	Record
08e6 00d8       |    |		Load_Top	At_Offset_0
08e7 0322       | "  |		Declare_Variable	Record
08e8 00d8       |    |		Load_Top	At_Offset_0
08e9 0322       | "  |		Declare_Variable	Record
08ea e00a       |    |		Load	0x0,0xa
08eb e248       | H  |		Load	0x1,0x48
08ec 0098       |    |		Execute	Package,Field_Read_Dynamic
08ed 0322       | "  |		Declare_Variable	Record
08ee 00d8       |    |		Load_Top	At_Offset_0
08ef 0322       | "  |		Declare_Variable	Record
08f0 00d8       |    |		Load_Top	At_Offset_0
08f1 0322       | "  |		Declare_Variable	Record
08f2 8018       |    |		Call	0x0,0x18
08f3 e5fa       |    |		Load	0x2,-0x6
08f4 8045       | E  |		Call	0x0,0x45
08f5 0f00       |    |		Execute_Immediate	Equal,0x0
08f6 0007       |    |		Action	Break_Optional
08f7 00e1       |    |		Load_Encached	Boolean_Cache
08f8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08f9 03e9       |    |		Declare_Variable	Discrete,Duplicate
08fa 03e9       |    |		Declare_Variable	Discrete,Duplicate
08fb 03e9       |    |		Declare_Variable	Discrete,Duplicate
08fc e5fd       |    |		Load	0x2,-0x3
08fd 00e1       |    |		Load_Encached	Boolean_Cache
08fe 03f1       |    |		Declare_Variable	Discrete,With_Value
08ff 029f 10cb  |    |		Declare_Subprogram	INIT_10c8,For_Call
0901 029f 10e3  |    |		Declare_Subprogram	INIT_10e0,For_Call
0903 029f 110b  |    |		Declare_Subprogram	INIT_1108,For_Call
0905 029f 1163  |   c|		Declare_Subprogram	INIT_1160,For_Call
0907 029f 1173  |   s|		Declare_Subprogram	INIT_1170,For_Call
0909 029f 118b  |    |		Declare_Subprogram	INIT_1188,For_Call
090b 029f 11ab  |    |		Declare_Subprogram	INIT_11a8,For_Call
090d 029f 11db  |    |		Declare_Subprogram	INIT_11d8,For_Call
090f			BODY_08c8:
090f e414       |    |		Load	0x2,0x14
0910 6810       |h   |		Jump_Zero	0x921
0911 e5fb       |    |		Load	0x2,-0x5
0912 8046       | F  |		Call	0x0,0x46
0913 a402       |    |		Store_Unchecked	0x2,0x2
0914 e402       |    |		Load	0x2,0x2
0915 e5f9       |    |		Load	0x2,-0x7
0916 8047       | G  |		Call	0x0,0x47
0917 c402       |    |		Store	0x2,0x2
0918 e5fb       |    |		Load	0x2,-0x5
0919 8048       | H  |		Call	0x0,0x48
091a e403       |    |		Load	0x2,0x3
091b 017d       | }  |		Execute	Record,Structure_Write
091c e5fa       |    |		Load	0x2,-0x6
091d e402       |    |		Load	0x2,0x2
091e 8049       | I  |		Call	0x0,0x49
091f e403       |    |		Load	0x2,0x3
0920 017d       | }  |		Execute	Record,Structure_Write
0921 e5fb       |    |		Load	0x2,-0x5
0922 804a       | J  |		Call	0x0,0x4a
0923 a404       |    |		Store_Unchecked	0x2,0x4
0924 e404       |    |		Load	0x2,0x4
0925 e5f9       |    |		Load	0x2,-0x7
0926 804b       | K  |		Call	0x0,0x4b
0927 c404       |    |		Store	0x2,0x4
0928 e03f       | ?  |		Load	0x0,0x3f
0929 e404       |    |		Load	0x2,0x4
092a 804c       | L  |		Call	0x0,0x4c
092b c405       |    |		Store	0x2,0x5
092c 00cf       |    |		Action	Mark_Auxiliary
092d 7876       |xv  |		Jump	0x9a4
092e e5fd       |    |		Load	0x2,-0x3
092f a419       |    |		Store_Unchecked	0x2,0x19
0930 e405       |    |		Load	0x2,0x5
0931 804d       | M  |		Call	0x0,0x4d
0932 a40b       |    |		Store_Unchecked	0x2,0xb
0933 e40b       |    |		Load	0x2,0xb
0934 e404       |    |		Load	0x2,0x4
0935 804e       | N  |		Call	0x0,0x4e
0936 a406       |    |		Store_Unchecked	0x2,0x6
0937 e40e       |    |		Load	0x2,0xe
0938 e411       |    |		Load	0x2,0x11
0939 4803       |H   |		Short_Literal	0x3
093a 841e       |    |		Call	0x2,0x1e
093b 00d2       |    |		Pop_Control	Pop_Count_2
093c e041       | A  |		Load	0x0,0x41
093d e406       |    |		Load	0x2,0x6
093e 804f       | O  |		Call	0x0,0x4f
093f c407       |    |		Store	0x2,0x7
0940 00cf       |    |		Action	Mark_Auxiliary
0941 7856       |xV  |		Jump	0x998
0942 e407       |    |		Load	0x2,0x7
0943 8050       | P  |		Call	0x0,0x50
0944 a40c       |    |		Store_Unchecked	0x2,0xc
0945 e414       |    |		Load	0x2,0x14
0946 680b       |h   |		Jump_Zero	0x952
0947 e40b       |    |		Load	0x2,0xb
0948 8016       |    |		Call	0x0,0x16
0949 0092 1847  |   G|		Action	Push_String_Extended,0x1847					; "."
094b 01cc       |    |		Execute	Vector,Catenate
094c e40c       |    |		Load	0x2,0xc
094d 8016       |    |		Call	0x0,0x16
094e 01cc       |    |		Execute	Vector,Catenate
094f e403       |    |		Load	0x2,0x3
0950 8051       | Q  |		Call	0x0,0x51
0951 6842       |hB  |		Jump_Zero	0x994
0952 e40c       |    |		Load	0x2,0xc
0953 e406       |    |		Load	0x2,0x6
0954 8052       | R  |		Call	0x0,0x52
0955 a408       |    |		Store_Unchecked	0x2,0x8
0956 e40f       |    |		Load	0x2,0xf
0957 e412       |    |		Load	0x2,0x12
0958 4804       |H   |		Short_Literal	0x4
0959 841e       |    |		Call	0x2,0x1e
095a 00d2       |    |		Pop_Control	Pop_Count_2
095b e043       | C  |		Load	0x0,0x43
095c e408       |    |		Load	0x2,0x8
095d 8053       | S  |		Call	0x0,0x53
095e c409       |    |		Store	0x2,0x9
095f 00cf       |    |		Action	Mark_Auxiliary
0960 782b       |x+  |		Jump	0x98c
0961 e409       |    |		Load	0x2,0x9
0962 8054       | T  |		Call	0x0,0x54
0963 a40d       |    |		Store_Unchecked	0x2,0xd
0964 e40d       |    |		Load	0x2,0xd
0965 e408       |    |		Load	0x2,0x8
0966 8055       | U  |		Call	0x0,0x55
0967 e40a       |    |		Load	0x2,0xa
0968 017d       | }  |		Execute	Record,Structure_Write
0969 e410       |    |		Load	0x2,0x10
096a e413       |    |		Load	0x2,0x13
096b 4805       |H   |		Short_Literal	0x5
096c 841e       |    |		Call	0x2,0x1e
096d 00d2       |    |		Pop_Control	Pop_Count_2
096e e5fd       |    |		Load	0x2,-0x3
096f 0f00       |    |		Execute_Immediate	Equal,0x0
0970 e5fc       |    |		Load	0x2,-0x4
0971 0279       | y  |		Execute	Discrete,And
0972 6802       |h   |		Jump_Zero	0x975
0973 e40a       |    |		Load	0x2,0xa
0974 8420       |    |		Call	0x2,0x20
0975 e419       |    |		Load	0x2,0x19
0976 680b       |h   |		Jump_Zero	0x982
0977 e416       |    |		Load	0x2,0x16
0978 7007       |p   |		Jump_Nonzero	0x980
0979 e40a       |    |		Load	0x2,0xa
097a 8420       |    |		Call	0x2,0x20
097b e40a       |    |		Load	0x2,0xa
097c 841c       |    |		Call	0x2,0x1c
097d 4801       |H   |		Short_Literal	0x1
097e a415       |    |		Store_Unchecked	0x2,0x15
097f 7804       |x   |		Jump	0x984
0980 8421       | !  |		Call	0x2,0x21
0981 7802       |x   |		Jump	0x984
0982 e40a       |    |		Load	0x2,0xa
0983 841c       |    |		Call	0x2,0x1c
0984 e413       |    |		Load	0x2,0x13
0985 e410       |    |		Load	0x2,0x10
0986 841f       |    |		Call	0x2,0x1f
0987 00d1       |    |		Pop_Control	Pop_Count_1
0988 e409       |    |		Load	0x2,0x9
0989 8056       | V  |		Call	0x0,0x56
098a c409       |    |		Store	0x2,0x9
098b 00c9       |    |		Action	Pop_Auxiliary_Loop
098c e409       |    |		Load	0x2,0x9
098d 8057       | W  |		Call	0x0,0x57
098e 6fd2       |o   |		Jump_Zero	0x961
098f 00ce       |    |		Action	Pop_Auxiliary
0990 e412       |    |		Load	0x2,0x12
0991 e40f       |    |		Load	0x2,0xf
0992 841f       |    |		Call	0x2,0x1f
0993 00d1       |    |		Pop_Control	Pop_Count_1
0994 e407       |    |		Load	0x2,0x7
0995 8058       | X  |		Call	0x0,0x58
0996 c407       |    |		Store	0x2,0x7
0997 00c9       |    |		Action	Pop_Auxiliary_Loop
0998 e407       |    |		Load	0x2,0x7
0999 8059       | Y  |		Call	0x0,0x59
099a 6fa7       |o   |		Jump_Zero	0x942
099b 00ce       |    |		Action	Pop_Auxiliary
099c e411       |    |		Load	0x2,0x11
099d e40e       |    |		Load	0x2,0xe
099e 841f       |    |		Call	0x2,0x1f
099f 00d1       |    |		Pop_Control	Pop_Count_1
09a0 e405       |    |		Load	0x2,0x5
09a1 805a       | Z  |		Call	0x0,0x5a
09a2 c405       |    |		Store	0x2,0x5
09a3 00c9       |    |		Action	Pop_Auxiliary_Loop
09a4 e405       |    |		Load	0x2,0x5
09a5 805b       | [  |		Call	0x0,0x5b
09a6 6f87       |o   |		Jump_Zero	0x92e
09a7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09b9       |    |		.CONST	0x09b9								; Address of begin
09a9 0004       |    |		.CONST	0x0004								; Address of exception handler
09aa 0003       |    |		.CONST	0x0003								; Number of locals
09ab			INIT_09a8:
09ab e00b       |    |		Load	0x0,0xb
09ac e248       | H  |		Load	0x1,0x48
09ad 0098       |    |		Execute	Package,Field_Read_Dynamic
09ae 0322       | "  |		Declare_Variable	Record
09af e5fd       |    |		Load	0x2,-0x3
09b0 e5ff       |    |		Load	0x2,-0x1
09b1 0219       |    |		Execute	Heap_Access,All_Read
09b2 e035       | 5  |		Load	0x0,0x35
09b3 e248       | H  |		Load	0x1,0x48
09b4 0096       |    |		Execute	Package,Entry
09b5 00d9       |    |		Load_Top	At_Offset_1
09b6 017d       | }  |		Execute	Record,Structure_Write
09b7 029f 1213  |    |		Declare_Subprogram	INIT_1210,For_Call
09b9			BODY_09a8:
09b9 00cf       |    |		Action	Mark_Auxiliary
09ba 7807       |x   |		Jump	0x9c2
09bb 8403       |    |		Call	0x2,0x3
09bc 00da       |    |		Load_Top	At_Offset_2
09bd e039       | 9  |		Load	0x0,0x39
09be e248       | H  |		Load	0x1,0x48
09bf 0096       |    |		Execute	Package,Entry
09c0 00d1       |    |		Pop_Control	Pop_Count_1
09c1 00c9       |    |		Action	Pop_Auxiliary_Loop
09c2 00da       |    |		Load_Top	At_Offset_2
09c3 e036       | 6  |		Load	0x0,0x36
09c4 e248       | H  |		Load	0x1,0x48
09c5 0096       |    |		Execute	Package,Entry
09c6 6ff4       |o   |		Jump_Zero	0x9bb
09c7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cf       |    |		.CONST	0x09cf								; Address of begin
09c9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ca 0002       |    |		.CONST	0x0002								; Number of locals
09cb			INIT_09c8:
09cb e00a       |    |		Load	0x0,0xa
09cc e248       | H  |		Load	0x1,0x48
09cd 0098       |    |		Execute	Package,Field_Read_Dynamic
09ce 0322       | "  |		Declare_Variable	Record
09cf			BODY_09c8:
09cf e239       | 9  |		Load	0x1,0x39
09d0 0322       | "  |		Declare_Variable	Record
09d1 e5fd       |    |		Load	0x2,-0x3
09d2 00d9       |    |		Load_Top	At_Offset_1
09d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09d4 4801       |H   |		Short_Literal	0x1
09d5 00d9       |    |		Load_Top	At_Offset_1
09d6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09d7 4801       |H   |		Short_Literal	0x1
09d8 00d9       |    |		Load_Top	At_Offset_1
09d9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
09da e5ff       |    |		Load	0x2,-0x1
09db 00d9       |    |		Load_Top	At_Offset_1
09dc 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
09dd 4800       |H   |		Short_Literal	0x0
09de 00d9       |    |		Load_Top	At_Offset_1
09df 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
09e0 e006       |    |		Load	0x0,0x6
09e1 00d9       |    |		Load_Top	At_Offset_1
09e2 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
09e3 4801       |H   |		Short_Literal	0x1
09e4 00d9       |    |		Load_Top	At_Offset_1
09e5 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
09e6 8018       |    |		Call	0x0,0x18
09e7 00d9       |    |		Load_Top	At_Offset_1
09e8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
09e9 e5fe       |    |		Load	0x2,-0x2
09ea 00d9       |    |		Load_Top	At_Offset_1
09eb 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
09ec e5fc       |    |		Load	0x2,-0x4
09ed 0219       |    |		Execute	Heap_Access,All_Read
09ee e031       | 1  |		Load	0x0,0x31
09ef e248       | H  |		Load	0x1,0x48
09f0 0096       |    |		Execute	Package,Entry
09f1 00d8       |    |		Load_Top	At_Offset_0
09f2 4801       |H   |		Short_Literal	0x1
09f3 e5fc       |    |		Load	0x2,-0x4
09f4 0219       |    |		Execute	Heap_Access,All_Read
09f5 e05c       | \  |		Load	0x0,0x5c
09f6 e248       | H  |		Load	0x1,0x48
09f7 0096       |    |		Execute	Package,Entry
09f8 00d1       |    |		Pop_Control	Pop_Count_1
09f9 4802       |H   |		Short_Literal	0x2
09fa e23e       | >  |		Load	0x1,0x3e
09fb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
09fc e230       | 0  |		Load	0x1,0x30
09fd 00d9       |    |		Load_Top	At_Offset_1
09fe 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09ff 4800       |H   |		Short_Literal	0x0
0a00 00d9       |    |		Load_Top	At_Offset_1
0a01 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a02 00d9       |    |		Load_Top	At_Offset_1
0a03 e05d       | ]  |		Load	0x0,0x5d
0a04 e248       | H  |		Load	0x1,0x48
0a05 0096       |    |		Execute	Package,Entry
0a06 4801       |H   |		Short_Literal	0x1
0a07 e24b       | K  |		Load	0x1,0x4b
0a08 00da       |    |		Load_Top	At_Offset_2
0a09 e05e       | ^  |		Load	0x0,0x5e
0a0a e248       | H  |		Load	0x1,0x48
0a0b 0096       |    |		Execute	Package,Entry
0a0c 4802       |H   |		Short_Literal	0x2
0a0d e24d       | M  |		Load	0x1,0x4d
0a0e 00da       |    |		Load_Top	At_Offset_2
0a0f e05e       | ^  |		Load	0x0,0x5e
0a10 e248       | H  |		Load	0x1,0x48
0a11 0096       |    |		Execute	Package,Entry
0a12 4803       |H   |		Short_Literal	0x3
0a13 e24c       | L  |		Load	0x1,0x4c
0a14 00da       |    |		Load_Top	At_Offset_2
0a15 e05e       | ^  |		Load	0x0,0x5e
0a16 e248       | H  |		Load	0x1,0x48
0a17 0096       |    |		Execute	Package,Entry
0a18 00d8       |    |		Load_Top	At_Offset_0
0a19 4801       |H   |		Short_Literal	0x1
0a1a e5fc       |    |		Load	0x2,-0x4
0a1b 0219       |    |		Execute	Heap_Access,All_Read
0a1c e05c       | \  |		Load	0x0,0x5c
0a1d e248       | H  |		Load	0x1,0x48
0a1e 0096       |    |		Execute	Package,Entry
0a1f 00d1       |    |		Pop_Control	Pop_Count_1
0a20 4802       |H   |		Short_Literal	0x2
0a21 e23e       | >  |		Load	0x1,0x3e
0a22 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a23 e230       | 0  |		Load	0x1,0x30
0a24 00d9       |    |		Load_Top	At_Offset_1
0a25 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0a26 4800       |H   |		Short_Literal	0x0
0a27 00d9       |    |		Load_Top	At_Offset_1
0a28 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a29 00d9       |    |		Load_Top	At_Offset_1
0a2a e05d       | ]  |		Load	0x0,0x5d
0a2b e248       | H  |		Load	0x1,0x48
0a2c 0096       |    |		Execute	Package,Entry
0a2d 4801       |H   |		Short_Literal	0x1
0a2e 4801       |H   |		Short_Literal	0x1
0a2f 4801       |H   |		Short_Literal	0x1
0a30 e249       | I  |		Load	0x1,0x49
0a31 01d7       |    |		Execute	Vector,Field_Read
0a32 e24e       | N  |		Load	0x1,0x4e
0a33 01cf       |    |		Execute	Vector,Slice_Read
0a34 00da       |    |		Load_Top	At_Offset_2
0a35 e05e       | ^  |		Load	0x0,0x5e
0a36 e248       | H  |		Load	0x1,0x48
0a37 0096       |    |		Execute	Package,Entry
0a38 4802       |H   |		Short_Literal	0x2
0a39 4801       |H   |		Short_Literal	0x1
0a3a 4802       |H   |		Short_Literal	0x2
0a3b e249       | I  |		Load	0x1,0x49
0a3c 01d7       |    |		Execute	Vector,Field_Read
0a3d e24e       | N  |		Load	0x1,0x4e
0a3e 01cf       |    |		Execute	Vector,Slice_Read
0a3f 00da       |    |		Load_Top	At_Offset_2
0a40 e05e       | ^  |		Load	0x0,0x5e
0a41 e248       | H  |		Load	0x1,0x48
0a42 0096       |    |		Execute	Package,Entry
0a43 4803       |H   |		Short_Literal	0x3
0a44 4801       |H   |		Short_Literal	0x1
0a45 4803       |H   |		Short_Literal	0x3
0a46 e249       | I  |		Load	0x1,0x49
0a47 01d7       |    |		Execute	Vector,Field_Read
0a48 e24e       | N  |		Load	0x1,0x4e
0a49 01cf       |    |		Execute	Vector,Slice_Read
0a4a 00da       |    |		Load_Top	At_Offset_2
0a4b e05e       | ^  |		Load	0x0,0x5e
0a4c e248       | H  |		Load	0x1,0x48
0a4d 0096       |    |		Execute	Package,Entry
0a4e e249       | I  |		Load	0x1,0x49
0a4f e5fc       |    |		Load	0x2,-0x4
0a50 0219       |    |		Execute	Heap_Access,All_Read
0a51 e05f       | _  |		Load	0x0,0x5f
0a52 e248       | H  |		Load	0x1,0x48
0a53 0096       |    |		Execute	Package,Entry
0a54 00d8       |    |		Load_Top	At_Offset_0
0a55 e5fb       |    |		Load	0x2,-0x5
0a56 017d       | }  |		Execute	Record,Structure_Write
0a57 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a6d       | m  |		.CONST	0x0a6d								; Address of begin
0a59 0004       |    |		.CONST	0x0004								; Address of exception handler
0a5a 0004       |    |		.CONST	0x0004								; Number of locals
0a5b			INIT_0a58:
0a5b e00b       |    |		Load	0x0,0xb
0a5c e248       | H  |		Load	0x1,0x48
0a5d 0098       |    |		Execute	Package,Field_Read_Dynamic
0a5e 0322       | "  |		Declare_Variable	Record
0a5f 4800       |H   |		Short_Literal	0x0
0a60 e5ff       |    |		Load	0x2,-0x1
0a61 0219       |    |		Execute	Heap_Access,All_Read
0a62 e035       | 5  |		Load	0x0,0x35
0a63 e248       | H  |		Load	0x1,0x48
0a64 0096       |    |		Execute	Package,Entry
0a65 00d9       |    |		Load_Top	At_Offset_1
0a66 017d       | }  |		Execute	Record,Structure_Write
0a67 e00a       |    |		Load	0x0,0xa
0a68 e248       | H  |		Load	0x1,0x48
0a69 0098       |    |		Execute	Package,Field_Read_Dynamic
0a6a 0322       | "  |		Declare_Variable	Record
0a6b 029f 1233  |   3|		Declare_Subprogram	INIT_1230,For_Call
0a6d			BODY_0a58:
0a6d 00cf       |    |		Action	Mark_Auxiliary
0a6e 7817       |x   |		Jump	0xa86
0a6f 00db       |    |		Load_Top	At_Offset_3
0a70 e038       | 8  |		Load	0x0,0x38
0a71 e248       | H  |		Load	0x1,0x48
0a72 0096       |    |		Execute	Package,Entry
0a73 00db       |    |		Load_Top	At_Offset_3
0a74 017d       | }  |		Execute	Record,Structure_Write
0a75 00da       |    |		Load_Top	At_Offset_2
0a76 e02d       | -  |		Load	0x0,0x2d
0a77 e248       | H  |		Load	0x1,0x48
0a78 0096       |    |		Execute	Package,Entry
0a79 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a7a 4800       |H   |		Short_Literal	0x0
0a7b 4802       |H   |		Short_Literal	0x2
0a7c 0262       | b  |		Execute	Discrete,In_Range
0a7d 7002       |p   |		Jump_Nonzero	0xa80
0a7e 7800       |x   |		Jump	0xa7f
0a7f 8404       |    |		Call	0x2,0x4
0a80 00db       |    |		Load_Top	At_Offset_3
0a81 e039       | 9  |		Load	0x0,0x39
0a82 e248       | H  |		Load	0x1,0x48
0a83 0096       |    |		Execute	Package,Entry
0a84 00d1       |    |		Pop_Control	Pop_Count_1
0a85 00c9       |    |		Action	Pop_Auxiliary_Loop
0a86 00db       |    |		Load_Top	At_Offset_3
0a87 e036       | 6  |		Load	0x0,0x36
0a88 e248       | H  |		Load	0x1,0x48
0a89 0096       |    |		Execute	Package,Entry
0a8a 6fe4       |o   |		Jump_Zero	0xa6f
0a8b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a8c 0000 0000  |    |		.BLANK	0000[0x4]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a9c       |    |		.CONST	0x0a9c								; Address of begin
0a91 0004       |    |		.CONST	0x0004								; Address of exception handler
0a92 0002       |    |		.CONST	0x0002								; Number of locals
0a93			INIT_0a90:
0a93 e239       | 9  |		Load	0x1,0x39
0a94 0322       | "  |		Declare_Variable	Record
0a95 e5fe       |    |		Load	0x2,-0x2
0a96 0219       |    |		Execute	Heap_Access,All_Read
0a97 e028       | (  |		Load	0x0,0x28
0a98 e248       | H  |		Load	0x1,0x48
0a99 0096       |    |		Execute	Package,Entry
0a9a 00d9       |    |		Load_Top	At_Offset_1
0a9b 017d       | }  |		Execute	Record,Structure_Write
0a9c			BODY_0a90:
0a9c 00db       |    |		Load_Top	At_Offset_3
0a9d 00d9       |    |		Load_Top	At_Offset_1
0a9e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0a9f 00d8       |    |		Load_Top	At_Offset_0
0aa0 e5fe       |    |		Load	0x2,-0x2
0aa1 0219       |    |		Execute	Heap_Access,All_Read
0aa2 e031       | 1  |		Load	0x0,0x31
0aa3 e248       | H  |		Load	0x1,0x48
0aa4 0096       |    |		Execute	Package,Entry
0aa5 4801       |H   |		Short_Literal	0x1
0aa6 4805       |H   |		Short_Literal	0x5
0aa7 e5fe       |    |		Load	0x2,-0x2
0aa8 8251       | Q  |		Call	0x1,0x51
0aa9 00db       |    |		Load_Top	At_Offset_3
0aaa 0f01       |    |		Execute_Immediate	Equal,0x1
0aab 6803       |h   |		Jump_Zero	0xaaf
0aac 00db       |    |		Load_Top	At_Offset_3
0aad e5fe       |    |		Load	0x2,-0x2
0aae 8253       | S  |		Call	0x1,0x53
0aaf 4801       |H   |		Short_Literal	0x1
0ab0 e5fe       |    |		Load	0x2,-0x2
0ab1 8221       | !  |		Call	0x1,0x21
0ab2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ab3 0000 0000  |    |		.BLANK	0000[0x5]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0ac4       |    |		.CONST	0x0ac4								; Address of begin
0ab9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aba 0002       |    |		.CONST	0x0002								; Number of locals
0abb			INIT_0ab8:
0abb e239       | 9  |		Load	0x1,0x39
0abc 0322       | "  |		Declare_Variable	Record
0abd 00db       |    |		Load_Top	At_Offset_3
0abe 0219       |    |		Execute	Heap_Access,All_Read
0abf e028       | (  |		Load	0x0,0x28
0ac0 e248       | H  |		Load	0x1,0x48
0ac1 0096       |    |		Execute	Package,Entry
0ac2 00d9       |    |		Load_Top	At_Offset_1
0ac3 017d       | }  |		Execute	Record,Structure_Write
0ac4			BODY_0ab8:
0ac4 e5fe       |    |		Load	0x2,-0x2
0ac5 00d9       |    |		Load_Top	At_Offset_1
0ac6 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0ac7 00d8       |    |		Load_Top	At_Offset_0
0ac8 e5ff       |    |		Load	0x2,-0x1
0ac9 0219       |    |		Execute	Heap_Access,All_Read
0aca e031       | 1  |		Load	0x0,0x31
0acb e248       | H  |		Load	0x1,0x48
0acc 0096       |    |		Execute	Package,Entry
0acd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ace 0000 0000  |    |		.XXX[0x2]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad5       |    |		.CONST	0x0ad5								; Address of begin
0ad1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ad2 0002       |    |		.CONST	0x0002								; Number of locals
0ad3			INIT_0ad0:
0ad3 e006       |    |		Load	0x0,0x6
0ad4 0007       |    |		Action	Break_Optional
0ad5			BODY_0ad0:
0ad5 e006       |    |		Load	0x0,0x6
0ad6 e5fe       |    |		Load	0x2,-0x2
0ad7 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0ad8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0ad9 00db       |    |		Load_Top	At_Offset_3
0ada 00d9       |    |		Load_Top	At_Offset_1
0adb 0217       |    |		Execute	Heap_Access,All_Reference
0adc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0add e5fe       |    |		Load	0x2,-0x2
0ade 804a       | J  |		Call	0x0,0x4a
0adf 00d9       |    |		Load_Top	At_Offset_1
0ae0 0217       |    |		Execute	Heap_Access,All_Reference
0ae1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ae2 00d8       |    |		Load_Top	At_Offset_0
0ae3 0219       |    |		Execute	Heap_Access,All_Read
0ae4 00d8       |    |		Load_Top	At_Offset_0
0ae5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ae6 e5fc       |    |		Load	0x2,-0x4
0ae7 804b       | K  |		Call	0x0,0x4b
0ae8 00d9       |    |		Load_Top	At_Offset_1
0ae9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0aea 00d1       |    |		Pop_Control	Pop_Count_1
0aeb e5fe       |    |		Load	0x2,-0x2
0aec 8046       | F  |		Call	0x0,0x46
0aed 00d9       |    |		Load_Top	At_Offset_1
0aee 0217       |    |		Execute	Heap_Access,All_Reference
0aef 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0af0 00d8       |    |		Load_Top	At_Offset_0
0af1 0219       |    |		Execute	Heap_Access,All_Read
0af2 00d8       |    |		Load_Top	At_Offset_0
0af3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0af4 e5fc       |    |		Load	0x2,-0x4
0af5 8047       | G  |		Call	0x0,0x47
0af6 00d9       |    |		Load_Top	At_Offset_1
0af7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0af8 00d1       |    |		Pop_Control	Pop_Count_1
0af9 e5fc       |    |		Load	0x2,-0x4
0afa 4800       |H   |		Short_Literal	0x0
0afb 8060       | `  |		Call	0x0,0x60
0afc c5fc       |    |		Store	0x2,-0x4
0afd 00d8       |    |		Load_Top	At_Offset_0
0afe e5fd       |    |		Load	0x2,-0x3
0aff 8255       | U  |		Call	0x1,0x55
0b00 c5fd       |    |		Store	0x2,-0x3
0b01 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0b02 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b03 0000 0000  |    |		.BLANK	0000[0x5]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b14       |    |		.CONST	0x0b14								; Address of begin
0b09 0004       |    |		.CONST	0x0004								; Address of exception handler
0b0a 0002       |    |		.CONST	0x0002								; Number of locals
0b0b			INIT_0b08:
0b0b e239       | 9  |		Load	0x1,0x39
0b0c 0322       | "  |		Declare_Variable	Record
0b0d e5fe       |    |		Load	0x2,-0x2
0b0e 0219       |    |		Execute	Heap_Access,All_Read
0b0f e028       | (  |		Load	0x0,0x28
0b10 e248       | H  |		Load	0x1,0x48
0b11 0096       |    |		Execute	Package,Entry
0b12 00d9       |    |		Load_Top	At_Offset_1
0b13 017d       | }  |		Execute	Record,Structure_Write
0b14			BODY_0b08:
0b14 00db       |    |		Load_Top	At_Offset_3
0b15 00d9       |    |		Load_Top	At_Offset_1
0b16 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0b17 00d8       |    |		Load_Top	At_Offset_0
0b18 e5fe       |    |		Load	0x2,-0x2
0b19 0219       |    |		Execute	Heap_Access,All_Read
0b1a e031       | 1  |		Load	0x0,0x31
0b1b e248       | H  |		Load	0x1,0x48
0b1c 0096       |    |		Execute	Package,Entry
0b1d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b1e 0000 0000  |    |		.XXX[0x2]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b2c       | ,  |		.CONST	0x0b2c								; Address of begin
0b21 0004       |    |		.CONST	0x0004								; Address of exception handler
0b22 0002       |    |		.CONST	0x0002								; Number of locals
0b23			INIT_0b20:
0b23 e239       | 9  |		Load	0x1,0x39
0b24 0322       | "  |		Declare_Variable	Record
0b25 e5fe       |    |		Load	0x2,-0x2
0b26 0219       |    |		Execute	Heap_Access,All_Read
0b27 e028       | (  |		Load	0x0,0x28
0b28 e248       | H  |		Load	0x1,0x48
0b29 0096       |    |		Execute	Package,Entry
0b2a 00d9       |    |		Load_Top	At_Offset_1
0b2b 017d       | }  |		Execute	Record,Structure_Write
0b2c			BODY_0b20:
0b2c 00db       |    |		Load_Top	At_Offset_3
0b2d 00d9       |    |		Load_Top	At_Offset_1
0b2e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0b2f 00d8       |    |		Load_Top	At_Offset_0
0b30 e5fe       |    |		Load	0x2,-0x2
0b31 0219       |    |		Execute	Heap_Access,All_Read
0b32 e031       | 1  |		Load	0x0,0x31
0b33 e248       | H  |		Load	0x1,0x48
0b34 0096       |    |		Execute	Package,Entry
0b35 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b36 0000 0000  |    |		.XXX[0x2]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b3b       | ;  |		.CONST	0x0b3b								; Address of begin
0b39 0004       |    |		.CONST	0x0004								; Address of exception handler
0b3a 0001       |    |		.CONST	0x0001								; Number of locals
0b3b			BODY_0b38:
0b3b			INIT_0b38:
0b3b 00da       |    |		Load_Top	At_Offset_2
0b3c 8061       | a  |		Call	0x0,0x61
0b3d 7003       |p   |		Jump_Nonzero	0xb41
0b3e 4800       |H   |		Short_Literal	0x0
0b3f a5fe       |    |		Store_Unchecked	0x2,-0x2
0b40 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b41 4801       |H   |		Short_Literal	0x1
0b42 a5fe       |    |		Store_Unchecked	0x2,-0x2
0b43 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b44 0000 0000  |    |		.BLANK	0000[0x4]
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b4b       | K  |		.CONST	0x0b4b								; Address of begin
0b49 0004       |    |		.CONST	0x0004								; Address of exception handler
0b4a 0001       |    |		.CONST	0x0001								; Number of locals
0b4b			BODY_0b48:
0b4b			INIT_0b48:
0b4b 00db       |    |		Load_Top	At_Offset_3
0b4c 00db       |    |		Load_Top	At_Offset_3
0b4d 802a       | *  |		Call	0x0,0x2a
0b4e e062       | b  |		Load	0x0,0x62
0b4f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b50 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b51 8017       |    |		Call	0x0,0x17
0b52 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0b53 0000 0000  |    |		.BLANK	0000[0x5]
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b98       |    |		.CONST	0x0b98								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 0018       |    |		.CONST	0x0018								; Number of locals
0b5b			INIT_0b58:
0b5b 00f1       |    |		Load_Encached	Diana_Temp_Seq
0b5c e239       | 9  |		Load	0x1,0x39
0b5d 0322       | "  |		Declare_Variable	Record
0b5e e5ff       |    |		Load	0x2,-0x1
0b5f 0219       |    |		Execute	Heap_Access,All_Read
0b60 e028       | (  |		Load	0x0,0x28
0b61 e248       | H  |		Load	0x1,0x48
0b62 0096       |    |		Execute	Package,Entry
0b63 00d9       |    |		Load_Top	At_Offset_1
0b64 017d       | }  |		Execute	Record,Structure_Write
0b65 00d8       |    |		Load_Top	At_Offset_0
0b66 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0b67 0007       |    |		Action	Break_Optional
0b68 e00d       |    |		Load	0x0,0xd
0b69 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0b6a 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0b6b e403       |    |		Load	0x2,0x3
0b6c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b6d 0007       |    |		Action	Break_Optional
0b6e e005       |    |		Load	0x0,0x5
0b6f e403       |    |		Load	0x2,0x3
0b70 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0b71 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0b72 8018       |    |		Call	0x0,0x18
0b73 00d9       |    |		Load_Top	At_Offset_1
0b74 8045       | E  |		Call	0x0,0x45
0b75 0f00       |    |		Execute_Immediate	Equal,0x0
0b76 0007       |    |		Action	Break_Optional
0b77 e03d       | =  |		Load	0x0,0x3d
0b78 0322       | "  |		Declare_Variable	Record
0b79 00d8       |    |		Load_Top	At_Offset_0
0b7a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b7b e03c       | <  |		Load	0x0,0x3c
0b7c 0007       |    |		Action	Break_Optional
0b7d e040       | @  |		Load	0x0,0x40
0b7e 0007       |    |		Action	Break_Optional
0b7f e042       | B  |		Load	0x0,0x42
0b80 0007       |    |		Action	Break_Optional
0b81 e044       | D  |		Load	0x0,0x44
0b82 0322       | "  |		Declare_Variable	Record
0b83 00d8       |    |		Load_Top	At_Offset_0
0b84 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b85 e005       |    |		Load	0x0,0x5
0b86 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0b87 e403       |    |		Load	0x2,0x3
0b88 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b89 0f00       |    |		Execute_Immediate	Equal,0x0
0b8a 00e1       |    |		Load_Encached	Boolean_Cache
0b8b 03f1       |    |		Declare_Variable	Discrete,With_Value
0b8c 029f 12c3  |    |		Declare_Subprogram	INIT_12c0,For_Call
0b8e 029f 12eb  |    |		Declare_Subprogram	INIT_12e8,For_Call
0b90 029f 131b  |    |		Declare_Subprogram	INIT_1318,For_Call
0b92 029f 133b  |   ;|		Declare_Subprogram	INIT_1338,For_Call
0b94 029f 136b  |   k|		Declare_Subprogram	INIT_1368,For_Call
0b96 029f 13c3  |    |		Declare_Subprogram	INIT_13c0,For_Call
0b98			BODY_0b58:
0b98 e5fd       |    |		Load	0x2,-0x3
0b99 4804       |H   |		Short_Literal	0x4
0b9a 4806       |H   |		Short_Literal	0x6
0b9b 0262       | b  |		Execute	Discrete,In_Range
0b9c 7003       |p   |		Jump_Nonzero	0xba0
0b9d 4801       |H   |		Short_Literal	0x1
0b9e a5fc       |    |		Store_Unchecked	0x2,-0x4
0b9f 781c       |x   |		Jump	0xbbc
0ba0 e5fc       |    |		Load	0x2,-0x4
0ba1 6802       |h   |		Jump_Zero	0xba4
0ba2 8417       |    |		Call	0x2,0x17
0ba3 7818       |x   |		Jump	0xbbc
0ba4 4801       |H   |		Short_Literal	0x1
0ba5 a5fc       |    |		Store_Unchecked	0x2,-0x4
0ba6 e408       |    |		Load	0x2,0x8
0ba7 801d       |    |		Call	0x0,0x1d
0ba8 a405       |    |		Store_Unchecked	0x2,0x5
0ba9 e408       |    |		Load	0x2,0x8
0baa 801d       |    |		Call	0x0,0x1d
0bab a406       |    |		Store_Unchecked	0x2,0x6
0bac e408       |    |		Load	0x2,0x8
0bad 801d       |    |		Call	0x0,0x1d
0bae a407       |    |		Store_Unchecked	0x2,0x7
0baf 00cf       |    |		Action	Mark_Auxiliary
0bb0 7806       |x   |		Jump	0xbb7
0bb1 8418       |    |		Call	0x2,0x18
0bb2 e404       |    |		Load	0x2,0x4
0bb3 0217       |    |		Execute	Heap_Access,All_Reference
0bb4 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0bb5 a404       |    |		Store_Unchecked	0x2,0x4
0bb6 00c9       |    |		Action	Pop_Auxiliary_Loop
0bb7 e404       |    |		Load	0x2,0x4
0bb8 77f8       |w   |		Jump_Nonzero	0xbb1
0bb9 00ce       |    |		Action	Pop_Auxiliary
0bba 8415       |    |		Call	0x2,0x15
0bbb 8416       |    |		Call	0x2,0x16
0bbc e402       |    |		Load	0x2,0x2
0bbd a5fb       |    |		Store_Unchecked	0x2,-0x5
0bbe 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0bbf 0000       |    |		.XXX[0x1]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bcc       |    |		.CONST	0x0bcc								; Address of begin
0bc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bc2 0002       |    |		.CONST	0x0002								; Number of locals
0bc3			INIT_0bc0:
0bc3 e00a       |    |		Load	0x0,0xa
0bc4 e248       | H  |		Load	0x1,0x48
0bc5 0098       |    |		Execute	Package,Field_Read_Dynamic
0bc6 0322       | "  |		Declare_Variable	Record
0bc7 00db       |    |		Load_Top	At_Offset_3
0bc8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0bc9 0217       |    |		Execute	Heap_Access,All_Reference
0bca 00d9       |    |		Load_Top	At_Offset_1
0bcb 017d       | }  |		Execute	Record,Structure_Write
0bcc			BODY_0bc0:
0bcc 00d8       |    |		Load_Top	At_Offset_0
0bcd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bce 0000 0000  |    |		.XXX[0x2]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bdc       |    |		.CONST	0x0bdc								; Address of begin
0bd1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bd2 0002       |    |		.CONST	0x0002								; Number of locals
0bd3			INIT_0bd0:
0bd3 e00a       |    |		Load	0x0,0xa
0bd4 e248       | H  |		Load	0x1,0x48
0bd5 0098       |    |		Execute	Package,Field_Read_Dynamic
0bd6 0322       | "  |		Declare_Variable	Record
0bd7 00db       |    |		Load_Top	At_Offset_3
0bd8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0bd9 0217       |    |		Execute	Heap_Access,All_Reference
0bda 00d9       |    |		Load_Top	At_Offset_1
0bdb 017d       | }  |		Execute	Record,Structure_Write
0bdc			BODY_0bd0:
0bdc 00db       |    |		Load_Top	At_Offset_3
0bdd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0bde 4606       |F   |		Jump_Case	0x7
0bdf 780e       |x   |		Jump	0xbee								; case 0x0
0be0 780d       |x   |		Jump	0xbee								; case 0x1
0be1 780c       |x   |		Jump	0xbee								; case 0x2
0be2 780b       |x   |		Jump	0xbee								; case 0x3
0be3 7808       |x   |		Jump	0xbec								; case 0x4
0be4 7801       |x   |		Jump	0xbe6								; case 0x5
0be5 7800       |x   |		Jump	0xbe6								; case 0x6
0be6 00d8       |    |		Load_Top	At_Offset_0
0be7 e02d       | -  |		Load	0x0,0x2d
0be8 e248       | H  |		Load	0x1,0x48
0be9 0096       |    |		Execute	Package,Entry
0bea 825d       | ]  |		Call	0x1,0x5d
0beb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bec 00d8       |    |		Load_Top	At_Offset_0
0bed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bee 00d8       |    |		Load_Top	At_Offset_0
0bef 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bfb       |    |		.CONST	0x0bfb								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0002       |    |		.CONST	0x0002								; Number of locals
0bf3			INIT_0bf0:
0bf3 e23e       | >  |		Load	0x1,0x3e
0bf4 02ff       |    |		Declare_Variable	Variant_Record
0bf5 00db       |    |		Load_Top	At_Offset_3
0bf6 e02d       | -  |		Load	0x0,0x2d
0bf7 e248       | H  |		Load	0x1,0x48
0bf8 0096       |    |		Execute	Package,Entry
0bf9 00d9       |    |		Load_Top	At_Offset_1
0bfa 016d       | m  |		Execute	Variant_Record,Structure_Write
0bfb			BODY_0bf0:
0bfb 00d8       |    |		Load_Top	At_Offset_0
0bfc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0bfd 4606       |F   |		Jump_Case	0x7
0bfe 780d       |x   |		Jump	0xc0c								; case 0x0
0bff 780c       |x   |		Jump	0xc0c								; case 0x1
0c00 780b       |x   |		Jump	0xc0c								; case 0x2
0c01 7808       |x   |		Jump	0xc0a								; case 0x3
0c02 7809       |x   |		Jump	0xc0c								; case 0x4
0c03 7801       |x   |		Jump	0xc05								; case 0x5
0c04 7800       |x   |		Jump	0xc05								; case 0x6
0c05 00d8       |    |		Load_Top	At_Offset_0
0c06 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c07 0217       |    |		Execute	Heap_Access,All_Reference
0c08 825e       | ^  |		Call	0x1,0x5e
0c09 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0a 00db       |    |		Load_Top	At_Offset_3
0c0b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0c 00d8       |    |		Load_Top	At_Offset_0
0c0d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c0e 0217       |    |		Execute	Heap_Access,All_Reference
0c0f 0320       |    |		Declare_Variable	Record,Duplicate
0c10 00cd       |    |		Action	Spare6_Action
0c11 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c12 0000 0000  |    |		.BLANK	0000[0x6]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c23       | #  |		.CONST	0x0c23								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0002       |    |		.CONST	0x0002								; Number of locals
0c1b			INIT_0c18:
0c1b e00a       |    |		Load	0x0,0xa
0c1c e248       | H  |		Load	0x1,0x48
0c1d 0098       |    |		Execute	Package,Field_Read_Dynamic
0c1e 0322       | "  |		Declare_Variable	Record
0c1f 00db       |    |		Load_Top	At_Offset_3
0c20 825e       | ^  |		Call	0x1,0x5e
0c21 00d9       |    |		Load_Top	At_Offset_1
0c22 017d       | }  |		Execute	Record,Structure_Write
0c23			BODY_0c18:
0c23 00d8       |    |		Load_Top	At_Offset_0
0c24 e02d       | -  |		Load	0x0,0x2d
0c25 e248       | H  |		Load	0x1,0x48
0c26 0096       |    |		Execute	Package,Entry
0c27 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c28 4803       |H   |		Short_Literal	0x3
0c29 4806       |H   |		Short_Literal	0x6
0c2a 0262       | b  |		Execute	Discrete,In_Range
0c2b 7002       |p   |		Jump_Nonzero	0xc2e
0c2c e5fe       |    |		Load	0x2,-0x2
0c2d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c2e 4801       |H   |		Short_Literal	0x1
0c2f 00d9       |    |		Load_Top	At_Offset_1
0c30 e063       | c  |		Load	0x0,0x63
0c31 e248       | H  |		Load	0x1,0x48
0c32 0096       |    |		Execute	Package,Entry
0c33 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c34 8016       |    |		Call	0x0,0x16
0c35 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c36 0000 0000  |    |		.XXX[0x2]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c45       | E  |		.CONST	0x0c45								; Address of begin
0c39 0004       |    |		.CONST	0x0004								; Address of exception handler
0c3a 0003       |    |		.CONST	0x0003								; Number of locals
0c3b			INIT_0c38:
0c3b e00a       |    |		Load	0x0,0xa
0c3c e248       | H  |		Load	0x1,0x48
0c3d 0098       |    |		Execute	Package,Field_Read_Dynamic
0c3e 0322       | "  |		Declare_Variable	Record
0c3f 00db       |    |		Load_Top	At_Offset_3
0c40 825e       | ^  |		Call	0x1,0x5e
0c41 00d9       |    |		Load_Top	At_Offset_1
0c42 017d       | }  |		Execute	Record,Structure_Write
0c43 e005       |    |		Load	0x0,0x5
0c44 0007       |    |		Action	Break_Optional
0c45			BODY_0c38:
0c45 00d9       |    |		Load_Top	At_Offset_1
0c46 e02d       | -  |		Load	0x0,0x2d
0c47 e248       | H  |		Load	0x1,0x48
0c48 0096       |    |		Execute	Package,Entry
0c49 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c4a 4803       |H   |		Short_Literal	0x3
0c4b 4806       |H   |		Short_Literal	0x6
0c4c 0262       | b  |		Execute	Discrete,In_Range
0c4d 7002       |p   |		Jump_Nonzero	0xc50
0c4e 00d8       |    |		Load_Top	At_Offset_0
0c4f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c50 4801       |H   |		Short_Literal	0x1
0c51 00da       |    |		Load_Top	At_Offset_2
0c52 e063       | c  |		Load	0x0,0x63
0c53 e248       | H  |		Load	0x1,0x48
0c54 0096       |    |		Execute	Package,Entry
0c55 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c56 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c57 0000       |    |		.XXX[0x1]
0c58 ; --------------------------------------------------------------------------------------
0c58 ; SUBPROGRAM
0c58 ; --------------------------------------------------------------------------------------
0c58 0c63       | c  |		.CONST	0x0c63								; Address of begin
0c59 0004       |    |		.CONST	0x0004								; Address of exception handler
0c5a 0002       |    |		.CONST	0x0002								; Number of locals
0c5b			INIT_0c58:
0c5b e23e       | >  |		Load	0x1,0x3e
0c5c 02ff       |    |		Declare_Variable	Variant_Record
0c5d 00db       |    |		Load_Top	At_Offset_3
0c5e e02d       | -  |		Load	0x0,0x2d
0c5f e248       | H  |		Load	0x1,0x48
0c60 0096       |    |		Execute	Package,Entry
0c61 00d9       |    |		Load_Top	At_Offset_1
0c62 016d       | m  |		Execute	Variant_Record,Structure_Write
0c63			BODY_0c58:
0c63 00d8       |    |		Load_Top	At_Offset_0
0c64 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c65 4606       |F   |		Jump_Case	0x7
0c66 780e       |x   |		Jump	0xc75								; case 0x0
0c67 780d       |x   |		Jump	0xc75								; case 0x1
0c68 780c       |x   |		Jump	0xc75								; case 0x2
0c69 780b       |x   |		Jump	0xc75								; case 0x3
0c6a 7808       |x   |		Jump	0xc73								; case 0x4
0c6b 7801       |x   |		Jump	0xc6d								; case 0x5
0c6c 7800       |x   |		Jump	0xc6d								; case 0x6
0c6d 00d8       |    |		Load_Top	At_Offset_0
0c6e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c6f 0217       |    |		Execute	Heap_Access,All_Reference
0c70 0320       |    |		Declare_Variable	Record,Duplicate
0c71 00cd       |    |		Action	Spare6_Action
0c72 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c73 00db       |    |		Load_Top	At_Offset_3
0c74 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c75 00d8       |    |		Load_Top	At_Offset_0
0c76 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0c77 0217       |    |		Execute	Heap_Access,All_Reference
0c78 0320       |    |		Declare_Variable	Record,Duplicate
0c79 00cd       |    |		Action	Spare6_Action
0c7a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c7b 0000 0000  |    |		.BLANK	0000[0x5]
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c8b       |    |		.CONST	0x0c8b								; Address of begin
0c81 0004       |    |		.CONST	0x0004								; Address of exception handler
0c82 0002       |    |		.CONST	0x0002								; Number of locals
0c83			INIT_0c80:
0c83 e00a       |    |		Load	0x0,0xa
0c84 e248       | H  |		Load	0x1,0x48
0c85 0098       |    |		Execute	Package,Field_Read_Dynamic
0c86 0322       | "  |		Declare_Variable	Record
0c87 00db       |    |		Load_Top	At_Offset_3
0c88 8261       | a  |		Call	0x1,0x61
0c89 00d9       |    |		Load_Top	At_Offset_1
0c8a 017d       | }  |		Execute	Record,Structure_Write
0c8b			BODY_0c80:
0c8b 00d8       |    |		Load_Top	At_Offset_0
0c8c e02d       | -  |		Load	0x0,0x2d
0c8d e248       | H  |		Load	0x1,0x48
0c8e 0096       |    |		Execute	Package,Entry
0c8f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c90 4803       |H   |		Short_Literal	0x3
0c91 4806       |H   |		Short_Literal	0x6
0c92 0262       | b  |		Execute	Discrete,In_Range
0c93 7002       |p   |		Jump_Nonzero	0xc96
0c94 e5fe       |    |		Load	0x2,-0x2
0c95 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c96 4801       |H   |		Short_Literal	0x1
0c97 00d9       |    |		Load_Top	At_Offset_1
0c98 e063       | c  |		Load	0x0,0x63
0c99 e248       | H  |		Load	0x1,0x48
0c9a 0096       |    |		Execute	Package,Entry
0c9b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c9c 8016       |    |		Call	0x0,0x16
0c9d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c9e 0000 0000  |    |		.XXX[0x2]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0cad       |    |		.CONST	0x0cad								; Address of begin
0ca1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ca2 0003       |    |		.CONST	0x0003								; Number of locals
0ca3			INIT_0ca0:
0ca3 e00a       |    |		Load	0x0,0xa
0ca4 e248       | H  |		Load	0x1,0x48
0ca5 0098       |    |		Execute	Package,Field_Read_Dynamic
0ca6 0322       | "  |		Declare_Variable	Record
0ca7 00db       |    |		Load_Top	At_Offset_3
0ca8 8261       | a  |		Call	0x1,0x61
0ca9 00d9       |    |		Load_Top	At_Offset_1
0caa 017d       | }  |		Execute	Record,Structure_Write
0cab e005       |    |		Load	0x0,0x5
0cac 0007       |    |		Action	Break_Optional
0cad			BODY_0ca0:
0cad 00d9       |    |		Load_Top	At_Offset_1
0cae e02d       | -  |		Load	0x0,0x2d
0caf e248       | H  |		Load	0x1,0x48
0cb0 0096       |    |		Execute	Package,Entry
0cb1 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0cb2 4803       |H   |		Short_Literal	0x3
0cb3 4806       |H   |		Short_Literal	0x6
0cb4 0262       | b  |		Execute	Discrete,In_Range
0cb5 7002       |p   |		Jump_Nonzero	0xcb8
0cb6 00d8       |    |		Load_Top	At_Offset_0
0cb7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cb8 4801       |H   |		Short_Literal	0x1
0cb9 00da       |    |		Load_Top	At_Offset_2
0cba e063       | c  |		Load	0x0,0x63
0cbb e248       | H  |		Load	0x1,0x48
0cbc 0096       |    |		Execute	Package,Entry
0cbd 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0cbe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cbf 0000       |    |		.XXX[0x1]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0ccc       |    |		.CONST	0x0ccc								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0002       |    |		.CONST	0x0002								; Number of locals
0cc3			INIT_0cc0:
0cc3 e241       | A  |		Load	0x1,0x41
0cc4 02ff       |    |		Declare_Variable	Variant_Record
0cc5 4801       |H   |		Short_Literal	0x1
0cc6 e5ff       |    |		Load	0x2,-0x1
0cc7 e063       | c  |		Load	0x0,0x63
0cc8 e248       | H  |		Load	0x1,0x48
0cc9 0096       |    |		Execute	Package,Entry
0cca 00d9       |    |		Load_Top	At_Offset_1
0ccb 016d       | m  |		Execute	Variant_Record,Structure_Write
0ccc			BODY_0cc0:
0ccc 00db       |    |		Load_Top	At_Offset_3
0ccd e02d       | -  |		Load	0x0,0x2d
0cce e248       | H  |		Load	0x1,0x48
0ccf 0096       |    |		Execute	Package,Entry
0cd0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0cd1 4805       |H   |		Short_Literal	0x5
0cd2 4806       |H   |		Short_Literal	0x6
0cd3 0262       | b  |		Execute	Discrete,In_Range
0cd4 7002       |p   |		Jump_Nonzero	0xcd7
0cd5 e5fe       |    |		Load	0x2,-0x2
0cd6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cd7 00d8       |    |		Load_Top	At_Offset_0
0cd8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0cd9 8016       |    |		Call	0x0,0x16
0cda 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cdb 0000 0000  |    |		.BLANK	0000[0x5]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0cee       |    |		.CONST	0x0cee								; Address of begin
0ce1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ce2 0003       |    |		.CONST	0x0003								; Number of locals
0ce3			INIT_0ce0:
0ce3 e241       | A  |		Load	0x1,0x41
0ce4 02ff       |    |		Declare_Variable	Variant_Record
0ce5 4801       |H   |		Short_Literal	0x1
0ce6 e5ff       |    |		Load	0x2,-0x1
0ce7 e063       | c  |		Load	0x0,0x63
0ce8 e248       | H  |		Load	0x1,0x48
0ce9 0096       |    |		Execute	Package,Entry
0cea 00d9       |    |		Load_Top	At_Offset_1
0ceb 016d       | m  |		Execute	Variant_Record,Structure_Write
0cec e005       |    |		Load	0x0,0x5
0ced 0007       |    |		Action	Break_Optional
0cee			BODY_0ce0:
0cee e5ff       |    |		Load	0x2,-0x1
0cef e02d       | -  |		Load	0x0,0x2d
0cf0 e248       | H  |		Load	0x1,0x48
0cf1 0096       |    |		Execute	Package,Entry
0cf2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0cf3 4805       |H   |		Short_Literal	0x5
0cf4 4806       |H   |		Short_Literal	0x6
0cf5 0262       | b  |		Execute	Discrete,In_Range
0cf6 7002       |p   |		Jump_Nonzero	0xcf9
0cf7 00d8       |    |		Load_Top	At_Offset_0
0cf8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cf9 00d9       |    |		Load_Top	At_Offset_1
0cfa 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0cfb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cfc 0000 0000  |    |		.BLANK	0000[0x4]
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d0c       |    |		.CONST	0x0d0c								; Address of begin
0d01 0004       |    |		.CONST	0x0004								; Address of exception handler
0d02 0002       |    |		.CONST	0x0002								; Number of locals
0d03			INIT_0d00:
0d03 e241       | A  |		Load	0x1,0x41
0d04 02ff       |    |		Declare_Variable	Variant_Record
0d05 4802       |H   |		Short_Literal	0x2
0d06 e5ff       |    |		Load	0x2,-0x1
0d07 e063       | c  |		Load	0x0,0x63
0d08 e248       | H  |		Load	0x1,0x48
0d09 0096       |    |		Execute	Package,Entry
0d0a 00d9       |    |		Load_Top	At_Offset_1
0d0b 016d       | m  |		Execute	Variant_Record,Structure_Write
0d0c			BODY_0d00:
0d0c 00d8       |    |		Load_Top	At_Offset_0
0d0d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0d0e 4803       |H   |		Short_Literal	0x3
0d0f 4806       |H   |		Short_Literal	0x6
0d10 0262       | b  |		Execute	Discrete,In_Range
0d11 7002       |p   |		Jump_Nonzero	0xd14
0d12 4fff       |O   |		Short_Literal	-0x1
0d13 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d14 00d8       |    |		Load_Top	At_Offset_0
0d15 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0d16 0c65       | e  |		Execute_Immediate	Greater_Equal,0x65
0d17 6802       |h   |		Jump_Zero	0xd1a
0d18 4fff       |O   |		Short_Literal	-0x1
0d19 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d1a 00d8       |    |		Load_Top	At_Offset_0
0d1b 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0d1c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d1d 0000 0000  |    |		.XXX[0x3]
0d1f 0000       |    |
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d25       | %  |		.CONST	0x0d25								; Address of begin
0d21 0004       |    |		.CONST	0x0004								; Address of exception handler
0d22 0002       |    |		.CONST	0x0002								; Number of locals
0d23			INIT_0d20:
0d23 00e1       |    |		Load_Encached	Boolean_Cache
0d24 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d25			BODY_0d20:
0d25 e24a       | J  |		Load	0x1,0x4a
0d26 e5ff       |    |		Load	0x2,-0x1
0d27 825f       | _  |		Call	0x1,0x5f
0d28 e24a       | J  |		Load	0x1,0x4a
0d29 e5fe       |    |		Load	0x2,-0x2
0d2a 825f       | _  |		Call	0x1,0x5f
0d2b 01c1       |    |		Execute	Vector,Less
0d2c 6803       |h   |		Jump_Zero	0xd30
0d2d 4801       |H   |		Short_Literal	0x1
0d2e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0d2f 7823       |x#  |		Jump	0xd53
0d30 e24a       | J  |		Load	0x1,0x4a
0d31 e5ff       |    |		Load	0x2,-0x1
0d32 825f       | _  |		Call	0x1,0x5f
0d33 e24a       | J  |		Load	0x1,0x4a
0d34 e5fe       |    |		Load	0x2,-0x2
0d35 825f       | _  |		Call	0x1,0x5f
0d36 01df       |    |		Execute	Vector,Equal
0d37 681b       |h   |		Jump_Zero	0xd53
0d38 e24a       | J  |		Load	0x1,0x4a
0d39 e5ff       |    |		Load	0x2,-0x1
0d3a 8262       | b  |		Call	0x1,0x62
0d3b e24a       | J  |		Load	0x1,0x4a
0d3c e5fe       |    |		Load	0x2,-0x2
0d3d 8262       | b  |		Call	0x1,0x62
0d3e 01c1       |    |		Execute	Vector,Less
0d3f 6803       |h   |		Jump_Zero	0xd43
0d40 4801       |H   |		Short_Literal	0x1
0d41 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0d42 7810       |x   |		Jump	0xd53
0d43 e24a       | J  |		Load	0x1,0x4a
0d44 e5ff       |    |		Load	0x2,-0x1
0d45 8262       | b  |		Call	0x1,0x62
0d46 e24a       | J  |		Load	0x1,0x4a
0d47 e5fe       |    |		Load	0x2,-0x2
0d48 8262       | b  |		Call	0x1,0x62
0d49 01df       |    |		Execute	Vector,Equal
0d4a 6808       |h   |		Jump_Zero	0xd53
0d4b e24a       | J  |		Load	0x1,0x4a
0d4c e5ff       |    |		Load	0x2,-0x1
0d4d 8264       | d  |		Call	0x1,0x64
0d4e e24a       | J  |		Load	0x1,0x4a
0d4f e5fe       |    |		Load	0x2,-0x2
0d50 8264       | d  |		Call	0x1,0x64
0d51 01c1       |    |		Execute	Vector,Less
0d52 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0d53 00d8       |    |		Load_Top	At_Offset_0
0d54 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0d55 0000 0000  |    |		.XXX[0x3]
0d57 0000       |    |
0d58 ; --------------------------------------------------------------------------------------
0d58 ; SUBPROGRAM
0d58 ; --------------------------------------------------------------------------------------
0d58 0d5f       | _  |		.CONST	0x0d5f								; Address of begin
0d59 0004       |    |		.CONST	0x0004								; Address of exception handler
0d5a 0003       |    |		.CONST	0x0003								; Number of locals
0d5b			INIT_0d58:
0d5b 00e1       |    |		Load_Encached	Boolean_Cache
0d5c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d5d 0092 1848  |   H|		Action	Push_String_Extended,0x1848					; "~"
0d5f			BODY_0d58:
0d5f 00d8       |    |		Load_Top	At_Offset_0
0d60 e5fe       |    |		Load	0x2,-0x2
0d61 825f       | _  |		Call	0x1,0x5f
0d62 00d9       |    |		Load_Top	At_Offset_1
0d63 e5ff       |    |		Load	0x2,-0x1
0d64 825f       | _  |		Call	0x1,0x5f
0d65 01c1       |    |		Execute	Vector,Less
0d66 6803       |h   |		Jump_Zero	0xd6a
0d67 4801       |H   |		Short_Literal	0x1
0d68 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d69 7823       |x#  |		Jump	0xd8d
0d6a 00d8       |    |		Load_Top	At_Offset_0
0d6b e5ff       |    |		Load	0x2,-0x1
0d6c 825f       | _  |		Call	0x1,0x5f
0d6d 00d9       |    |		Load_Top	At_Offset_1
0d6e e5fe       |    |		Load	0x2,-0x2
0d6f 825f       | _  |		Call	0x1,0x5f
0d70 01df       |    |		Execute	Vector,Equal
0d71 681b       |h   |		Jump_Zero	0xd8d
0d72 00d8       |    |		Load_Top	At_Offset_0
0d73 e5fe       |    |		Load	0x2,-0x2
0d74 8262       | b  |		Call	0x1,0x62
0d75 00d9       |    |		Load_Top	At_Offset_1
0d76 e5ff       |    |		Load	0x2,-0x1
0d77 8262       | b  |		Call	0x1,0x62
0d78 01c1       |    |		Execute	Vector,Less
0d79 6803       |h   |		Jump_Zero	0xd7d
0d7a 4801       |H   |		Short_Literal	0x1
0d7b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d7c 7810       |x   |		Jump	0xd8d
0d7d 00d8       |    |		Load_Top	At_Offset_0
0d7e e5ff       |    |		Load	0x2,-0x1
0d7f 8262       | b  |		Call	0x1,0x62
0d80 00d9       |    |		Load_Top	At_Offset_1
0d81 e5fe       |    |		Load	0x2,-0x2
0d82 8262       | b  |		Call	0x1,0x62
0d83 01df       |    |		Execute	Vector,Equal
0d84 6808       |h   |		Jump_Zero	0xd8d
0d85 00d8       |    |		Load_Top	At_Offset_0
0d86 e5fe       |    |		Load	0x2,-0x2
0d87 8264       | d  |		Call	0x1,0x64
0d88 00d9       |    |		Load_Top	At_Offset_1
0d89 e5ff       |    |		Load	0x2,-0x1
0d8a 8264       | d  |		Call	0x1,0x64
0d8b 01c1       |    |		Execute	Vector,Less
0d8c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0d8d 00d9       |    |		Load_Top	At_Offset_1
0d8e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0d8f 0000       |    |		.XXX[0x1]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0da7       |    |		.CONST	0x0da7								; Address of begin
0d91 0004       |    |		.CONST	0x0004								; Address of exception handler
0d92 0006       |    |		.CONST	0x0006								; Number of locals
0d93			INIT_0d90:
0d93 e23e       | >  |		Load	0x1,0x3e
0d94 02ff       |    |		Declare_Variable	Variant_Record
0d95 00db       |    |		Load_Top	At_Offset_3
0d96 e02d       | -  |		Load	0x0,0x2d
0d97 e248       | H  |		Load	0x1,0x48
0d98 0096       |    |		Execute	Package,Entry
0d99 00d9       |    |		Load_Top	At_Offset_1
0d9a 016d       | m  |		Execute	Variant_Record,Structure_Write
0d9b e23e       | >  |		Load	0x1,0x3e
0d9c 02ff       |    |		Declare_Variable	Variant_Record
0d9d e5fe       |    |		Load	0x2,-0x2
0d9e e02d       | -  |		Load	0x0,0x2d
0d9f e248       | H  |		Load	0x1,0x48
0da0 0096       |    |		Execute	Package,Entry
0da1 00d9       |    |		Load_Top	At_Offset_1
0da2 016d       | m  |		Execute	Variant_Record,Structure_Write
0da3 00e1       |    |		Load_Encached	Boolean_Cache
0da4 00e2       |    |		Load_Encached	Integer_Cache
0da5 029f 1413  |    |		Declare_Subprogram	INIT_1410,For_Call
0da7			BODY_0d90:
0da7 e402       |    |		Load	0x2,0x2
0da8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0da9 4606       |F   |		Jump_Case	0x7
0daa 7887       |x   |		Jump	0xe32								; case 0x0
0dab 7886       |x   |		Jump	0xe32								; case 0x1
0dac 7885       |x   |		Jump	0xe32								; case 0x2
0dad 784f       |xO  |		Jump	0xdfd								; case 0x3
0dae 7881       |x   |		Jump	0xe30								; case 0x4
0daf 7801       |x   |		Jump	0xdb1								; case 0x5
0db0 7800       |x   |		Jump	0xdb1								; case 0x6
0db1 00db       |    |		Load_Top	At_Offset_3
0db2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0db3 4606       |F   |		Jump_Case	0x7
0db4 7845       |xE  |		Jump	0xdfa								; case 0x0
0db5 7844       |xD  |		Jump	0xdfa								; case 0x1
0db6 7843       |xC  |		Jump	0xdfa								; case 0x2
0db7 7836       |x6  |		Jump	0xdee								; case 0x3
0db8 783b       |x;  |		Jump	0xdf4								; case 0x4
0db9 7801       |x   |		Jump	0xdbb								; case 0x5
0dba 7800       |x   |		Jump	0xdbb								; case 0x6
0dbb e24a       | J  |		Load	0x1,0x4a
0dbc e5ff       |    |		Load	0x2,-0x1
0dbd 825f       | _  |		Call	0x1,0x5f
0dbe e24a       | J  |		Load	0x1,0x4a
0dbf e5fe       |    |		Load	0x2,-0x2
0dc0 825f       | _  |		Call	0x1,0x5f
0dc1 01df       |    |		Execute	Vector,Equal
0dc2 6824       |h$  |		Jump_Zero	0xde7
0dc3 e24a       | J  |		Load	0x1,0x4a
0dc4 e5ff       |    |		Load	0x2,-0x1
0dc5 8262       | b  |		Call	0x1,0x62
0dc6 e24a       | J  |		Load	0x1,0x4a
0dc7 e5fe       |    |		Load	0x2,-0x2
0dc8 8262       | b  |		Call	0x1,0x62
0dc9 01df       |    |		Execute	Vector,Equal
0dca 6815       |h   |		Jump_Zero	0xde0
0dcb e5ff       |    |		Load	0x2,-0x1
0dcc 8266       | f  |		Call	0x1,0x66
0dcd e5fe       |    |		Load	0x2,-0x2
0dce 8266       | f  |		Call	0x1,0x66
0dcf 0272       | r  |		Execute	Discrete,Minus
0dd0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0dd1 00d9       |    |		Load_Top	At_Offset_1
0dd2 7009       |p   |		Jump_Nonzero	0xddc
0dd3 e24a       | J  |		Load	0x1,0x4a
0dd4 e5ff       |    |		Load	0x2,-0x1
0dd5 8264       | d  |		Call	0x1,0x64
0dd6 e24a       | J  |		Load	0x1,0x4a
0dd7 e5fe       |    |		Load	0x2,-0x2
0dd8 8264       | d  |		Call	0x1,0x64
0dd9 01c1       |    |		Execute	Vector,Less
0dda 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0ddb 7858       |xX  |		Jump	0xe34
0ddc 00d9       |    |		Load_Top	At_Offset_1
0ddd 0d00       |    |		Execute_Immediate	Less,0x0
0dde 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0ddf 7854       |xT  |		Jump	0xe34
0de0 00db       |    |		Load_Top	At_Offset_3
0de1 825c       | \  |		Call	0x1,0x5c
0de2 e402       |    |		Load	0x2,0x2
0de3 825c       | \  |		Call	0x1,0x5c
0de4 8269       | i  |		Call	0x1,0x69
0de5 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0de6 784d       |xM  |		Jump	0xe34
0de7 00db       |    |		Load_Top	At_Offset_3
0de8 825d       | ]  |		Call	0x1,0x5d
0de9 e402       |    |		Load	0x2,0x2
0dea 825d       | ]  |		Call	0x1,0x5d
0deb 8269       | i  |		Call	0x1,0x69
0dec 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0ded 7846       |xF  |		Jump	0xe34
0dee e5fe       |    |		Load	0x2,-0x2
0def e402       |    |		Load	0x2,0x2
0df0 825d       | ]  |		Call	0x1,0x5d
0df1 8269       | i  |		Call	0x1,0x69
0df2 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0df3 7840       |x@  |		Jump	0xe34
0df4 e5fe       |    |		Load	0x2,-0x2
0df5 e402       |    |		Load	0x2,0x2
0df6 825c       | \  |		Call	0x1,0x5c
0df7 8269       | i  |		Call	0x1,0x69
0df8 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0df9 783a       |x:  |		Jump	0xe34
0dfa 4800       |H   |		Short_Literal	0x0
0dfb 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0dfc 7837       |x7  |		Jump	0xe34
0dfd 00db       |    |		Load_Top	At_Offset_3
0dfe 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0dff 4606       |F   |		Jump_Case	0x7
0e00 782c       |x,  |		Jump	0xe2d								; case 0x0
0e01 782b       |x+  |		Jump	0xe2d								; case 0x1
0e02 782a       |x*  |		Jump	0xe2d								; case 0x2
0e03 7814       |x   |		Jump	0xe18								; case 0x3
0e04 7802       |x   |		Jump	0xe07								; case 0x4
0e05 7801       |x   |		Jump	0xe07								; case 0x5
0e06 7800       |x   |		Jump	0xe07								; case 0x6
0e07 e24a       | J  |		Load	0x1,0x4a
0e08 e5ff       |    |		Load	0x2,-0x1
0e09 825f       | _  |		Call	0x1,0x5f
0e0a e24a       | J  |		Load	0x1,0x4a
0e0b e5fe       |    |		Load	0x2,-0x2
0e0c 825f       | _  |		Call	0x1,0x5f
0e0d 01df       |    |		Execute	Vector,Equal
0e0e 6803       |h   |		Jump_Zero	0xe12
0e0f 4801       |H   |		Short_Literal	0x1
0e10 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e11 7822       |x"  |		Jump	0xe34
0e12 00db       |    |		Load_Top	At_Offset_3
0e13 825d       | ]  |		Call	0x1,0x5d
0e14 e5ff       |    |		Load	0x2,-0x1
0e15 8269       | i  |		Call	0x1,0x69
0e16 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e17 781c       |x   |		Jump	0xe34
0e18 e5ff       |    |		Load	0x2,-0x1
0e19 8266       | f  |		Call	0x1,0x66
0e1a e5fe       |    |		Load	0x2,-0x2
0e1b 8266       | f  |		Call	0x1,0x66
0e1c 0272       | r  |		Execute	Discrete,Minus
0e1d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0e1e 00d9       |    |		Load_Top	At_Offset_1
0e1f 7009       |p   |		Jump_Nonzero	0xe29
0e20 e24a       | J  |		Load	0x1,0x4a
0e21 e5ff       |    |		Load	0x2,-0x1
0e22 825f       | _  |		Call	0x1,0x5f
0e23 e24a       | J  |		Load	0x1,0x4a
0e24 e5fe       |    |		Load	0x2,-0x2
0e25 825f       | _  |		Call	0x1,0x5f
0e26 01c1       |    |		Execute	Vector,Less
0e27 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e28 780b       |x   |		Jump	0xe34
0e29 00d9       |    |		Load_Top	At_Offset_1
0e2a 0d00       |    |		Execute_Immediate	Less,0x0
0e2b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e2c 7807       |x   |		Jump	0xe34
0e2d 4800       |H   |		Short_Literal	0x0
0e2e 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e2f 7804       |x   |		Jump	0xe34
0e30 8406       |    |		Call	0x2,0x6
0e31 7802       |x   |		Jump	0xe34
0e32 4801       |H   |		Short_Literal	0x1
0e33 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0e34 00da       |    |		Load_Top	At_Offset_2
0e35 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e36 0000 0000  |    |		.XXX[0x2]
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e51       | Q  |		.CONST	0x0e51								; Address of begin
0e39 0004       |    |		.CONST	0x0004								; Address of exception handler
0e3a 0007       |    |		.CONST	0x0007								; Number of locals
0e3b			INIT_0e38:
0e3b e23e       | >  |		Load	0x1,0x3e
0e3c 02ff       |    |		Declare_Variable	Variant_Record
0e3d 00db       |    |		Load_Top	At_Offset_3
0e3e e02d       | -  |		Load	0x0,0x2d
0e3f e248       | H  |		Load	0x1,0x48
0e40 0096       |    |		Execute	Package,Entry
0e41 00d9       |    |		Load_Top	At_Offset_1
0e42 016d       | m  |		Execute	Variant_Record,Structure_Write
0e43 e23e       | >  |		Load	0x1,0x3e
0e44 02ff       |    |		Declare_Variable	Variant_Record
0e45 e5fe       |    |		Load	0x2,-0x2
0e46 e02d       | -  |		Load	0x0,0x2d
0e47 e248       | H  |		Load	0x1,0x48
0e48 0096       |    |		Execute	Package,Entry
0e49 00d9       |    |		Load_Top	At_Offset_1
0e4a 016d       | m  |		Execute	Variant_Record,Structure_Write
0e4b 00e1       |    |		Load_Encached	Boolean_Cache
0e4c 00e2       |    |		Load_Encached	Integer_Cache
0e4d 0092 1848  |   H|		Action	Push_String_Extended,0x1848					; "~"
0e4f 029f 1473  |   s|		Declare_Subprogram	INIT_1470,For_Call
0e51			BODY_0e38:
0e51 e402       |    |		Load	0x2,0x2
0e52 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e53 4606       |F   |		Jump_Case	0x7
0e54 7887       |x   |		Jump	0xedc								; case 0x0
0e55 7886       |x   |		Jump	0xedc								; case 0x1
0e56 7885       |x   |		Jump	0xedc								; case 0x2
0e57 784f       |xO  |		Jump	0xea7								; case 0x3
0e58 7881       |x   |		Jump	0xeda								; case 0x4
0e59 7801       |x   |		Jump	0xe5b								; case 0x5
0e5a 7800       |x   |		Jump	0xe5b								; case 0x6
0e5b e403       |    |		Load	0x2,0x3
0e5c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e5d 4606       |F   |		Jump_Case	0x7
0e5e 7845       |xE  |		Jump	0xea4								; case 0x0
0e5f 7844       |xD  |		Jump	0xea4								; case 0x1
0e60 7843       |xC  |		Jump	0xea4								; case 0x2
0e61 7836       |x6  |		Jump	0xe98								; case 0x3
0e62 783b       |x;  |		Jump	0xe9e								; case 0x4
0e63 7801       |x   |		Jump	0xe65								; case 0x5
0e64 7800       |x   |		Jump	0xe65								; case 0x6
0e65 00d9       |    |		Load_Top	At_Offset_1
0e66 e5ff       |    |		Load	0x2,-0x1
0e67 825f       | _  |		Call	0x1,0x5f
0e68 00da       |    |		Load_Top	At_Offset_2
0e69 e5fe       |    |		Load	0x2,-0x2
0e6a 825f       | _  |		Call	0x1,0x5f
0e6b 01df       |    |		Execute	Vector,Equal
0e6c 6824       |h$  |		Jump_Zero	0xe91
0e6d 00d9       |    |		Load_Top	At_Offset_1
0e6e e5ff       |    |		Load	0x2,-0x1
0e6f 8262       | b  |		Call	0x1,0x62
0e70 00da       |    |		Load_Top	At_Offset_2
0e71 e5fe       |    |		Load	0x2,-0x2
0e72 8262       | b  |		Call	0x1,0x62
0e73 01df       |    |		Execute	Vector,Equal
0e74 6815       |h   |		Jump_Zero	0xe8a
0e75 e5ff       |    |		Load	0x2,-0x1
0e76 8266       | f  |		Call	0x1,0x66
0e77 e5fe       |    |		Load	0x2,-0x2
0e78 8266       | f  |		Call	0x1,0x66
0e79 0272       | r  |		Execute	Discrete,Minus
0e7a 005b       | [  |		Store_Top	Discrete,At_Offset_3
0e7b 00da       |    |		Load_Top	At_Offset_2
0e7c 7009       |p   |		Jump_Nonzero	0xe86
0e7d 00d9       |    |		Load_Top	At_Offset_1
0e7e e5ff       |    |		Load	0x2,-0x1
0e7f 8264       | d  |		Call	0x1,0x64
0e80 00da       |    |		Load_Top	At_Offset_2
0e81 e5fe       |    |		Load	0x2,-0x2
0e82 8264       | d  |		Call	0x1,0x64
0e83 01c1       |    |		Execute	Vector,Less
0e84 a404       |    |		Store_Unchecked	0x2,0x4
0e85 7858       |xX  |		Jump	0xede
0e86 00da       |    |		Load_Top	At_Offset_2
0e87 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e88 a404       |    |		Store_Unchecked	0x2,0x4
0e89 7854       |xT  |		Jump	0xede
0e8a e403       |    |		Load	0x2,0x3
0e8b 825c       | \  |		Call	0x1,0x5c
0e8c e402       |    |		Load	0x2,0x2
0e8d 825c       | \  |		Call	0x1,0x5c
0e8e 826a       | j  |		Call	0x1,0x6a
0e8f a404       |    |		Store_Unchecked	0x2,0x4
0e90 784d       |xM  |		Jump	0xede
0e91 e403       |    |		Load	0x2,0x3
0e92 825d       | ]  |		Call	0x1,0x5d
0e93 e402       |    |		Load	0x2,0x2
0e94 825d       | ]  |		Call	0x1,0x5d
0e95 826a       | j  |		Call	0x1,0x6a
0e96 a404       |    |		Store_Unchecked	0x2,0x4
0e97 7846       |xF  |		Jump	0xede
0e98 e5fe       |    |		Load	0x2,-0x2
0e99 e402       |    |		Load	0x2,0x2
0e9a 825d       | ]  |		Call	0x1,0x5d
0e9b 826a       | j  |		Call	0x1,0x6a
0e9c a404       |    |		Store_Unchecked	0x2,0x4
0e9d 7840       |x@  |		Jump	0xede
0e9e e5fe       |    |		Load	0x2,-0x2
0e9f e402       |    |		Load	0x2,0x2
0ea0 825c       | \  |		Call	0x1,0x5c
0ea1 826a       | j  |		Call	0x1,0x6a
0ea2 a404       |    |		Store_Unchecked	0x2,0x4
0ea3 783a       |x:  |		Jump	0xede
0ea4 4800       |H   |		Short_Literal	0x0
0ea5 a404       |    |		Store_Unchecked	0x2,0x4
0ea6 7837       |x7  |		Jump	0xede
0ea7 e403       |    |		Load	0x2,0x3
0ea8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ea9 4606       |F   |		Jump_Case	0x7
0eaa 782c       |x,  |		Jump	0xed7								; case 0x0
0eab 782b       |x+  |		Jump	0xed7								; case 0x1
0eac 782a       |x*  |		Jump	0xed7								; case 0x2
0ead 7814       |x   |		Jump	0xec2								; case 0x3
0eae 7802       |x   |		Jump	0xeb1								; case 0x4
0eaf 7801       |x   |		Jump	0xeb1								; case 0x5
0eb0 7800       |x   |		Jump	0xeb1								; case 0x6
0eb1 00d9       |    |		Load_Top	At_Offset_1
0eb2 e5ff       |    |		Load	0x2,-0x1
0eb3 825f       | _  |		Call	0x1,0x5f
0eb4 00da       |    |		Load_Top	At_Offset_2
0eb5 e5fe       |    |		Load	0x2,-0x2
0eb6 825f       | _  |		Call	0x1,0x5f
0eb7 01df       |    |		Execute	Vector,Equal
0eb8 6803       |h   |		Jump_Zero	0xebc
0eb9 4801       |H   |		Short_Literal	0x1
0eba a404       |    |		Store_Unchecked	0x2,0x4
0ebb 7822       |x"  |		Jump	0xede
0ebc e403       |    |		Load	0x2,0x3
0ebd 825d       | ]  |		Call	0x1,0x5d
0ebe e5ff       |    |		Load	0x2,-0x1
0ebf 826a       | j  |		Call	0x1,0x6a
0ec0 a404       |    |		Store_Unchecked	0x2,0x4
0ec1 781c       |x   |		Jump	0xede
0ec2 e5ff       |    |		Load	0x2,-0x1
0ec3 8266       | f  |		Call	0x1,0x66
0ec4 e5fe       |    |		Load	0x2,-0x2
0ec5 8266       | f  |		Call	0x1,0x66
0ec6 0272       | r  |		Execute	Discrete,Minus
0ec7 005b       | [  |		Store_Top	Discrete,At_Offset_3
0ec8 00da       |    |		Load_Top	At_Offset_2
0ec9 7009       |p   |		Jump_Nonzero	0xed3
0eca 00d9       |    |		Load_Top	At_Offset_1
0ecb e5ff       |    |		Load	0x2,-0x1
0ecc 825f       | _  |		Call	0x1,0x5f
0ecd 00da       |    |		Load_Top	At_Offset_2
0ece e5fe       |    |		Load	0x2,-0x2
0ecf 825f       | _  |		Call	0x1,0x5f
0ed0 01c1       |    |		Execute	Vector,Less
0ed1 a404       |    |		Store_Unchecked	0x2,0x4
0ed2 780b       |x   |		Jump	0xede
0ed3 00da       |    |		Load_Top	At_Offset_2
0ed4 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0ed5 a404       |    |		Store_Unchecked	0x2,0x4
0ed6 7807       |x   |		Jump	0xede
0ed7 4800       |H   |		Short_Literal	0x0
0ed8 a404       |    |		Store_Unchecked	0x2,0x4
0ed9 7804       |x   |		Jump	0xede
0eda 8407       |    |		Call	0x2,0x7
0edb 7802       |x   |		Jump	0xede
0edc 4801       |H   |		Short_Literal	0x1
0edd a404       |    |		Store_Unchecked	0x2,0x4
0ede 00db       |    |		Load_Top	At_Offset_3
0edf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ee0 ; --------------------------------------------------------------------------------------
0ee0 ; SUBPROGRAM
0ee0 ; --------------------------------------------------------------------------------------
0ee0 0eeb       |    |		.CONST	0x0eeb								; Address of begin
0ee1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ee2 0002       |    |		.CONST	0x0002								; Number of locals
0ee3			INIT_0ee0:
0ee3 e23e       | >  |		Load	0x1,0x3e
0ee4 02ff       |    |		Declare_Variable	Variant_Record
0ee5 00db       |    |		Load_Top	At_Offset_3
0ee6 e02d       | -  |		Load	0x0,0x2d
0ee7 e248       | H  |		Load	0x1,0x48
0ee8 0096       |    |		Execute	Package,Entry
0ee9 00d9       |    |		Load_Top	At_Offset_1
0eea 016d       | m  |		Execute	Variant_Record,Structure_Write
0eeb			BODY_0ee0:
0eeb e5fe       |    |		Load	0x2,-0x2
0eec 00d9       |    |		Load_Top	At_Offset_1
0eed 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0eee 00d8       |    |		Load_Top	At_Offset_0
0eef e5ff       |    |		Load	0x2,-0x1
0ef0 e05d       | ]  |		Load	0x0,0x5d
0ef1 e248       | H  |		Load	0x1,0x48
0ef2 0096       |    |		Execute	Package,Entry
0ef3 e5fe       |    |		Load	0x2,-0x2
0ef4 0f00       |    |		Execute_Immediate	Equal,0x0
0ef5 e5ff       |    |		Load	0x2,-0x1
0ef6 e064       | d  |		Load	0x0,0x64
0ef7 e248       | H  |		Load	0x1,0x48
0ef8 0096       |    |		Execute	Package,Entry
0ef9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0efa 0000 0000  |    |		.BLANK	0000[0x6]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; SUBPROGRAM
0f00 ; --------------------------------------------------------------------------------------
0f00 0f03       |    |		.CONST	0x0f03								; Address of begin
0f01 0004       |    |		.CONST	0x0004								; Address of exception handler
0f02 0001       |    |		.CONST	0x0001								; Number of locals
0f03			BODY_0f00:
0f03			INIT_0f00:
0f03 00da       |    |		Load_Top	At_Offset_2
0f04 4606       |F   |		Jump_Case	0x7
0f05 7806       |x   |		Jump	0xf0c								; case 0x0
0f06 7805       |x   |		Jump	0xf0c								; case 0x1
0f07 7804       |x   |		Jump	0xf0c								; case 0x2
0f08 7808       |x   |		Jump	0xf11								; case 0x3
0f09 7804       |x   |		Jump	0xf0e								; case 0x4
0f0a 7808       |x   |		Jump	0xf13								; case 0x5
0f0b 7800       |x   |		Jump	0xf0c								; case 0x6
0f0c e24a       | J  |		Load	0x1,0x4a
0f0d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f0e 0092 1849  |   I|		Action	Push_String_Extended,0x1849					; "  "
0f10 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f11 e24a       | J  |		Load	0x1,0x4a
0f12 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f13 0092 184a  |   J|		Action	Push_String_Extended,0x184a					; "    "
0f15 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f16 0000 0000  |    |		.XXX[0x2]
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f45       | E  |		.CONST	0x0f45								; Address of begin
0f19 0004       |    |		.CONST	0x0004								; Address of exception handler
0f1a 000f       |    |		.CONST	0x000f								; Number of locals
0f1b			INIT_0f18:
0f1b 00da       |    |		Load_Top	At_Offset_2
0f1c 0219       |    |		Execute	Heap_Access,All_Read
0f1d e028       | (  |		Load	0x0,0x28
0f1e e248       | H  |		Load	0x1,0x48
0f1f 0096       |    |		Execute	Package,Entry
0f20 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f21 0007       |    |		Action	Break_Optional
0f22 e040       | @  |		Load	0x0,0x40
0f23 0007       |    |		Action	Break_Optional
0f24 e042       | B  |		Load	0x0,0x42
0f25 0007       |    |		Action	Break_Optional
0f26 e044       | D  |		Load	0x0,0x44
0f27 0322       | "  |		Declare_Variable	Record
0f28 00d8       |    |		Load_Top	At_Offset_0
0f29 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f2a e065       | e  |		Load	0x0,0x65
0f2b 03bd       |    |		Declare_Variable	Access,Duplicate
0f2c e066       | f  |		Load	0x0,0x66
0f2d 0322       | "  |		Declare_Variable	Record
0f2e 00d8       |    |		Load_Top	At_Offset_0
0f2f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f30 00d8       |    |		Load_Top	At_Offset_0
0f31 0322       | "  |		Declare_Variable	Record
0f32 00d8       |    |		Load_Top	At_Offset_0
0f33 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f34 e5ff       |    |		Load	0x2,-0x1
0f35 0219       |    |		Execute	Heap_Access,All_Read
0f36 e028       | (  |		Load	0x0,0x28
0f37 e248       | H  |		Load	0x1,0x48
0f38 0096       |    |		Execute	Package,Entry
0f39 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f3a 0007       |    |		Action	Break_Optional
0f3b 00e1       |    |		Load_Encached	Boolean_Cache
0f3c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f3d 00e1       |    |		Load_Encached	Boolean_Cache
0f3e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f3f 029f 14d3  |    |		Declare_Subprogram	INIT_14d0,For_Call
0f41 029f 14e3  |    |		Declare_Subprogram	INIT_14e0,For_Call
0f43 029f 14fb  |    |		Declare_Subprogram	INIT_14f8,For_Call
0f45			BODY_0f18:
0f45 4800       |H   |		Short_Literal	0x0
0f46 a5f9       |    |		Store_Unchecked	0x2,-0x7
0f47 4800       |H   |		Short_Literal	0x0
0f48 a5f8       |    |		Store_Unchecked	0x2,-0x8
0f49 00cf       |    |		Action	Mark_Auxiliary
0f4a 7806       |x   |		Jump	0xf51
0f4b 840f       |    |		Call	0x2,0xf
0f4c e402       |    |		Load	0x2,0x2
0f4d 0217       |    |		Execute	Heap_Access,All_Reference
0f4e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f4f a402       |    |		Store_Unchecked	0x2,0x2
0f50 00c9       |    |		Action	Pop_Auxiliary_Loop
0f51 e402       |    |		Load	0x2,0x2
0f52 77f8       |w   |		Jump_Nonzero	0xf4b
0f53 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0f54 0000 0000  |    |		.BLANK	0000[0x4]
0f58 ; --------------------------------------------------------------------------------------
0f58 ; SUBPROGRAM
0f58 ; --------------------------------------------------------------------------------------
0f58 0f5f       | _  |		.CONST	0x0f5f								; Address of begin
0f59 0f98       |    |		.CONST	0x0f98								; Address of exception handler
0f5a 0002       |    |		.CONST	0x0002								; Number of locals
0f5b			INIT_0f58:
0f5b e020       |    |		Load	0x0,0x20
0f5c 02ff       |    |		Declare_Variable	Variant_Record
0f5d 00d8       |    |		Load_Top	At_Offset_0
0f5e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f5f			BODY_0f58:
0f5f e5fd       |    |		Load	0x2,-0x3
0f60 8019       |    |		Call	0x0,0x19
0f61 a404       |    |		Store_Unchecked	0x2,0x4
0f62 e403       |    |		Load	0x2,0x3
0f63 8067       | g  |		Call	0x0,0x67
0f64 e5ff       |    |		Load	0x2,-0x1
0f65 8068       | h  |		Call	0x0,0x68
0f66 00d9       |    |		Load_Top	At_Offset_1
0f67 016d       | m  |		Execute	Variant_Record,Structure_Write
0f68 e409       |    |		Load	0x2,0x9
0f69 6807       |h   |		Jump_Zero	0xf71
0f6a e402       |    |		Load	0x2,0x2
0f6b 00d9       |    |		Load_Top	At_Offset_1
0f6c 8013       |    |		Call	0x0,0x13
0f6d 8258       | X  |		Call	0x1,0x58
0f6e c402       |    |		Store	0x2,0x2
0f6f 4800       |H   |		Short_Literal	0x0
0f70 a409       |    |		Store_Unchecked	0x2,0x9
0f71 e404       |    |		Load	0x2,0x4
0f72 e5fd       |    |		Load	0x2,-0x3
0f73 00da       |    |		Load_Top	At_Offset_2
0f74 801a       |    |		Call	0x0,0x1a
0f75 c404       |    |		Store	0x2,0x4
0f76 e407       |    |		Load	0x2,0x7
0f77 7004       |p   |		Jump_Nonzero	0xf7c
0f78 e40a       |    |		Load	0x2,0xa
0f79 e404       |    |		Load	0x2,0x4
0f7a 8259       | Y  |		Call	0x1,0x59
0f7b c40a       |    |		Store	0x2,0xa
0f7c e404       |    |		Load	0x2,0x4
0f7d 8018       |    |		Call	0x0,0x18
0f7e e5fd       |    |		Load	0x2,-0x3
0f7f e407       |    |		Load	0x2,0x7
0f80 0f00       |    |		Execute_Immediate	Equal,0x0
0f81 e407       |    |		Load	0x2,0x7
0f82 e406       |    |		Load	0x2,0x6
0f83 e402       |    |		Load	0x2,0x2
0f84 8250       | P  |		Call	0x1,0x50
0f85 c404       |    |		Store	0x2,0x4
0f86 e408       |    |		Load	0x2,0x8
0f87 e5fd       |    |		Load	0x2,-0x3
0f88 e403       |    |		Load	0x2,0x3
0f89 8067       | g  |		Call	0x0,0x67
0f8a e404       |    |		Load	0x2,0x4
0f8b 8069       | i  |		Call	0x0,0x69
0f8c c408       |    |		Store	0x2,0x8
0f8d e408       |    |		Load	0x2,0x8
0f8e e402       |    |		Load	0x2,0x2
0f8f 8255       | U  |		Call	0x1,0x55
0f90 c402       |    |		Store	0x2,0x2
0f91 c408       |    |		Store	0x2,0x8
0f92 e403       |    |		Load	0x2,0x3
0f93 806a       | j  |		Call	0x0,0x6a
0f94 c403       |    |		Store	0x2,0x3
0f95 4801       |H   |		Short_Literal	0x1
0f96 a407       |    |		Store_Unchecked	0x2,0x7
0f97 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f98			TRAP_0f58:
0f98 e06b       | k  |		Load	0x0,0x6b
0f99 010f       |    |		Execute	Exception,Equal
0f9a 6804       |h   |		Jump_Zero	0xf9f
0f9b e403       |    |		Load	0x2,0x3
0f9c 806a       | j  |		Call	0x0,0x6a
0f9d c403       |    |		Store	0x2,0x3
0f9e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f9f 0100       |    |		Execute	Exception,Raise
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fa5       |    |		.CONST	0x0fa5								; Address of begin
0fa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fa2 0002       |    |		.CONST	0x0002								; Number of locals
0fa3			INIT_0fa0:
0fa3 e5ff       |    |		Load	0x2,-0x1
0fa4 0007       |    |		Action	Break_Optional
0fa5			BODY_0fa0:
0fa5 00d8       |    |		Load_Top	At_Offset_0
0fa6 4800       |H   |		Short_Literal	0x0
0fa7 806c       | l  |		Call	0x0,0x6c
0fa8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0fa9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0faa 0000 0000  |    |		.BLANK	0000[0x6]
0fb0 ; --------------------------------------------------------------------------------------
0fb0 ; SUBPROGRAM
0fb0 ; --------------------------------------------------------------------------------------
0fb0 0fbd       |    |		.CONST	0x0fbd								; Address of begin
0fb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fb2 0002       |    |		.CONST	0x0002								; Number of locals
0fb3			INIT_0fb0:
0fb3 4801       |H   |		Short_Literal	0x1
0fb4 e403       |    |		Load	0x2,0x3
0fb5 e402       |    |		Load	0x2,0x2
0fb6 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0fb7 802a       | *  |		Call	0x0,0x2a
0fb8 e062       | b  |		Load	0x0,0x62
0fb9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0fba 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0fbb e03b       | ;  |		Load	0x0,0x3b
0fbc 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0fbd			BODY_0fb0:
0fbd e403       |    |		Load	0x2,0x3
0fbe 01dd       |    |		Execute	Vector,First
0fbf 00d9       |    |		Load_Top	At_Offset_1
0fc0 0aff       |    |		Execute_Immediate	Plus,-0x1
0fc1 e403       |    |		Load	0x2,0x3
0fc2 01cf       |    |		Execute	Vector,Slice_Read
0fc3 00cb       |    |		Action	Pop_Block_With_Result
0fc4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0fc5 0000 0000  |    |		.XXX[0x3]
0fc7 0000       |    |
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fd9       |    |		.CONST	0x0fd9								; Address of begin
0fc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fca 0004       |    |		.CONST	0x0004								; Number of locals
0fcb			INIT_0fc8:
0fcb e239       | 9  |		Load	0x1,0x39
0fcc 0322       | "  |		Declare_Variable	Record
0fcd e5ff       |    |		Load	0x2,-0x1
0fce 0219       |    |		Execute	Heap_Access,All_Read
0fcf e028       | (  |		Load	0x0,0x28
0fd0 e248       | H  |		Load	0x1,0x48
0fd1 0096       |    |		Execute	Package,Entry
0fd2 00d9       |    |		Load_Top	At_Offset_1
0fd3 017d       | }  |		Execute	Record,Structure_Write
0fd4 00d8       |    |		Load_Top	At_Offset_0
0fd5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0fd6 806d       | m  |		Call	0x0,0x6d
0fd7 029f 1573  |   s|		Declare_Subprogram	INIT_1570,For_Call
0fd9			BODY_0fc8:
0fd9 8018       |    |		Call	0x0,0x18
0fda 00db       |    |		Load_Top	At_Offset_3
0fdb 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0fdc 8045       | E  |		Call	0x0,0x45
0fdd 7001       |p   |		Jump_Nonzero	0xfdf
0fde 8604       |    |		Call	0x3,0x4
0fdf 00da       |    |		Load_Top	At_Offset_2
0fe0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0fe1 00db       |    |		Load_Top	At_Offset_3
0fe2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0fe3 0f00       |    |		Execute_Immediate	Equal,0x0
0fe4 00db       |    |		Load_Top	At_Offset_3
0fe5 e602       |    |		Load	0x3,0x2
0fe6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0fe7 e402       |    |		Load	0x2,0x2
0fe8 8265       | e  |		Call	0x1,0x65
0fe9 e402       |    |		Load	0x2,0x2
0fea 8263       | c  |		Call	0x1,0x63
0feb e402       |    |		Load	0x2,0x2
0fec 8260       | `  |		Call	0x1,0x60
0fed 806e       | n  |		Call	0x0,0x6e
0fee a5fd       |    |		Store_Unchecked	0x2,-0x3
0fef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ff0 ; --------------------------------------------------------------------------------------
0ff0 ; SUBPROGRAM
0ff0 ; --------------------------------------------------------------------------------------
0ff0 1002       |    |		.CONST	0x1002								; Address of begin
0ff1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ff2 0006       |    |		.CONST	0x0006								; Number of locals
0ff3			INIT_0ff0:
0ff3 00f1       |    |		Load_Encached	Diana_Temp_Seq
0ff4 4803       |H   |		Short_Literal	0x3
0ff5 e402       |    |		Load	0x2,0x2
0ff6 e063       | c  |		Load	0x0,0x63
0ff7 e248       | H  |		Load	0x1,0x48
0ff8 0096       |    |		Execute	Package,Entry
0ff9 4802       |H   |		Short_Literal	0x2
0ffa e402       |    |		Load	0x2,0x2
0ffb e063       | c  |		Load	0x0,0x63
0ffc e248       | H  |		Load	0x1,0x48
0ffd 0096       |    |		Execute	Package,Entry
0ffe 029f 158b  |    |		Declare_Subprogram	INIT_1588,For_Call
1000 029f 15b3  |    |		Declare_Subprogram	INIT_15b0,For_Call
1002			BODY_0ff0:
1002 00da       |    |		Load_Top	At_Offset_2
1003 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
1004 0c64       | d  |		Execute_Immediate	Greater_Equal,0x64
1005 e603       |    |		Load	0x3,0x3
1006 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
1007 0d01       |    |		Execute_Immediate	Less,0x1
1008 0278       | x  |		Execute	Discrete,Or
1009 6802       |h   |		Jump_Zero	0x100c
100a 4801       |H   |		Short_Literal	0x1
100b a404       |    |		Store_Unchecked	0x2,0x4
100c e602       |    |		Load	0x3,0x2
100d e404       |    |		Load	0x2,0x4
100e e403       |    |		Load	0x2,0x3
100f e402       |    |		Load	0x2,0x2
1010 e5ff       |    |		Load	0x2,-0x1
1011 825b       | [  |		Call	0x1,0x5b
1012 c404       |    |		Store	0x2,0x4
1013 c602       |    |		Store	0x3,0x2
1014 e404       |    |		Load	0x2,0x4
1015 6801       |h   |		Jump_Zero	0x1017
1016 8606       |    |		Call	0x3,0x6
1017 e404       |    |		Load	0x2,0x4
1018 0f00       |    |		Execute_Immediate	Equal,0x0
1019 e602       |    |		Load	0x3,0x2
101a 8605       |    |		Call	0x3,0x5
101b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
101c 0000 0000  |    |		.BLANK	0000[0x4]
1020 ; --------------------------------------------------------------------------------------
1020 ; SUBPROGRAM
1020 ; --------------------------------------------------------------------------------------
1020 1039       | 9  |		.CONST	0x1039								; Address of begin
1021 0004       |    |		.CONST	0x0004								; Address of exception handler
1022 0004       |    |		.CONST	0x0004								; Number of locals
1023			INIT_1020:
1023 e026       | &  |		Load	0x0,0x26
1024 02ff       |    |		Declare_Variable	Variant_Record
1025 00d8       |    |		Load_Top	At_Offset_0
1026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1027 e5ff       |    |		Load	0x2,-0x1
1028 0219       |    |		Execute	Heap_Access,All_Read
1029 e028       | (  |		Load	0x0,0x28
102a e248       | H  |		Load	0x1,0x48
102b 0096       |    |		Execute	Package,Entry
102c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
102d 0007       |    |		Action	Break_Optional
102e e005       |    |		Load	0x0,0x5
102f 00d9       |    |		Load_Top	At_Offset_1
1030 4801       |H   |		Short_Literal	0x1
1031 e402       |    |		Load	0x2,0x2
1032 e063       | c  |		Load	0x0,0x63
1033 e248       | H  |		Load	0x1,0x48
1034 0096       |    |		Execute	Package,Entry
1035 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
1036 8016       |    |		Call	0x0,0x16
1037 8017       |    |		Call	0x0,0x17
1038 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
1039			BODY_1020:
1039 00d9       |    |		Load_Top	At_Offset_1
103a 4810       |H   |		Short_Literal	0x10
103b 8027       | '  |		Call	0x0,0x27
103c 00db       |    |		Load_Top	At_Offset_3
103d 016d       | m  |		Execute	Variant_Record,Structure_Write
103e 00da       |    |		Load_Top	At_Offset_2
103f 00d8       |    |		Load_Top	At_Offset_0
1040 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
1041 00d8       |    |		Load_Top	At_Offset_0
1042 00db       |    |		Load_Top	At_Offset_3
1043 00d9       |    |		Load_Top	At_Offset_1
1044 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
1045 00d1       |    |		Pop_Control	Pop_Count_1
1046 00d0       |    |		Action	Swap_Control
1047 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
1048 00da       |    |		Load_Top	At_Offset_2
1049 e5fd       |    |		Load	0x2,-0x3
104a 016d       | m  |		Execute	Variant_Record,Structure_Write
104b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
104c 0000 0000  |    |		.BLANK	0000[0x4]
1050 ; --------------------------------------------------------------------------------------
1050 ; SUBPROGRAM
1050 ; --------------------------------------------------------------------------------------
1050 1063       | c  |		.CONST	0x1063								; Address of begin
1051 0004       |    |		.CONST	0x0004								; Address of exception handler
1052 0003       |    |		.CONST	0x0003								; Number of locals
1053			INIT_1050:
1053 e5fe       |    |		Load	0x2,-0x2
1054 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1055 00d8       |    |		Load_Top	At_Offset_0
1056 00e4       |    |		Load_Encached	Positive_Cache
1057 0260       | `  |		Execute	Discrete,In_Type
1058 7001       |p   |		Jump_Nonzero	0x105a
1059 0801       |    |		Execute_Immediate	Raise,0x1
105a e5ff       |    |		Load	0x2,-0x1
105b 0219       |    |		Execute	Heap_Access,All_Read
105c e02c       | ,  |		Load	0x0,0x2c
105d e248       | H  |		Load	0x1,0x48
105e 0096       |    |		Execute	Package,Entry
105f 00d8       |    |		Load_Top	At_Offset_0
1060 e02d       | -  |		Load	0x0,0x2d
1061 e248       | H  |		Load	0x1,0x48
1062 0096       |    |		Execute	Package,Entry
1063			BODY_1050:
1063 00d8       |    |		Load_Top	At_Offset_0
1064 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1065 4800       |H   |		Short_Literal	0x0
1066 4802       |H   |		Short_Literal	0x2
1067 0262       | b  |		Execute	Discrete,In_Range
1068 7005       |p   |		Jump_Nonzero	0x106e
1069 4800       |H   |		Short_Literal	0x0
106a 0092 184b  |   K|		Action	Push_String_Extended,0x184b					; "Deletion is not supported for coverage images"
106c 820e       |    |		Call	0x1,0xe
106d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
106e 4800       |H   |		Short_Literal	0x0
106f 0092 184c  |   L|		Action	Push_String_Extended,0x184c					; "Delete not defined for this line"
1071 820e       |    |		Call	0x1,0xe
1072 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1073 0000 0000  |    |		.BLANK	0000[0x5]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 107e       | ~  |		.CONST	0x107e								; Address of begin
1079 0004       |    |		.CONST	0x0004								; Address of exception handler
107a 0002       |    |		.CONST	0x0002								; Number of locals
107b			INIT_1078:
107b 4801       |H   |		Short_Literal	0x1
107c e241       | A  |		Load	0x1,0x41
107d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
107e			BODY_1078:
107e 00d8       |    |		Load_Top	At_Offset_0
107f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
1080 e5fe       |    |		Load	0x2,-0x2
1081 e5ff       |    |		Load	0x2,-0x1
1082 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
1083 803a       | :  |		Call	0x0,0x3a
1084 00d9       |    |		Load_Top	At_Offset_1
1085 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
1086 00d8       |    |		Load_Top	At_Offset_0
1087 e5fd       |    |		Load	0x2,-0x3
1088 016d       | m  |		Execute	Variant_Record,Structure_Write
1089 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
108a 0000 0000  |    |		.BLANK	0000[0x6]
1090 ; --------------------------------------------------------------------------------------
1090 ; SUBPROGRAM
1090 ; --------------------------------------------------------------------------------------
1090 109b       |    |		.CONST	0x109b								; Address of begin
1091 0004       |    |		.CONST	0x0004								; Address of exception handler
1092 0003       |    |		.CONST	0x0003								; Number of locals
1093			INIT_1090:
1093 e5ff       |    |		Load	0x2,-0x1
1094 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
1095 00e0       |    |		Load_Encached	Standard_Cache
1096 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1097 e5ff       |    |		Load	0x2,-0x1
1098 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
1099 00e0       |    |		Load_Encached	Standard_Cache
109a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
109b			BODY_1090:
109b 4829       |H)  |		Short_Literal	0x29
109c 482f       |H/  |		Short_Literal	0x2f
109d e5ff       |    |		Load	0x2,-0x1
109e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
109f 8278       | x  |		Call	0x1,0x78
10a0 0092 1844  |   D|		Action	Push_String_Extended,0x1844					; " ("
10a2 01cc       |    |		Execute	Vector,Catenate
10a3 e602       |    |		Load	0x3,0x2
10a4 01dd       |    |		Execute	Vector,First
10a5 0a01       |    |		Execute_Immediate	Plus,0x1
10a6 00d8       |    |		Load_Top	At_Offset_0
10a7 00e2       |    |		Load_Encached	Integer_Cache
10a8 0260       | `  |		Execute	Discrete,In_Type
10a9 7001       |p   |		Jump_Nonzero	0x10ab
10aa 0801       |    |		Execute_Immediate	Raise,0x1
10ab e602       |    |		Load	0x3,0x2
10ac 01dc       |    |		Execute	Vector,Last
10ad e602       |    |		Load	0x3,0x2
10ae 01cf       |    |		Execute	Vector,Slice_Read
10af 01cc       |    |		Execute	Vector,Catenate
10b0 01cb       |    |		Execute	Vector,Append
10b1 00da       |    |		Load_Top	At_Offset_2
10b2 01dd       |    |		Execute	Vector,First
10b3 0a01       |    |		Execute_Immediate	Plus,0x1
10b4 00d8       |    |		Load_Top	At_Offset_0
10b5 00e2       |    |		Load_Encached	Integer_Cache
10b6 0260       | `  |		Execute	Discrete,In_Type
10b7 7001       |p   |		Jump_Nonzero	0x10b9
10b8 0801       |    |		Execute_Immediate	Raise,0x1
10b9 00db       |    |		Load_Top	At_Offset_3
10ba 01dc       |    |		Execute	Vector,Last
10bb e603       |    |		Load	0x3,0x3
10bc 01cf       |    |		Execute	Vector,Slice_Read
10bd 01cc       |    |		Execute	Vector,Catenate
10be 01cb       |    |		Execute	Vector,Append
10bf 00cb       |    |		Action	Pop_Block_With_Result
10c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
10c1 0000 0000  |    |		.BLANK	0000[0x7]
10c8 ; --------------------------------------------------------------------------------------
10c8 ; SUBPROGRAM
10c8 ; --------------------------------------------------------------------------------------
10c8 10cb       |    |		.CONST	0x10cb								; Address of begin
10c9 10d4       |    |		.CONST	0x10d4								; Address of exception handler
10ca 0001       |    |		.CONST	0x0001								; Number of locals
10cb			BODY_10c8:
10cb			INIT_10c8:
10cb 00da       |    |		Load_Top	At_Offset_2
10cc e7fe       |    |		Load	0x3,-0x2
10cd 0273       | s  |		Execute	Discrete,Plus
10ce 00d8       |    |		Load_Top	At_Offset_0
10cf 00e3       |    |		Load_Encached	Natural_Cache
10d0 0260       | `  |		Execute	Discrete,In_Type
10d1 7001       |p   |		Jump_Nonzero	0x10d3
10d2 0801       |    |		Execute_Immediate	Raise,0x1
10d3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10d4			TRAP_10c8:
10d4 010e       |    |		Execute	Exception,Is_Constraint_Error
10d5 7002       |p   |		Jump_Nonzero	0x10d8
10d6 010d       |    |		Execute	Exception,Is_Numeric_Error
10d7 6802       |h   |		Jump_Zero	0x10da
10d8 4800       |H   |		Short_Literal	0x0
10d9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10da 0100       |    |		Execute	Exception,Raise
10db 0000 0000  |    |		.BLANK	0000[0x5]
10e0 ; --------------------------------------------------------------------------------------
10e0 ; SUBPROGRAM
10e0 ; --------------------------------------------------------------------------------------
10e0 10eb       |    |		.CONST	0x10eb								; Address of begin
10e1 0004       |    |		.CONST	0x0004								; Address of exception handler
10e2 0004       |    |		.CONST	0x0004								; Number of locals
10e3			INIT_10e0:
10e3 e065       | e  |		Load	0x0,0x65
10e4 0007       |    |		Action	Break_Optional
10e5 e066       | f  |		Load	0x0,0x66
10e6 0322       | "  |		Declare_Variable	Record
10e7 00d8       |    |		Load_Top	At_Offset_0
10e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
10e9 029f 15db  |    |		Declare_Subprogram	INIT_15d8,For_Call
10eb			BODY_10e0:
10eb e065       | e  |		Load	0x0,0x65
10ec e7ff       |    |		Load	0x3,-0x1
10ed 806f       | o  |		Call	0x0,0x6f
10ee 003b       | ;  |		Store_Top	Access,At_Offset_3
10ef 00cf       |    |		Action	Mark_Auxiliary
10f0 780c       |x   |		Jump	0x10fd
10f1 00db       |    |		Load_Top	At_Offset_3
10f2 8070       | p  |		Call	0x0,0x70
10f3 00db       |    |		Load_Top	At_Offset_3
10f4 017d       | }  |		Execute	Record,Structure_Write
10f5 00da       |    |		Load_Top	At_Offset_2
10f6 8071       | q  |		Call	0x0,0x71
10f7 7001       |p   |		Jump_Nonzero	0x10f9
10f8 8604       |    |		Call	0x3,0x4
10f9 00db       |    |		Load_Top	At_Offset_3
10fa 8072       | r  |		Call	0x0,0x72
10fb c602       |    |		Store	0x3,0x2
10fc 00c9       |    |		Action	Pop_Auxiliary_Loop
10fd 00db       |    |		Load_Top	At_Offset_3
10fe 8073       | s  |		Call	0x0,0x73
10ff 6ff1       |o   |		Jump_Zero	0x10f1
1100 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1101 0000 0000  |    |		.BLANK	0000[0x7]
1108 ; --------------------------------------------------------------------------------------
1108 ; SUBPROGRAM
1108 ; --------------------------------------------------------------------------------------
1108 110b       |    |		.CONST	0x110b								; Address of begin
1109 0004       |    |		.CONST	0x0004								; Address of exception handler
110a 0001       |    |		.CONST	0x0001								; Number of locals
110b			BODY_1108:
110b			INIT_1108:
110b e414       |    |		Load	0x2,0x14
110c 6805       |h   |		Jump_Zero	0x1112
110d e410       |    |		Load	0x2,0x10
110e 00db       |    |		Load_Top	At_Offset_3
110f 841b       |    |		Call	0x2,0x1b
1110 00d1       |    |		Pop_Control	Pop_Count_1
1111 7808       |x   |		Jump	0x111a
1112 00da       |    |		Load_Top	At_Offset_2
1113 8074       | t  |		Call	0x0,0x74
1114 e410       |    |		Load	0x2,0x10
1115 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1116 00da       |    |		Load_Top	At_Offset_2
1117 8075       | u  |		Call	0x0,0x75
1118 e410       |    |		Load	0x2,0x10
1119 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
111a 00da       |    |		Load_Top	At_Offset_2
111b 8076       | v  |		Call	0x0,0x76
111c e410       |    |		Load	0x2,0x10
111d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
111e 00da       |    |		Load_Top	At_Offset_2
111f 8077       | w  |		Call	0x0,0x77
1120 e410       |    |		Load	0x2,0x10
1121 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1122 e410       |    |		Load	0x2,0x10
1123 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1124 e40e       |    |		Load	0x2,0xe
1125 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1126 841a       |    |		Call	0x2,0x1a
1127 e40e       |    |		Load	0x2,0xe
1128 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1129 e410       |    |		Load	0x2,0x10
112a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
112b e40e       |    |		Load	0x2,0xe
112c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
112d 841a       |    |		Call	0x2,0x1a
112e e40e       |    |		Load	0x2,0xe
112f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1130 e410       |    |		Load	0x2,0x10
1131 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1132 e40f       |    |		Load	0x2,0xf
1133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1134 841a       |    |		Call	0x2,0x1a
1135 e40f       |    |		Load	0x2,0xf
1136 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1137 e410       |    |		Load	0x2,0x10
1138 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1139 e40f       |    |		Load	0x2,0xf
113a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
113b 841a       |    |		Call	0x2,0x1a
113c e40f       |    |		Load	0x2,0xf
113d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
113e e410       |    |		Load	0x2,0x10
113f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1140 e40f       |    |		Load	0x2,0xf
1141 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1142 841a       |    |		Call	0x2,0x1a
1143 e40f       |    |		Load	0x2,0xf
1144 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
1145 e410       |    |		Load	0x2,0x10
1146 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1147 e40f       |    |		Load	0x2,0xf
1148 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1149 841a       |    |		Call	0x2,0x1a
114a e40f       |    |		Load	0x2,0xf
114b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
114c e410       |    |		Load	0x2,0x10
114d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
114e e40e       |    |		Load	0x2,0xe
114f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1150 841a       |    |		Call	0x2,0x1a
1151 e40e       |    |		Load	0x2,0xe
1152 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
1153 e410       |    |		Load	0x2,0x10
1154 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1155 e40e       |    |		Load	0x2,0xe
1156 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1157 841a       |    |		Call	0x2,0x1a
1158 e40e       |    |		Load	0x2,0xe
1159 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
115a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
115b 0000 0000  |    |		.BLANK	0000[0x5]
1160 ; --------------------------------------------------------------------------------------
1160 ; SUBPROGRAM
1160 ; --------------------------------------------------------------------------------------
1160 1165       | e  |		.CONST	0x1165								; Address of begin
1161 0004       |    |		.CONST	0x0004								; Address of exception handler
1162 0002       |    |		.CONST	0x0002								; Number of locals
1163			INIT_1160:
1163 029f 1613  |    |		Declare_Subprogram	INIT_1610,For_Call
1165			BODY_1160:
1165 4800       |H   |		Short_Literal	0x0
1166 a7fc       |    |		Store_Unchecked	0x3,-0x4
1167 e419       |    |		Load	0x2,0x19
1168 7001       |p   |		Jump_Nonzero	0x116a
1169 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
116a 8602       |    |		Call	0x3,0x2
116b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
116c 0000 0000  |    |		.BLANK	0000[0x4]
1170 ; --------------------------------------------------------------------------------------
1170 ; SUBPROGRAM
1170 ; --------------------------------------------------------------------------------------
1170 117b       | {  |		.CONST	0x117b								; Address of begin
1171 0004       |    |		.CONST	0x0004								; Address of exception handler
1172 0004       |    |		.CONST	0x0004								; Number of locals
1173			INIT_1170:
1173 00da       |    |		Load_Top	At_Offset_2
1174 e23e       | >  |		Load	0x1,0x3e
1175 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1176 00d8       |    |		Load_Top	At_Offset_0
1177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1178 00e1       |    |		Load_Encached	Boolean_Cache
1179 029f 169b  |    |		Declare_Subprogram	INIT_1698,For_Call
117b			BODY_1170:
117b 00d9       |    |		Load_Top	At_Offset_1
117c e7fd       |    |		Load	0x3,-0x3
117d e7fe       |    |		Load	0x3,-0x2
117e e7ff       |    |		Load	0x3,-0x1
117f 841d       |    |		Call	0x2,0x1d
1180 00d2       |    |		Pop_Control	Pop_Count_2
1181 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1182 00d9       |    |		Load_Top	At_Offset_1
1183 7001       |p   |		Jump_Nonzero	0x1185
1184 8604       |    |		Call	0x3,0x4
1185 00d9       |    |		Load_Top	At_Offset_1
1186 a415       |    |		Store_Unchecked	0x2,0x15
1187 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 1194       |    |		.CONST	0x1194								; Address of begin
1189 0004       |    |		.CONST	0x0004								; Address of exception handler
118a 0003       |    |		.CONST	0x0003								; Number of locals
118b			INIT_1188:
118b 00db       |    |		Load_Top	At_Offset_3
118c e02d       | -  |		Load	0x0,0x2d
118d e248       | H  |		Load	0x1,0x48
118e 0096       |    |		Execute	Package,Entry
118f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1190 e23c       | <  |		Load	0x1,0x3c
1191 03f1       |    |		Declare_Variable	Discrete,With_Value
1192 029f 171b  |    |		Declare_Subprogram	INIT_1718,For_Call
1194			BODY_1188:
1194 e419       |    |		Load	0x2,0x19
1195 0f00       |    |		Execute_Immediate	Equal,0x0
1196 e415       |    |		Load	0x2,0x15
1197 0278       | x  |		Execute	Discrete,Or
1198 6808       |h   |		Jump_Zero	0x11a1
1199 00cf       |    |		Action	Mark_Auxiliary
119a 4803       |H   |		Short_Literal	0x3
119b 4802       |H   |		Short_Literal	0x2
119c 0007       |    |		Action	Break_Optional
119d 8603       |    |		Call	0x3,0x3
119e 00c8       |    |		Action	Pop_Auxiliary_Range
119f 3ffd       |?   |		Loop_Increasing	0x119d
11a0 00ce       |    |		Action	Pop_Auxiliary
11a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
11a2 0000 0000  |    |		.BLANK	0000[0x6]
11a8 ; --------------------------------------------------------------------------------------
11a8 ; SUBPROGRAM
11a8 ; --------------------------------------------------------------------------------------
11a8 11b3       |    |		.CONST	0x11b3								; Address of begin
11a9 0004       |    |		.CONST	0x0004								; Address of exception handler
11aa 0004       |    |		.CONST	0x0004								; Number of locals
11ab			INIT_11a8:
11ab e065       | e  |		Load	0x0,0x65
11ac 0007       |    |		Action	Break_Optional
11ad e066       | f  |		Load	0x0,0x66
11ae 0322       | "  |		Declare_Variable	Record
11af 00d8       |    |		Load_Top	At_Offset_0
11b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
11b1 e078       | x  |		Load	0x0,0x78
11b2 0007       |    |		Action	Break_Optional
11b3			BODY_11a8:
11b3 e065       | e  |		Load	0x0,0x65
11b4 e7ff       |    |		Load	0x3,-0x1
11b5 806f       | o  |		Call	0x0,0x6f
11b6 003b       | ;  |		Store_Top	Access,At_Offset_3
11b7 00cf       |    |		Action	Mark_Auxiliary
11b8 781a       |x   |		Jump	0x11d3
11b9 00db       |    |		Load_Top	At_Offset_3
11ba 8070       | p  |		Call	0x0,0x70
11bb 00db       |    |		Load_Top	At_Offset_3
11bc 017d       | }  |		Execute	Record,Structure_Write
11bd 00da       |    |		Load_Top	At_Offset_2
11be 8071       | q  |		Call	0x0,0x71
11bf 700f       |p   |		Jump_Nonzero	0x11cf
11c0 00da       |    |		Load_Top	At_Offset_2
11c1 8079       | y  |		Call	0x0,0x79
11c2 00db       |    |		Load_Top	At_Offset_3
11c3 807a       | z  |		Call	0x0,0x7a
11c4 0278       | x  |		Execute	Discrete,Or
11c5 6809       |h   |		Jump_Zero	0x11cf
11c6 00d9       |    |		Load_Top	At_Offset_1
11c7 e5fb       |    |		Load	0x2,-0x5
11c8 e603       |    |		Load	0x3,0x3
11c9 807b       | {  |		Call	0x0,0x7b
11ca 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
11cb e24f       | O  |		Load	0x1,0x4f
11cc 00da       |    |		Load_Top	At_Offset_2
11cd 807c       | |  |		Call	0x0,0x7c
11ce c24f       | O  |		Store	0x1,0x4f
11cf 00db       |    |		Load_Top	At_Offset_3
11d0 8072       | r  |		Call	0x0,0x72
11d1 c602       |    |		Store	0x3,0x2
11d2 00c9       |    |		Action	Pop_Auxiliary_Loop
11d3 00db       |    |		Load_Top	At_Offset_3
11d4 8073       | s  |		Call	0x0,0x73
11d5 6fe3       |o   |		Jump_Zero	0x11b9
11d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
11d7 0000       |    |		.XXX[0x1]
11d8 ; --------------------------------------------------------------------------------------
11d8 ; SUBPROGRAM
11d8 ; --------------------------------------------------------------------------------------
11d8 11dd       |    |		.CONST	0x11dd								; Address of begin
11d9 0004       |    |		.CONST	0x0004								; Address of exception handler
11da 0003       |    |		.CONST	0x0003								; Number of locals
11db			INIT_11d8:
11db 00e3       |    |		Load_Encached	Natural_Cache
11dc 03e9       |    |		Declare_Variable	Discrete,Duplicate
11dd			BODY_11d8:
11dd 00d8       |    |		Load_Top	At_Offset_0
11de 00da       |    |		Load_Top	At_Offset_2
11df e410       |    |		Load	0x2,0x10
11e0 e40a       |    |		Load	0x2,0xa
11e1 e40d       |    |		Load	0x2,0xd
11e2 e40c       |    |		Load	0x2,0xc
11e3 e413       |    |		Load	0x2,0x13
11e4 e5ff       |    |		Load	0x2,-0x1
11e5 8279       | y  |		Call	0x1,0x79
11e6 00d1       |    |		Pop_Control	Pop_Count_1
11e7 005b       | [  |		Store_Top	Discrete,At_Offset_3
11e8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
11e9 00d9       |    |		Load_Top	At_Offset_1
11ea 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
11eb 680e       |h   |		Jump_Zero	0x11fa
11ec e40f       |    |		Load	0x2,0xf
11ed 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11ee 00da       |    |		Load_Top	At_Offset_2
11ef 0273       | s  |		Execute	Discrete,Plus
11f0 e40f       |    |		Load	0x2,0xf
11f1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
11f2 e40e       |    |		Load	0x2,0xe
11f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
11f4 00da       |    |		Load_Top	At_Offset_2
11f5 0273       | s  |		Execute	Discrete,Plus
11f6 e40e       |    |		Load	0x2,0xe
11f7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
11f8 4801       |H   |		Short_Literal	0x1
11f9 a415       |    |		Store_Unchecked	0x2,0x15
11fa 00d8       |    |		Load_Top	At_Offset_0
11fb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
11fc 680e       |h   |		Jump_Zero	0x120b
11fd e40f       |    |		Load	0x2,0xf
11fe 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
11ff 00d9       |    |		Load_Top	At_Offset_1
1200 0273       | s  |		Execute	Discrete,Plus
1201 e40f       |    |		Load	0x2,0xf
1202 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1203 e40e       |    |		Load	0x2,0xe
1204 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1205 00d9       |    |		Load_Top	At_Offset_1
1206 0273       | s  |		Execute	Discrete,Plus
1207 e40e       |    |		Load	0x2,0xe
1208 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1209 4801       |H   |		Short_Literal	0x1
120a a415       |    |		Store_Unchecked	0x2,0x15
120b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
120c 0000 0000  |    |		.BLANK	0000[0x4]
1210 ; --------------------------------------------------------------------------------------
1210 ; SUBPROGRAM
1210 ; --------------------------------------------------------------------------------------
1210 121e       |    |		.CONST	0x121e								; Address of begin
1211 0004       |    |		.CONST	0x0004								; Address of exception handler
1212 0002       |    |		.CONST	0x0002								; Number of locals
1213			INIT_1210:
1213 e23e       | >  |		Load	0x1,0x3e
1214 02ff       |    |		Declare_Variable	Variant_Record
1215 e402       |    |		Load	0x2,0x2
1216 e038       | 8  |		Load	0x0,0x38
1217 e248       | H  |		Load	0x1,0x48
1218 0096       |    |		Execute	Package,Entry
1219 e02d       | -  |		Load	0x0,0x2d
121a e248       | H  |		Load	0x1,0x48
121b 0096       |    |		Execute	Package,Entry
121c 00d9       |    |		Load_Top	At_Offset_1
121d 016d       | m  |		Execute	Variant_Record,Structure_Write
121e			BODY_1210:
121e 00d8       |    |		Load_Top	At_Offset_0
121f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1220 e5fe       |    |		Load	0x2,-0x2
1221 027f       |    |		Execute	Discrete,Equal
1222 680b       |h   |		Jump_Zero	0x122e
1223 00d8       |    |		Load_Top	At_Offset_0
1224 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1225 e5fd       |    |		Load	0x2,-0x3
1226 027e       | ~  |		Execute	Discrete,Not_Equal
1227 6806       |h   |		Jump_Zero	0x122e
1228 e5fd       |    |		Load	0x2,-0x3
1229 e402       |    |		Load	0x2,0x2
122a e038       | 8  |		Load	0x0,0x38
122b e248       | H  |		Load	0x1,0x48
122c 0096       |    |		Execute	Package,Entry
122d 8277       | w  |		Call	0x1,0x77
122e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
122f 0000       |    |		.XXX[0x1]
1230 ; --------------------------------------------------------------------------------------
1230 ; SUBPROGRAM
1230 ; --------------------------------------------------------------------------------------
1230 1245       | E  |		.CONST	0x1245								; Address of begin
1231 0004       |    |		.CONST	0x0004								; Address of exception handler
1232 0003       |    |		.CONST	0x0003								; Number of locals
1233			INIT_1230:
1233 e241       | A  |		Load	0x1,0x41
1234 02ff       |    |		Declare_Variable	Variant_Record
1235 4802       |H   |		Short_Literal	0x2
1236 e403       |    |		Load	0x2,0x3
1237 e063       | c  |		Load	0x0,0x63
1238 e248       | H  |		Load	0x1,0x48
1239 0096       |    |		Execute	Package,Entry
123a 00d9       |    |		Load_Top	At_Offset_1
123b 016d       | m  |		Execute	Variant_Record,Structure_Write
123c e241       | A  |		Load	0x1,0x41
123d 02ff       |    |		Declare_Variable	Variant_Record
123e 4803       |H   |		Short_Literal	0x3
123f e403       |    |		Load	0x2,0x3
1240 e063       | c  |		Load	0x0,0x63
1241 e248       | H  |		Load	0x1,0x48
1242 0096       |    |		Execute	Package,Entry
1243 00d9       |    |		Load_Top	At_Offset_1
1244 016d       | m  |		Execute	Variant_Record,Structure_Write
1245			BODY_1230:
1245 e5fe       |    |		Load	0x2,-0x2
1246 6830       |h0  |		Jump_Zero	0x1277
1247 00d8       |    |		Load_Top	At_Offset_0
1248 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1249 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
124a 6816       |h   |		Jump_Zero	0x1261
124b 6070       |`p  |		Indirect_Literal	Discrete,0x12bc,{0x00000000, 0x00320000}
124c 00d9       |    |		Load_Top	At_Offset_1
124d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
124e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
124f 0271       | q  |		Execute	Discrete,Times
1250 00d9       |    |		Load_Top	At_Offset_1
1251 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1252 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1253 0270       | p  |		Execute	Discrete,Divide
1254 00d8       |    |		Load_Top	At_Offset_0
1255 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
1256 7002       |p   |		Jump_Nonzero	0x1259
1257 6060       |``  |		Indirect_Literal	Discrete,0x12b8,{0xffffffff, 0xffffc000}
1258 7801       |x   |		Jump	0x125a
1259 605a       |`Z  |		Indirect_Literal	Discrete,0x12b4,{0x00000000, 0x00004000}
125a 0273       | s  |		Execute	Discrete,Plus
125b 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
125c 00e3       |    |		Load_Encached	Natural_Cache
125d 025e       | ^  |		Execute	Discrete,Convert
125e 00da       |    |		Load_Top	At_Offset_2
125f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1260 780b       |x   |		Jump	0x126c
1261 00d8       |    |		Load_Top	At_Offset_0
1262 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1263 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1264 7004       |p   |		Jump_Nonzero	0x1269
1265 4865       |He  |		Short_Literal	0x65
1266 00da       |    |		Load_Top	At_Offset_2
1267 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1268 7803       |x   |		Jump	0x126c
1269 4800       |H   |		Short_Literal	0x0
126a 00da       |    |		Load_Top	At_Offset_2
126b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
126c 00d8       |    |		Load_Top	At_Offset_0
126d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
126e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
126f 00d9       |    |		Load_Top	At_Offset_1
1270 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
1271 00d8       |    |		Load_Top	At_Offset_0
1272 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1273 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1274 00d9       |    |		Load_Top	At_Offset_1
1275 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
1276 782f       |x/  |		Jump	0x12a6
1277 00d8       |    |		Load_Top	At_Offset_0
1278 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1279 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
127a 6816       |h   |		Jump_Zero	0x1291
127b 6040       |`@  |		Indirect_Literal	Discrete,0x12bc,{0x00000000, 0x00320000}
127c 00d9       |    |		Load_Top	At_Offset_1
127d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
127e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
127f 0271       | q  |		Execute	Discrete,Times
1280 00d9       |    |		Load_Top	At_Offset_1
1281 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1282 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1283 0270       | p  |		Execute	Discrete,Divide
1284 00d8       |    |		Load_Top	At_Offset_0
1285 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
1286 7002       |p   |		Jump_Nonzero	0x1289
1287 6030       |`0  |		Indirect_Literal	Discrete,0x12b8,{0xffffffff, 0xffffc000}
1288 7801       |x   |		Jump	0x128a
1289 602a       |`*  |		Indirect_Literal	Discrete,0x12b4,{0x00000000, 0x00004000}
128a 0273       | s  |		Execute	Discrete,Plus
128b 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
128c 00e3       |    |		Load_Encached	Natural_Cache
128d 025e       | ^  |		Execute	Discrete,Convert
128e 00da       |    |		Load_Top	At_Offset_2
128f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1290 780b       |x   |		Jump	0x129c
1291 00d8       |    |		Load_Top	At_Offset_0
1292 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1293 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1294 7004       |p   |		Jump_Nonzero	0x1299
1295 4865       |He  |		Short_Literal	0x65
1296 00da       |    |		Load_Top	At_Offset_2
1297 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1298 7803       |x   |		Jump	0x129c
1299 4800       |H   |		Short_Literal	0x0
129a 00da       |    |		Load_Top	At_Offset_2
129b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
129c 00d8       |    |		Load_Top	At_Offset_0
129d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
129e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
129f 00d9       |    |		Load_Top	At_Offset_1
12a0 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
12a1 00d8       |    |		Load_Top	At_Offset_0
12a2 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
12a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
12a4 00d9       |    |		Load_Top	At_Offset_1
12a5 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
12a6 00d9       |    |		Load_Top	At_Offset_1
12a7 4802       |H   |		Short_Literal	0x2
12a8 e403       |    |		Load	0x2,0x3
12a9 e07d       | }  |		Load	0x0,0x7d
12aa e248       | H  |		Load	0x1,0x48
12ab 0096       |    |		Execute	Package,Entry
12ac 00d8       |    |		Load_Top	At_Offset_0
12ad 4803       |H   |		Short_Literal	0x3
12ae e403       |    |		Load	0x2,0x3
12af e07d       | }  |		Load	0x0,0x7d
12b0 e248       | H  |		Load	0x1,0x48
12b1 0096       |    |		Execute	Package,Entry
12b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12b3 0000       |    |		.XXX[0x1]
12b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
12b8 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
12bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320000}
12c0 ; --------------------------------------------------------------------------------------
12c0 ; SUBPROGRAM
12c0 ; --------------------------------------------------------------------------------------
12c0 12c7       |    |		.CONST	0x12c7								; Address of begin
12c1 0004       |    |		.CONST	0x0004								; Address of exception handler
12c2 0003       |    |		.CONST	0x0003								; Number of locals
12c3			INIT_12c0:
12c3 e07e       | ~  |		Load	0x0,0x7e
12c4 0007       |    |		Action	Break_Optional
12c5 e005       |    |		Load	0x0,0x5
12c6 0007       |    |		Action	Break_Optional
12c7			BODY_12c0:
12c7 e07e       | ~  |		Load	0x0,0x7e
12c8 e7ff       |    |		Load	0x3,-0x1
12c9 807f       |    |		Call	0x0,0x7f
12ca 003a       | :  |		Store_Top	Access,At_Offset_2
12cb 00cf       |    |		Action	Mark_Auxiliary
12cc 7813       |x   |		Jump	0x12e0
12cd 00da       |    |		Load_Top	At_Offset_2
12ce 8080       |    |		Call	0x0,0x80
12cf 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
12d0 e409       |    |		Load	0x2,0x9
12d1 802a       | *  |		Call	0x0,0x2a
12d2 e03b       | ;  |		Load	0x0,0x3b
12d3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
12d4 00da       |    |		Load_Top	At_Offset_2
12d5 802a       | *  |		Call	0x0,0x2a
12d6 e03b       | ;  |		Load	0x0,0x3b
12d7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
12d8 01df       |    |		Execute	Vector,Equal
12d9 6802       |h   |		Jump_Zero	0x12dc
12da 4801       |H   |		Short_Literal	0x1
12db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12dc 00da       |    |		Load_Top	At_Offset_2
12dd 8081       |    |		Call	0x0,0x81
12de 003b       | ;  |		Store_Top	Access,At_Offset_3
12df 00c9       |    |		Action	Pop_Auxiliary_Loop
12e0 00da       |    |		Load_Top	At_Offset_2
12e1 8082       |    |		Call	0x0,0x82
12e2 6fea       |o   |		Jump_Zero	0x12cd
12e3 00ce       |    |		Action	Pop_Auxiliary
12e4 4800       |H   |		Short_Literal	0x0
12e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12e6 0000 0000  |    |		.XXX[0x2]
12e8 ; --------------------------------------------------------------------------------------
12e8 ; SUBPROGRAM
12e8 ; --------------------------------------------------------------------------------------
12e8 12f3       |    |		.CONST	0x12f3								; Address of begin
12e9 0004       |    |		.CONST	0x0004								; Address of exception handler
12ea 0004       |    |		.CONST	0x0004								; Number of locals
12eb			INIT_12e8:
12eb e065       | e  |		Load	0x0,0x65
12ec 0007       |    |		Action	Break_Optional
12ed e066       | f  |		Load	0x0,0x66
12ee 0322       | "  |		Declare_Variable	Record
12ef 00d8       |    |		Load_Top	At_Offset_0
12f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12f1 029f 177b  |   {|		Declare_Subprogram	INIT_1778,For_Call
12f3			BODY_12e8:
12f3 e065       | e  |		Load	0x0,0x65
12f4 e7ff       |    |		Load	0x3,-0x1
12f5 806f       | o  |		Call	0x0,0x6f
12f6 003b       | ;  |		Store_Top	Access,At_Offset_3
12f7 00cf       |    |		Action	Mark_Auxiliary
12f8 7814       |x   |		Jump	0x130d
12f9 00db       |    |		Load_Top	At_Offset_3
12fa 8070       | p  |		Call	0x0,0x70
12fb 00db       |    |		Load_Top	At_Offset_3
12fc 017d       | }  |		Execute	Record,Structure_Write
12fd 00da       |    |		Load_Top	At_Offset_2
12fe 8079       | y  |		Call	0x0,0x79
12ff e412       |    |		Load	0x2,0x12
1300 0279       | y  |		Execute	Discrete,And
1301 00db       |    |		Load_Top	At_Offset_3
1302 807a       | z  |		Call	0x0,0x7a
1303 e412       |    |		Load	0x2,0x12
1304 0f00       |    |		Execute_Immediate	Equal,0x0
1305 0279       | y  |		Execute	Discrete,And
1306 0278       | x  |		Execute	Discrete,Or
1307 6801       |h   |		Jump_Zero	0x1309
1308 8604       |    |		Call	0x3,0x4
1309 00db       |    |		Load_Top	At_Offset_3
130a 8072       | r  |		Call	0x0,0x72
130b c602       |    |		Store	0x3,0x2
130c 00c9       |    |		Action	Pop_Auxiliary_Loop
130d 00db       |    |		Load_Top	At_Offset_3
130e 8073       | s  |		Call	0x0,0x73
130f 6fe9       |o   |		Jump_Zero	0x12f9
1310 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1311 0000 0000  |    |		.BLANK	0000[0x7]
1318 ; --------------------------------------------------------------------------------------
1318 ; SUBPROGRAM
1318 ; --------------------------------------------------------------------------------------
1318 131f       |    |		.CONST	0x131f								; Address of begin
1319 0004       |    |		.CONST	0x0004								; Address of exception handler
131a 0003       |    |		.CONST	0x0003								; Number of locals
131b			INIT_1318:
131b e083       |    |		Load	0x0,0x83
131c 0007       |    |		Action	Break_Optional
131d e078       | x  |		Load	0x0,0x78
131e 0007       |    |		Action	Break_Optional
131f			BODY_1318:
131f e083       |    |		Load	0x0,0x83
1320 e406       |    |		Load	0x2,0x6
1321 8084       |    |		Call	0x0,0x84
1322 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1323 00cf       |    |		Action	Mark_Auxiliary
1324 780f       |x   |		Jump	0x1334
1325 00da       |    |		Load_Top	At_Offset_2
1326 8085       |    |		Call	0x0,0x85
1327 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1328 00d9       |    |		Load_Top	At_Offset_1
1329 e407       |    |		Load	0x2,0x7
132a 8086       |    |		Call	0x0,0x86
132b 7004       |p   |		Jump_Nonzero	0x1330
132c e405       |    |		Load	0x2,0x5
132d 00da       |    |		Load_Top	At_Offset_2
132e 807c       | |  |		Call	0x0,0x7c
132f c405       |    |		Store	0x2,0x5
1330 00da       |    |		Load_Top	At_Offset_2
1331 8087       |    |		Call	0x0,0x87
1332 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1333 00c9       |    |		Action	Pop_Auxiliary_Loop
1334 00da       |    |		Load_Top	At_Offset_2
1335 8088       |    |		Call	0x0,0x88
1336 6fee       |o   |		Jump_Zero	0x1325
1337 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1338 ; --------------------------------------------------------------------------------------
1338 ; SUBPROGRAM
1338 ; --------------------------------------------------------------------------------------
1338 1346       | F  |		.CONST	0x1346								; Address of begin
1339 0004       |    |		.CONST	0x0004								; Address of exception handler
133a 0005       |    |		.CONST	0x0005								; Number of locals
133b			INIT_1338:
133b e083       |    |		Load	0x0,0x83
133c 0007       |    |		Action	Break_Optional
133d e078       | x  |		Load	0x0,0x78
133e 0007       |    |		Action	Break_Optional
133f e089       |    |		Load	0x0,0x89
1340 0007       |    |		Action	Break_Optional
1341 e08a       |    |		Load	0x0,0x8a
1342 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1343 02c7       |    |		Declare_Variable	Any
1344 00d8       |    |		Load_Top	At_Offset_0
1345 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1346			BODY_1338:
1346 e083       |    |		Load	0x0,0x83
1347 e405       |    |		Load	0x2,0x5
1348 8084       |    |		Call	0x0,0x84
1349 c602       |    |		Store	0x3,0x2
134a 00cf       |    |		Action	Mark_Auxiliary
134b 7818       |x   |		Jump	0x1364
134c e602       |    |		Load	0x3,0x2
134d 8085       |    |		Call	0x0,0x85
134e a603       |    |		Store_Unchecked	0x3,0x3
134f 00d9       |    |		Load_Top	At_Offset_1
1350 e089       |    |		Load	0x0,0x89
1351 0092 184d  |   M|		Action	Push_String_Extended,0x184d					; "<DEFAULT>"
1353 e603       |    |		Load	0x3,0x3
1354 808b       |    |		Call	0x0,0x8b
1355 808c       |    |		Call	0x0,0x8c
1356 c604       |    |		Store	0x3,0x4
1357 c605       |    |		Store	0x3,0x5
1358 e402       |    |		Load	0x2,0x2
1359 00db       |    |		Load_Top	At_Offset_3
135a 808d       |    |		Call	0x0,0x8d
135b 00eb       |    |		Load_Encached	Diana_Cache
135c 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
135d a402       |    |		Store_Unchecked	0x2,0x2
135e 4800       |H   |		Short_Literal	0x0
135f a5fc       |    |		Store_Unchecked	0x2,-0x4
1360 e602       |    |		Load	0x3,0x2
1361 8087       |    |		Call	0x0,0x87
1362 c602       |    |		Store	0x3,0x2
1363 00c9       |    |		Action	Pop_Auxiliary_Loop
1364 e602       |    |		Load	0x3,0x2
1365 8088       |    |		Call	0x0,0x88
1366 6fe5       |o   |		Jump_Zero	0x134c
1367 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1368 ; --------------------------------------------------------------------------------------
1368 ; SUBPROGRAM
1368 ; --------------------------------------------------------------------------------------
1368 137a       | z  |		.CONST	0x137a								; Address of begin
1369 13b0       |    |		.CONST	0x13b0								; Address of exception handler
136a 0006       |    |		.CONST	0x0006								; Number of locals
136b			INIT_1368:
136b e065       | e  |		Load	0x0,0x65
136c 0007       |    |		Action	Break_Optional
136d e066       | f  |		Load	0x0,0x66
136e 0322       | "  |		Declare_Variable	Record
136f 00d8       |    |		Load_Top	At_Offset_0
1370 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1371 e089       |    |		Load	0x0,0x89
1372 0007       |    |		Action	Break_Optional
1373 e08a       |    |		Load	0x0,0x8a
1374 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1375 02c7       |    |		Declare_Variable	Any
1376 00d8       |    |		Load_Top	At_Offset_0
1377 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1378 029f 17a3  |    |		Declare_Subprogram	INIT_17a0,For_Call
137a			BODY_1368:
137a e5fe       |    |		Load	0x2,-0x2
137b 8260       | `  |		Call	0x1,0x60
137c a411       |    |		Store_Unchecked	0x2,0x11
137d e411       |    |		Load	0x2,0x11
137e e404       |    |		Load	0x2,0x4
137f 0217       |    |		Execute	Heap_Access,All_Reference
1380 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1381 804e       | N  |		Call	0x0,0x4e
1382 a40d       |    |		Store_Unchecked	0x2,0xd
1383 e5fe       |    |		Load	0x2,-0x2
1384 8263       | c  |		Call	0x1,0x63
1385 a410       |    |		Store_Unchecked	0x2,0x10
1386 e410       |    |		Load	0x2,0x10
1387 e40d       |    |		Load	0x2,0xd
1388 8052       | R  |		Call	0x0,0x52
1389 a40e       |    |		Store_Unchecked	0x2,0xe
138a e5fd       |    |		Load	0x2,-0x3
138b 0f04       |    |		Execute_Immediate	Equal,0x4
138c 6802       |h   |		Jump_Zero	0x138f
138d 8606       |    |		Call	0x3,0x6
138e 7806       |x   |		Jump	0x1395
138f e5fe       |    |		Load	0x2,-0x2
1390 8265       | e  |		Call	0x1,0x65
1391 e40e       |    |		Load	0x2,0xe
1392 8055       | U  |		Call	0x0,0x55
1393 e40f       |    |		Load	0x2,0xf
1394 017d       | }  |		Execute	Record,Structure_Write
1395 e065       | e  |		Load	0x0,0x65
1396 e40f       |    |		Load	0x2,0xf
1397 806f       | o  |		Call	0x0,0x6f
1398 c602       |    |		Store	0x3,0x2
1399 e602       |    |		Load	0x3,0x2
139a 8073       | s  |		Call	0x0,0x73
139b 7013       |p   |		Jump_Nonzero	0x13af
139c e602       |    |		Load	0x3,0x2
139d 8070       | p  |		Call	0x0,0x70
139e e603       |    |		Load	0x3,0x3
139f 017d       | }  |		Execute	Record,Structure_Write
13a0 00d9       |    |		Load_Top	At_Offset_1
13a1 e089       |    |		Load	0x0,0x89
13a2 0092 184d  |   M|		Action	Push_String_Extended,0x184d					; "<DEFAULT>"
13a4 e603       |    |		Load	0x3,0x3
13a5 808e       |    |		Call	0x0,0x8e
13a6 808c       |    |		Call	0x0,0x8c
13a7 c604       |    |		Store	0x3,0x4
13a8 c605       |    |		Store	0x3,0x5
13a9 e402       |    |		Load	0x2,0x2
13aa 00db       |    |		Load_Top	At_Offset_3
13ab 808d       |    |		Call	0x0,0x8d
13ac 00eb       |    |		Load_Encached	Diana_Cache
13ad 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
13ae a402       |    |		Store_Unchecked	0x2,0x2
13af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13b0			TRAP_1368:
13b0 e08f       |    |		Load	0x0,0x8f
13b1 010f       |    |		Execute	Exception,Equal
13b2 7006       |p   |		Jump_Nonzero	0x13b9
13b3 e090       |    |		Load	0x0,0x90
13b4 010f       |    |		Execute	Exception,Equal
13b5 7003       |p   |		Jump_Nonzero	0x13b9
13b6 e091       |    |		Load	0x0,0x91
13b7 010f       |    |		Execute	Exception,Equal
13b8 6801       |h   |		Jump_Zero	0x13ba
13b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13ba 0100       |    |		Execute	Exception,Raise
13bb 0000 0000  |    |		.BLANK	0000[0x5]
13c0 ; --------------------------------------------------------------------------------------
13c0 ; SUBPROGRAM
13c0 ; --------------------------------------------------------------------------------------
13c0 13c5       |    |		.CONST	0x13c5								; Address of begin
13c1 13ff       |    |		.CONST	0x13ff								; Address of exception handler
13c2 0002       |    |		.CONST	0x0002								; Number of locals
13c3			INIT_13c0:
13c3 029f 17bb  |    |		Declare_Subprogram	INIT_17b8,For_Call
13c5			BODY_13c0:
13c5 e40a       |    |		Load	0x2,0xa
13c6 680d       |h   |		Jump_Zero	0x13d4
13c7 e404       |    |		Load	0x2,0x4
13c8 0217       |    |		Execute	Heap_Access,All_Reference
13c9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
13ca a40c       |    |		Store_Unchecked	0x2,0xc
13cb e408       |    |		Load	0x2,0x8
13cc 8048       | H  |		Call	0x0,0x48
13cd e40b       |    |		Load	0x2,0xb
13ce 017d       | }  |		Execute	Record,Structure_Write
13cf e409       |    |		Load	0x2,0x9
13d0 e40c       |    |		Load	0x2,0xc
13d1 8049       | I  |		Call	0x0,0x49
13d2 e40b       |    |		Load	0x2,0xb
13d3 017d       | }  |		Execute	Record,Structure_Write
13d4 e5fe       |    |		Load	0x2,-0x2
13d5 8260       | `  |		Call	0x1,0x60
13d6 a411       |    |		Store_Unchecked	0x2,0x11
13d7 e411       |    |		Load	0x2,0x11
13d8 e404       |    |		Load	0x2,0x4
13d9 0217       |    |		Execute	Heap_Access,All_Reference
13da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
13db 804e       | N  |		Call	0x0,0x4e
13dc a40d       |    |		Store_Unchecked	0x2,0xd
13dd e5fe       |    |		Load	0x2,-0x2
13de 8263       | c  |		Call	0x1,0x63
13df a410       |    |		Store_Unchecked	0x2,0x10
13e0 e40a       |    |		Load	0x2,0xa
13e1 680b       |h   |		Jump_Zero	0x13ed
13e2 e411       |    |		Load	0x2,0x11
13e3 8016       |    |		Call	0x0,0x16
13e4 0092 1847  |   G|		Action	Push_String_Extended,0x1847					; "."
13e6 01cc       |    |		Execute	Vector,Catenate
13e7 e410       |    |		Load	0x2,0x10
13e8 8016       |    |		Call	0x0,0x16
13e9 01cc       |    |		Execute	Vector,Catenate
13ea e40b       |    |		Load	0x2,0xb
13eb 8051       | Q  |		Call	0x0,0x51
13ec 6811       |h   |		Jump_Zero	0x13fe
13ed e410       |    |		Load	0x2,0x10
13ee e40d       |    |		Load	0x2,0xd
13ef 8052       | R  |		Call	0x0,0x52
13f0 a40e       |    |		Store_Unchecked	0x2,0xe
13f1 e5fd       |    |		Load	0x2,-0x3
13f2 0f04       |    |		Execute_Immediate	Equal,0x4
13f3 6802       |h   |		Jump_Zero	0x13f6
13f4 8602       |    |		Call	0x3,0x2
13f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13f6 e5fe       |    |		Load	0x2,-0x2
13f7 8265       | e  |		Call	0x1,0x65
13f8 e40e       |    |		Load	0x2,0xe
13f9 8055       | U  |		Call	0x0,0x55
13fa e40f       |    |		Load	0x2,0xf
13fb 017d       | }  |		Execute	Record,Structure_Write
13fc e40f       |    |		Load	0x2,0xf
13fd 8414       |    |		Call	0x2,0x14
13fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13ff			TRAP_13c0:
13ff e08f       |    |		Load	0x0,0x8f
1400 010f       |    |		Execute	Exception,Equal
1401 7006       |p   |		Jump_Nonzero	0x1408
1402 e090       |    |		Load	0x0,0x90
1403 010f       |    |		Execute	Exception,Equal
1404 7003       |p   |		Jump_Nonzero	0x1408
1405 e091       |    |		Load	0x0,0x91
1406 010f       |    |		Execute	Exception,Equal
1407 6801       |h   |		Jump_Zero	0x1409
1408 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1409 0100       |    |		Execute	Exception,Raise
140a 0000 0000  |    |		.BLANK	0000[0x6]
1410 ; --------------------------------------------------------------------------------------
1410 ; SUBPROGRAM
1410 ; --------------------------------------------------------------------------------------
1410 141c       |    |		.CONST	0x141c								; Address of begin
1411 0004       |    |		.CONST	0x0004								; Address of exception handler
1412 0002       |    |		.CONST	0x0002								; Number of locals
1413			INIT_1410:
1413 e24a       | J  |		Load	0x1,0x4a
1414 e5ff       |    |		Load	0x2,-0x1
1415 825f       | _  |		Call	0x1,0x5f
1416 e24a       | J  |		Load	0x1,0x4a
1417 e5fe       |    |		Load	0x2,-0x2
1418 825f       | _  |		Call	0x1,0x5f
1419 01df       |    |		Execute	Vector,Equal
141a 00e1       |    |		Load_Encached	Boolean_Cache
141b 03f1       |    |		Declare_Variable	Discrete,With_Value
141c			BODY_1410:
141c e403       |    |		Load	0x2,0x3
141d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
141e 4606       |F   |		Jump_Case	0x7
141f 7849       |xI  |		Jump	0x1469								; case 0x0
1420 7848       |xH  |		Jump	0x1469								; case 0x1
1421 7847       |xG  |		Jump	0x1469								; case 0x2
1422 781d       |x   |		Jump	0x1440								; case 0x3
1423 7827       |x'  |		Jump	0x144b								; case 0x4
1424 7801       |x   |		Jump	0x1426								; case 0x5
1425 7800       |x   |		Jump	0x1426								; case 0x6
1426 00d8       |    |		Load_Top	At_Offset_0
1427 6811       |h   |		Jump_Zero	0x1439
1428 e24a       | J  |		Load	0x1,0x4a
1429 e5ff       |    |		Load	0x2,-0x1
142a 8262       | b  |		Call	0x1,0x62
142b e24a       | J  |		Load	0x1,0x4a
142c e5fe       |    |		Load	0x2,-0x2
142d 8262       | b  |		Call	0x1,0x62
142e 01df       |    |		Execute	Vector,Equal
142f 6803       |h   |		Jump_Zero	0x1433
1430 4801       |H   |		Short_Literal	0x1
1431 a404       |    |		Store_Unchecked	0x2,0x4
1432 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1433 e403       |    |		Load	0x2,0x3
1434 825c       | \  |		Call	0x1,0x5c
1435 e5ff       |    |		Load	0x2,-0x1
1436 8269       | i  |		Call	0x1,0x69
1437 a404       |    |		Store_Unchecked	0x2,0x4
1438 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1439 e403       |    |		Load	0x2,0x3
143a 825d       | ]  |		Call	0x1,0x5d
143b e402       |    |		Load	0x2,0x2
143c 825d       | ]  |		Call	0x1,0x5d
143d 8269       | i  |		Call	0x1,0x69
143e a404       |    |		Store_Unchecked	0x2,0x4
143f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1440 00d8       |    |		Load_Top	At_Offset_0
1441 6803       |h   |		Jump_Zero	0x1445
1442 4800       |H   |		Short_Literal	0x0
1443 a404       |    |		Store_Unchecked	0x2,0x4
1444 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1445 e5fe       |    |		Load	0x2,-0x2
1446 e402       |    |		Load	0x2,0x2
1447 825d       | ]  |		Call	0x1,0x5d
1448 8269       | i  |		Call	0x1,0x69
1449 a404       |    |		Store_Unchecked	0x2,0x4
144a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
144b 00d8       |    |		Load_Top	At_Offset_0
144c 6815       |h   |		Jump_Zero	0x1462
144d e5ff       |    |		Load	0x2,-0x1
144e 8266       | f  |		Call	0x1,0x66
144f e5fe       |    |		Load	0x2,-0x2
1450 8266       | f  |		Call	0x1,0x66
1451 0272       | r  |		Execute	Discrete,Minus
1452 c405       |    |		Store	0x2,0x5
1453 e405       |    |		Load	0x2,0x5
1454 7009       |p   |		Jump_Nonzero	0x145e
1455 e24a       | J  |		Load	0x1,0x4a
1456 e5ff       |    |		Load	0x2,-0x1
1457 8262       | b  |		Call	0x1,0x62
1458 e24a       | J  |		Load	0x1,0x4a
1459 e5fe       |    |		Load	0x2,-0x2
145a 8262       | b  |		Call	0x1,0x62
145b 01c1       |    |		Execute	Vector,Less
145c a404       |    |		Store_Unchecked	0x2,0x4
145d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
145e e405       |    |		Load	0x2,0x5
145f 0d00       |    |		Execute_Immediate	Less,0x0
1460 a404       |    |		Store_Unchecked	0x2,0x4
1461 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1462 e403       |    |		Load	0x2,0x3
1463 825d       | ]  |		Call	0x1,0x5d
1464 e402       |    |		Load	0x2,0x2
1465 825d       | ]  |		Call	0x1,0x5d
1466 8269       | i  |		Call	0x1,0x69
1467 a404       |    |		Store_Unchecked	0x2,0x4
1468 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1469 4800       |H   |		Short_Literal	0x0
146a a404       |    |		Store_Unchecked	0x2,0x4
146b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
146c 0000 0000  |    |		.BLANK	0000[0x4]
1470 ; --------------------------------------------------------------------------------------
1470 ; SUBPROGRAM
1470 ; --------------------------------------------------------------------------------------
1470 147c       | |  |		.CONST	0x147c								; Address of begin
1471 0004       |    |		.CONST	0x0004								; Address of exception handler
1472 0002       |    |		.CONST	0x0002								; Number of locals
1473			INIT_1470:
1473 e406       |    |		Load	0x2,0x6
1474 e5ff       |    |		Load	0x2,-0x1
1475 825f       | _  |		Call	0x1,0x5f
1476 e406       |    |		Load	0x2,0x6
1477 e5fe       |    |		Load	0x2,-0x2
1478 825f       | _  |		Call	0x1,0x5f
1479 01df       |    |		Execute	Vector,Equal
147a 00e1       |    |		Load_Encached	Boolean_Cache
147b 03f1       |    |		Declare_Variable	Discrete,With_Value
147c			BODY_1470:
147c e403       |    |		Load	0x2,0x3
147d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
147e 4606       |F   |		Jump_Case	0x7
147f 7849       |xI  |		Jump	0x14c9								; case 0x0
1480 7848       |xH  |		Jump	0x14c9								; case 0x1
1481 7847       |xG  |		Jump	0x14c9								; case 0x2
1482 781d       |x   |		Jump	0x14a0								; case 0x3
1483 7827       |x'  |		Jump	0x14ab								; case 0x4
1484 7801       |x   |		Jump	0x1486								; case 0x5
1485 7800       |x   |		Jump	0x1486								; case 0x6
1486 00d8       |    |		Load_Top	At_Offset_0
1487 6811       |h   |		Jump_Zero	0x1499
1488 e406       |    |		Load	0x2,0x6
1489 e5ff       |    |		Load	0x2,-0x1
148a 8262       | b  |		Call	0x1,0x62
148b e406       |    |		Load	0x2,0x6
148c e5fe       |    |		Load	0x2,-0x2
148d 8262       | b  |		Call	0x1,0x62
148e 01df       |    |		Execute	Vector,Equal
148f 6803       |h   |		Jump_Zero	0x1493
1490 4801       |H   |		Short_Literal	0x1
1491 a404       |    |		Store_Unchecked	0x2,0x4
1492 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1493 e403       |    |		Load	0x2,0x3
1494 825c       | \  |		Call	0x1,0x5c
1495 e5ff       |    |		Load	0x2,-0x1
1496 826a       | j  |		Call	0x1,0x6a
1497 a404       |    |		Store_Unchecked	0x2,0x4
1498 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1499 e403       |    |		Load	0x2,0x3
149a 825d       | ]  |		Call	0x1,0x5d
149b e402       |    |		Load	0x2,0x2
149c 825d       | ]  |		Call	0x1,0x5d
149d 826a       | j  |		Call	0x1,0x6a
149e a404       |    |		Store_Unchecked	0x2,0x4
149f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14a0 00d8       |    |		Load_Top	At_Offset_0
14a1 6803       |h   |		Jump_Zero	0x14a5
14a2 4800       |H   |		Short_Literal	0x0
14a3 a404       |    |		Store_Unchecked	0x2,0x4
14a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14a5 e5fe       |    |		Load	0x2,-0x2
14a6 e402       |    |		Load	0x2,0x2
14a7 825d       | ]  |		Call	0x1,0x5d
14a8 826a       | j  |		Call	0x1,0x6a
14a9 a404       |    |		Store_Unchecked	0x2,0x4
14aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14ab 00d8       |    |		Load_Top	At_Offset_0
14ac 6815       |h   |		Jump_Zero	0x14c2
14ad e5ff       |    |		Load	0x2,-0x1
14ae 8266       | f  |		Call	0x1,0x66
14af e5fe       |    |		Load	0x2,-0x2
14b0 8266       | f  |		Call	0x1,0x66
14b1 0272       | r  |		Execute	Discrete,Minus
14b2 c405       |    |		Store	0x2,0x5
14b3 e405       |    |		Load	0x2,0x5
14b4 7009       |p   |		Jump_Nonzero	0x14be
14b5 e406       |    |		Load	0x2,0x6
14b6 e5ff       |    |		Load	0x2,-0x1
14b7 8262       | b  |		Call	0x1,0x62
14b8 e406       |    |		Load	0x2,0x6
14b9 e5fe       |    |		Load	0x2,-0x2
14ba 8262       | b  |		Call	0x1,0x62
14bb 01c1       |    |		Execute	Vector,Less
14bc a404       |    |		Store_Unchecked	0x2,0x4
14bd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14be e405       |    |		Load	0x2,0x5
14bf 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
14c0 a404       |    |		Store_Unchecked	0x2,0x4
14c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14c2 e403       |    |		Load	0x2,0x3
14c3 825d       | ]  |		Call	0x1,0x5d
14c4 e402       |    |		Load	0x2,0x2
14c5 825d       | ]  |		Call	0x1,0x5d
14c6 826a       | j  |		Call	0x1,0x6a
14c7 a404       |    |		Store_Unchecked	0x2,0x4
14c8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14c9 4800       |H   |		Short_Literal	0x0
14ca a404       |    |		Store_Unchecked	0x2,0x4
14cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14cc 0000 0000  |    |		.BLANK	0000[0x4]
14d0 ; --------------------------------------------------------------------------------------
14d0 ; SUBPROGRAM
14d0 ; --------------------------------------------------------------------------------------
14d0 14d5       |    |		.CONST	0x14d5								; Address of begin
14d1 0004       |    |		.CONST	0x0004								; Address of exception handler
14d2 0002       |    |		.CONST	0x0002								; Number of locals
14d3			INIT_14d0:
14d3 e078       | x  |		Load	0x0,0x78
14d4 0007       |    |		Action	Break_Optional
14d5			BODY_14d0:
14d5 00d8       |    |		Load_Top	At_Offset_0
14d6 e40a       |    |		Load	0x2,0xa
14d7 e408       |    |		Load	0x2,0x8
14d8 807b       | {  |		Call	0x0,0x7b
14d9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
14da e24f       | O  |		Load	0x1,0x4f
14db 00d9       |    |		Load_Top	At_Offset_1
14dc 807c       | |  |		Call	0x0,0x7c
14dd c24f       | O  |		Store	0x1,0x4f
14de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
14df 0000       |    |		.XXX[0x1]
14e0 ; --------------------------------------------------------------------------------------
14e0 ; SUBPROGRAM
14e0 ; --------------------------------------------------------------------------------------
14e0 14e6       |    |		.CONST	0x14e6								; Address of begin
14e1 0004       |    |		.CONST	0x0004								; Address of exception handler
14e2 0003       |    |		.CONST	0x0003								; Number of locals
14e3			INIT_14e0:
14e3 e078       | x  |		Load	0x0,0x78
14e4 0007       |    |		Action	Break_Optional
14e5 00e1       |    |		Load_Encached	Boolean_Cache
14e6			BODY_14e0:
14e6 00d9       |    |		Load_Top	At_Offset_1
14e7 e40a       |    |		Load	0x2,0xa
14e8 e409       |    |		Load	0x2,0x9
14e9 807b       | {  |		Call	0x0,0x7b
14ea 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
14eb 00d9       |    |		Load_Top	At_Offset_1
14ec e24f       | O  |		Load	0x1,0x4f
14ed 8086       |    |		Call	0x0,0x86
14ee 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
14ef 00d8       |    |		Load_Top	At_Offset_0
14f0 00ca       |    |		Action	Exit_Nullary_Function
14f1 0000 0000  |    |		.BLANK	0000[0x7]
14f8 ; --------------------------------------------------------------------------------------
14f8 ; SUBPROGRAM
14f8 ; --------------------------------------------------------------------------------------
14f8 14fb       |    |		.CONST	0x14fb								; Address of begin
14f9 1565       | e  |		.CONST	0x1565								; Address of exception handler
14fa 0001       |    |		.CONST	0x0001								; Number of locals
14fb			BODY_14f8:
14fb			INIT_14f8:
14fb e5fe       |    |		Load	0x2,-0x2
14fc 8260       | `  |		Call	0x1,0x60
14fd e402       |    |		Load	0x2,0x2
14fe 0217       |    |		Execute	Heap_Access,All_Reference
14ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1500 804e       | N  |		Call	0x0,0x4e
1501 a403       |    |		Store_Unchecked	0x2,0x3
1502 e5fe       |    |		Load	0x2,-0x2
1503 8263       | c  |		Call	0x1,0x63
1504 e403       |    |		Load	0x2,0x3
1505 8052       | R  |		Call	0x0,0x52
1506 a404       |    |		Store_Unchecked	0x2,0x4
1507 e5fc       |    |		Load	0x2,-0x4
1508 e404       |    |		Load	0x2,0x4
1509 8055       | U  |		Call	0x0,0x55
150a e405       |    |		Load	0x2,0x5
150b 017d       | }  |		Execute	Record,Structure_Write
150c e065       | e  |		Load	0x0,0x65
150d e405       |    |		Load	0x2,0x5
150e 806f       | o  |		Call	0x0,0x6f
150f c406       |    |		Store	0x2,0x6
1510 e065       | e  |		Load	0x0,0x65
1511 e5fb       |    |		Load	0x2,-0x5
1512 806f       | o  |		Call	0x0,0x6f
1513 c407       |    |		Store	0x2,0x7
1514 00cf       |    |		Action	Mark_Auxiliary
1515 7846       |xF  |		Jump	0x155c
1516 e406       |    |		Load	0x2,0x6
1517 8070       | p  |		Call	0x0,0x70
1518 e408       |    |		Load	0x2,0x8
1519 017d       | }  |		Execute	Record,Structure_Write
151a e407       |    |		Load	0x2,0x7
151b 8070       | p  |		Call	0x0,0x70
151c e409       |    |		Load	0x2,0x9
151d 017d       | }  |		Execute	Record,Structure_Write
151e e408       |    |		Load	0x2,0x8
151f 8079       | y  |		Call	0x0,0x79
1520 6803       |h   |		Jump_Zero	0x1524
1521 e409       |    |		Load	0x2,0x9
1522 8079       | y  |		Call	0x0,0x79
1523 7801       |x   |		Jump	0x1525
1524 4800       |H   |		Short_Literal	0x0
1525 a40c       |    |		Store_Unchecked	0x2,0xc
1526 e408       |    |		Load	0x2,0x8
1527 807a       | z  |		Call	0x0,0x7a
1528 6803       |h   |		Jump_Zero	0x152c
1529 e409       |    |		Load	0x2,0x9
152a 807a       | z  |		Call	0x0,0x7a
152b 7801       |x   |		Jump	0x152d
152c 4800       |H   |		Short_Literal	0x0
152d a40b       |    |		Store_Unchecked	0x2,0xb
152e e40c       |    |		Load	0x2,0xc
152f e40b       |    |		Load	0x2,0xb
1530 0278       | x  |		Execute	Discrete,Or
1531 6823       |h#  |		Jump_Zero	0x1555
1532 e408       |    |		Load	0x2,0x8
1533 8071       | q  |		Call	0x0,0x71
1534 6820       |h   |		Jump_Zero	0x1555
1535 e409       |    |		Load	0x2,0x9
1536 8071       | q  |		Call	0x0,0x71
1537 701d       |p   |		Jump_Nonzero	0x1555
1538 e408       |    |		Load	0x2,0x8
1539 808e       |    |		Call	0x0,0x8e
153a e409       |    |		Load	0x2,0x9
153b 808e       |    |		Call	0x0,0x8e
153c 01df       |    |		Execute	Vector,Equal
153d 6817       |h   |		Jump_Zero	0x1555
153e 840e       |    |		Call	0x2,0xe
153f 7015       |p   |		Jump_Nonzero	0x1555
1540 840d       |    |		Call	0x2,0xd
1541 e40c       |    |		Load	0x2,0xc
1542 6808       |h   |		Jump_Zero	0x154b
1543 e5fa       |    |		Load	0x2,-0x6
1544 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1545 0a01       |    |		Execute_Immediate	Plus,0x1
1546 e5fa       |    |		Load	0x2,-0x6
1547 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1548 e5f9       |    |		Load	0x2,-0x7
1549 0a01       |    |		Execute_Immediate	Plus,0x1
154a c5f9       |    |		Store	0x2,-0x7
154b e40b       |    |		Load	0x2,0xb
154c 6808       |h   |		Jump_Zero	0x1555
154d e5fa       |    |		Load	0x2,-0x6
154e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
154f 0a01       |    |		Execute_Immediate	Plus,0x1
1550 e5fa       |    |		Load	0x2,-0x6
1551 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1552 e5f8       |    |		Load	0x2,-0x8
1553 0a01       |    |		Execute_Immediate	Plus,0x1
1554 c5f8       |    |		Store	0x2,-0x8
1555 e406       |    |		Load	0x2,0x6
1556 8072       | r  |		Call	0x0,0x72
1557 c406       |    |		Store	0x2,0x6
1558 e407       |    |		Load	0x2,0x7
1559 8072       | r  |		Call	0x0,0x72
155a c407       |    |		Store	0x2,0x7
155b 00c9       |    |		Action	Pop_Auxiliary_Loop
155c e406       |    |		Load	0x2,0x6
155d 8073       | s  |		Call	0x0,0x73
155e 0f00       |    |		Execute_Immediate	Equal,0x0
155f e407       |    |		Load	0x2,0x7
1560 8073       | s  |		Call	0x0,0x73
1561 0f00       |    |		Execute_Immediate	Equal,0x0
1562 0279       | y  |		Execute	Discrete,And
1563 77b2       |w   |		Jump_Nonzero	0x1516
1564 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1565			TRAP_14f8:
1565 e08f       |    |		Load	0x0,0x8f
1566 010f       |    |		Execute	Exception,Equal
1567 7006       |p   |		Jump_Nonzero	0x156e
1568 e090       |    |		Load	0x0,0x90
1569 010f       |    |		Execute	Exception,Equal
156a 7003       |p   |		Jump_Nonzero	0x156e
156b e091       |    |		Load	0x0,0x91
156c 010f       |    |		Execute	Exception,Equal
156d 6801       |h   |		Jump_Zero	0x156f
156e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
156f 0100       |    |		Execute	Exception,Raise
1570 ; --------------------------------------------------------------------------------------
1570 ; SUBPROGRAM
1570 ; --------------------------------------------------------------------------------------
1570 1575       | u  |		.CONST	0x1575								; Address of begin
1571 0004       |    |		.CONST	0x0004								; Address of exception handler
1572 0002       |    |		.CONST	0x0002								; Number of locals
1573			INIT_1570:
1573 e092       |    |		Load	0x0,0x92
1574 0007       |    |		Action	Break_Optional
1575			BODY_1570:
1575 00d8       |    |		Load_Top	At_Offset_0
1576 e602       |    |		Load	0x3,0x2
1577 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1578 e602       |    |		Load	0x3,0x2
1579 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
157a 8093       |    |		Call	0x0,0x93
157b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
157c e603       |    |		Load	0x3,0x3
157d 00d9       |    |		Load_Top	At_Offset_1
157e 8094       |    |		Call	0x0,0x94
157f c603       |    |		Store	0x3,0x3
1580 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1581 0000 0000  |    |		.BLANK	0000[0x7]
1588 ; --------------------------------------------------------------------------------------
1588 ; SUBPROGRAM
1588 ; --------------------------------------------------------------------------------------
1588 158d       |    |		.CONST	0x158d								; Address of begin
1589 0004       |    |		.CONST	0x0004								; Address of exception handler
158a 0002       |    |		.CONST	0x0002								; Number of locals
158b			INIT_1588:
158b 029f 17db  |    |		Declare_Subprogram	INIT_17d8,For_Call
158d			BODY_1588:
158d 00db       |    |		Load_Top	At_Offset_3
158e 680a       |h   |		Jump_Zero	0x1599
158f 00db       |    |		Load_Top	At_Offset_3
1590 0217       |    |		Execute	Heap_Access,All_Reference
1591 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1592 8802       |    |		Call	0x4,0x2
1593 e095       |    |		Load	0x0,0x95
1594 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1595 4800       |H   |		Short_Literal	0x0
1596 e9ff       |    |		Load	0x4,-0x1
1597 e096       |    |		Load	0x0,0x96
1598 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1599 e9fe       |    |		Load	0x4,-0x2
159a 7003       |p   |		Jump_Nonzero	0x159e
159b e097       |    |		Load	0x0,0x97
159c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
159d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
159e 4800       |H   |		Short_Literal	0x0
159f e098       |    |		Load	0x0,0x98
15a0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
15a1 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
15a2 4801       |H   |		Short_Literal	0x1
15a3 4800       |H   |		Short_Literal	0x0
15a4 4801       |H   |		Short_Literal	0x1
15a5 e098       |    |		Load	0x0,0x98
15a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
15a7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
15a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15a9 0000 0000  |    |		.BLANK	0000[0x7]
15b0 ; --------------------------------------------------------------------------------------
15b0 ; SUBPROGRAM
15b0 ; --------------------------------------------------------------------------------------
15b0 15bc       |    |		.CONST	0x15bc								; Address of begin
15b1 0004       |    |		.CONST	0x0004								; Address of exception handler
15b2 0003       |    |		.CONST	0x0003								; Number of locals
15b3			INIT_15b0:
15b3 e5ff       |    |		Load	0x2,-0x1
15b4 0219       |    |		Execute	Heap_Access,All_Read
15b5 e028       | (  |		Load	0x0,0x28
15b6 e248       | H  |		Load	0x1,0x48
15b7 0096       |    |		Execute	Package,Entry
15b8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
15b9 0007       |    |		Action	Break_Optional
15ba 029f 1803  |    |		Declare_Subprogram	INIT_1800,For_Call
15bc			BODY_15b0:
15bc e403       |    |		Load	0x2,0x3
15bd 0f04       |    |		Execute_Immediate	Equal,0x4
15be 6806       |h   |		Jump_Zero	0x15c5
15bf 4801       |H   |		Short_Literal	0x1
15c0 0092 184e  |   N|		Action	Push_String_Extended,0x184e					; "unit"
15c2 8803       |    |		Call	0x4,0x3
15c3 820e       |    |		Call	0x1,0xe
15c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15c5 e403       |    |		Load	0x2,0x3
15c6 0f05       |    |		Execute_Immediate	Equal,0x5
15c7 6806       |h   |		Jump_Zero	0x15ce
15c8 4801       |H   |		Short_Literal	0x1
15c9 0092 184f  |   O|		Action	Push_String_Extended,0x184f					; "subprogram"
15cb 8803       |    |		Call	0x4,0x3
15cc 820e       |    |		Call	0x1,0xe
15cd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15ce 4801       |H   |		Short_Literal	0x1
15cf 0092 1850  |   P|		Action	Push_String_Extended,0x1850					; "block"
15d1 8803       |    |		Call	0x4,0x3
15d2 820e       |    |		Call	0x1,0xe
15d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
15d4 0000 0000  |    |		.BLANK	0000[0x4]
15d8 ; --------------------------------------------------------------------------------------
15d8 ; SUBPROGRAM
15d8 ; --------------------------------------------------------------------------------------
15d8 15df       |    |		.CONST	0x15df								; Address of begin
15d9 0004       |    |		.CONST	0x0004								; Address of exception handler
15da 0003       |    |		.CONST	0x0003								; Number of locals
15db			INIT_15d8:
15db e07e       | ~  |		Load	0x0,0x7e
15dc 0007       |    |		Action	Break_Optional
15dd e005       |    |		Load	0x0,0x5
15de 0007       |    |		Action	Break_Optional
15df			BODY_15d8:
15df e07e       | ~  |		Load	0x0,0x7e
15e0 e603       |    |		Load	0x3,0x3
15e1 807f       |    |		Call	0x0,0x7f
15e2 003a       | :  |		Store_Top	Access,At_Offset_2
15e3 00cf       |    |		Action	Mark_Auxiliary
15e4 7823       |x#  |		Jump	0x1608
15e5 00da       |    |		Load_Top	At_Offset_2
15e6 8080       |    |		Call	0x0,0x80
15e7 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
15e8 e5fa       |    |		Load	0x2,-0x6
15e9 802a       | *  |		Call	0x0,0x2a
15ea e03b       | ;  |		Load	0x0,0x3b
15eb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
15ec 00da       |    |		Load_Top	At_Offset_2
15ed 802a       | *  |		Call	0x0,0x2a
15ee e03b       | ;  |		Load	0x0,0x3b
15ef 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
15f0 01df       |    |		Execute	Vector,Equal
15f1 6812       |h   |		Jump_Zero	0x1604
15f2 e603       |    |		Load	0x3,0x3
15f3 8079       | y  |		Call	0x0,0x79
15f4 6806       |h   |		Jump_Zero	0x15fb
15f5 4801       |H   |		Short_Literal	0x1
15f6 e7fe       |    |		Load	0x3,-0x2
15f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
15f8 841a       |    |		Call	0x2,0x1a
15f9 e7fe       |    |		Load	0x3,-0x2
15fa 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
15fb e603       |    |		Load	0x3,0x3
15fc 807a       | z  |		Call	0x0,0x7a
15fd 6806       |h   |		Jump_Zero	0x1604
15fe 4801       |H   |		Short_Literal	0x1
15ff e7fe       |    |		Load	0x3,-0x2
1600 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1601 841a       |    |		Call	0x2,0x1a
1602 e7fe       |    |		Load	0x3,-0x2
1603 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1604 00da       |    |		Load_Top	At_Offset_2
1605 8081       |    |		Call	0x0,0x81
1606 003b       | ;  |		Store_Top	Access,At_Offset_3
1607 00c9       |    |		Action	Pop_Auxiliary_Loop
1608 00da       |    |		Load_Top	At_Offset_2
1609 8082       |    |		Call	0x0,0x82
160a 6fda       |o   |		Jump_Zero	0x15e5
160b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
160c 0000 0000  |    |		.BLANK	0000[0x4]
1610 ; --------------------------------------------------------------------------------------
1610 ; SUBPROGRAM
1610 ; --------------------------------------------------------------------------------------
1610 1624       | $  |		.CONST	0x1624								; Address of begin
1611 0004       |    |		.CONST	0x0004								; Address of exception handler
1612 0004       |    |		.CONST	0x0004								; Number of locals
1613			INIT_1610:
1613 e00b       |    |		Load	0x0,0xb
1614 e248       | H  |		Load	0x1,0x48
1615 0098       |    |		Execute	Package,Field_Read_Dynamic
1616 0322       | "  |		Declare_Variable	Record
1617 4800       |H   |		Short_Literal	0x0
1618 e5ff       |    |		Load	0x2,-0x1
1619 0219       |    |		Execute	Heap_Access,All_Read
161a e035       | 5  |		Load	0x0,0x35
161b e248       | H  |		Load	0x1,0x48
161c 0096       |    |		Execute	Package,Entry
161d 00d9       |    |		Load_Top	At_Offset_1
161e 017d       | }  |		Execute	Record,Structure_Write
161f e00a       |    |		Load	0x0,0xa
1620 e248       | H  |		Load	0x1,0x48
1621 0098       |    |		Execute	Package,Field_Read_Dynamic
1622 0322       | "  |		Declare_Variable	Record
1623 e23c       | <  |		Load	0x1,0x3c
1624			BODY_1610:
1624 00cf       |    |		Action	Mark_Auxiliary
1625 7864       |xd  |		Jump	0x168a
1626 00db       |    |		Load_Top	At_Offset_3
1627 e038       | 8  |		Load	0x0,0x38
1628 e248       | H  |		Load	0x1,0x48
1629 0096       |    |		Execute	Package,Entry
162a 00db       |    |		Load_Top	At_Offset_3
162b 017d       | }  |		Execute	Record,Structure_Write
162c 00da       |    |		Load_Top	At_Offset_2
162d e02d       | -  |		Load	0x0,0x2d
162e e248       | H  |		Load	0x1,0x48
162f 0096       |    |		Execute	Package,Entry
1630 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1631 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1632 00d9       |    |		Load_Top	At_Offset_1
1633 e7ff       |    |		Load	0x3,-0x1
1634 027f       |    |		Execute	Discrete,Equal
1635 684e       |hN  |		Jump_Zero	0x1684
1636 e7ff       |    |		Load	0x3,-0x1
1637 4606       |F   |		Jump_Case	0x7
1638 783e       |x>  |		Jump	0x1677								; case 0x0
1639 783d       |x=  |		Jump	0x1677								; case 0x1
163a 783c       |x<  |		Jump	0x1677								; case 0x2
163b 7832       |x2  |		Jump	0x166e								; case 0x3
163c 781e       |x   |		Jump	0x165b								; case 0x4
163d 7801       |x   |		Jump	0x163f								; case 0x5
163e 7800       |x   |		Jump	0x163f								; case 0x6
163f e24a       | J  |		Load	0x1,0x4a
1640 00db       |    |		Load_Top	At_Offset_3
1641 825f       | _  |		Call	0x1,0x5f
1642 e40b       |    |		Load	0x2,0xb
1643 8016       |    |		Call	0x0,0x16
1644 01df       |    |		Execute	Vector,Equal
1645 6810       |h   |		Jump_Zero	0x1656
1646 e24a       | J  |		Load	0x1,0x4a
1647 00db       |    |		Load_Top	At_Offset_3
1648 8262       | b  |		Call	0x1,0x62
1649 e40c       |    |		Load	0x2,0xc
164a 8016       |    |		Call	0x0,0x16
164b 01df       |    |		Execute	Vector,Equal
164c 6807       |h   |		Jump_Zero	0x1654
164d e24a       | J  |		Load	0x1,0x4a
164e 00db       |    |		Load_Top	At_Offset_3
164f 8264       | d  |		Call	0x1,0x64
1650 e40d       |    |		Load	0x2,0xd
1651 8016       |    |		Call	0x0,0x16
1652 01df       |    |		Execute	Vector,Equal
1653 7803       |x   |		Jump	0x1657
1654 4800       |H   |		Short_Literal	0x0
1655 7801       |x   |		Jump	0x1657
1656 4800       |H   |		Short_Literal	0x0
1657 a7fc       |    |		Store_Unchecked	0x3,-0x4
1658 e7fc       |    |		Load	0x3,-0x4
1659 a416       |    |		Store_Unchecked	0x2,0x16
165a 781c       |x   |		Jump	0x1677
165b e24a       | J  |		Load	0x1,0x4a
165c 00db       |    |		Load_Top	At_Offset_3
165d 825f       | _  |		Call	0x1,0x5f
165e e40b       |    |		Load	0x2,0xb
165f 8016       |    |		Call	0x0,0x16
1660 01df       |    |		Execute	Vector,Equal
1661 6807       |h   |		Jump_Zero	0x1669
1662 e24a       | J  |		Load	0x1,0x4a
1663 00db       |    |		Load_Top	At_Offset_3
1664 8262       | b  |		Call	0x1,0x62
1665 e40c       |    |		Load	0x2,0xc
1666 8016       |    |		Call	0x0,0x16
1667 01df       |    |		Execute	Vector,Equal
1668 7801       |x   |		Jump	0x166a
1669 4800       |H   |		Short_Literal	0x0
166a a7fc       |    |		Store_Unchecked	0x3,-0x4
166b e7fc       |    |		Load	0x3,-0x4
166c a417       |    |		Store_Unchecked	0x2,0x17
166d 7809       |x   |		Jump	0x1677
166e e24a       | J  |		Load	0x1,0x4a
166f 00db       |    |		Load_Top	At_Offset_3
1670 825f       | _  |		Call	0x1,0x5f
1671 e40b       |    |		Load	0x2,0xb
1672 8016       |    |		Call	0x0,0x16
1673 01df       |    |		Execute	Vector,Equal
1674 a7fc       |    |		Store_Unchecked	0x3,-0x4
1675 e7fc       |    |		Load	0x3,-0x4
1676 a418       |    |		Store_Unchecked	0x2,0x18
1677 e7fc       |    |		Load	0x3,-0x4
1678 680b       |h   |		Jump_Zero	0x1684
1679 00da       |    |		Load_Top	At_Offset_2
167a e7fe       |    |		Load	0x3,-0x2
167b 017d       | }  |		Execute	Record,Structure_Write
167c 4803       |H   |		Short_Literal	0x3
167d 00db       |    |		Load_Top	At_Offset_3
167e e063       | c  |		Load	0x0,0x63
167f e248       | H  |		Load	0x1,0x48
1680 0096       |    |		Execute	Package,Entry
1681 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1682 e7fd       |    |		Load	0x3,-0x3
1683 017d       | }  |		Execute	Record,Structure_Write
1684 00db       |    |		Load_Top	At_Offset_3
1685 e039       | 9  |		Load	0x0,0x39
1686 e248       | H  |		Load	0x1,0x48
1687 0096       |    |		Execute	Package,Entry
1688 00d1       |    |		Pop_Control	Pop_Count_1
1689 00c9       |    |		Action	Pop_Auxiliary_Loop
168a e7fc       |    |		Load	0x3,-0x4
168b 7005       |p   |		Jump_Nonzero	0x1691
168c 00db       |    |		Load_Top	At_Offset_3
168d e036       | 6  |		Load	0x0,0x36
168e e248       | H  |		Load	0x1,0x48
168f 0096       |    |		Execute	Package,Entry
1690 6f95       |o   |		Jump_Zero	0x1626
1691 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1692 0000 0000  |    |		.BLANK	0000[0x6]
1698 ; --------------------------------------------------------------------------------------
1698 ; SUBPROGRAM
1698 ; --------------------------------------------------------------------------------------
1698 169e       |    |		.CONST	0x169e								; Address of begin
1699 0004       |    |		.CONST	0x0004								; Address of exception handler
169a 0002       |    |		.CONST	0x0002								; Number of locals
169b			INIT_1698:
169b 4801       |H   |		Short_Literal	0x1
169c e241       | A  |		Load	0x1,0x41
169d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
169e			BODY_1698:
169e e7ff       |    |		Load	0x3,-0x1
169f 4606       |F   |		Jump_Case	0x7
16a0 7836       |x6  |		Jump	0x16d7								; case 0x0
16a1 7835       |x5  |		Jump	0x16d7								; case 0x1
16a2 7834       |x4  |		Jump	0x16d7								; case 0x2
16a3 7823       |x#  |		Jump	0x16c7								; case 0x3
16a4 7812       |x   |		Jump	0x16b7								; case 0x4
16a5 7801       |x   |		Jump	0x16a7								; case 0x5
16a6 7800       |x   |		Jump	0x16a7								; case 0x6
16a7 e412       |    |		Load	0x2,0x12
16a8 e230       | 0  |		Load	0x1,0x30
16a9 e5fb       |    |		Load	0x2,-0x5
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 4801       |H   |		Short_Literal	0x1
16ae e602       |    |		Load	0x3,0x2
16af 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16b0 e5fb       |    |		Load	0x2,-0x5
16b1 e40d       |    |		Load	0x2,0xd
16b2 8016       |    |		Call	0x0,0x16
16b3 8017       |    |		Call	0x0,0x17
16b4 00d9       |    |		Load_Top	At_Offset_1
16b5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
16b6 7826       |x&  |		Jump	0x16dd
16b7 e411       |    |		Load	0x2,0x11
16b8 e230       | 0  |		Load	0x1,0x30
16b9 e5fb       |    |		Load	0x2,-0x5
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 4800       |H   |		Short_Literal	0x0
16be e602       |    |		Load	0x3,0x2
16bf 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16c0 e5fb       |    |		Load	0x2,-0x5
16c1 e40c       |    |		Load	0x2,0xc
16c2 8016       |    |		Call	0x0,0x16
16c3 8017       |    |		Call	0x0,0x17
16c4 00d9       |    |		Load_Top	At_Offset_1
16c5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
16c6 7816       |x   |		Jump	0x16dd
16c7 e5fe       |    |		Load	0x2,-0x2
16c8 e230       | 0  |		Load	0x1,0x30
16c9 e5fb       |    |		Load	0x2,-0x5
16ca 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
16cb e602       |    |		Load	0x3,0x2
16cc 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
16cd 4800       |H   |		Short_Literal	0x0
16ce e602       |    |		Load	0x3,0x2
16cf 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
16d0 e5fb       |    |		Load	0x2,-0x5
16d1 e40b       |    |		Load	0x2,0xb
16d2 8016       |    |		Call	0x0,0x16
16d3 8017       |    |		Call	0x0,0x17
16d4 00d9       |    |		Load_Top	At_Offset_1
16d5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
16d6 7806       |x   |		Jump	0x16dd
16d7 e5fe       |    |		Load	0x2,-0x2
16d8 e230       | 0  |		Load	0x1,0x30
16d9 e5fb       |    |		Load	0x2,-0x5
16da 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
16db e602       |    |		Load	0x3,0x2
16dc 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
16dd e23d       | =  |		Load	0x1,0x3d
16de 0322       | "  |		Declare_Variable	Record
16df 4800       |H   |		Short_Literal	0x0
16e0 00d9       |    |		Load_Top	At_Offset_1
16e1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
16e2 4800       |H   |		Short_Literal	0x0
16e3 00d9       |    |		Load_Top	At_Offset_1
16e4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
16e5 4800       |H   |		Short_Literal	0x0
16e6 00d9       |    |		Load_Top	At_Offset_1
16e7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
16e8 4800       |H   |		Short_Literal	0x0
16e9 00d9       |    |		Load_Top	At_Offset_1
16ea 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
16eb e7fd       |    |		Load	0x3,-0x3
16ec 017d       | }  |		Execute	Record,Structure_Write
16ed e7fe       |    |		Load	0x3,-0x2
16ee 4802       |H   |		Short_Literal	0x2
16ef e5ff       |    |		Load	0x2,-0x1
16f0 0219       |    |		Execute	Heap_Access,All_Read
16f1 e05c       | \  |		Load	0x0,0x5c
16f2 e248       | H  |		Load	0x1,0x48
16f3 0096       |    |		Execute	Package,Entry
16f4 00d1       |    |		Pop_Control	Pop_Count_1
16f5 e602       |    |		Load	0x3,0x2
16f6 e7fe       |    |		Load	0x3,-0x2
16f7 e05d       | ]  |		Load	0x0,0x5d
16f8 e248       | H  |		Load	0x1,0x48
16f9 0096       |    |		Execute	Package,Entry
16fa e602       |    |		Load	0x3,0x2
16fb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
16fc 0f00       |    |		Execute_Immediate	Equal,0x0
16fd e7fe       |    |		Load	0x3,-0x2
16fe e064       | d  |		Load	0x0,0x64
16ff e248       | H  |		Load	0x1,0x48
1700 0096       |    |		Execute	Package,Entry
1701 e7ff       |    |		Load	0x3,-0x1
1702 4800       |H   |		Short_Literal	0x0
1703 4802       |H   |		Short_Literal	0x2
1704 0262       | b  |		Execute	Discrete,In_Range
1705 700a       |p   |		Jump_Nonzero	0x1710
1706 7800       |x   |		Jump	0x1707
1707 e7ff       |    |		Load	0x3,-0x1
1708 00d9       |    |		Load_Top	At_Offset_1
1709 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
170a 00d8       |    |		Load_Top	At_Offset_0
170b 4801       |H   |		Short_Literal	0x1
170c e7fe       |    |		Load	0x3,-0x2
170d e07d       | }  |		Load	0x0,0x7d
170e e248       | H  |		Load	0x1,0x48
170f 0096       |    |		Execute	Package,Entry
1710 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1711 0000 0000  |    |		.BLANK	0000[0x7]
1718 ; --------------------------------------------------------------------------------------
1718 ; SUBPROGRAM
1718 ; --------------------------------------------------------------------------------------
1718 171e       |    |		.CONST	0x171e								; Address of begin
1719 0004       |    |		.CONST	0x0004								; Address of exception handler
171a 0002       |    |		.CONST	0x0002								; Number of locals
171b			INIT_1718:
171b e606       |    |		Load	0x3,0x6
171c e241       | A  |		Load	0x1,0x41
171d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
171e			BODY_1718:
171e e602       |    |		Load	0x3,0x2
171f 00d9       |    |		Load_Top	At_Offset_1
1720 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1721 e606       |    |		Load	0x3,0x6
1722 0f02       |    |		Execute_Immediate	Equal,0x2
1723 701d       |p   |		Jump_Nonzero	0x1741
1724 e7ff       |    |		Load	0x3,-0x1
1725 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1726 00d9       |    |		Load_Top	At_Offset_1
1727 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1728 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1729 e7ff       |    |		Load	0x3,-0x1
172a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
172b 00d9       |    |		Load_Top	At_Offset_1
172c 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
172d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
172e e7ff       |    |		Load	0x3,-0x1
172f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1730 00d9       |    |		Load_Top	At_Offset_1
1731 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1732 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1733 e7ff       |    |		Load	0x3,-0x1
1734 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1735 00d9       |    |		Load_Top	At_Offset_1
1736 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
1737 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1738 e7ff       |    |		Load	0x3,-0x1
1739 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
173a 00d9       |    |		Load_Top	At_Offset_1
173b 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
173c e7ff       |    |		Load	0x3,-0x1
173d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
173e 00d9       |    |		Load_Top	At_Offset_1
173f 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
1740 7821       |x!  |		Jump	0x1762
1741 e7ff       |    |		Load	0x3,-0x1
1742 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1743 6814       |h   |		Jump_Zero	0x1758
1744 602f       |`/  |		Indirect_Literal	Discrete,0x1774,{0x00000000, 0x00320000}
1745 e7ff       |    |		Load	0x3,-0x1
1746 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1747 0271       | q  |		Execute	Discrete,Times
1748 e7ff       |    |		Load	0x3,-0x1
1749 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
174a 0270       | p  |		Execute	Discrete,Divide
174b 00d8       |    |		Load_Top	At_Offset_0
174c 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
174d 7002       |p   |		Jump_Nonzero	0x1750
174e 6021       |`!  |		Indirect_Literal	Discrete,0x1770,{0xffffffff, 0xffffc000}
174f 7801       |x   |		Jump	0x1751
1750 601b       |`   |		Indirect_Literal	Discrete,0x176c,{0x00000000, 0x00004000}
1751 0273       | s  |		Execute	Discrete,Plus
1752 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
1753 00e3       |    |		Load_Encached	Natural_Cache
1754 025e       | ^  |		Execute	Discrete,Convert
1755 00d9       |    |		Load_Top	At_Offset_1
1756 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1757 780a       |x   |		Jump	0x1762
1758 e7ff       |    |		Load	0x3,-0x1
1759 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
175a 7004       |p   |		Jump_Nonzero	0x175f
175b 4865       |He  |		Short_Literal	0x65
175c 00d9       |    |		Load_Top	At_Offset_1
175d 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
175e 7803       |x   |		Jump	0x1762
175f 4800       |H   |		Short_Literal	0x0
1760 00d9       |    |		Load_Top	At_Offset_1
1761 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
1762 00d8       |    |		Load_Top	At_Offset_0
1763 e606       |    |		Load	0x3,0x6
1764 e7fe       |    |		Load	0x3,-0x2
1765 e07d       | }  |		Load	0x0,0x7d
1766 e248       | H  |		Load	0x1,0x48
1767 0096       |    |		Execute	Package,Entry
1768 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1769 0000 0000  |    |		.XXX[0x3]
176b 0000       |    |
176c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
1770 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
1774 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320000}
1778 ; --------------------------------------------------------------------------------------
1778 ; SUBPROGRAM
1778 ; --------------------------------------------------------------------------------------
1778 177d       | }  |		.CONST	0x177d								; Address of begin
1779 0004       |    |		.CONST	0x0004								; Address of exception handler
177a 0002       |    |		.CONST	0x0002								; Number of locals
177b			INIT_1778:
177b e078       | x  |		Load	0x0,0x78
177c 0007       |    |		Action	Break_Optional
177d			BODY_1778:
177d 00d8       |    |		Load_Top	At_Offset_0
177e e408       |    |		Load	0x2,0x8
177f e603       |    |		Load	0x3,0x3
1780 807b       | {  |		Call	0x0,0x7b
1781 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
1782 e603       |    |		Load	0x3,0x3
1783 8071       | q  |		Call	0x0,0x71
1784 6805       |h   |		Jump_Zero	0x178a
1785 e406       |    |		Load	0x2,0x6
1786 00d9       |    |		Load_Top	At_Offset_1
1787 807c       | |  |		Call	0x0,0x7c
1788 c406       |    |		Store	0x2,0x6
1789 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
178a e40a       |    |		Load	0x2,0xa
178b 680d       |h   |		Jump_Zero	0x1799
178c e603       |    |		Load	0x3,0x3
178d 8413       |    |		Call	0x2,0x13
178e 6805       |h   |		Jump_Zero	0x1794
178f e407       |    |		Load	0x2,0x7
1790 00d9       |    |		Load_Top	At_Offset_1
1791 807c       | |  |		Call	0x0,0x7c
1792 c407       |    |		Store	0x2,0x7
1793 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1794 e406       |    |		Load	0x2,0x6
1795 00d9       |    |		Load_Top	At_Offset_1
1796 807c       | |  |		Call	0x0,0x7c
1797 c406       |    |		Store	0x2,0x6
1798 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1799 e407       |    |		Load	0x2,0x7
179a 00d9       |    |		Load_Top	At_Offset_1
179b 807c       | |  |		Call	0x0,0x7c
179c c407       |    |		Store	0x2,0x7
179d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
179e 0000 0000  |    |		.XXX[0x2]
17a0 ; --------------------------------------------------------------------------------------
17a0 ; SUBPROGRAM
17a0 ; --------------------------------------------------------------------------------------
17a0 17a5       |    |		.CONST	0x17a5								; Address of begin
17a1 0004       |    |		.CONST	0x0004								; Address of exception handler
17a2 0002       |    |		.CONST	0x0002								; Number of locals
17a3			INIT_17a0:
17a3 e043       | C  |		Load	0x0,0x43
17a4 0007       |    |		Action	Break_Optional
17a5			BODY_17a0:
17a5 e043       | C  |		Load	0x0,0x43
17a6 e40e       |    |		Load	0x2,0xe
17a7 8053       | S  |		Call	0x0,0x53
17a8 0039       | 9  |		Store_Top	Access,At_Offset_1
17a9 00d8       |    |		Load_Top	At_Offset_0
17aa 8057       | W  |		Call	0x0,0x57
17ab 7006       |p   |		Jump_Nonzero	0x17b2
17ac 00d8       |    |		Load_Top	At_Offset_0
17ad 8054       | T  |		Call	0x0,0x54
17ae e40e       |    |		Load	0x2,0xe
17af 8055       | U  |		Call	0x0,0x55
17b0 e40f       |    |		Load	0x2,0xf
17b1 017d       | }  |		Execute	Record,Structure_Write
17b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
17b3 0000 0000  |    |		.BLANK	0000[0x5]
17b8 ; --------------------------------------------------------------------------------------
17b8 ; SUBPROGRAM
17b8 ; --------------------------------------------------------------------------------------
17b8 17bd       |    |		.CONST	0x17bd								; Address of begin
17b9 0004       |    |		.CONST	0x0004								; Address of exception handler
17ba 0002       |    |		.CONST	0x0002								; Number of locals
17bb			INIT_17b8:
17bb e043       | C  |		Load	0x0,0x43
17bc 0007       |    |		Action	Break_Optional
17bd			BODY_17b8:
17bd e043       | C  |		Load	0x0,0x43
17be e40e       |    |		Load	0x2,0xe
17bf 8053       | S  |		Call	0x0,0x53
17c0 0039       | 9  |		Store_Top	Access,At_Offset_1
17c1 00cf       |    |		Action	Mark_Auxiliary
17c2 780c       |x   |		Jump	0x17cf
17c3 00d9       |    |		Load_Top	At_Offset_1
17c4 8054       | T  |		Call	0x0,0x54
17c5 e40e       |    |		Load	0x2,0xe
17c6 8055       | U  |		Call	0x0,0x55
17c7 e40f       |    |		Load	0x2,0xf
17c8 017d       | }  |		Execute	Record,Structure_Write
17c9 e40f       |    |		Load	0x2,0xf
17ca 8414       |    |		Call	0x2,0x14
17cb 00d9       |    |		Load_Top	At_Offset_1
17cc 8056       | V  |		Call	0x0,0x56
17cd 003a       | :  |		Store_Top	Access,At_Offset_2
17ce 00c9       |    |		Action	Pop_Auxiliary_Loop
17cf 00d9       |    |		Load_Top	At_Offset_1
17d0 8057       | W  |		Call	0x0,0x57
17d1 6ff1       |o   |		Jump_Zero	0x17c3
17d2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
17d3 0000 0000  |    |		.BLANK	0000[0x5]
17d8 ; --------------------------------------------------------------------------------------
17d8 ; SUBPROGRAM
17d8 ; --------------------------------------------------------------------------------------
17d8 17e3       |    |		.CONST	0x17e3								; Address of begin
17d9 0004       |    |		.CONST	0x0004								; Address of exception handler
17da 0003       |    |		.CONST	0x0003								; Number of locals
17db			INIT_17d8:
17db e099       |    |		Load	0x0,0x99
17dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
17dd e099       |    |		Load	0x0,0x99
17de 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
17e0 02c7       |    |		Declare_Variable	Any
17e1 00d8       |    |		Load_Top	At_Offset_0
17e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
17e3			BODY_17d8:
17e3 e099       |    |		Load	0x0,0x99
17e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
17e5 00d9       |    |		Load_Top	At_Offset_1
17e6 0120       |    |		Execute	Any,Is_Value
17e7 6804       |h   |		Jump_Zero	0x17ec
17e8 e099       |    |		Load	0x0,0x99
17e9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
17eb 7801       |x   |		Jump	0x17ed
17ec 00d9       |    |		Load_Top	At_Offset_1
17ed ebff       |    |		Load	0x5,-0x1
17ee e099       |    |		Load	0x0,0x99
17ef 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
17f1 ca03       |    |		Store	0x5,0x3
17f2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
17f3 00d9       |    |		Load_Top	At_Offset_1
17f4 7005       |p   |		Jump_Nonzero	0x17fa
17f5 00d8       |    |		Load_Top	At_Offset_0
17f6 e099       |    |		Load	0x0,0x99
17f7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
17f8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
17f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17fa e099       |    |		Load	0x0,0x99
17fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
17fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17fd 0000 0000  |    |		.XXX[0x3]
17ff 0000       |    |
1800 ; --------------------------------------------------------------------------------------
1800 ; SUBPROGRAM
1800 ; --------------------------------------------------------------------------------------
1800 1803       |    |		.CONST	0x1803								; Address of begin
1801 0004       |    |		.CONST	0x0004								; Address of exception handler
1802 0001       |    |		.CONST	0x0001								; Number of locals
1803			BODY_1800:
1803			INIT_1800:
1803 e802       |    |		Load	0x4,0x2
1804 680e       |h   |		Jump_Zero	0x1813
1805 e603       |    |		Load	0x3,0x3
1806 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
1807 0d01       |    |		Execute_Immediate	Less,0x1
1808 6805       |h   |		Jump_Zero	0x180e
1809 0092 1851  |   Q|		Action	Push_String_Extended,0x1851					; "No decisions exist for this "
180b 00db       |    |		Load_Top	At_Offset_3
180c 01cc       |    |		Execute	Vector,Catenate
180d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
180e 0092 1852  |   R|		Action	Push_String_Extended,0x1852					; "No missed decisions for this "
1810 00db       |    |		Load_Top	At_Offset_3
1811 01cc       |    |		Execute	Vector,Catenate
1812 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1813 0092 1853  |   S|		Action	Push_String_Extended,0x1853					; "No missed segments for this "
1815 00db       |    |		Load_Top	At_Offset_3
1816 01cc       |    |		Execute	Vector,Catenate
1817 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1818 ; --------------------------------------------------------------------------------------
1818 ; STRING TABLE
1818 ; --------------------------------------------------------------------------------------
1818 007a       | z  |		.STRTAB	0x007a->0x1855							; "WORLD"
1819 007d       | }  |		.STRTAB	0x007d->0x1857							; "UNIT"
181a 007f       |    |		.STRTAB	0x007f->0x1859							; "SUBPROGRAM"
181b 0087       |    |		.STRTAB	0x0087->0x185e							; "NONE"
181c 0089       |    |		.STRTAB	0x0089->0x1860							; "ADA"
181d 008a       |    |		.STRTAB	0x008a->0x1862							; "REVERSE_ADA"
181e 0093       |    |		.STRTAB	0x0093->0x1867							; "COVERAGE"
181f 0099       |    |		.STRTAB	0x0099->0x186b							; "REVERSE_COVERAGE"
1820 00a7       |    |		.STRTAB	0x00a7->0x1873							; "NIL_COL"
1821 00ac       |    |		.STRTAB	0x00ac->0x1877							; "NAME_COL"
1822 00b2       |    |		.STRTAB	0x00b2->0x187b							; "PERCENT_COL"
1823 00bb       |    |		.STRTAB	0x00bb->0x1880							; "COVERAGE_COL"
1824 00c5       |    |		.STRTAB	0x00c5->0x1886							; "SEGMENT"
1825 00ca       |    |		.STRTAB	0x00ca->0x188a							; "DECISION"
1826 00d0       |    |		.STRTAB	0x00d0->0x188e							; "RGROUP"
1827 00d4       |    |		.STRTAB	0x00d4->0x1891							; "RTEST_RUN"
1828 00db       |    |		.STRTAB	0x00db->0x1895							; "RTEST_CASE"
1829 00e3       |    |		.STRTAB	0x00e3->0x189a							; "NIL_ROW"
182a 00e8       |    |		.STRTAB	0x00e8->0x189e							; "TABLE_TITLE_ROW"
182b 00f5       |    |		.STRTAB	0x00f5->0x18a5							; "COLUMN_TITLE_ROW"
182c 0103       |    |		.STRTAB	0x0103->0x18ad							; "WORLD_ROW"
182d 010a       |    |		.STRTAB	0x010a->0x18b2							; "UNIT_ROW"
182e 0110       |    |		.STRTAB	0x0110->0x18b6							; "SUBPROGRAM_ROW"
182f 011c       |    |		.STRTAB	0x011c->0x18bd							; "BLOCK_ROW"
1830 0123       | #  |		.STRTAB	0x0123->0x18c1							; " "
1831 0122       | "  |		.STRTAB	0x0122->0x18c2							; "      NAME"
1832 012a       | *  |		.STRTAB	0x012a->0x18c7							; "    COVERAGE"
1833 0134       | 4  |		.STRTAB	0x0134->0x18cd							; "  % COV"
1834 0139       | 9  |		.STRTAB	0x0139->0x18d0							; "Explanation not supported on this "
1835 0159       | Y  |		.STRTAB	0x0159->0x18e1							; "Explanation not supported at this position"
1836 0181       |    |		.STRTAB	0x0181->0x18f6							; "Definition not supported on this "
1837 01a0       |    |		.STRTAB	0x01a0->0x1907							; "Definition not supported at this position"
1838 01c7       |    |		.STRTAB	0x01c7->0x191b							; "No enclosing object for an temporary Test_Run_Group"
1839 01f8       |    |		.STRTAB	0x01f8->0x1935							; "Image is fully elided"
183a 020b       |    |		.STRTAB	0x020b->0x193f							; "Elision not yet implemented for "
183b 0229       | )  |		.STRTAB	0x0229->0x194f							; "Image is fully expanded"
183c 023e       | >  |		.STRTAB	0x023e->0x195b							; "Expansion not yet implemented for "
183d 025e       | ^  |		.STRTAB	0x025e->0x196c							; "Promote"
183e 0263       | c  |		.STRTAB	0x0263->0x196f							; "Demote"
183f 0267       | g  |		.STRTAB	0x0267->0x1972							; "Delete requires a selected line"
1840 0284       |    |		.STRTAB	0x0284->0x1982							; "No operation defined for value "
1841 02a1       |    |		.STRTAB	0x02a1->0x1991							; "Filter"
1842 02a5       |    |		.STRTAB	0x02a5->0x1994							; "Show_Differential"
1843 02b4       |    |		.STRTAB	0x02b4->0x199d							; "Generate_Test_Set"
1844 02c3       |    |		.STRTAB	0x02c3->0x19a5							; " ("
1845 02c3       |    |		.STRTAB	0x02c3->0x19a6							; "S) by "
1846 02c7       |    |		.STRTAB	0x02c7->0x19a9							; "   -"
1847 02c9       |    |		.STRTAB	0x02c9->0x19ab							; "."
1848 02c8       |    |		.STRTAB	0x02c8->0x19ac							; "~"
1849 02c7       |    |		.STRTAB	0x02c7->0x19ac							; "  "
184a 02c7       |    |		.STRTAB	0x02c7->0x19ad							; "    "
184b 02c9       |    |		.STRTAB	0x02c9->0x19af							; "Deletion is not supported for coverage images"
184c 02f4       |    |		.STRTAB	0x02f4->0x19c6							; "Delete not defined for this line"
184d 0312       |    |		.STRTAB	0x0312->0x19d6							; "<DEFAULT>"
184e 0319       |    |		.STRTAB	0x0319->0x19da							; "unit"
184f 031b       |    |		.STRTAB	0x031b->0x19dc							; "subprogram"
1850 0323       | #  |		.STRTAB	0x0323->0x19e1							; "block"
1851 0326       | &  |		.STRTAB	0x0326->0x19e4							; "No decisions exist for this "
1852 0340       | @  |		.STRTAB	0x0340->0x19f2							; "No missed decisions for this "
1853 035b       | [  |		.STRTAB	0x035b->0x1a00							; "No missed segments for this "
1854 0375       | u  |		.STREND 0x0375->0x1a0e
1855 574f 524c  |WORL|		.STRTAB_STRINGS
1a0f 0000       |    |		.XXX[0x1]
1a10 ; --------------------------------------------------------------------------------------
1a10 ; Debug Table
1a10 ; --------------------------------------------------------------------------------------
1a10 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x764a,0x0000,0x0001,0x0000
1a16 0000 0000  |    |		.BLANK	0000[0x1ea]