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

⟦fa2c8cb84⟧

    Length: 6144 (0x1800)
    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 0a80       |    |		.CONST	0x0a80								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 016e       | n  |		.CONST	0x016e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 004e       | N  |		.CONST	0x004e								; Number of locals
000b			INIT_0008:
000b 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
000d 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
000f 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0011 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0013 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0015 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0017 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0019 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
001b 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
001d 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
001f 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0021 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0023 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0025 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0027 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0029 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
002b 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
002d 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
002f 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0031 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0033 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0035 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
0037 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
0039 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
003b 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
003d 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
003f 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
0041 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0042 00d8       |    |		Load_Top	At_Offset_0
0043 02a0       |    |		Declare_Subprogram	Null_Subprogram
0044 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0045 4802       |H   |		Short_Literal	0x2
0046 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0047 00d8       |    |		Load_Top	At_Offset_0
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
004a 4804       |H   |		Short_Literal	0x4
004b 032b       | +  |		Declare_Type	Record,Incomplete,Visible
004c 00d8       |    |		Load_Top	At_Offset_0
004d 02a0       |    |		Declare_Subprogram	Null_Subprogram
004e 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
004f 00bf       |    |		Action	Accept_Activation
0050 0093 0000  |    |		push_full_address	0x0
0052 617d       |a}  |		Indirect_Literal	Discrete,0x1d0,{0x80000000, 0x00070000}
0053 0273       | s  |		Execute	Discrete,Plus
0054 e20d       |    |		Load	0x1,0xd
0055 6176       |av  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000ffff}
0056 0279       | y  |		Execute	Discrete,And
0057 0273       | s  |		Execute	Discrete,Plus
0058 e002       |    |		Load	0x0,0x2
0059 0273       | s  |		Execute	Discrete,Plus
005a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
005b e003       |    |		Load	0x0,0x3
005c 0387       |    |		Declare_Variable	Package
005d 00d8       |    |		Load_Top	At_Offset_0
005e 020f       |    |		Execute	Module,Activate
005f e004       |    |		Load	0x0,0x4
0060 e005       |    |		Load	0x0,0x5
0061 e006       |    |		Load	0x0,0x6
0062 029f 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Call
0064 4803       |H   |		Short_Literal	0x3
0065 032d       | -  |		Declare_Type	Record,Defined
0066 00d8       |    |		Load_Top	At_Offset_0
0067 02a0       |    |		Declare_Subprogram	Null_Subprogram
0068 03ad       |    |		Declare_Type	Heap_Access,Defined
0069 4800       |H   |		Short_Literal	0x0
006a 4805       |H   |		Short_Literal	0x5
006b 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
006d 03fd       |    |		Declare_Type	Discrete,Defined
006e 4801       |H   |		Short_Literal	0x1
006f 4805       |H   |		Short_Literal	0x5
0070 00da       |    |		Load_Top	At_Offset_2
0071 03f8       |    |		Declare_Type	Discrete,Constrained
0072 00da       |    |		Load_Top	At_Offset_2
0073 0007       |    |		Action	Break_Optional
0074 029b 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Unelaborated
0076 00e1       |    |		Load_Encached	Boolean_Cache
0077 029f 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Call
0079 4801       |H   |		Short_Literal	0x1
007a 032d       | -  |		Declare_Type	Record,Defined
007b 00d8       |    |		Load_Top	At_Offset_0
007c 0322       | "  |		Declare_Variable	Record
007d 00d8       |    |		Load_Top	At_Offset_0
007e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007f 029b 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Unelaborated
0081 e233       | 3  |		Load	0x1,0x33
0082 4801       |H   |		Short_Literal	0x1
0083 00e1       |    |		Load_Encached	Boolean_Cache
0084 4801       |H   |		Short_Literal	0x1
0085 e005       |    |		Load	0x0,0x5
0086 4801       |H   |		Short_Literal	0x1
0087 e007       |    |		Load	0x0,0x7
0088 4801       |H   |		Short_Literal	0x1
0089 00e7       |    |		Load_Encached	Duration_Cache
008a 4801       |H   |		Short_Literal	0x1
008b e008       |    |		Load	0x0,0x8
008c 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
008e 4805       |H   |		Short_Literal	0x5
008f 4800       |H   |		Short_Literal	0x0
0090 4805       |H   |		Short_Literal	0x5
0091 4800       |H   |		Short_Literal	0x0
0092 4801       |H   |		Short_Literal	0x1
0093 031d       |    |		Declare_Type	Variant_Record,Defined
0094 00d8       |    |		Load_Top	At_Offset_0
0095 02a0       |    |		Declare_Subprogram	Null_Subprogram
0096 03ad       |    |		Declare_Type	Heap_Access,Defined
0097 00d8       |    |		Load_Top	At_Offset_0
0098 0007       |    |		Action	Break_Optional
0099 029b 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Unelaborated
009b 029b 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Unelaborated
009d 029b 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Unelaborated
009f 029b 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Unelaborated
00a1 029b 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Unelaborated
00a3 0093 0000  |    |		push_full_address	0x0
00a5 6122       |a"  |		Indirect_Literal	Discrete,0x1c8,{0x80000000, 0x00060000}
00a6 0273       | s  |		Execute	Discrete,Plus
00a7 e20d       |    |		Load	0x1,0xd
00a8 6123       |a#  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000ffff}
00a9 0279       | y  |		Execute	Discrete,And
00aa 0273       | s  |		Execute	Discrete,Plus
00ab e009       |    |		Load	0x0,0x9
00ac 0273       | s  |		Execute	Discrete,Plus
00ad e233       | 3  |		Load	0x1,0x33
00ae e232       | 2  |		Load	0x1,0x32
00af e235       | 5  |		Load	0x1,0x35
00b0 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
00b1 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
00b2 e237       | 7  |		Load	0x1,0x37
00b3 e238       | 8  |		Load	0x1,0x38
00b4 0320       |    |		Declare_Variable	Record,Duplicate
00b5 00cd       |    |		Action	Spare6_Action
00b6 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
00b7 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00b8 e23b       | ;  |		Load	0x1,0x3b
00b9 e23c       | <  |		Load	0x1,0x3c
00ba 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
00bb 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
00bc 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00bd 0092 0994  |    |		Action	Push_String_Extended,0x994					; " "
00bf e00a       |    |		Load	0x0,0xa
00c0 0387       |    |		Declare_Variable	Package
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 020f       |    |		Execute	Module,Activate
00c3 e00b       |    |		Load	0x0,0xb
00c4 00d9       |    |		Load_Top	At_Offset_1
00c5 0098       |    |		Execute	Package,Field_Read_Dynamic
00c6 e22a       | *  |		Load	0x1,0x2a
00c7 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
00c8 e00c       |    |		Load	0x0,0xc
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 0098       |    |		Execute	Package,Field_Read_Dynamic
00cb e22c       | ,  |		Load	0x1,0x2c
00cc 0325       | %  |		Complete_Type	Record,By_Renaming
00cd e22d       | -  |		Load	0x1,0x2d
00ce 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
00cf e00d       |    |		Load	0x0,0xd
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 0098       |    |		Execute	Package,Field_Read_Dynamic
00d2 e22e       | .  |		Load	0x1,0x2e
00d3 0325       | %  |		Complete_Type	Record,By_Renaming
00d4 e22f       | /  |		Load	0x1,0x2f
00d5 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
00d6 e00e       |    |		Load	0x0,0xe
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 0098       |    |		Execute	Package,Field_Read_Dynamic
00d9 0337       | 7  |		Declare_Variable	Array
00da 00d8       |    |		Load_Top	At_Offset_0
00db 0335       | 5  |		Declare_Variable	Array,Duplicate
00dc 00cd       |    |		Action	Spare6_Action
00dd 4800       |H   |		Short_Literal	0x0
00de 4800       |H   |		Short_Literal	0x0
00df 00da       |    |		Load_Top	At_Offset_2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 4801       |H   |		Short_Literal	0x1
00e2 4801       |H   |		Short_Literal	0x1
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 01d6       |    |		Execute	Vector,Field_Write
00e5 481e       |H   |		Short_Literal	0x1e
00e6 4802       |H   |		Short_Literal	0x2
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 01d6       |    |		Execute	Vector,Field_Write
00e9 4809       |H   |		Short_Literal	0x9
00ea 4803       |H   |		Short_Literal	0x3
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 01d6       |    |		Execute	Vector,Field_Write
00ed 4808       |H   |		Short_Literal	0x8
00ee 4804       |H   |		Short_Literal	0x4
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 4809       |H   |		Short_Literal	0x9
00f2 4805       |H   |		Short_Literal	0x5
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 01d4       |    |		Execute	Vector,Structure_Write
00f7 0092 0995  |    |		Action	Push_String_Extended,0x995					; "          TEST CASE"
00f9 0092 0996  |    |		Action	Push_String_Extended,0x996					; " STATUS"
00fb 0092 0997  |    |		Action	Push_String_Extended,0x997					; "EXE TIME"
00fd 0092 098f  |    |		Action	Push_String_Extended,0x98f					; "COVERAGE"
00ff 00ea       |    |		Load_Encached	Null_String_Cache
0100 4801       |H   |		Short_Literal	0x1
0101 4850       |HP  |		Short_Literal	0x50
0102 00e9       |    |		Load_Encached	String_Cache
0103 035b       | [  |		Declare_Type	Array,Constrained
0104 0337       | 7  |		Declare_Variable	Array
0105 4850       |HP  |		Short_Literal	0x50
0106 4801       |H   |		Short_Literal	0x1
0107 482d       |H-  |		Short_Literal	0x2d
0108 00d9       |    |		Load_Top	At_Offset_1
0109 e249       | I  |		Load	0x1,0x49
010a 01d6       |    |		Execute	Vector,Field_Write
010b 3ffb       |?   |		Loop_Increasing	0x107
010c 4800       |H   |		Short_Literal	0x0
010d 4804       |H   |		Short_Literal	0x4
010e 029f 067b  |   {|		Declare_Subprogram	INIT_0678,For_Call
0110 03fd       |    |		Declare_Type	Discrete,Defined
0111 4800       |H   |		Short_Literal	0x0
0112 4802       |H   |		Short_Literal	0x2
0113 029f 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Call
0115 03fd       |    |		Declare_Type	Discrete,Defined
0116 e00f       |    |		Load	0x0,0xf
0117 e010       |    |		Load	0x0,0x10
0118 00da       |    |		Load_Top	At_Offset_2
0119 4800       |H   |		Short_Literal	0x0
011a 4801       |H   |		Short_Literal	0x1
011b 4802       |H   |		Short_Literal	0x2
011c 0092 0998  |    |		Action	Push_String_Extended,0x998					; "others => Unspecified"
011e 00ea       |    |		Load_Encached	Null_String_Cache
011f 00ea       |    |		Load_Encached	Null_String_Cache
0120 4801       |H   |		Short_Literal	0x1
0121 4802       |H   |		Short_Literal	0x2
0122 e011       |    |		Load	0x0,0x11
0123 0387       |    |		Declare_Variable	Package
0124 00d8       |    |		Load_Top	At_Offset_0
0125 020f       |    |		Execute	Module,Activate
0126 029d 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Outer_Call
0128 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0135 00c7       |    |		Action	Elaborate_Subprogram
0136 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0139 00c7       |    |		Action	Elaborate_Subprogram
013a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
013b 00c7       |    |		Action	Elaborate_Subprogram
013c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
013f 00c7       |    |		Action	Elaborate_Subprogram
0140 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 029d 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call
0144 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
016d 00c7       |    |		Action	Elaborate_Subprogram
016e			BODY_0008:
016e 00bc       |    |		Action	Signal_Activated
016f 00bb       |    |		Action	Signal_Completion
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 018c       |    |		.CONST	0x018c								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0009       |    |		.CONST	0x0009								; Number of locals
0173			INIT_0170:
0173 e22b       | +  |		Load	0x1,0x2b
0174 0007       |    |		Action	Break_Optional
0175 e012       |    |		Load	0x0,0x12
0176 0007       |    |		Action	Break_Optional
0177 e005       |    |		Load	0x0,0x5
0178 e5ff       |    |		Load	0x2,-0x1
0179 8013       |    |		Call	0x0,0x13
017a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
017b e004       |    |		Load	0x0,0x4
017c 0007       |    |		Action	Break_Optional
017d e014       |    |		Load	0x0,0x14
017e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017f 02c7       |    |		Declare_Variable	Any
0180 00d8       |    |		Load_Top	At_Offset_0
0181 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0182 e232       | 2  |		Load	0x1,0x32
0183 e5fd       |    |		Load	0x2,-0x3
0184 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0185 00d8       |    |		Load_Top	At_Offset_0
0186 0217       |    |		Execute	Heap_Access,All_Reference
0187 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0188 029f 070b  |    |		Declare_Subprogram	INIT_0708,For_Call
018a 029f 076b  |   k|		Declare_Subprogram	INIT_0768,For_Call
018c			BODY_0170:
018c e405       |    |		Load	0x2,0x5
018d e5fd       |    |		Load	0x2,-0x3
018e e404       |    |		Load	0x2,0x4
018f 824d       | M  |		Call	0x1,0x4d
0190 c405       |    |		Store	0x2,0x5
0191 e5fd       |    |		Load	0x2,-0x3
0192 e015       |    |		Load	0x0,0x15
0193 e242       | B  |		Load	0x1,0x42
0194 0096       |    |		Execute	Package,Entry
0195 e22b       | +  |		Load	0x1,0x2b
0196 e5fd       |    |		Load	0x2,-0x3
0197 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0198 a402       |    |		Store_Unchecked	0x2,0x2
0199 e405       |    |		Load	0x2,0x5
019a 00db       |    |		Load_Top	At_Offset_3
019b 0217       |    |		Execute	Heap_Access,All_Reference
019c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
019d e404       |    |		Load	0x2,0x4
019e 00db       |    |		Load_Top	At_Offset_3
019f 0217       |    |		Execute	Heap_Access,All_Reference
01a0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 0217       |    |		Execute	Heap_Access,All_Reference
01a4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 e402       |    |		Load	0x2,0x2
01a7 0219       |    |		Execute	Heap_Access,All_Read
01a8 e016       |    |		Load	0x0,0x16
01a9 e242       | B  |		Load	0x1,0x42
01aa 0096       |    |		Execute	Package,Entry
01ab 8408       |    |		Call	0x2,0x8
01ac e012       |    |		Load	0x0,0x12
01ad e5ff       |    |		Load	0x2,-0x1
01ae 8017       |    |		Call	0x0,0x17
01af c403       |    |		Store	0x2,0x3
01b0 00cf       |    |		Action	Mark_Auxiliary
01b1 7805       |x   |		Jump	0x1b7
01b2 8409       |    |		Call	0x2,0x9
01b3 e403       |    |		Load	0x2,0x3
01b4 8018       |    |		Call	0x0,0x18
01b5 c403       |    |		Store	0x2,0x3
01b6 00c9       |    |		Action	Pop_Auxiliary_Loop
01b7 e403       |    |		Load	0x2,0x3
01b8 8019       |    |		Call	0x0,0x19
01b9 6ff8       |o   |		Jump_Zero	0x1b2
01ba 00ce       |    |		Action	Pop_Auxiliary
01bb e243       | C  |		Load	0x1,0x43
01bc e402       |    |		Load	0x2,0x2
01bd 0219       |    |		Execute	Heap_Access,All_Read
01be e01a       |    |		Load	0x0,0x1a
01bf e242       | B  |		Load	0x1,0x42
01c0 0096       |    |		Execute	Package,Entry
01c1 4801       |H   |		Short_Literal	0x1
01c2 e402       |    |		Load	0x2,0x2
01c3 821f       |    |		Call	0x1,0x1f
01c4 e402       |    |		Load	0x2,0x2
01c5 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c6 0000 0000  |    |		.XXX[0x2]
01c8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
01d0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01dc 0000 0000  |    |		.BLANK	0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8       |    |		.CONST	0x01e8								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 4802       |H   |		Short_Literal	0x2
01e4 e01b       |    |		Load	0x0,0x1b
01e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e8			BODY_01e0:
01e8 00db       |    |		Load_Top	At_Offset_3
01e9 0219       |    |		Execute	Heap_Access,All_Read
01ea e01c       |    |		Load	0x0,0x1c
01eb e242       | B  |		Load	0x1,0x42
01ec 0096       |    |		Execute	Package,Entry
01ed 0217       |    |		Execute	Heap_Access,All_Reference
01ee 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0200       |    |		.CONST	0x0200								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 0219       |    |		Execute	Heap_Access,All_Read
01fd e01c       |    |		Load	0x0,0x1c
01fe e242       | B  |		Load	0x1,0x42
01ff 0096       |    |		Execute	Package,Entry
0200			BODY_01f8:
0200 00d8       |    |		Load_Top	At_Offset_0
0201 0217       |    |		Execute	Heap_Access,All_Reference
0202 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0203 8013       |    |		Call	0x0,0x13
0204 801d       |    |		Call	0x0,0x1d
0205 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e       |    |		.CONST	0x020e								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e22b       | +  |		Load	0x1,0x2b
020c e5fe       |    |		Load	0x2,-0x2
020d 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
020e			BODY_0208:
020e 00d8       |    |		Load_Top	At_Offset_0
020f 00d8       |    |		Load_Top	At_Offset_0
0210 0219       |    |		Execute	Heap_Access,All_Read
0211 e00b       |    |		Load	0x0,0xb
0212 e242       | B  |		Load	0x1,0x42
0213 0098       |    |		Execute	Package,Field_Read_Dynamic
0214 0216       |    |		Execute	Heap_Access,Convert
0215 e5fe       |    |		Load	0x2,-0x2
0216 e5ff       |    |		Load	0x2,-0x1
0217 0219       |    |		Execute	Heap_Access,All_Read
0218 e01e       |    |		Load	0x0,0x1e
0219 e242       | B  |		Load	0x1,0x42
021a 0096       |    |		Execute	Package,Entry
021b 00d9       |    |		Load_Top	At_Offset_1
021c 0218       |    |		Execute	Heap_Access,All_Write
021d 00d1       |    |		Pop_Control	Pop_Count_1
021e 00d8       |    |		Load_Top	At_Offset_0
021f a5fd       |    |		Store_Unchecked	0x2,-0x3
0220 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0221 0000 0000  |    |		.BLANK	0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d       | -  |		.CONST	0x022d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b 029f 079b  |    |		Declare_Subprogram	INIT_0798,For_Call
022d			BODY_0228:
022d e5fd       |    |		Load	0x2,-0x3
022e 6801       |h   |		Jump_Zero	0x230
022f 8402       |    |		Call	0x2,0x2
0230 4801       |H   |		Short_Literal	0x1
0231 a5fc       |    |		Store_Unchecked	0x2,-0x4
0232 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00ea       |    |		Load_Encached	Null_String_Cache
023c 0092 0999  |    |		Action	Push_String_Extended,0x999					; "Explain"
023e e01f       |    |		Load	0x0,0x1f
023f e230       | 0  |		Load	0x1,0x30
0240 0096       |    |		Execute	Package,Entry
0241 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0242 0000 0000  |    |		.BLANK	0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0271       | q  |		.CONST	0x0271								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0008       |    |		.CONST	0x0008								; Number of locals
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 0219       |    |		Execute	Heap_Access,All_Read
024d e020       |    |		Load	0x0,0x20
024e e242       | B  |		Load	0x1,0x42
024f 0096       |    |		Execute	Package,Entry
0250 e5fe       |    |		Load	0x2,-0x2
0251 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0252 00d8       |    |		Load_Top	At_Offset_0
0253 00e4       |    |		Load_Encached	Positive_Cache
0254 0260       | `  |		Execute	Discrete,In_Type
0255 7001       |p   |		Jump_Nonzero	0x257
0256 0801       |    |		Execute_Immediate	Raise,0x1
0257 e5ff       |    |		Load	0x2,-0x1
0258 0219       |    |		Execute	Heap_Access,All_Read
0259 e021       | !  |		Load	0x0,0x21
025a e242       | B  |		Load	0x1,0x42
025b 0096       |    |		Execute	Package,Entry
025c 00d8       |    |		Load_Top	At_Offset_0
025d e022       | "  |		Load	0x0,0x22
025e e242       | B  |		Load	0x1,0x42
025f 0096       |    |		Execute	Package,Entry
0260 e233       | 3  |		Load	0x1,0x33
0261 0007       |    |		Action	Break_Optional
0262 e01b       |    |		Load	0x0,0x1b
0263 02ff       |    |		Declare_Variable	Variant_Record
0264 00d8       |    |		Load_Top	At_Offset_0
0265 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0266 e005       |    |		Load	0x0,0x5
0267 e5ff       |    |		Load	0x2,-0x1
0268 0219       |    |		Execute	Heap_Access,All_Read
0269 e01c       |    |		Load	0x0,0x1c
026a e242       | B  |		Load	0x1,0x42
026b 0096       |    |		Execute	Package,Entry
026c 0217       |    |		Execute	Heap_Access,All_Reference
026d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
026f 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
0271			BODY_0248:
0271 e404       |    |		Load	0x2,0x4
0272 4800       |H   |		Short_Literal	0x0
0273 4801       |H   |		Short_Literal	0x1
0274 0262       | b  |		Execute	Discrete,In_Range
0275 702e       |p.  |		Jump_Nonzero	0x2a4
0276 e5fe       |    |		Load	0x2,-0x2
0277 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0278 0f02       |    |		Execute_Immediate	Equal,0x2
0279 6803       |h   |		Jump_Zero	0x27d
027a 4802       |H   |		Short_Literal	0x2
027b a405       |    |		Store_Unchecked	0x2,0x5
027c 7808       |x   |		Jump	0x285
027d e5fe       |    |		Load	0x2,-0x2
027e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027f e5ff       |    |		Load	0x2,-0x1
0280 0219       |    |		Execute	Heap_Access,All_Read
0281 e023       | #  |		Load	0x0,0x23
0282 e242       | B  |		Load	0x1,0x42
0283 0096       |    |		Execute	Package,Entry
0284 a405       |    |		Store_Unchecked	0x2,0x5
0285 00db       |    |		Load_Top	At_Offset_3
0286 0e05       |    |		Execute_Immediate	Not_Equal,0x5
0287 6806       |h   |		Jump_Zero	0x28e
0288 e402       |    |		Load	0x2,0x2
0289 4803       |H   |		Short_Literal	0x3
028a 8024       | $  |		Call	0x0,0x24
028b 00db       |    |		Load_Top	At_Offset_3
028c 016d       | m  |		Execute	Variant_Record,Structure_Write
028d 7806       |x   |		Jump	0x294
028e 8408       |    |		Call	0x2,0x8
028f e402       |    |		Load	0x2,0x2
0290 480c       |H   |		Short_Literal	0xc
0291 8024       | $  |		Call	0x0,0x24
0292 00db       |    |		Load_Top	At_Offset_3
0293 016d       | m  |		Execute	Variant_Record,Structure_Write
0294 00d9       |    |		Load_Top	At_Offset_1
0295 00db       |    |		Load_Top	At_Offset_3
0296 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0297 4802       |H   |		Short_Literal	0x2
0298 e403       |    |		Load	0x2,0x3
0299 e025       | %  |		Load	0x0,0x25
029a e242       | B  |		Load	0x1,0x42
029b 0096       |    |		Execute	Package,Entry
029c 0217       |    |		Execute	Heap_Access,All_Reference
029d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
029e 00db       |    |		Load_Top	At_Offset_3
029f 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 016d       | m  |		Execute	Variant_Record,Structure_Write
02a3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a4 4801       |H   |		Short_Literal	0x1
02a5 0092 099a  |    |		Action	Push_String_Extended,0x99a					; "Definition not supported here"
02a7 820e       |    |		Call	0x1,0xe
02a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02be       |    |		.CONST	0x02be								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e01b       |    |		Load	0x0,0x1b
02b4 02ff       |    |		Declare_Variable	Variant_Record
02b5 00db       |    |		Load_Top	At_Offset_3
02b6 0219       |    |		Execute	Heap_Access,All_Read
02b7 e020       |    |		Load	0x0,0x20
02b8 e242       | B  |		Load	0x1,0x42
02b9 0096       |    |		Execute	Package,Entry
02ba 4810       |H   |		Short_Literal	0x10
02bb 8024       | $  |		Call	0x0,0x24
02bc 00d9       |    |		Load_Top	At_Offset_1
02bd 016d       | m  |		Execute	Variant_Record,Structure_Write
02be			BODY_02b0:
02be 00d8       |    |		Load_Top	At_Offset_0
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 e5ff       |    |		Load	0x2,-0x1
02c3 0219       |    |		Execute	Heap_Access,All_Read
02c4 e020       |    |		Load	0x0,0x20
02c5 e242       | B  |		Load	0x1,0x42
02c6 0096       |    |		Execute	Package,Entry
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 8212       |    |		Call	0x1,0x12
02c9 8026       | &  |		Call	0x0,0x26
02ca 8027       | '  |		Call	0x0,0x27
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
02cd 00d1       |    |		Pop_Control	Pop_Count_1
02ce 00d0       |    |		Action	Swap_Control
02cf 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
02d0 4800       |H   |		Short_Literal	0x0
02d1 a5fd       |    |		Store_Unchecked	0x2,-0x3
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e5fe       |    |		Load	0x2,-0x2
02d4 016d       | m  |		Execute	Variant_Record,Structure_Write
02d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 00ea       |    |		Load_Encached	Null_String_Cache
02dc 0092 099b  |    |		Action	Push_String_Extended,0x99b					; "Elide"
02de e01f       |    |		Load	0x0,0x1f
02df e230       | 0  |		Load	0x1,0x30
02e0 0096       |    |		Execute	Package,Entry
02e1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00ea       |    |		Load_Encached	Null_String_Cache
02ec 0092 099c  |    |		Action	Push_String_Extended,0x99c					; "Expand"
02ee e01f       |    |		Load	0x0,0x1f
02ef e230       | 0  |		Load	0x1,0x30
02f0 0096       |    |		Execute	Package,Entry
02f1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 0833       | 3  |		Execute_Immediate	Raise,0x33
02fc 0000 0000  |    |		.BLANK	0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 0833       | 3  |		Execute_Immediate	Raise,0x33
0304 0000 0000  |    |		.BLANK	0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 4801       |H   |		Short_Literal	0x1
030c e5fe       |    |		Load	0x2,-0x2
030d e5ff       |    |		Load	0x2,-0x1
030e 824e       | N  |		Call	0x1,0x4e
030f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 4800       |H   |		Short_Literal	0x0
0314 e5fe       |    |		Load	0x2,-0x2
0315 e5ff       |    |		Load	0x2,-0x1
0316 824e       | N  |		Call	0x1,0x4e
0317 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00ea       |    |		Load_Encached	Null_String_Cache
031c 0092 099d  |    |		Action	Push_String_Extended,0x99d					; "Delete"
031e e01f       |    |		Load	0x0,0x1f
031f e230       | 0  |		Load	0x1,0x30
0320 0096       |    |		Execute	Package,Entry
0321 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0322 0000 0000  |    |		.BLANK	0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0381       |    |		.CONST	0x0381								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0012       |    |		.CONST	0x0012								; Number of locals
032b			INIT_0328:
032b 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
032d 029f 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Call
032f 029f 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Call
0331 029f 081b  |    |		Declare_Subprogram	INIT_0818,For_Call
0333 029f 0823  |   #|		Declare_Subprogram	INIT_0820,For_Call
0335 e028       | (  |		Load	0x0,0x28
0336 e242       | B  |		Load	0x1,0x42
0337 0095       |    |		Execute	Package,Field_Reference_Dynamic
0338 00c6       |    |		Action	Check_Subprogram_Elaborated
0339 4802       |H   |		Short_Literal	0x2
033a 4802       |H   |		Short_Literal	0x2
033b 0099       |    |		Action	Reference_Dynamic
033c 0093 0000  |    |		push_full_address	0x0
033e 60ad       |`   |		Indirect_Literal	Discrete,0x3ec,{0x80000000, 0x00040000}
033f 0273       | s  |		Execute	Discrete,Plus
0340 e20d       |    |		Load	0x1,0xd
0341 60a6       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000ffff}
0342 0279       | y  |		Execute	Discrete,And
0343 0273       | s  |		Execute	Discrete,Plus
0344 e029       | )  |		Load	0x0,0x29
0345 0273       | s  |		Execute	Discrete,Plus
0346 4809       |H   |		Short_Literal	0x9
0347 0007       |    |		Action	Break_Optional
0348 e028       | (  |		Load	0x0,0x28
0349 e242       | B  |		Load	0x1,0x42
034a 0095       |    |		Execute	Package,Field_Reference_Dynamic
034b 00c6       |    |		Action	Check_Subprogram_Elaborated
034c 4803       |H   |		Short_Literal	0x3
034d 4802       |H   |		Short_Literal	0x2
034e 0099       |    |		Action	Reference_Dynamic
034f 0093 0000  |    |		push_full_address	0x0
0351 6092       |`   |		Indirect_Literal	Discrete,0x3e4,{0x80000000, 0x00030000}
0352 0273       | s  |		Execute	Discrete,Plus
0353 e20d       |    |		Load	0x1,0xd
0354 6093       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000ffff}
0355 0279       | y  |		Execute	Discrete,And
0356 0273       | s  |		Execute	Discrete,Plus
0357 e02a       | *  |		Load	0x0,0x2a
0358 0273       | s  |		Execute	Discrete,Plus
0359 480c       |H   |		Short_Literal	0xc
035a 0007       |    |		Action	Break_Optional
035b e028       | (  |		Load	0x0,0x28
035c e242       | B  |		Load	0x1,0x42
035d 0095       |    |		Execute	Package,Field_Reference_Dynamic
035e 00c6       |    |		Action	Check_Subprogram_Elaborated
035f 4805       |H   |		Short_Literal	0x5
0360 4802       |H   |		Short_Literal	0x2
0361 0099       |    |		Action	Reference_Dynamic
0362 0093 0000  |    |		push_full_address	0x0
0364 607b       |`{  |		Indirect_Literal	Discrete,0x3e0,{0x80000000, 0x00020000}
0365 0273       | s  |		Execute	Discrete,Plus
0366 e20d       |    |		Load	0x1,0xd
0367 6080       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000ffff}
0368 0279       | y  |		Execute	Discrete,And
0369 0273       | s  |		Execute	Discrete,Plus
036a e02b       | +  |		Load	0x0,0x2b
036b 0273       | s  |		Execute	Discrete,Plus
036c 480f       |H   |		Short_Literal	0xf
036d 0007       |    |		Action	Break_Optional
036e e028       | (  |		Load	0x0,0x28
036f e242       | B  |		Load	0x1,0x42
0370 0095       |    |		Execute	Package,Field_Reference_Dynamic
0371 00c6       |    |		Action	Check_Subprogram_Elaborated
0372 4806       |H   |		Short_Literal	0x6
0373 4802       |H   |		Short_Literal	0x2
0374 0099       |    |		Action	Reference_Dynamic
0375 0093 0000  |    |		push_full_address	0x0
0377 6064       |`d  |		Indirect_Literal	Discrete,0x3dc,{0x80000000, 0x00010000}
0378 0273       | s  |		Execute	Discrete,Plus
0379 e20d       |    |		Load	0x1,0xd
037a 606d       |`m  |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000ffff}
037b 0279       | y  |		Execute	Discrete,And
037c 0273       | s  |		Execute	Discrete,Plus
037d e02c       | ,  |		Load	0x0,0x2c
037e 0273       | s  |		Execute	Discrete,Plus
037f 4812       |H   |		Short_Literal	0x12
0380 0007       |    |		Action	Break_Optional
0381			BODY_0328:
0381 e5fe       |    |		Load	0x2,-0x2
0382 00d8       |    |		Load_Top	At_Offset_0
0383 4ffd       |O   |		Short_Literal	-0x3
0384 4803       |H   |		Short_Literal	0x3
0385 0262       | b  |		Execute	Discrete,In_Range
0386 6846       |hF  |		Jump_Zero	0x3cd
0387 00d8       |    |		Load_Top	At_Offset_0
0388 4ffd       |O   |		Short_Literal	-0x3
0389 027f       |    |		Execute	Discrete,Equal
038a 7033       |p3  |		Jump_Nonzero	0x3be
038b 0b01       |    |		Execute_Immediate	Case_Compare,0x1
038c 7005       |p   |		Jump_Nonzero	0x392
038d 0b02       |    |		Execute_Immediate	Case_Compare,0x2
038e 7012       |p   |		Jump_Nonzero	0x3a1
038f 0f03       |    |		Execute_Immediate	Equal,0x3
0390 701f       |p   |		Jump_Nonzero	0x3b0
0391 783c       |x<  |		Jump	0x3ce
0392 00d1       |    |		Pop_Control	Pop_Count_1
0393 6044       |`D  |		Indirect_Literal	Discrete,0x3d8,{0x00000000, 0x7fffffff}
0394 4801       |H   |		Short_Literal	0x1
0395 e5ff       |    |		Load	0x2,-0x1
0396 0219       |    |		Execute	Heap_Access,All_Read
0397 4807       |H   |		Short_Literal	0x7
0398 4802       |H   |		Short_Literal	0x2
0399 0099       |    |		Action	Reference_Dynamic
039a 4808       |H   |		Short_Literal	0x8
039b 4802       |H   |		Short_Literal	0x2
039c 0099       |    |		Action	Reference_Dynamic
039d e028       | (  |		Load	0x0,0x28
039e e242       | B  |		Load	0x1,0x42
039f 0096       |    |		Execute	Package,Entry
03a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a1 00d1       |    |		Pop_Control	Pop_Count_1
03a2 6035       |`5  |		Indirect_Literal	Discrete,0x3d8,{0x00000000, 0x7fffffff}
03a3 4801       |H   |		Short_Literal	0x1
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 0219       |    |		Execute	Heap_Access,All_Read
03a6 480a       |H   |		Short_Literal	0xa
03a7 4802       |H   |		Short_Literal	0x2
03a8 0099       |    |		Action	Reference_Dynamic
03a9 480b       |H   |		Short_Literal	0xb
03aa 4802       |H   |		Short_Literal	0x2
03ab 0099       |    |		Action	Reference_Dynamic
03ac e028       | (  |		Load	0x0,0x28
03ad e242       | B  |		Load	0x1,0x42
03ae 0096       |    |		Execute	Package,Entry
03af 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b0 6027       |`'  |		Indirect_Literal	Discrete,0x3d8,{0x00000000, 0x7fffffff}
03b1 4801       |H   |		Short_Literal	0x1
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 0219       |    |		Execute	Heap_Access,All_Read
03b4 480d       |H   |		Short_Literal	0xd
03b5 4802       |H   |		Short_Literal	0x2
03b6 0099       |    |		Action	Reference_Dynamic
03b7 480e       |H   |		Short_Literal	0xe
03b8 4802       |H   |		Short_Literal	0x2
03b9 0099       |    |		Action	Reference_Dynamic
03ba e028       | (  |		Load	0x0,0x28
03bb e242       | B  |		Load	0x1,0x42
03bc 0096       |    |		Execute	Package,Entry
03bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03be 00d1       |    |		Pop_Control	Pop_Count_1
03bf 6018       |`   |		Indirect_Literal	Discrete,0x3d8,{0x00000000, 0x7fffffff}
03c0 4801       |H   |		Short_Literal	0x1
03c1 e5ff       |    |		Load	0x2,-0x1
03c2 0219       |    |		Execute	Heap_Access,All_Read
03c3 4810       |H   |		Short_Literal	0x10
03c4 4802       |H   |		Short_Literal	0x2
03c5 0099       |    |		Action	Reference_Dynamic
03c6 4811       |H   |		Short_Literal	0x11
03c7 4802       |H   |		Short_Literal	0x2
03c8 0099       |    |		Action	Reference_Dynamic
03c9 e028       | (  |		Load	0x0,0x28
03ca e242       | B  |		Load	0x1,0x42
03cb 0096       |    |		Execute	Package,Entry
03cc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cd 00d1       |    |		Pop_Control	Pop_Count_1
03ce 4800       |H   |		Short_Literal	0x0
03cf 0092 099e  |    |		Action	Push_String_Extended,0x99e					; "No operation defined for value "
03d1 e5fe       |    |		Load	0x2,-0x2
03d2 00e0       |    |		Load_Encached	Standard_Cache
03d3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03d4 01cc       |    |		Execute	Vector,Catenate
03d5 820e       |    |		Call	0x1,0xe
03d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d7 0000       |    |		.XXX[0x1]
03d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
03e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
03e4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
03e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
03ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fa       |    |		.CONST	0x03fa								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0004       |    |		.CONST	0x0004								; Number of locals
03f3			INIT_03f0:
03f3 00db       |    |		Load_Top	At_Offset_3
03f4 e24c       | L  |		Load	0x1,0x4c
03f5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03f6 e24b       | K  |		Load	0x1,0x4b
03f7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03f8 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
03fa			BODY_03f0:
03fa 4801       |H   |		Short_Literal	0x1
03fb 00db       |    |		Load_Top	At_Offset_3
03fc e24c       | L  |		Load	0x1,0x4c
03fd 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03fe 6803       |h   |		Jump_Zero	0x402
03ff 4801       |H   |		Short_Literal	0x1
0400 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0401 7812       |x   |		Jump	0x414
0402 4802       |H   |		Short_Literal	0x2
0403 00db       |    |		Load_Top	At_Offset_3
0404 e24c       | L  |		Load	0x1,0x4c
0405 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0406 6803       |h   |		Jump_Zero	0x40a
0407 4802       |H   |		Short_Literal	0x2
0408 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0409 780a       |x   |		Jump	0x414
040a 4800       |H   |		Short_Literal	0x0
040b 0092 099f  |    |		Action	Push_String_Extended,0x99f					; "Filter Command => "
040d e5fe       |    |		Load	0x2,-0x2
040e 01cc       |    |		Execute	Vector,Catenate
040f 0092 09a0  |    |		Action	Push_String_Extended,0x9a0					; " not supported"
0411 01cc       |    |		Execute	Vector,Catenate
0412 820e       |    |		Call	0x1,0xe
0413 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0414 8404       |    |		Call	0x2,0x4
0415 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0416 0000 0000  |    |		.XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0437       | 7  |		.CONST	0x0437								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0007       |    |		.CONST	0x0007								; Number of locals
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c 0219       |    |		Execute	Heap_Access,All_Read
041d e020       |    |		Load	0x0,0x20
041e e242       | B  |		Load	0x1,0x42
041f 0096       |    |		Execute	Package,Entry
0420 e02d       | -  |		Load	0x0,0x2d
0421 0007       |    |		Action	Break_Optional
0422 e00d       |    |		Load	0x0,0xd
0423 e242       | B  |		Load	0x1,0x42
0424 0098       |    |		Execute	Package,Field_Read_Dynamic
0425 0322       | "  |		Declare_Variable	Record
0426 4801       |H   |		Short_Literal	0x1
0427 e5ff       |    |		Load	0x2,-0x1
0428 0219       |    |		Execute	Heap_Access,All_Read
0429 e02e       | .  |		Load	0x0,0x2e
042a e242       | B  |		Load	0x1,0x42
042b 0096       |    |		Execute	Package,Entry
042c 00d9       |    |		Load_Top	At_Offset_1
042d 017d       | }  |		Execute	Record,Structure_Write
042e e005       |    |		Load	0x0,0x5
042f 0007       |    |		Action	Break_Optional
0430 e014       |    |		Load	0x0,0x14
0431 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0432 02c7       |    |		Declare_Variable	Any
0433 00d8       |    |		Load_Top	At_Offset_0
0434 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0435 029f 0873  |   s|		Declare_Subprogram	INIT_0870,For_Call
0437			BODY_0418:
0437 e402       |    |		Load	0x2,0x2
0438 00d8       |    |		Load_Top	At_Offset_0
0439 4803       |H   |		Short_Literal	0x3
043a e5fe       |    |		Load	0x2,-0x2
043b 802f       | /  |		Call	0x0,0x2f
043c 8027       | '  |		Call	0x0,0x27
043d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
043e e402       |    |		Load	0x2,0x2
043f 8030       | 0  |		Call	0x0,0x30
0440 a403       |    |		Store_Unchecked	0x2,0x3
0441 e403       |    |		Load	0x2,0x3
0442 00db       |    |		Load_Top	At_Offset_3
0443 8031       | 1  |		Call	0x0,0x31
0444 c403       |    |		Store	0x2,0x3
0445 00d9       |    |		Load_Top	At_Offset_1
0446 e403       |    |		Load	0x2,0x3
0447 8032       | 2  |		Call	0x0,0x32
0448 c406       |    |		Store	0x2,0x6
0449 4802       |H   |		Short_Literal	0x2
044a 00db       |    |		Load_Top	At_Offset_3
044b 00db       |    |		Load_Top	At_Offset_3
044c 8033       | 3  |		Call	0x0,0x33
044d e403       |    |		Load	0x2,0x3
044e e402       |    |		Load	0x2,0x2
044f 4802       |H   |		Short_Literal	0x2
0450 8034       | 4  |		Call	0x0,0x34
0451 8035       | 5  |		Call	0x0,0x35
0452 c403       |    |		Store	0x2,0x3
0453 00cf       |    |		Action	Mark_Auxiliary
0454 7807       |x   |		Jump	0x45c
0455 8407       |    |		Call	0x2,0x7
0456 e404       |    |		Load	0x2,0x4
0457 e036       | 6  |		Load	0x0,0x36
0458 e242       | B  |		Load	0x1,0x42
0459 0096       |    |		Execute	Package,Entry
045a 00d1       |    |		Pop_Control	Pop_Count_1
045b 00c9       |    |		Action	Pop_Auxiliary_Loop
045c e404       |    |		Load	0x2,0x4
045d e037       | 7  |		Load	0x0,0x37
045e e242       | B  |		Load	0x1,0x42
045f 0096       |    |		Execute	Package,Entry
0460 6ff4       |o   |		Jump_Zero	0x455
0461 00ce       |    |		Action	Pop_Auxiliary
0462 e403       |    |		Load	0x2,0x3
0463 4800       |H   |		Short_Literal	0x0
0464 8038       | 8  |		Call	0x0,0x38
0465 c403       |    |		Store	0x2,0x3
0466 00d9       |    |		Load_Top	At_Offset_1
0467 e403       |    |		Load	0x2,0x3
0468 8032       | 2  |		Call	0x0,0x32
0469 c406       |    |		Store	0x2,0x6
046a 4802       |H   |		Short_Literal	0x2
046b 00db       |    |		Load_Top	At_Offset_3
046c 00db       |    |		Load_Top	At_Offset_3
046d 8033       | 3  |		Call	0x0,0x33
046e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
046f 0000       |    |		.XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 0217       |    |		Execute	Heap_Access,All_Reference
0475 e039       | 9  |		Load	0x0,0x39
0476 e242       | B  |		Load	0x1,0x42
0477 0096       |    |		Execute	Package,Entry
0478 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0479 0000 0000  |    |		.BLANK	0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 0092 09a1  |    |		Action	Push_String_Extended,0x9a1					; "TR"
0485 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0486 0000 0000  |    |		.XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 00da       |    |		Load_Top	At_Offset_2
048c 0219       |    |		Execute	Heap_Access,All_Read
048d e01c       |    |		Load	0x0,0x1c
048e e242       | B  |		Load	0x1,0x42
048f 0096       |    |		Execute	Package,Entry
0490 0217       |    |		Execute	Heap_Access,All_Reference
0491 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0492 801d       |    |		Call	0x0,0x1d
0493 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0494 0000 0000  |    |		.BLANK	0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 00da       |    |		Load_Top	At_Offset_2
049c 8224       | $  |		Call	0x1,0x24
049d e5fe       |    |		Load	0x2,-0x2
049e 8224       | $  |		Call	0x1,0x24
049f 01df       |    |		Execute	Vector,Equal
04a0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a1 0000 0000  |    |		.BLANK	0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b0       |    |		.CONST	0x04b0								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab 00da       |    |		Load_Top	At_Offset_2
04ac 0219       |    |		Execute	Heap_Access,All_Read
04ad e020       |    |		Load	0x0,0x20
04ae e242       | B  |		Load	0x1,0x42
04af 0096       |    |		Execute	Package,Entry
04b0			BODY_04a8:
04b0 4801       |H   |		Short_Literal	0x1
04b1 e5ff       |    |		Load	0x2,-0x1
04b2 0219       |    |		Execute	Heap_Access,All_Read
04b3 e02e       | .  |		Load	0x0,0x2e
04b4 e242       | B  |		Load	0x1,0x42
04b5 0096       |    |		Execute	Package,Entry
04b6 e22f       | /  |		Load	0x1,0x2f
04b7 00da       |    |		Load_Top	At_Offset_2
04b8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
04b9 a5fe       |    |		Store_Unchecked	0x2,-0x2
04ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04bb 0000 0000  |    |		.BLANK	0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 00da       |    |		Load_Top	At_Offset_2
04c4 0217       |    |		Execute	Heap_Access,All_Reference
04c5 e037       | 7  |		Load	0x0,0x37
04c6 e242       | B  |		Load	0x1,0x42
04c7 0096       |    |		Execute	Package,Entry
04c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c9 0000 0000  |    |		.BLANK	0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04db       |    |		.CONST	0x04db								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0002       |    |		.CONST	0x0002								; Number of locals
04d3			INIT_04d0:
04d3 00da       |    |		Load_Top	At_Offset_2
04d4 0217       |    |		Execute	Heap_Access,All_Reference
04d5 e03a       | :  |		Load	0x0,0x3a
04d6 e242       | B  |		Load	0x1,0x42
04d7 0096       |    |		Execute	Package,Entry
04d8 e020       |    |		Load	0x0,0x20
04d9 e242       | B  |		Load	0x1,0x42
04da 0096       |    |		Execute	Package,Entry
04db			BODY_04d0:
04db 00db       |    |		Load_Top	At_Offset_3
04dc 0217       |    |		Execute	Heap_Access,All_Reference
04dd e03b       | ;  |		Load	0x0,0x3b
04de e242       | B  |		Load	0x1,0x42
04df 0096       |    |		Execute	Package,Entry
04e0 e22d       | -  |		Load	0x1,0x2d
04e1 00da       |    |		Load_Top	At_Offset_2
04e2 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
04e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e4 0000 0000  |    |		.BLANK	0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 0219       |    |		Execute	Heap_Access,All_Read
04ed 00d8       |    |		Load_Top	At_Offset_0
04ee e036       | 6  |		Load	0x0,0x36
04ef e242       | B  |		Load	0x1,0x42
04f0 0096       |    |		Execute	Package,Entry
04f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f2 0000 0000  |    |		.BLANK	0000[0x6]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 4601       |F   |		Jump_Case	0x2
04fc 7801       |x   |		Jump	0x4fe								; case 0x0
04fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04fe 00da       |    |		Load_Top	At_Offset_2
04ff 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0500 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0501 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0502 0000 0000  |    |		.BLANK	0000[0x6]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 4607       |F   |		Jump_Case	0x8
050c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
050d 7807       |x   |		Jump	0x515								; case 0x1
050e 780a       |x   |		Jump	0x519								; case 0x2
050f 780e       |x   |		Jump	0x51e								; case 0x3
0510 7811       |x   |		Jump	0x522								; case 0x4
0511 7812       |x   |		Jump	0x524								; case 0x5
0512 7813       |x   |		Jump	0x526								; case 0x6
0513 7816       |x   |		Jump	0x52a								; case 0x7
0514 4302       |C   |		.XXX[0x1]
0515 00da       |    |		Load_Top	At_Offset_2
0516 0091 0986  |    |		Action	Push_String_Extended_Indexed,0x986				; "NIL_COL"
0518 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0519 00db       |    |		Load_Top	At_Offset_3
051a 00db       |    |		Load_Top	At_Offset_3
051b 00e0       |    |		Load_Encached	Standard_Cache
051c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
051d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
051e 00da       |    |		Load_Top	At_Offset_2
051f 00e0       |    |		Load_Encached	Standard_Cache
0520 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0521 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0522 00db       |    |		Load_Top	At_Offset_3
0523 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0524 00db       |    |		Load_Top	At_Offset_3
0525 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0526 e233       | 3  |		Load	0x1,0x33
0527 00dc       |    |		Load_Top	At_Offset_4
0528 0267       | g  |		Execute	Discrete,Predecessor
0529 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
052a e233       | 3  |		Load	0x1,0x33
052b 00dc       |    |		Load_Top	At_Offset_4
052c 0268       | h  |		Execute	Discrete,Successor
052d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
052e 0000 0000  |    |		.XXX[0x2]
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 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 4601       |F   |		Jump_Case	0x2
053c 7801       |x   |		Jump	0x53e								; case 0x0
053d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
053e 4800       |H   |		Short_Literal	0x0
053f 00db       |    |		Load_Top	At_Offset_3
0540 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0541 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0542 0000 0000  |    |		.BLANK	0000[0x6]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
054c 0000 0000  |    |		.BLANK	0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 4609       |F   |		Jump_Case	0xa
0554 7809       |x   |		Jump	0x55e								; case 0x0
0555 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0556 7821       |x!  |		Jump	0x578								; case 0x2
0557 7824       |x$  |		Jump	0x57c								; case 0x3
0558 785f       |x_  |		Jump	0x5b8								; case 0x4
0559 785e       |x^  |		Jump	0x5b8								; case 0x5
055a 7827       |x'  |		Jump	0x582								; case 0x6
055b 783a       |x:  |		Jump	0x596								; case 0x7
055c 7850       |xP  |		Jump	0x5ad								; case 0x8
055d 7856       |xV  |		Jump	0x5b4								; case 0x9
055e 00da       |    |		Load_Top	At_Offset_2
055f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0560 7009       |p   |		Jump_Nonzero	0x56a
0561 00cf       |    |		Action	Mark_Auxiliary
0562 4800       |H   |		Short_Literal	0x0
0563 e5ff       |    |		Load	0x2,-0x1
0564 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0565 00d8       |    |		Load_Top	At_Offset_0
0566 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0567 c5ff       |    |		Store	0x2,-0x1
0568 00ce       |    |		Action	Pop_Auxiliary
0569 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
056a 00da       |    |		Load_Top	At_Offset_2
056b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
056c 4605       |F   |		Jump_Case	0x6
056d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
056e 7805       |x   |		Jump	0x574								; case 0x1
056f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0570 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0571 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0572 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0573 4302       |C   |		.XXX[0x1]
0574 4800       |H   |		Short_Literal	0x0
0575 00db       |    |		Load_Top	At_Offset_3
0576 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0577 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0578 4801       |H   |		Short_Literal	0x1
0579 4806       |H   |		Short_Literal	0x6
057a 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
057b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
057c e5fd       |    |		Load	0x2,-0x3
057d 00db       |    |		Load_Top	At_Offset_3
057e 1c07       |    |		Execute_Immediate	Run_Utility,0x7
057f e5fe       |    |		Load	0x2,-0x2
0580 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0581 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0582 00db       |    |		Load_Top	At_Offset_3
0583 4605       |F   |		Jump_Case	0x6
0584 780f       |x   |		Jump	0x594								; case 0x0
0585 7806       |x   |		Jump	0x58c								; case 0x1
0586 7807       |x   |		Jump	0x58e								; case 0x2
0587 7808       |x   |		Jump	0x590								; case 0x3
0588 7809       |x   |		Jump	0x592								; case 0x4
0589 7800       |x   |		Jump	0x58a								; case 0x5
058a 4805       |H   |		Short_Literal	0x5
058b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
058c 4801       |H   |		Short_Literal	0x1
058d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
058e 4802       |H   |		Short_Literal	0x2
058f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0590 4803       |H   |		Short_Literal	0x3
0591 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0592 4804       |H   |		Short_Literal	0x4
0593 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0594 48ff       |H   |		Short_Literal	0xff
0595 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0596 00db       |    |		Load_Top	At_Offset_3
0597 e5fe       |    |		Load	0x2,-0x2
0598 4605       |F   |		Jump_Case	0x6
0599 780f       |x   |		Jump	0x5a9								; case 0x0
059a 7806       |x   |		Jump	0x5a1								; case 0x1
059b 7807       |x   |		Jump	0x5a3								; case 0x2
059c 7808       |x   |		Jump	0x5a5								; case 0x3
059d 7809       |x   |		Jump	0x5a7								; case 0x4
059e 7800       |x   |		Jump	0x59f								; case 0x5
059f 4805       |H   |		Short_Literal	0x5
05a0 7809       |x   |		Jump	0x5aa
05a1 4801       |H   |		Short_Literal	0x1
05a2 7807       |x   |		Jump	0x5aa
05a3 4802       |H   |		Short_Literal	0x2
05a4 7805       |x   |		Jump	0x5aa
05a5 4803       |H   |		Short_Literal	0x3
05a6 7803       |x   |		Jump	0x5aa
05a7 4804       |H   |		Short_Literal	0x4
05a8 7801       |x   |		Jump	0x5aa
05a9 48ff       |H   |		Short_Literal	0xff
05aa e5ff       |    |		Load	0x2,-0x1
05ab 031b       |    |		Declare_Type	Variant_Record,Constrained
05ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ad 00db       |    |		Load_Top	At_Offset_3
05ae e5fe       |    |		Load	0x2,-0x2
05af e5ff       |    |		Load	0x2,-0x1
05b0 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05b1 e5ff       |    |		Load	0x2,-0x1
05b2 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05b4 4800       |H   |		Short_Literal	0x0
05b5 00db       |    |		Load_Top	At_Offset_3
05b6 1c07       |    |		Execute_Immediate	Run_Utility,0x7
05b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05b8 0869       | i  |		Execute_Immediate	Raise,0x69
05b9 0000 0000  |    |		.BLANK	0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cd       |    |		.CONST	0x05cd								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0002       |    |		.CONST	0x0002								; Number of locals
05cb			INIT_05c8:
05cb 029f 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Call
05cd			BODY_05c8:
05cd 00db       |    |		Load_Top	At_Offset_3
05ce 7002       |p   |		Jump_Nonzero	0x5d1
05cf 00ea       |    |		Load_Encached	Null_String_Cache
05d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d1 00db       |    |		Load_Top	At_Offset_3
05d2 0217       |    |		Execute	Heap_Access,All_Reference
05d3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05d4 4605       |F   |		Jump_Case	0x6
05d5 780a       |x   |		Jump	0x5e0								; case 0x0
05d6 780b       |x   |		Jump	0x5e2								; case 0x1
05d7 7813       |x   |		Jump	0x5eb								; case 0x2
05d8 781a       |x   |		Jump	0x5f3								; case 0x3
05d9 7829       |x)  |		Jump	0x603								; case 0x4
05da 7800       |x   |		Jump	0x5db								; case 0x5
05db 00db       |    |		Load_Top	At_Offset_3
05dc 0217       |    |		Execute	Heap_Access,All_Reference
05dd 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05de 803c       | <  |		Call	0x0,0x3c
05df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e0 00ea       |    |		Load_Encached	Null_String_Cache
05e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e2 00db       |    |		Load_Top	At_Offset_3
05e3 0217       |    |		Execute	Heap_Access,All_Reference
05e4 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05e5 6803       |h   |		Jump_Zero	0x5e9
05e6 0092 09a2  |    |		Action	Push_String_Extended,0x9a2					; "*"
05e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e9 00ea       |    |		Load_Encached	Null_String_Cache
05ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05eb 00db       |    |		Load_Top	At_Offset_3
05ec 0217       |    |		Execute	Heap_Access,All_Reference
05ed 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05ee 801d       |    |		Call	0x0,0x1d
05ef e03d       | =  |		Load	0x0,0x3d
05f0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05f1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 0217       |    |		Execute	Heap_Access,All_Reference
05f5 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05f6 0f03       |    |		Execute_Immediate	Equal,0x3
05f7 7008       |p   |		Jump_Nonzero	0x600
05f8 7800       |x   |		Jump	0x5f9
05f9 00db       |    |		Load_Top	At_Offset_3
05fa 0217       |    |		Execute	Heap_Access,All_Reference
05fb 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05fc e007       |    |		Load	0x0,0x7
05fd 011c       |    |		Execute	Any,Convert_Unchecked
05fe 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0600 0092 09a3  |    |		Action	Push_String_Extended,0x9a3					; "EXCEPTION"
0602 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0603 8402       |    |		Call	0x2,0x2
0604 0831       | 1  |		Execute_Immediate	Raise,0x31
0605 0000 0000  |    |		.XXX[0x3]
0607 0000       |    |
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b e232       | 2  |		Load	0x1,0x32
060c e5fe       |    |		Load	0x2,-0x2
060d 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
060e 00d8       |    |		Load_Top	At_Offset_0
060f 0217       |    |		Execute	Heap_Access,All_Reference
0610 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0611 a5fd       |    |		Store_Unchecked	0x2,-0x3
0612 00da       |    |		Load_Top	At_Offset_2
0613 0217       |    |		Execute	Heap_Access,All_Reference
0614 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0615 e5fd       |    |		Load	0x2,-0x3
0616 0217       |    |		Execute	Heap_Access,All_Reference
0617 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0618 00da       |    |		Load_Top	At_Offset_2
0619 0217       |    |		Execute	Heap_Access,All_Reference
061a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
061b e5fd       |    |		Load	0x2,-0x3
061c 0217       |    |		Execute	Heap_Access,All_Reference
061d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
061e e5fd       |    |		Load	0x2,-0x3
061f 0219       |    |		Execute	Heap_Access,All_Read
0620 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0621 00d8       |    |		Load_Top	At_Offset_0
0622 e5fe       |    |		Load	0x2,-0x2
0623 e5ff       |    |		Load	0x2,-0x1
0624 0217       |    |		Execute	Heap_Access,All_Reference
0625 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0626 803e       | >  |		Call	0x0,0x3e
0627 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b 00da       |    |		Load_Top	At_Offset_2
062c e5fd       |    |		Load	0x2,-0x3
062d 017d       | }  |		Execute	Record,Structure_Write
062e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
062f 0000       |    |		.XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 00da       |    |		Load_Top	At_Offset_2
0634 7003       |p   |		Jump_Nonzero	0x638
0635 e23b       | ;  |		Load	0x1,0x3b
0636 a5fd       |    |		Store_Unchecked	0x2,-0x3
0637 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0638 00da       |    |		Load_Top	At_Offset_2
0639 0217       |    |		Execute	Heap_Access,All_Reference
063a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
063b 00d8       |    |		Load_Top	At_Offset_0
063c e23a       | :  |		Load	0x1,0x3a
063d 1c06       |    |		Execute_Immediate	Run_Utility,0x6
063e e23b       | ;  |		Load	0x1,0x3b
063f e5fe       |    |		Load	0x2,-0x2
0640 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0641 00d8       |    |		Load_Top	At_Offset_0
0642 0217       |    |		Execute	Heap_Access,All_Reference
0643 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0644 a5fd       |    |		Store_Unchecked	0x2,-0x3
0645 00da       |    |		Load_Top	At_Offset_2
0646 0217       |    |		Execute	Heap_Access,All_Reference
0647 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0648 4605       |F   |		Jump_Case	0x6
0649 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
064a 7820       |x   |		Jump	0x66b								; case 0x1
064b 780a       |x   |		Jump	0x656								; case 0x2
064c 7810       |x   |		Jump	0x65d								; case 0x3
064d 7816       |x   |		Jump	0x664								; case 0x4
064e 7800       |x   |		Jump	0x64f								; case 0x5
064f 00da       |    |		Load_Top	At_Offset_2
0650 0217       |    |		Execute	Heap_Access,All_Reference
0651 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0652 e5fd       |    |		Load	0x2,-0x3
0653 0217       |    |		Execute	Heap_Access,All_Reference
0654 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0655 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0656 00da       |    |		Load_Top	At_Offset_2
0657 0217       |    |		Execute	Heap_Access,All_Reference
0658 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0659 e5fd       |    |		Load	0x2,-0x3
065a 0217       |    |		Execute	Heap_Access,All_Reference
065b 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
065c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
065d 00da       |    |		Load_Top	At_Offset_2
065e 0217       |    |		Execute	Heap_Access,All_Reference
065f 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0660 e5fd       |    |		Load	0x2,-0x3
0661 0217       |    |		Execute	Heap_Access,All_Reference
0662 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0663 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0664 00da       |    |		Load_Top	At_Offset_2
0665 0217       |    |		Execute	Heap_Access,All_Reference
0666 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0667 e5fd       |    |		Load	0x2,-0x3
0668 0217       |    |		Execute	Heap_Access,All_Reference
0669 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
066a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
066b 00da       |    |		Load_Top	At_Offset_2
066c 0217       |    |		Execute	Heap_Access,All_Reference
066d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
066e e5fd       |    |		Load	0x2,-0x3
066f 0217       |    |		Execute	Heap_Access,All_Reference
0670 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0671 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 4607       |F   |		Jump_Case	0x8
067c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
067d 7807       |x   |		Jump	0x685								; case 0x1
067e 780a       |x   |		Jump	0x689								; case 0x2
067f 780e       |x   |		Jump	0x68e								; case 0x3
0680 7811       |x   |		Jump	0x692								; case 0x4
0681 7812       |x   |		Jump	0x694								; case 0x5
0682 7813       |x   |		Jump	0x696								; case 0x6
0683 7816       |x   |		Jump	0x69a								; case 0x7
0684 4302       |C   |		.XXX[0x1]
0685 00da       |    |		Load_Top	At_Offset_2
0686 0091 098c  |    |		Action	Push_String_Extended_Indexed,0x98c				; "NONE"
0688 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0689 00db       |    |		Load_Top	At_Offset_3
068a 00db       |    |		Load_Top	At_Offset_3
068b 00e0       |    |		Load_Encached	Standard_Cache
068c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
068d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
068e 00da       |    |		Load_Top	At_Offset_2
068f 00e0       |    |		Load_Encached	Standard_Cache
0690 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0691 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0692 00db       |    |		Load_Top	At_Offset_3
0693 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0694 00db       |    |		Load_Top	At_Offset_3
0695 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0696 e24a       | J  |		Load	0x1,0x4a
0697 00dc       |    |		Load_Top	At_Offset_4
0698 0267       | g  |		Execute	Discrete,Predecessor
0699 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069a e24a       | J  |		Load	0x1,0x4a
069b 00dc       |    |		Load_Top	At_Offset_4
069c 0268       | h  |		Execute	Discrete,Successor
069d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069e 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
06a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06a5 7807       |x   |		Jump	0x6ad								; case 0x1
06a6 780a       |x   |		Jump	0x6b1								; case 0x2
06a7 780e       |x   |		Jump	0x6b6								; case 0x3
06a8 7811       |x   |		Jump	0x6ba								; case 0x4
06a9 7812       |x   |		Jump	0x6bc								; case 0x5
06aa 7813       |x   |		Jump	0x6be								; case 0x6
06ab 7816       |x   |		Jump	0x6c2								; case 0x7
06ac 4302       |C   |		.XXX[0x1]
06ad 00da       |    |		Load_Top	At_Offset_2
06ae 0091 0991  |    |		Action	Push_String_Extended_Indexed,0x991				; "NONE"
06b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06b1 00db       |    |		Load_Top	At_Offset_3
06b2 00db       |    |		Load_Top	At_Offset_3
06b3 00e0       |    |		Load_Encached	Standard_Cache
06b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06b6 00da       |    |		Load_Top	At_Offset_2
06b7 00e0       |    |		Load_Encached	Standard_Cache
06b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06ba 00db       |    |		Load_Top	At_Offset_3
06bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06bc 00db       |    |		Load_Top	At_Offset_3
06bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06be e24b       | K  |		Load	0x1,0x4b
06bf 00dc       |    |		Load_Top	At_Offset_4
06c0 0267       | g  |		Execute	Discrete,Predecessor
06c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06c2 e24b       | K  |		Load	0x1,0x4b
06c3 00dc       |    |		Load_Top	At_Offset_4
06c4 0268       | h  |		Execute	Discrete,Successor
06c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06c6 0000 0000  |    |		.XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06d0       |    |		.CONST	0x06d0								; Address of begin
06c9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ca 0002       |    |		.CONST	0x0002								; Number of locals
06cb			INIT_06c8:
06cb e014       |    |		Load	0x0,0x14
06cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06cd 02c7       |    |		Declare_Variable	Any
06ce 00d8       |    |		Load_Top	At_Offset_0
06cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06d0			BODY_06c8:
06d0 e5fe       |    |		Load	0x2,-0x2
06d1 803f       | ?  |		Call	0x0,0x3f
06d2 a5fd       |    |		Store_Unchecked	0x2,-0x3
06d3 e5fd       |    |		Load	0x2,-0x3
06d4 e5ff       |    |		Load	0x2,-0x1
06d5 4800       |H   |		Short_Literal	0x0
06d6 8040       | @  |		Call	0x0,0x40
06d7 c5fd       |    |		Store	0x2,-0x3
06d8 00d8       |    |		Load_Top	At_Offset_0
06d9 e5fd       |    |		Load	0x2,-0x3
06da 8041       | A  |		Call	0x0,0x41
06db c402       |    |		Store	0x2,0x2
06dc 4802       |H   |		Short_Literal	0x2
06dd e5ff       |    |		Load	0x2,-0x1
06de 00da       |    |		Load_Top	At_Offset_2
06df 8033       | 3  |		Call	0x0,0x33
06e0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06e1 0000 0000  |    |		.BLANK	0000[0x7]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06f9       |    |		.CONST	0x06f9								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0003       |    |		.CONST	0x0003								; Number of locals
06eb			INIT_06e8:
06eb 00db       |    |		Load_Top	At_Offset_3
06ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06ed 00d8       |    |		Load_Top	At_Offset_0
06ee 00e4       |    |		Load_Encached	Positive_Cache
06ef 0260       | `  |		Execute	Discrete,In_Type
06f0 7001       |p   |		Jump_Nonzero	0x6f2
06f1 0801       |    |		Execute_Immediate	Raise,0x1
06f2 00db       |    |		Load_Top	At_Offset_3
06f3 0219       |    |		Execute	Heap_Access,All_Read
06f4 e021       | !  |		Load	0x0,0x21
06f5 e242       | B  |		Load	0x1,0x42
06f6 0096       |    |		Execute	Package,Entry
06f7 029f 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Call
06f9			BODY_06e8:
06f9 00d9       |    |		Load_Top	At_Offset_1
06fa e022       | "  |		Load	0x0,0x22
06fb e242       | B  |		Load	0x1,0x42
06fc 0096       |    |		Execute	Package,Entry
06fd 0f02       |    |		Execute_Immediate	Equal,0x2
06fe 6801       |h   |		Jump_Zero	0x700
06ff 8403       |    |		Call	0x2,0x3
0700 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0701 0000 0000  |    |		.BLANK	0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070f       |    |		.CONST	0x070f								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0002       |    |		.CONST	0x0002								; Number of locals
070b			INIT_0708:
070b e00c       |    |		Load	0x0,0xc
070c e242       | B  |		Load	0x1,0x42
070d 0098       |    |		Execute	Package,Field_Read_Dynamic
070e 0322       | "  |		Declare_Variable	Record
070f			BODY_0708:
070f 00d8       |    |		Load_Top	At_Offset_0
0710 4801       |H   |		Short_Literal	0x1
0711 e402       |    |		Load	0x2,0x2
0712 0219       |    |		Execute	Heap_Access,All_Read
0713 e042       | B  |		Load	0x0,0x42
0714 e242       | B  |		Load	0x1,0x42
0715 0096       |    |		Execute	Package,Entry
0716 00d1       |    |		Pop_Control	Pop_Count_1
0717 4802       |H   |		Short_Literal	0x2
0718 e244       | D  |		Load	0x1,0x44
0719 00da       |    |		Load_Top	At_Offset_2
071a e043       | C  |		Load	0x0,0x43
071b e242       | B  |		Load	0x1,0x42
071c 0096       |    |		Execute	Package,Entry
071d 4803       |H   |		Short_Literal	0x3
071e e245       | E  |		Load	0x1,0x45
071f 00da       |    |		Load_Top	At_Offset_2
0720 e043       | C  |		Load	0x0,0x43
0721 e242       | B  |		Load	0x1,0x42
0722 0096       |    |		Execute	Package,Entry
0723 4804       |H   |		Short_Literal	0x4
0724 e246       | F  |		Load	0x1,0x46
0725 00da       |    |		Load_Top	At_Offset_2
0726 e043       | C  |		Load	0x0,0x43
0727 e242       | B  |		Load	0x1,0x42
0728 0096       |    |		Execute	Package,Entry
0729 4805       |H   |		Short_Literal	0x5
072a e247       | G  |		Load	0x1,0x47
072b 00da       |    |		Load_Top	At_Offset_2
072c e043       | C  |		Load	0x0,0x43
072d e242       | B  |		Load	0x1,0x42
072e 0096       |    |		Execute	Package,Entry
072f 00d8       |    |		Load_Top	At_Offset_0
0730 4801       |H   |		Short_Literal	0x1
0731 e402       |    |		Load	0x2,0x2
0732 0219       |    |		Execute	Heap_Access,All_Read
0733 e042       | B  |		Load	0x0,0x42
0734 e242       | B  |		Load	0x1,0x42
0735 0096       |    |		Execute	Package,Entry
0736 00d1       |    |		Pop_Control	Pop_Count_1
0737 4802       |H   |		Short_Literal	0x2
0738 4801       |H   |		Short_Literal	0x1
0739 4802       |H   |		Short_Literal	0x2
073a e243       | C  |		Load	0x1,0x43
073b 01d7       |    |		Execute	Vector,Field_Read
073c e249       | I  |		Load	0x1,0x49
073d 01cf       |    |		Execute	Vector,Slice_Read
073e 00da       |    |		Load_Top	At_Offset_2
073f e043       | C  |		Load	0x0,0x43
0740 e242       | B  |		Load	0x1,0x42
0741 0096       |    |		Execute	Package,Entry
0742 4803       |H   |		Short_Literal	0x3
0743 4801       |H   |		Short_Literal	0x1
0744 4803       |H   |		Short_Literal	0x3
0745 e243       | C  |		Load	0x1,0x43
0746 01d7       |    |		Execute	Vector,Field_Read
0747 e249       | I  |		Load	0x1,0x49
0748 01cf       |    |		Execute	Vector,Slice_Read
0749 00da       |    |		Load_Top	At_Offset_2
074a e043       | C  |		Load	0x0,0x43
074b e242       | B  |		Load	0x1,0x42
074c 0096       |    |		Execute	Package,Entry
074d 4804       |H   |		Short_Literal	0x4
074e 4801       |H   |		Short_Literal	0x1
074f 4804       |H   |		Short_Literal	0x4
0750 e243       | C  |		Load	0x1,0x43
0751 01d7       |    |		Execute	Vector,Field_Read
0752 e249       | I  |		Load	0x1,0x49
0753 01cf       |    |		Execute	Vector,Slice_Read
0754 00da       |    |		Load_Top	At_Offset_2
0755 e043       | C  |		Load	0x0,0x43
0756 e242       | B  |		Load	0x1,0x42
0757 0096       |    |		Execute	Package,Entry
0758 4805       |H   |		Short_Literal	0x5
0759 4801       |H   |		Short_Literal	0x1
075a 4805       |H   |		Short_Literal	0x5
075b e243       | C  |		Load	0x1,0x43
075c 01d7       |    |		Execute	Vector,Field_Read
075d e249       | I  |		Load	0x1,0x49
075e 01cf       |    |		Execute	Vector,Slice_Read
075f 00da       |    |		Load_Top	At_Offset_2
0760 e043       | C  |		Load	0x0,0x43
0761 e242       | B  |		Load	0x1,0x42
0762 0096       |    |		Execute	Package,Entry
0763 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0764 0000 0000  |    |		.BLANK	0000[0x4]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0778       | x  |		.CONST	0x0778								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0005       |    |		.CONST	0x0005								; Number of locals
076b			INIT_0768:
076b e005       |    |		Load	0x0,0x5
076c e403       |    |		Load	0x2,0x3
076d 8044       | D  |		Call	0x0,0x44
076e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
076f 00d8       |    |		Load_Top	At_Offset_0
0770 e405       |    |		Load	0x2,0x5
0771 8045       | E  |		Call	0x0,0x45
0772 e00c       |    |		Load	0x0,0xc
0773 e242       | B  |		Load	0x1,0x42
0774 0098       |    |		Execute	Package,Field_Read_Dynamic
0775 0322       | "  |		Declare_Variable	Record
0776 029f 090b  |    |		Declare_Subprogram	INIT_0908,For_Call
0778			BODY_0768:
0778 00d9       |    |		Load_Top	At_Offset_1
0779 4802       |H   |		Short_Literal	0x2
077a e402       |    |		Load	0x2,0x2
077b 0219       |    |		Execute	Heap_Access,All_Read
077c e042       | B  |		Load	0x0,0x42
077d e242       | B  |		Load	0x1,0x42
077e 0096       |    |		Execute	Package,Entry
077f 00d1       |    |		Pop_Control	Pop_Count_1
0780 e237       | 7  |		Load	0x1,0x37
0781 0322       | "  |		Declare_Variable	Record
0782 4800       |H   |		Short_Literal	0x0
0783 00d9       |    |		Load_Top	At_Offset_1
0784 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0785 00da       |    |		Load_Top	At_Offset_2
0786 e046       | F  |		Load	0x0,0x46
0787 e242       | B  |		Load	0x1,0x42
0788 0096       |    |		Execute	Package,Entry
0789 00cf       |    |		Action	Mark_Auxiliary
078a 4805       |H   |		Short_Literal	0x5
078b 4801       |H   |		Short_Literal	0x1
078c 0007       |    |		Action	Break_Optional
078d 8605       |    |		Call	0x3,0x5
078e 00c8       |    |		Action	Pop_Auxiliary_Range
078f 3ffd       |?   |		Loop_Increasing	0x78d
0790 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0791 0000 0000  |    |		.BLANK	0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07a3       |    |		.CONST	0x07a3								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0002       |    |		.CONST	0x0002								; Number of locals
079b			INIT_0798:
079b e5ff       |    |		Load	0x2,-0x1
079c 0219       |    |		Execute	Heap_Access,All_Read
079d e01c       |    |		Load	0x0,0x1c
079e e242       | B  |		Load	0x1,0x42
079f 0096       |    |		Execute	Package,Entry
07a0 0217       |    |		Execute	Heap_Access,All_Reference
07a1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a2 0007       |    |		Action	Break_Optional
07a3			BODY_0798:
07a3 00d8       |    |		Load_Top	At_Offset_0
07a4 4800       |H   |		Short_Literal	0x0
07a5 8047       | G  |		Call	0x0,0x47
07a6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ad       |    |		.CONST	0x07ad								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0002       |    |		.CONST	0x0002								; Number of locals
07ab			INIT_07a8:
07ab e004       |    |		Load	0x0,0x4
07ac 0007       |    |		Action	Break_Optional
07ad			BODY_07a8:
07ad 00d8       |    |		Load_Top	At_Offset_0
07ae e402       |    |		Load	0x2,0x2
07af e407       |    |		Load	0x2,0x7
07b0 824d       | M  |		Call	0x1,0x4d
07b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07b2 00ea       |    |		Load_Encached	Null_String_Cache
07b3 00d9       |    |		Load_Top	At_Offset_1
07b4 8048       | H  |		Call	0x0,0x48
07b5 801d       |    |		Call	0x0,0x1d
07b6 01db       |    |		Execute	Vector,Length
07b7 7006       |p   |		Jump_Nonzero	0x7be
07b8 4800       |H   |		Short_Literal	0x0
07b9 0092 09a4  |    |		Action	Push_String_Extended,0x9a4					; "No Coverage information available for this test case"
07bb 820e       |    |		Call	0x1,0xe
07bc 00cc       |    |		Action	Pop_Block
07bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07bf 0000       |    |		.XXX[0x1]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07d5       |    |		.CONST	0x07d5								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0003       |    |		.CONST	0x0003								; Number of locals
07c3			INIT_07c0:
07c3 e005       |    |		Load	0x0,0x5
07c4 4802       |H   |		Short_Literal	0x2
07c5 e7ff       |    |		Load	0x3,-0x1
07c6 e025       | %  |		Load	0x0,0x25
07c7 e242       | B  |		Load	0x1,0x42
07c8 0096       |    |		Execute	Package,Entry
07c9 0217       |    |		Execute	Heap_Access,All_Reference
07ca 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07cb 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07cc e005       |    |		Load	0x0,0x5
07cd 4802       |H   |		Short_Literal	0x2
07ce e7fe       |    |		Load	0x3,-0x2
07cf e025       | %  |		Load	0x0,0x25
07d0 e242       | B  |		Load	0x1,0x42
07d1 0096       |    |		Execute	Package,Entry
07d2 0217       |    |		Execute	Heap_Access,All_Reference
07d3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07d4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07d5			BODY_07c0:
07d5 00d9       |    |		Load_Top	At_Offset_1
07d6 801d       |    |		Call	0x0,0x1d
07d7 00d9       |    |		Load_Top	At_Offset_1
07d8 801d       |    |		Call	0x0,0x1d
07d9 01c1       |    |		Execute	Vector,Less
07da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07db 0000 0000  |    |		.BLANK	0000[0x5]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07f3       |    |		.CONST	0x07f3								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0003       |    |		.CONST	0x0003								; Number of locals
07e3			INIT_07e0:
07e3 4803       |H   |		Short_Literal	0x3
07e4 00db       |    |		Load_Top	At_Offset_3
07e5 e025       | %  |		Load	0x0,0x25
07e6 e242       | B  |		Load	0x1,0x42
07e7 0096       |    |		Execute	Package,Entry
07e8 0217       |    |		Execute	Heap_Access,All_Reference
07e9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
07ea 0007       |    |		Action	Break_Optional
07eb 4803       |H   |		Short_Literal	0x3
07ec e7fe       |    |		Load	0x3,-0x2
07ed e025       | %  |		Load	0x0,0x25
07ee e242       | B  |		Load	0x1,0x42
07ef 0096       |    |		Execute	Package,Entry
07f0 0217       |    |		Execute	Heap_Access,All_Reference
07f1 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
07f2 0007       |    |		Action	Break_Optional
07f3			BODY_07e0:
07f3 00d9       |    |		Load_Top	At_Offset_1
07f4 00d9       |    |		Load_Top	At_Offset_1
07f5 027c       | |  |		Execute	Discrete,Less
07f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07f7 0000       |    |		.XXX[0x1]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 080b       |    |		.CONST	0x080b								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0003       |    |		.CONST	0x0003								; Number of locals
07fb			INIT_07f8:
07fb 4805       |H   |		Short_Literal	0x5
07fc 00db       |    |		Load_Top	At_Offset_3
07fd e025       | %  |		Load	0x0,0x25
07fe e242       | B  |		Load	0x1,0x42
07ff 0096       |    |		Execute	Package,Entry
0800 0217       |    |		Execute	Heap_Access,All_Reference
0801 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0802 0007       |    |		Action	Break_Optional
0803 4805       |H   |		Short_Literal	0x5
0804 e7fe       |    |		Load	0x3,-0x2
0805 e025       | %  |		Load	0x0,0x25
0806 e242       | B  |		Load	0x1,0x42
0807 0096       |    |		Execute	Package,Entry
0808 0217       |    |		Execute	Heap_Access,All_Reference
0809 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
080a 0007       |    |		Action	Break_Optional
080b			BODY_07f8:
080b e7fd       |    |		Load	0x3,-0x3
080c 6804       |h   |		Jump_Zero	0x811
080d 00d9       |    |		Load_Top	At_Offset_1
080e 00d9       |    |		Load_Top	At_Offset_1
080f 8049       | I  |		Call	0x0,0x49
0810 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0811 00d8       |    |		Load_Top	At_Offset_0
0812 00da       |    |		Load_Top	At_Offset_2
0813 8049       | I  |		Call	0x0,0x49
0814 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0815 0000 0000  |    |		.XXX[0x3]
0817 0000       |    |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 4800       |H   |		Short_Literal	0x0
081c e7fe       |    |		Load	0x3,-0x2
081d e7ff       |    |		Load	0x3,-0x1
081e 8404       |    |		Call	0x2,0x4
081f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823       | #  |		.CONST	0x0823								; Address of begin
0821 0004       |    |		.CONST	0x0004								; Address of exception handler
0822 0001       |    |		.CONST	0x0001								; Number of locals
0823			BODY_0820:
0823			INIT_0820:
0823 4801       |H   |		Short_Literal	0x1
0824 e7fe       |    |		Load	0x3,-0x2
0825 e7ff       |    |		Load	0x3,-0x1
0826 8404       |    |		Call	0x2,0x4
0827 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0849       | I  |		.CONST	0x0849								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0008       |    |		.CONST	0x0008								; Number of locals
082b			INIT_0828:
082b e00d       |    |		Load	0x0,0xd
082c e242       | B  |		Load	0x1,0x42
082d 0098       |    |		Execute	Package,Field_Read_Dynamic
082e 0322       | "  |		Declare_Variable	Record
082f 4801       |H   |		Short_Literal	0x1
0830 e5ff       |    |		Load	0x2,-0x1
0831 0219       |    |		Execute	Heap_Access,All_Read
0832 e02e       | .  |		Load	0x0,0x2e
0833 e242       | B  |		Load	0x1,0x42
0834 0096       |    |		Execute	Package,Entry
0835 00d9       |    |		Load_Top	At_Offset_1
0836 017d       | }  |		Execute	Record,Structure_Write
0837 e00c       |    |		Load	0x0,0xc
0838 e242       | B  |		Load	0x1,0x42
0839 0098       |    |		Execute	Package,Field_Read_Dynamic
083a 0322       | "  |		Declare_Variable	Record
083b e237       | 7  |		Load	0x1,0x37
083c 0322       | "  |		Declare_Variable	Record
083d 00d8       |    |		Load_Top	At_Offset_0
083e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
083f 00ea       |    |		Load_Encached	Null_String_Cache
0840 e403       |    |		Load	0x2,0x3
0841 e402       |    |		Load	0x2,0x2
0842 e24c       | L  |		Load	0x1,0x4c
0843 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0844 e007       |    |		Load	0x0,0x7
0845 029f 094b  |   K|		Declare_Subprogram	INIT_0948,For_Call
0847 029f 0963  |   c|		Declare_Subprogram	INIT_0960,For_Call
0849			BODY_0828:
0849 8607       |    |		Call	0x3,0x7
084a 00cf       |    |		Action	Mark_Auxiliary
084b 7819       |x   |		Jump	0x865
084c e602       |    |		Load	0x3,0x2
084d e03b       | ;  |		Load	0x0,0x3b
084e e242       | B  |		Load	0x1,0x42
084f 0096       |    |		Execute	Package,Entry
0850 e603       |    |		Load	0x3,0x3
0851 017d       | }  |		Execute	Record,Structure_Write
0852 e603       |    |		Load	0x3,0x3
0853 e022       | "  |		Load	0x0,0x22
0854 e242       | B  |		Load	0x1,0x42
0855 0096       |    |		Execute	Package,Entry
0856 0f02       |    |		Execute_Immediate	Equal,0x2
0857 6807       |h   |		Jump_Zero	0x85f
0858 e603       |    |		Load	0x3,0x3
0859 e04a       | J  |		Load	0x0,0x4a
085a e242       | B  |		Load	0x1,0x42
085b 0096       |    |		Execute	Package,Entry
085c e604       |    |		Load	0x3,0x4
085d 017d       | }  |		Execute	Record,Structure_Write
085e 8608       |    |		Call	0x3,0x8
085f e602       |    |		Load	0x3,0x2
0860 e036       | 6  |		Load	0x0,0x36
0861 e242       | B  |		Load	0x1,0x42
0862 0096       |    |		Execute	Package,Entry
0863 00d1       |    |		Pop_Control	Pop_Count_1
0864 00c9       |    |		Action	Pop_Auxiliary_Loop
0865 e602       |    |		Load	0x3,0x2
0866 e037       | 7  |		Load	0x0,0x37
0867 e242       | B  |		Load	0x1,0x42
0868 0096       |    |		Execute	Package,Entry
0869 6fe2       |o   |		Jump_Zero	0x84c
086a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
086b 0000 0000  |    |		.BLANK	0000[0x5]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0889       |    |		.CONST	0x0889								; Address of begin
0871 0004       |    |		.CONST	0x0004								; Address of exception handler
0872 0006       |    |		.CONST	0x0006								; Number of locals
0873			INIT_0870:
0873 e00c       |    |		Load	0x0,0xc
0874 e242       | B  |		Load	0x1,0x42
0875 0098       |    |		Execute	Package,Field_Read_Dynamic
0876 0322       | "  |		Declare_Variable	Record
0877 e404       |    |		Load	0x2,0x4
0878 e03b       | ;  |		Load	0x0,0x3b
0879 e242       | B  |		Load	0x1,0x42
087a 0096       |    |		Execute	Package,Entry
087b 00d9       |    |		Load_Top	At_Offset_1
087c 017d       | }  |		Execute	Record,Structure_Write
087d e237       | 7  |		Load	0x1,0x37
087e 0322       | "  |		Declare_Variable	Record
087f 00d8       |    |		Load_Top	At_Offset_0
0880 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0881 e005       |    |		Load	0x0,0x5
0882 0007       |    |		Action	Break_Optional
0883 e04b       | K  |		Load	0x0,0x4b
0884 0322       | "  |		Declare_Variable	Record
0885 00d8       |    |		Load_Top	At_Offset_0
0886 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0887 e04c       | L  |		Load	0x0,0x4c
0888 0007       |    |		Action	Break_Optional
0889			BODY_0870:
0889 e602       |    |		Load	0x3,0x2
088a e022       | "  |		Load	0x0,0x22
088b e242       | B  |		Load	0x1,0x42
088c 0096       |    |		Execute	Package,Entry
088d 0f02       |    |		Execute_Immediate	Equal,0x2
088e 682a       |h*  |		Jump_Zero	0x8b9
088f e602       |    |		Load	0x3,0x2
0890 e04a       | J  |		Load	0x0,0x4a
0891 e242       | B  |		Load	0x1,0x42
0892 0096       |    |		Execute	Package,Entry
0893 e603       |    |		Load	0x3,0x3
0894 017d       | }  |		Execute	Record,Structure_Write
0895 00db       |    |		Load_Top	At_Offset_3
0896 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0897 7021       |p!  |		Jump_Nonzero	0x8b9
0898 4802       |H   |		Short_Literal	0x2
0899 e602       |    |		Load	0x3,0x2
089a e025       | %  |		Load	0x0,0x25
089b e242       | B  |		Load	0x1,0x42
089c 0096       |    |		Execute	Package,Entry
089d 0217       |    |		Execute	Heap_Access,All_Reference
089e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
089f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
08a0 e402       |    |		Load	0x2,0x2
08a1 804d       | M  |		Call	0x0,0x4d
08a2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
08a3 00d8       |    |		Load_Top	At_Offset_0
08a4 00db       |    |		Load_Top	At_Offset_3
08a5 4800       |H   |		Short_Literal	0x0
08a6 804e       | N  |		Call	0x0,0x4e
08a7 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
08a8 e406       |    |		Load	0x2,0x6
08a9 00d9       |    |		Load_Top	At_Offset_1
08aa 804f       | O  |		Call	0x0,0x4f
08ab c406       |    |		Store	0x2,0x6
08ac e402       |    |		Load	0x2,0x2
08ad 00d9       |    |		Load_Top	At_Offset_1
08ae 8050       | P  |		Call	0x0,0x50
08af 00da       |    |		Load_Top	At_Offset_2
08b0 017d       | }  |		Execute	Record,Structure_Write
08b1 e403       |    |		Load	0x2,0x3
08b2 00da       |    |		Load_Top	At_Offset_2
08b3 8051       | Q  |		Call	0x0,0x51
08b4 c403       |    |		Store	0x2,0x3
08b5 00d8       |    |		Load_Top	At_Offset_0
08b6 4800       |H   |		Short_Literal	0x0
08b7 8052       | R  |		Call	0x0,0x52
08b8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
08b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ba 0000 0000  |    |		.BLANK	0000[0x6]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08cc       |    |		.CONST	0x08cc								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0003       |    |		.CONST	0x0003								; Number of locals
08c3			INIT_08c0:
08c3 e5ff       |    |		Load	0x2,-0x1
08c4 0217       |    |		Execute	Heap_Access,All_Reference
08c5 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
08c6 e053       | S  |		Load	0x0,0x53
08c7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
08c8 4804       |H   |		Short_Literal	0x4
08c9 e243       | C  |		Load	0x1,0x43
08ca 01d7       |    |		Execute	Vector,Field_Read
08cb 0007       |    |		Action	Break_Optional
08cc			BODY_08c0:
08cc 00d9       |    |		Load_Top	At_Offset_1
08cd 01db       |    |		Execute	Vector,Length
08ce 00d9       |    |		Load_Top	At_Offset_1
08cf 027a       | z  |		Execute	Discrete,Less_Equal
08d0 6803       |h   |		Jump_Zero	0x8d4
08d1 00d9       |    |		Load_Top	At_Offset_1
08d2 00cb       |    |		Action	Pop_Block_With_Result
08d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d4 00d9       |    |		Load_Top	At_Offset_1
08d5 01dd       |    |		Execute	Vector,First
08d6 00da       |    |		Load_Top	At_Offset_2
08d7 01dd       |    |		Execute	Vector,First
08d8 0aff       |    |		Execute_Immediate	Plus,-0x1
08d9 00da       |    |		Load_Top	At_Offset_2
08da 0273       | s  |		Execute	Discrete,Plus
08db 00d8       |    |		Load_Top	At_Offset_0
08dc 00e2       |    |		Load_Encached	Integer_Cache
08dd 0260       | `  |		Execute	Discrete,In_Type
08de 7001       |p   |		Jump_Nonzero	0x8e0
08df 0801       |    |		Execute_Immediate	Raise,0x1
08e0 00db       |    |		Load_Top	At_Offset_3
08e1 01cf       |    |		Execute	Vector,Slice_Read
08e2 00cb       |    |		Action	Pop_Block_With_Result
08e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e4 0000 0000  |    |		.BLANK	0000[0x4]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08f2       |    |		.CONST	0x08f2								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0002       |    |		.CONST	0x0002								; Number of locals
08eb			INIT_08e8:
08eb e23b       | ;  |		Load	0x1,0x3b
08ec 4801       |H   |		Short_Literal	0x1
08ed e402       |    |		Load	0x2,0x2
08ee e025       | %  |		Load	0x0,0x25
08ef e242       | B  |		Load	0x1,0x42
08f0 0096       |    |		Execute	Package,Entry
08f1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
08f2			BODY_08e8:
08f2 00d8       |    |		Load_Top	At_Offset_0
08f3 0217       |    |		Execute	Heap_Access,All_Reference
08f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08f5 0f01       |    |		Execute_Immediate	Equal,0x1
08f6 680a       |h   |		Jump_Zero	0x901
08f7 e5fd       |    |		Load	0x2,-0x3
08f8 00d9       |    |		Load_Top	At_Offset_1
08f9 0217       |    |		Execute	Heap_Access,All_Reference
08fa 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
08fb 00d8       |    |		Load_Top	At_Offset_0
08fc 4801       |H   |		Short_Literal	0x1
08fd e402       |    |		Load	0x2,0x2
08fe e054       | T  |		Load	0x0,0x54
08ff e242       | B  |		Load	0x1,0x42
0900 0096       |    |		Execute	Package,Entry
0901 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0902 0000 0000  |    |		.BLANK	0000[0x6]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 0915       |    |		.CONST	0x0915								; Address of begin
0909 0004       |    |		.CONST	0x0004								; Address of exception handler
090a 0002       |    |		.CONST	0x0002								; Number of locals
090b			INIT_0908:
090b e608       |    |		Load	0x3,0x8
090c 00d8       |    |		Load_Top	At_Offset_0
090d e23a       | :  |		Load	0x1,0x3a
090e 1c06       |    |		Execute_Immediate	Run_Utility,0x6
090f e23b       | ;  |		Load	0x1,0x3b
0910 e5fd       |    |		Load	0x2,-0x3
0911 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0912 00d8       |    |		Load_Top	At_Offset_0
0913 0217       |    |		Execute	Heap_Access,All_Reference
0914 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0915			BODY_0908:
0915 e608       |    |		Load	0x3,0x8
0916 0aff       |    |		Execute_Immediate	Plus,-0x1
0917 4604       |F   |		Jump_Case	0x5
0918 780d       |x   |		Jump	0x926								; case 0x0
0919 7811       |x   |		Jump	0x92b								; case 0x1
091a 7815       |x   |		Jump	0x930								; case 0x2
091b 781a       |x   |		Jump	0x936								; case 0x3
091c 7800       |x   |		Jump	0x91d								; case 0x4
091d e5fd       |    |		Load	0x2,-0x3
091e e405       |    |		Load	0x2,0x5
091f e602       |    |		Load	0x3,0x2
0920 e603       |    |		Load	0x3,0x3
0921 8055       | U  |		Call	0x0,0x55
0922 00d9       |    |		Load_Top	At_Offset_1
0923 0217       |    |		Execute	Heap_Access,All_Reference
0924 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0925 7815       |x   |		Jump	0x93b
0926 4800       |H   |		Short_Literal	0x0
0927 00d9       |    |		Load_Top	At_Offset_1
0928 0217       |    |		Execute	Heap_Access,All_Reference
0929 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
092a 7810       |x   |		Jump	0x93b
092b e602       |    |		Load	0x3,0x2
092c 00d9       |    |		Load_Top	At_Offset_1
092d 0217       |    |		Execute	Heap_Access,All_Reference
092e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
092f 780b       |x   |		Jump	0x93b
0930 e603       |    |		Load	0x3,0x3
0931 8056       | V  |		Call	0x0,0x56
0932 00d9       |    |		Load_Top	At_Offset_1
0933 0217       |    |		Execute	Heap_Access,All_Reference
0934 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0935 7805       |x   |		Jump	0x93b
0936 e603       |    |		Load	0x3,0x3
0937 8057       | W  |		Call	0x0,0x57
0938 00d9       |    |		Load_Top	At_Offset_1
0939 0217       |    |		Execute	Heap_Access,All_Reference
093a 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
093b 00d8       |    |		Load_Top	At_Offset_0
093c e608       |    |		Load	0x3,0x8
093d e604       |    |		Load	0x3,0x4
093e e054       | T  |		Load	0x0,0x54
093f e242       | B  |		Load	0x1,0x42
0940 0096       |    |		Execute	Package,Entry
0941 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0942 0000 0000  |    |		.BLANK	0000[0x6]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b       | K  |		.CONST	0x094b								; Address of begin
0949 0950       | P  |		.CONST	0x0950								; Address of exception handler
094a 0001       |    |		.CONST	0x0001								; Number of locals
094b			BODY_0948:
094b			INIT_0948:
094b e605       |    |		Load	0x3,0x5
094c e007       |    |		Load	0x0,0x7
094d 1c02       |    |		Execute_Immediate	Run_Utility,0x2
094e a606       |    |		Store_Unchecked	0x3,0x6
094f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0950			TRAP_0948:
0950 010e       |    |		Execute	Exception,Is_Constraint_Error
0951 6809       |h   |		Jump_Zero	0x95b
0952 4800       |H   |		Short_Literal	0x0
0953 0092 09a5  |    |		Action	Push_String_Extended,0x9a5					; "Filter Command invalid filter value -> "
0955 e605       |    |		Load	0x3,0x5
0956 01cc       |    |		Execute	Vector,Catenate
0957 820e       |    |		Call	0x1,0xe
0958 00cc       |    |		Action	Pop_Block
0959 00cc       |    |		Action	Pop_Block
095a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
095b 0100       |    |		Execute	Exception,Raise
095c 0000 0000  |    |		.BLANK	0000[0x4]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 096d       | m  |		.CONST	0x096d								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0002       |    |		.CONST	0x0002								; Number of locals
0963			INIT_0960:
0963 4803       |H   |		Short_Literal	0x3
0964 e603       |    |		Load	0x3,0x3
0965 e025       | %  |		Load	0x0,0x25
0966 e242       | B  |		Load	0x1,0x42
0967 0096       |    |		Execute	Package,Entry
0968 0217       |    |		Execute	Heap_Access,All_Reference
0969 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
096a e606       |    |		Load	0x3,0x6
096b 027f       |    |		Execute	Discrete,Equal
096c 0007       |    |		Action	Break_Optional
096d			BODY_0960:
096d e403       |    |		Load	0x2,0x3
096e 0f01       |    |		Execute_Immediate	Equal,0x1
096f 00d9       |    |		Load_Top	At_Offset_1
0970 0f00       |    |		Execute_Immediate	Equal,0x0
0971 0279       | y  |		Execute	Discrete,And
0972 7005       |p   |		Jump_Nonzero	0x978
0973 e403       |    |		Load	0x2,0x3
0974 0f02       |    |		Execute_Immediate	Equal,0x2
0975 00d9       |    |		Load_Top	At_Offset_1
0976 0279       | y  |		Execute	Discrete,And
0977 680d       |h   |		Jump_Zero	0x985
0978 4801       |H   |		Short_Literal	0x1
0979 e604       |    |		Load	0x3,0x4
097a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
097b e604       |    |		Load	0x3,0x4
097c e603       |    |		Load	0x3,0x3
097d e046       | F  |		Load	0x0,0x46
097e e242       | B  |		Load	0x1,0x42
097f 0096       |    |		Execute	Package,Entry
0980 4800       |H   |		Short_Literal	0x0
0981 e603       |    |		Load	0x3,0x3
0982 e058       | X  |		Load	0x0,0x58
0983 e242       | B  |		Load	0x1,0x42
0984 0096       |    |		Execute	Package,Entry
0985 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0986 ; --------------------------------------------------------------------------------------
0986 ; STRING TABLE
0986 ; --------------------------------------------------------------------------------------
0986 0042       | B  |		.STRTAB	0x0042->0x09a7							; "NIL_COL"
0987 0047       | G  |		.STRTAB	0x0047->0x09aa							; "MARK_COL"
0988 004d       | M  |		.STRTAB	0x004d->0x09ae							; "TCR_NAME_COL"
0989 0057       | W  |		.STRTAB	0x0057->0x09b4							; "PASS_FAIL_COL"
098a 0062       | b  |		.STRTAB	0x0062->0x09bb							; "EXECUTION_TIME_COL"
098b 0072       | r  |		.STRTAB	0x0072->0x09c4							; "COVERAGE_COL"
098c 007c       | |  |		.STRTAB	0x007c->0x09ca							; "NONE"
098d 007e       | ~  |		.STRTAB	0x007e->0x09cc							; "ALPHABETIC"
098e 0086       |    |		.STRTAB	0x0086->0x09d1							; "EVALUATION_STATUS"
098f 0095       |    |		.STRTAB	0x0095->0x09d9							; "COVERAGE"
0990 009b       |    |		.STRTAB	0x009b->0x09dd							; "INVERTED_COVERAGE"
0991 00aa       |    |		.STRTAB	0x00aa->0x09e6							; "NONE"
0992 00ac       |    |		.STRTAB	0x00ac->0x09e8							; "STATUS"
0993 00b0       |    |		.STRTAB	0x00b0->0x09eb							; "EXCLUDE_STATUS"
0994 00bc       |    |		.STRTAB	0x00bc->0x09f2							; " "
0995 00bb       |    |		.STRTAB	0x00bb->0x09f2							; "          TEST CASE"
0996 00cc       |    |		.STRTAB	0x00cc->0x09fc							; " STATUS"
0997 00d1       |    |		.STRTAB	0x00d1->0x09ff							; "EXE TIME"
0998 00d7       |    |		.STRTAB	0x00d7->0x0a03							; "others => Unspecified"
0999 00ea       |    |		.STRTAB	0x00ea->0x0a0e							; "Explain"
099a 00ef       |    |		.STRTAB	0x00ef->0x0a11							; "Definition not supported here"
099b 010a       |    |		.STRTAB	0x010a->0x0a20							; "Elide"
099c 010d       |    |		.STRTAB	0x010d->0x0a22							; "Expand"
099d 0111       |    |		.STRTAB	0x0111->0x0a25							; "Delete"
099e 0115       |    |		.STRTAB	0x0115->0x0a28							; "No operation defined for value "
099f 0132       | 2  |		.STRTAB	0x0132->0x0a38							; "Filter Command => "
09a0 0142       | B  |		.STRTAB	0x0142->0x0a41							; " not supported"
09a1 014e       | N  |		.STRTAB	0x014e->0x0a48							; "TR"
09a2 014e       | N  |		.STRTAB	0x014e->0x0a49							; "*"
09a3 014d       | M  |		.STRTAB	0x014d->0x0a49							; "EXCEPTION"
09a4 0154       | T  |		.STRTAB	0x0154->0x0a4e							; "No Coverage information available for this test case"
09a5 0186       |    |		.STRTAB	0x0186->0x0a68							; "Filter Command invalid filter value -> "
09a6 01ab       |    |		.STREND 0x01ab->0x0a7b
09a7 4e49 4c5f  |NIL_|		.STRTAB_STRINGS
0a7c 0000 0000  |    |		.BLANK	0000[0x4]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; Debug Table
0a80 ; --------------------------------------------------------------------------------------
0a80 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x3c33,0x0000,0x0001,0x0000
0a86 0000 0000  |    |		.BLANK	0000[0x17a]