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

⟦8de0fd93d⟧

    Length: 8192 (0x2000)
    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 0e78       | x  |		.CONST	0x0e78								; 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 8009       |    |		.CONST	0x8009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0196       |    |		.CONST	0x0196								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 005b       | [  |		.CONST	0x005b								; Number of locals
000b			INIT_0008:
000b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
000d 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
000f 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0011 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0013 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0015 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0017 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0019 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
001b 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
001d 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
001f 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0021 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0023 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0025 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0027 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0029 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
002b 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
002d 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
002f 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0031 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
0033 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
0035 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
0037 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
0039 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
003b 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
003d 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
003f 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
0041 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
0043 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
0045 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
0047 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0049 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
004b 029a 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Visible,Unelaborated
004d 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
004e 00d8       |    |		Load_Top	At_Offset_0
004f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0050 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0051 4802       |H   |		Short_Literal	0x2
0052 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0053 00d8       |    |		Load_Top	At_Offset_0
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 4818       |H   |		Short_Literal	0x18
0056 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0057 4804       |H   |		Short_Literal	0x4
0058 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0059 00d8       |    |		Load_Top	At_Offset_0
005a 02a0       |    |		Declare_Subprogram	Null_Subprogram
005b 4818       |H   |		Short_Literal	0x18
005c 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
005d 00bf       |    |		Action	Accept_Activation
005e 0093 0000  |    |		push_full_address	0x0
0060 61a3       |a   |		Indirect_Literal	Discrete,0x204,{0x80000000, 0x00050000}
0061 0273       | s  |		Execute	Discrete,Plus
0062 e20d       |    |		Load	0x1,0xd
0063 619c       |a   |		Indirect_Literal	Discrete,0x200,{0x00000000, 0x0000ffff}
0064 0279       | y  |		Execute	Discrete,And
0065 0273       | s  |		Execute	Discrete,Plus
0066 e002       |    |		Load	0x0,0x2
0067 0273       | s  |		Execute	Discrete,Plus
0068 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0069 e003       |    |		Load	0x0,0x3
006a 0387       |    |		Declare_Variable	Package
006b 00d8       |    |		Load_Top	At_Offset_0
006c 020f       |    |		Execute	Module,Activate
006d 4800       |H   |		Short_Literal	0x0
006e 4804       |H   |		Short_Literal	0x4
006f 029f 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Call
0071 03fd       |    |		Declare_Type	Discrete,Defined
0072 4801       |H   |		Short_Literal	0x1
0073 4804       |H   |		Short_Literal	0x4
0074 00da       |    |		Load_Top	At_Offset_2
0075 03f8       |    |		Declare_Type	Discrete,Constrained
0076 4800       |H   |		Short_Literal	0x0
0077 4802       |H   |		Short_Literal	0x2
0078 029f 0663  |   c|		Declare_Subprogram	INIT_0660,For_Call
007a 03fd       |    |		Declare_Type	Discrete,Defined
007b 4800       |H   |		Short_Literal	0x0
007c 4803       |H   |		Short_Literal	0x3
007d 029f 068b  |    |		Declare_Subprogram	INIT_0688,For_Call
007f 03fd       |    |		Declare_Type	Discrete,Defined
0080 e004       |    |		Load	0x0,0x4
0081 e005       |    |		Load	0x0,0x5
0082 00db       |    |		Load_Top	At_Offset_3
0083 00db       |    |		Load_Top	At_Offset_3
0084 00e1       |    |		Load_Encached	Boolean_Cache
0085 e006       |    |		Load	0x0,0x6
0086 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0087 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
0089 4806       |H   |		Short_Literal	0x6
008a 032d       | -  |		Declare_Type	Record,Defined
008b 00d8       |    |		Load_Top	At_Offset_0
008c 02a0       |    |		Declare_Subprogram	Null_Subprogram
008d 03ad       |    |		Declare_Type	Heap_Access,Defined
008e 00d8       |    |		Load_Top	At_Offset_0
008f 0007       |    |		Action	Break_Optional
0090 00e1       |    |		Load_Encached	Boolean_Cache
0091 029f 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Call
0093 4801       |H   |		Short_Literal	0x1
0094 032d       | -  |		Declare_Type	Record,Defined
0095 00d8       |    |		Load_Top	At_Offset_0
0096 0322       | "  |		Declare_Variable	Record
0097 00d8       |    |		Load_Top	At_Offset_0
0098 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0099 e237       | 7  |		Load	0x1,0x37
009a 4801       |H   |		Short_Literal	0x1
009b 00e1       |    |		Load_Encached	Boolean_Cache
009c 4801       |H   |		Short_Literal	0x1
009d e005       |    |		Load	0x0,0x5
009e 4802       |H   |		Short_Literal	0x2
009f e007       |    |		Load	0x0,0x7
00a0 e005       |    |		Load	0x0,0x5
00a1 4801       |H   |		Short_Literal	0x1
00a2 e005       |    |		Load	0x0,0x5
00a3 029f 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Call
00a5 4805       |H   |		Short_Literal	0x5
00a6 4800       |H   |		Short_Literal	0x0
00a7 4804       |H   |		Short_Literal	0x4
00a8 4800       |H   |		Short_Literal	0x0
00a9 4801       |H   |		Short_Literal	0x1
00aa 031d       |    |		Declare_Type	Variant_Record,Defined
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ad 03ad       |    |		Declare_Type	Heap_Access,Defined
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 0007       |    |		Action	Break_Optional
00b0 029b 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Unelaborated
00b2 029b 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call,Unelaborated
00b4 029b 0773  |   s|		Declare_Subprogram	INIT_0770,For_Outer_Call,Unelaborated
00b6 029b 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call,Unelaborated
00b8 029b 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Unelaborated
00ba 029b 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Outer_Call,Unelaborated
00bc 029b 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Outer_Call,Unelaborated
00be 0093 0000  |    |		push_full_address	0x0
00c0 613b       |a;  |		Indirect_Literal	Discrete,0x1fc,{0x80000000, 0x00040000}
00c1 0273       | s  |		Execute	Discrete,Plus
00c2 e20d       |    |		Load	0x1,0xd
00c3 613c       |a<  |		Indirect_Literal	Discrete,0x200,{0x00000000, 0x0000ffff}
00c4 0279       | y  |		Execute	Discrete,And
00c5 0273       | s  |		Execute	Discrete,Plus
00c6 e008       |    |		Load	0x0,0x8
00c7 0273       | s  |		Execute	Discrete,Plus
00c8 e237       | 7  |		Load	0x1,0x37
00c9 e23c       | <  |		Load	0x1,0x3c
00ca e23d       | =  |		Load	0x1,0x3d
00cb 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
00cc 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
00cd e23e       | >  |		Load	0x1,0x3e
00ce e23f       | ?  |		Load	0x1,0x3f
00cf 0320       |    |		Declare_Variable	Record,Duplicate
00d0 00cd       |    |		Action	Spare6_Action
00d1 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
00d2 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00d3 e241       | A  |		Load	0x1,0x41
00d4 e242       | B  |		Load	0x1,0x42
00d5 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00d6 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
00d7 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
00d8 0092 0d0c  |    |		Action	Push_String_Extended,0xd0c					; "  "
00da e009       |    |		Load	0x0,0x9
00db 0387       |    |		Declare_Variable	Package
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 020f       |    |		Execute	Module,Activate
00de e00a       |    |		Load	0x0,0xa
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 0098       |    |		Execute	Package,Field_Read_Dynamic
00e1 e230       | 0  |		Load	0x1,0x30
00e2 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
00e3 e00b       |    |		Load	0x0,0xb
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 0098       |    |		Execute	Package,Field_Read_Dynamic
00e6 e232       | 2  |		Load	0x1,0x32
00e7 0325       | %  |		Complete_Type	Record,By_Renaming
00e8 e233       | 3  |		Load	0x1,0x33
00e9 03c4       |    |		Complete_Type	Access,By_Component_Completion
00ea e00c       |    |		Load	0x0,0xc
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec 0098       |    |		Execute	Package,Field_Read_Dynamic
00ed e234       | 4  |		Load	0x1,0x34
00ee 0325       | %  |		Complete_Type	Record,By_Renaming
00ef e235       | 5  |		Load	0x1,0x35
00f0 03c4       |    |		Complete_Type	Access,By_Component_Completion
00f1 e00d       |    |		Load	0x0,0xd
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 0098       |    |		Execute	Package,Field_Read_Dynamic
00f4 0337       | 7  |		Declare_Variable	Array
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 0335       | 5  |		Declare_Variable	Array,Duplicate
00f7 00cd       |    |		Action	Spare6_Action
00f8 4800       |H   |		Short_Literal	0x0
00f9 4800       |H   |		Short_Literal	0x0
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 4801       |H   |		Short_Literal	0x1
00fd 4801       |H   |		Short_Literal	0x1
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 481e       |H   |		Short_Literal	0x1e
0101 4802       |H   |		Short_Literal	0x2
0102 00da       |    |		Load_Top	At_Offset_2
0103 01d6       |    |		Execute	Vector,Field_Write
0104 481e       |H   |		Short_Literal	0x1e
0105 4803       |H   |		Short_Literal	0x3
0106 00da       |    |		Load_Top	At_Offset_2
0107 01d6       |    |		Execute	Vector,Field_Write
0108 4814       |H   |		Short_Literal	0x14
0109 4804       |H   |		Short_Literal	0x4
010a 00da       |    |		Load_Top	At_Offset_2
010b 01d6       |    |		Execute	Vector,Field_Write
010c 00d9       |    |		Load_Top	At_Offset_1
010d 01d4       |    |		Execute	Vector,Structure_Write
010e 0092 0d0d  |    |		Action	Push_String_Extended,0xd0d					; "     TEST CASES"
0110 0092 0d0e  |    |		Action	Push_String_Extended,0xd0e					; "SUBJECT PROGRAM"
0112 0092 0d0f  |    |		Action	Push_String_Extended,0xd0f					; "KEYWORDS"
0114 4801       |H   |		Short_Literal	0x1
0115 4850       |HP  |		Short_Literal	0x50
0116 00e9       |    |		Load_Encached	String_Cache
0117 035b       | [  |		Declare_Type	Array,Constrained
0118 0337       | 7  |		Declare_Variable	Array
0119 4850       |HP  |		Short_Literal	0x50
011a 4801       |H   |		Short_Literal	0x1
011b 482d       |H-  |		Short_Literal	0x2d
011c 00d9       |    |		Load_Top	At_Offset_1
011d e24f       | O  |		Load	0x1,0x4f
011e 01d6       |    |		Execute	Vector,Field_Write
011f 3ffb       |?   |		Loop_Increasing	0x11b
0120 e00e       |    |		Load	0x0,0xe
0121 e00f       |    |		Load	0x0,0xf
0122 e23a       | :  |		Load	0x1,0x3a
0123 4800       |H   |		Short_Literal	0x0
0124 4801       |H   |		Short_Literal	0x1
0125 4803       |H   |		Short_Literal	0x3
0126 0092 0d10  |    |		Action	Push_String_Extended,0xd10					; "others => Unspecified"
0128 00ea       |    |		Load_Encached	Null_String_Cache
0129 00ea       |    |		Load_Encached	Null_String_Cache
012a 4801       |H   |		Short_Literal	0x1
012b 4803       |H   |		Short_Literal	0x3
012c e010       |    |		Load	0x0,0x10
012d 0387       |    |		Declare_Variable	Package
012e 00d8       |    |		Load_Top	At_Offset_0
012f 020f       |    |		Execute	Module,Activate
0130 029d 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call
0132 029d 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call
0134 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0135 00c7       |    |		Action	Elaborate_Subprogram
0136 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0139 00c7       |    |		Action	Elaborate_Subprogram
013a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
013b 00c7       |    |		Action	Elaborate_Subprogram
013c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 029d 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call
0140 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 029d 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call
0146 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 029d 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call
0154 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 029d 08db  |    |		Declare_Subprogram	INIT_08d8,For_Outer_Call
015a 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 029d 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Outer_Call
015e 029d 0933  |   3|		Declare_Subprogram	INIT_0930,For_Outer_Call
0160 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 029d 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call
016a 029d 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call
016c 029d 0963  |   c|		Declare_Subprogram	INIT_0960,For_Outer_Call
016e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
017b 00c7       |    |		Action	Elaborate_Subprogram
017c 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
017d 00c7       |    |		Action	Elaborate_Subprogram
017e 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
017f 00c7       |    |		Action	Elaborate_Subprogram
0180 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0181 00c7       |    |		Action	Elaborate_Subprogram
0182 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0183 00c7       |    |		Action	Elaborate_Subprogram
0184 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0185 00c7       |    |		Action	Elaborate_Subprogram
0186 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0187 00c7       |    |		Action	Elaborate_Subprogram
0188 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0189 00c7       |    |		Action	Elaborate_Subprogram
018a 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
018b 00c7       |    |		Action	Elaborate_Subprogram
018c 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
018d 00c7       |    |		Action	Elaborate_Subprogram
018e 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0191 00c7       |    |		Action	Elaborate_Subprogram
0192 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0195 00c7       |    |		Action	Elaborate_Subprogram
0196			BODY_0008:
0196 00bc       |    |		Action	Signal_Activated
0197 00bb       |    |		Action	Signal_Completion
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01ad       |    |		.CONST	0x01ad								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0007       |    |		.CONST	0x0007								; Number of locals
019b			INIT_0198:
019b e231       | 1  |		Load	0x1,0x31
019c 0007       |    |		Action	Break_Optional
019d e011       |    |		Load	0x0,0x11
019e 0322       | "  |		Declare_Variable	Record
019f e007       |    |		Load	0x0,0x7
01a0 0322       | "  |		Declare_Variable	Record
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a3 e005       |    |		Load	0x0,0x5
01a4 0007       |    |		Action	Break_Optional
01a5 e23c       | <  |		Load	0x1,0x3c
01a6 e5fd       |    |		Load	0x2,-0x3
01a7 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 0217       |    |		Execute	Heap_Access,All_Reference
01aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ab 029f 096b  |   k|		Declare_Subprogram	INIT_0968,For_Call
01ad			BODY_0198:
01ad e5fd       |    |		Load	0x2,-0x3
01ae e012       |    |		Load	0x0,0x12
01af e24a       | J  |		Load	0x1,0x4a
01b0 0096       |    |		Execute	Package,Entry
01b1 e231       | 1  |		Load	0x1,0x31
01b2 e5fd       |    |		Load	0x2,-0x3
01b3 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01b4 a402       |    |		Store_Unchecked	0x2,0x2
01b5 e5fd       |    |		Load	0x2,-0x3
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 8013       |    |		Call	0x0,0x13
01b8 8014       |    |		Call	0x0,0x14
01b9 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01ba e5ff       |    |		Load	0x2,-0x1
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 0217       |    |		Execute	Heap_Access,All_Reference
01bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01be 00da       |    |		Load_Top	At_Offset_2
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 0217       |    |		Execute	Heap_Access,All_Reference
01c1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c2 4800       |H   |		Short_Literal	0x0
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 0217       |    |		Execute	Heap_Access,All_Reference
01c5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01c6 4800       |H   |		Short_Literal	0x0
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 0217       |    |		Execute	Heap_Access,All_Reference
01c9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01ca e5fd       |    |		Load	0x2,-0x3
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 0217       |    |		Execute	Heap_Access,All_Reference
01cd 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01ce 4800       |H   |		Short_Literal	0x0
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 0217       |    |		Execute	Heap_Access,All_Reference
01d1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 e402       |    |		Load	0x2,0x2
01d4 0219       |    |		Execute	Heap_Access,All_Read
01d5 e015       |    |		Load	0x0,0x15
01d6 e24a       | J  |		Load	0x1,0x4a
01d7 0096       |    |		Execute	Package,Entry
01d8 8407       |    |		Call	0x2,0x7
01d9 e5ff       |    |		Load	0x2,-0x1
01da 8016       |    |		Call	0x0,0x16
01db e403       |    |		Load	0x2,0x3
01dc 017d       | }  |		Execute	Record,Structure_Write
01dd 00cf       |    |		Action	Mark_Auxiliary
01de 780e       |x   |		Jump	0x1ed
01df e403       |    |		Load	0x2,0x3
01e0 8017       |    |		Call	0x0,0x17
01e1 e404       |    |		Load	0x2,0x4
01e2 017d       | }  |		Execute	Record,Structure_Write
01e3 4801       |H   |		Short_Literal	0x1
01e4 e5fd       |    |		Load	0x2,-0x3
01e5 4fff       |O   |		Short_Literal	-0x1
01e6 e404       |    |		Load	0x2,0x4
01e7 e402       |    |		Load	0x2,0x2
01e8 8252       | R  |		Call	0x1,0x52
01e9 e403       |    |		Load	0x2,0x3
01ea 8018       |    |		Call	0x0,0x18
01eb 00d1       |    |		Pop_Control	Pop_Count_1
01ec 00c9       |    |		Action	Pop_Auxiliary_Loop
01ed e403       |    |		Load	0x2,0x3
01ee 8019       |    |		Call	0x0,0x19
01ef 6fef       |o   |		Jump_Zero	0x1df
01f0 00ce       |    |		Action	Pop_Auxiliary
01f1 e24b       | K  |		Load	0x1,0x4b
01f2 e402       |    |		Load	0x2,0x2
01f3 0219       |    |		Execute	Heap_Access,All_Read
01f4 e01a       |    |		Load	0x0,0x1a
01f5 e24a       | J  |		Load	0x1,0x4a
01f6 0096       |    |		Execute	Package,Entry
01f7 e402       |    |		Load	0x2,0x2
01f8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01f9 0000 0000  |    |		.XXX[0x3]
01fb 0000       |    |
01fc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0200 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0204 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0222       | "  |		.CONST	0x0222								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0004       |    |		.CONST	0x0004								; Number of locals
0213			INIT_0210:
0213 4806       |H   |		Short_Literal	0x6
0214 e01b       |    |		Load	0x0,0x1b
0215 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0216 00d8       |    |		Load_Top	At_Offset_0
0217 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0218 00db       |    |		Load_Top	At_Offset_3
0219 0219       |    |		Execute	Heap_Access,All_Read
021a e01c       |    |		Load	0x0,0x1c
021b e24a       | J  |		Load	0x1,0x4a
021c 0096       |    |		Execute	Package,Entry
021d 0217       |    |		Execute	Heap_Access,All_Reference
021e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021f 801d       |    |		Call	0x0,0x1d
0220 e005       |    |		Load	0x0,0x5
0221 0007       |    |		Action	Break_Optional
0222			BODY_0210:
0222 e5fe       |    |		Load	0x2,-0x2
0223 00da       |    |		Load_Top	At_Offset_2
0224 8014       |    |		Call	0x0,0x14
0225 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0226 00da       |    |		Load_Top	At_Offset_2
0227 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0228 00d9       |    |		Load_Top	At_Offset_1
0229 00d9       |    |		Load_Top	At_Offset_1
022a 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c e5fe       |    |		Load	0x2,-0x2
022d 00db       |    |		Load_Top	At_Offset_3
022e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
022f 00da       |    |		Load_Top	At_Offset_2
0230 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0240       | @  |		.CONST	0x0240								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c 0219       |    |		Execute	Heap_Access,All_Read
023d e01c       |    |		Load	0x0,0x1c
023e e24a       | J  |		Load	0x1,0x4a
023f 0096       |    |		Execute	Package,Entry
0240			BODY_0238:
0240 00d8       |    |		Load_Top	At_Offset_0
0241 0217       |    |		Execute	Heap_Access,All_Reference
0242 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0243 801d       |    |		Call	0x0,0x1d
0244 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024e       | N  |		.CONST	0x024e								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b e231       | 1  |		Load	0x1,0x31
024c e5fe       |    |		Load	0x2,-0x2
024d 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
024e			BODY_0248:
024e 00d8       |    |		Load_Top	At_Offset_0
024f 00d8       |    |		Load_Top	At_Offset_0
0250 0219       |    |		Execute	Heap_Access,All_Read
0251 e00a       |    |		Load	0x0,0xa
0252 e24a       | J  |		Load	0x1,0x4a
0253 0098       |    |		Execute	Package,Field_Read_Dynamic
0254 0216       |    |		Execute	Heap_Access,Convert
0255 e5fe       |    |		Load	0x2,-0x2
0256 e5ff       |    |		Load	0x2,-0x1
0257 0219       |    |		Execute	Heap_Access,All_Read
0258 e01e       |    |		Load	0x0,0x1e
0259 e24a       | J  |		Load	0x1,0x4a
025a 0096       |    |		Execute	Package,Entry
025b 00d9       |    |		Load_Top	At_Offset_1
025c 0218       |    |		Execute	Heap_Access,All_Write
025d 00d1       |    |		Pop_Control	Pop_Count_1
025e 00d8       |    |		Load_Top	At_Offset_0
025f a5fd       |    |		Store_Unchecked	0x2,-0x3
0260 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0274       | t  |		.CONST	0x0274								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0003       |    |		.CONST	0x0003								; Number of locals
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 0219       |    |		Execute	Heap_Access,All_Read
026d e01c       |    |		Load	0x0,0x1c
026e e24a       | J  |		Load	0x1,0x4a
026f 0096       |    |		Execute	Package,Entry
0270 0217       |    |		Execute	Heap_Access,All_Reference
0271 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0272 029f 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Call
0274			BODY_0268:
0274 e5fe       |    |		Load	0x2,-0x2
0275 e5fd       |    |		Load	0x2,-0x3
0276 0278       | x  |		Execute	Discrete,Or
0277 6801       |h   |		Jump_Zero	0x279
0278 8403       |    |		Call	0x2,0x3
0279 4801       |H   |		Short_Literal	0x1
027a a5fc       |    |		Store_Unchecked	0x2,-0x4
027b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00ea       |    |		Load_Encached	Null_String_Cache
0284 0092 0d11  |    |		Action	Push_String_Extended,0xd11					; "Explain"
0286 e01f       |    |		Load	0x0,0x1f
0287 e236       | 6  |		Load	0x1,0x36
0288 0096       |    |		Execute	Package,Entry
0289 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028a 0000 0000  |    |		.BLANK	0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02ab       |    |		.CONST	0x02ab								; Address of begin
0291 02f0       |    |		.CONST	0x02f0								; Address of exception handler
0292 0007       |    |		.CONST	0x0007								; Number of locals
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 0219       |    |		Execute	Heap_Access,All_Read
0295 e020       |    |		Load	0x0,0x20
0296 e24a       | J  |		Load	0x1,0x4a
0297 0096       |    |		Execute	Package,Entry
0298 e5fe       |    |		Load	0x2,-0x2
0299 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029a 00d8       |    |		Load_Top	At_Offset_0
029b 00e4       |    |		Load_Encached	Positive_Cache
029c 0260       | `  |		Execute	Discrete,In_Type
029d 7001       |p   |		Jump_Nonzero	0x29f
029e 0801       |    |		Execute_Immediate	Raise,0x1
029f e5ff       |    |		Load	0x2,-0x1
02a0 0219       |    |		Execute	Heap_Access,All_Read
02a1 e021       | !  |		Load	0x0,0x21
02a2 e24a       | J  |		Load	0x1,0x4a
02a3 0096       |    |		Execute	Package,Entry
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 8022       | "  |		Call	0x0,0x22
02a6 e237       | 7  |		Load	0x1,0x37
02a7 0007       |    |		Action	Break_Optional
02a8 e005       |    |		Load	0x0,0x5
02a9 029f 09f3  |    |		Declare_Subprogram	INIT_09f0,For_Call
02ab			BODY_0290:
02ab 8407       |    |		Call	0x2,0x7
02ac e403       |    |		Load	0x2,0x3
02ad e023       | #  |		Load	0x0,0x23
02ae e24a       | J  |		Load	0x1,0x4a
02af 0096       |    |		Execute	Package,Entry
02b0 0f02       |    |		Execute_Immediate	Equal,0x2
02b1 7006       |p   |		Jump_Nonzero	0x2b8
02b2 7800       |x   |		Jump	0x2b3
02b3 4800       |H   |		Short_Literal	0x0
02b4 0092 0d12  |    |		Action	Push_String_Extended,0xd12					; "Definition not defined for this selected line"
02b6 820e       |    |		Call	0x1,0xe
02b7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b8 00db       |    |		Load_Top	At_Offset_3
02b9 680d       |h   |		Jump_Zero	0x2c7
02ba e5fe       |    |		Load	0x2,-0x2
02bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bc e5fe       |    |		Load	0x2,-0x2
02bd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02be 027f       |    |		Execute	Discrete,Equal
02bf 6807       |h   |		Jump_Zero	0x2c7
02c0 e402       |    |		Load	0x2,0x2
02c1 4802       |H   |		Short_Literal	0x2
02c2 e403       |    |		Load	0x2,0x3
02c3 8254       | T  |		Call	0x1,0x54
02c4 e5fd       |    |		Load	0x2,-0x3
02c5 016d       | m  |		Execute	Variant_Record,Structure_Write
02c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c7 e5fe       |    |		Load	0x2,-0x2
02c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c9 0d04       |    |		Execute_Immediate	Less,0x4
02ca 6803       |h   |		Jump_Zero	0x2ce
02cb 4802       |H   |		Short_Literal	0x2
02cc 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02cd 7808       |x   |		Jump	0x2d6
02ce e5fe       |    |		Load	0x2,-0x2
02cf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 0219       |    |		Execute	Heap_Access,All_Read
02d2 e024       | $  |		Load	0x0,0x24
02d3 e24a       | J  |		Load	0x1,0x4a
02d4 0096       |    |		Execute	Package,Entry
02d5 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 4604       |F   |		Jump_Case	0x5
02d8 7804       |x   |		Jump	0x2dd								; case 0x0
02d9 780f       |x   |		Jump	0x2e9								; case 0x1
02da 7807       |x   |		Jump	0x2e2								; case 0x2
02db 7806       |x   |		Jump	0x2e2								; case 0x3
02dc 7800       |x   |		Jump	0x2dd								; case 0x4
02dd 4800       |H   |		Short_Literal	0x0
02de 0092 0d13  |    |		Action	Push_String_Extended,0xd13					; "Definition not supported on this line for this column"
02e0 820e       |    |		Call	0x1,0xe
02e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e2 e402       |    |		Load	0x2,0x2
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 e403       |    |		Load	0x2,0x3
02e5 8254       | T  |		Call	0x1,0x54
02e6 e5fd       |    |		Load	0x2,-0x3
02e7 016d       | m  |		Execute	Variant_Record,Structure_Write
02e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e9 e402       |    |		Load	0x2,0x2
02ea 4802       |H   |		Short_Literal	0x2
02eb e403       |    |		Load	0x2,0x3
02ec 8254       | T  |		Call	0x1,0x54
02ed e5fd       |    |		Load	0x2,-0x3
02ee 016d       | m  |		Execute	Variant_Record,Structure_Write
02ef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f0			TRAP_0290:
02f0 e025       | %  |		Load	0x0,0x25
02f1 e24a       | J  |		Load	0x1,0x4a
02f2 0098       |    |		Execute	Package,Field_Read_Dynamic
02f3 010f       |    |		Execute	Exception,Equal
02f4 6805       |h   |		Jump_Zero	0x2fa
02f5 4800       |H   |		Short_Literal	0x0
02f6 0092 0d14  |    |		Action	Push_String_Extended,0xd14					; "Definition not defined for this cursor position"
02f8 820e       |    |		Call	0x1,0xe
02f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fa 0100       |    |		Execute	Exception,Raise
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030e       |    |		.CONST	0x030e								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 e01b       |    |		Load	0x0,0x1b
0304 02ff       |    |		Declare_Variable	Variant_Record
0305 00db       |    |		Load_Top	At_Offset_3
0306 0219       |    |		Execute	Heap_Access,All_Read
0307 e020       |    |		Load	0x0,0x20
0308 e24a       | J  |		Load	0x1,0x4a
0309 0096       |    |		Execute	Package,Entry
030a 4810       |H   |		Short_Literal	0x10
030b 8026       | &  |		Call	0x0,0x26
030c 00d9       |    |		Load_Top	At_Offset_1
030d 016d       | m  |		Execute	Variant_Record,Structure_Write
030e			BODY_0300:
030e 00d8       |    |		Load_Top	At_Offset_0
030f 00d8       |    |		Load_Top	At_Offset_0
0310 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0311 00d8       |    |		Load_Top	At_Offset_0
0312 e5ff       |    |		Load	0x2,-0x1
0313 0219       |    |		Execute	Heap_Access,All_Read
0314 e020       |    |		Load	0x0,0x20
0315 e24a       | J  |		Load	0x1,0x4a
0316 0096       |    |		Execute	Package,Entry
0317 e5ff       |    |		Load	0x2,-0x1
0318 8212       |    |		Call	0x1,0x12
0319 8027       | '  |		Call	0x0,0x27
031a 8014       |    |		Call	0x0,0x14
031b 00d9       |    |		Load_Top	At_Offset_1
031c 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
031d 00d1       |    |		Pop_Control	Pop_Count_1
031e 00d0       |    |		Action	Swap_Control
031f 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0320 4800       |H   |		Short_Literal	0x0
0321 a5fd       |    |		Store_Unchecked	0x2,-0x3
0322 00d8       |    |		Load_Top	At_Offset_0
0323 e5fe       |    |		Load	0x2,-0x2
0324 016d       | m  |		Execute	Variant_Record,Structure_Write
0325 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00ea       |    |		Load_Encached	Null_String_Cache
032c 0092 0d15  |    |		Action	Push_String_Extended,0xd15					; "Elide"
032e e01f       |    |		Load	0x0,0x1f
032f e236       | 6  |		Load	0x1,0x36
0330 0096       |    |		Execute	Package,Entry
0331 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0332 0000 0000  |    |		.BLANK	0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00ea       |    |		Load_Encached	Null_String_Cache
033c 0092 0d16  |    |		Action	Push_String_Extended,0xd16					; "Expand"
033e e01f       |    |		Load	0x0,0x1f
033f e236       | 6  |		Load	0x1,0x36
0340 0096       |    |		Execute	Package,Entry
0341 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0342 0000 0000  |    |		.BLANK	0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0350       | P  |		.CONST	0x0350								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 0219       |    |		Execute	Heap_Access,All_Read
034d e01c       |    |		Load	0x0,0x1c
034e e24a       | J  |		Load	0x1,0x4a
034f 0096       |    |		Execute	Package,Entry
0350			BODY_0348:
0350 4801       |H   |		Short_Literal	0x1
0351 00d9       |    |		Load_Top	At_Offset_1
0352 0217       |    |		Execute	Heap_Access,All_Reference
0353 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0354 00d8       |    |		Load_Top	At_Offset_0
0355 e5ff       |    |		Load	0x2,-0x1
0356 0219       |    |		Execute	Heap_Access,All_Read
0357 e015       |    |		Load	0x0,0x15
0358 e24a       | J  |		Load	0x1,0x4a
0359 0096       |    |		Execute	Package,Entry
035a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
035b 0000 0000  |    |		.BLANK	0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368       | h  |		.CONST	0x0368								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 0219       |    |		Execute	Heap_Access,All_Read
0365 e01c       |    |		Load	0x0,0x1c
0366 e24a       | J  |		Load	0x1,0x4a
0367 0096       |    |		Execute	Package,Entry
0368			BODY_0360:
0368 4801       |H   |		Short_Literal	0x1
0369 00d9       |    |		Load_Top	At_Offset_1
036a 0217       |    |		Execute	Heap_Access,All_Reference
036b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
036c 00d8       |    |		Load_Top	At_Offset_0
036d e5ff       |    |		Load	0x2,-0x1
036e 0219       |    |		Execute	Heap_Access,All_Read
036f e015       |    |		Load	0x0,0x15
0370 e24a       | J  |		Load	0x1,0x4a
0371 0096       |    |		Execute	Package,Entry
0372 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0373 0000 0000  |    |		.BLANK	0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 038f       |    |		.CONST	0x038f								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0006       |    |		.CONST	0x0006								; Number of locals
037b			INIT_0378:
037b 00db       |    |		Load_Top	At_Offset_3
037c 0219       |    |		Execute	Heap_Access,All_Read
037d e01c       |    |		Load	0x0,0x1c
037e e24a       | J  |		Load	0x1,0x4a
037f 0096       |    |		Execute	Package,Entry
0380 0217       |    |		Execute	Heap_Access,All_Reference
0381 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0382 0007       |    |		Action	Break_Optional
0383 e00c       |    |		Load	0x0,0xc
0384 e24a       | J  |		Load	0x1,0x4a
0385 0098       |    |		Execute	Package,Field_Read_Dynamic
0386 0322       | "  |		Declare_Variable	Record
0387 00d8       |    |		Load_Top	At_Offset_0
0388 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0389 00e1       |    |		Load_Encached	Boolean_Cache
038a 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
038b 029f 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Call
038d 029f 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Call
038f			BODY_0378:
038f 8405       |    |		Call	0x2,0x5
0390 4801       |H   |		Short_Literal	0x1
0391 e5fe       |    |		Load	0x2,-0x2
0392 0219       |    |		Execute	Heap_Access,All_Read
0393 e028       | (  |		Load	0x0,0x28
0394 e24a       | J  |		Load	0x1,0x4a
0395 0096       |    |		Execute	Package,Entry
0396 e403       |    |		Load	0x2,0x3
0397 017d       | }  |		Execute	Record,Structure_Write
0398 00cf       |    |		Action	Mark_Auxiliary
0399 7802       |x   |		Jump	0x39c
039a 8406       |    |		Call	0x2,0x6
039b 00c9       |    |		Action	Pop_Auxiliary_Loop
039c e403       |    |		Load	0x2,0x3
039d e029       | )  |		Load	0x0,0x29
039e e24a       | J  |		Load	0x1,0x4a
039f 0096       |    |		Execute	Package,Entry
03a0 6ff9       |o   |		Jump_Zero	0x39a
03a1 00ce       |    |		Action	Pop_Auxiliary
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 700e       |p   |		Jump_Nonzero	0x3b2
03a4 e402       |    |		Load	0x2,0x2
03a5 802a       | *  |		Call	0x0,0x2a
03a6 c402       |    |		Store	0x2,0x2
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 0219       |    |		Execute	Heap_Access,All_Read
03a9 e01c       |    |		Load	0x0,0x1c
03aa e24a       | J  |		Load	0x1,0x4a
03ab 0096       |    |		Execute	Package,Entry
03ac 0217       |    |		Execute	Heap_Access,All_Reference
03ad 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03ae 802b       | +  |		Call	0x0,0x2b
03af e402       |    |		Load	0x2,0x2
03b0 820f       |    |		Call	0x1,0xf
03b1 a5fe       |    |		Store_Unchecked	0x2,-0x2
03b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b3 0000 0000  |    |		.BLANK	0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03bc 0000 0000  |    |		.BLANK	0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c7       |    |		.CONST	0x03c7								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0003       |    |		.CONST	0x0003								; Number of locals
03c3			INIT_03c0:
03c3 00db       |    |		Load_Top	At_Offset_3
03c4 8022       | "  |		Call	0x0,0x22
03c5 029f 0a63  |   c|		Declare_Subprogram	INIT_0a60,For_Call
03c7			BODY_03c0:
03c7 00d9       |    |		Load_Top	At_Offset_1
03c8 6804       |h   |		Jump_Zero	0x3cd
03c9 e5ff       |    |		Load	0x2,-0x1
03ca 8251       | Q  |		Call	0x1,0x51
03cb 8403       |    |		Call	0x2,0x3
03cc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cd 4800       |H   |		Short_Literal	0x0
03ce 0092 0d17  |    |		Action	Push_String_Extended,0xd17					; "Delete requires a selected line"
03d0 820e       |    |		Call	0x1,0xe
03d1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d2 0000 0000  |    |		.BLANK	0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 8251       | Q  |		Call	0x1,0x51
03dd 0092 0d18  |    |		Action	Push_String_Extended,0xd18					; "Insert"
03df e5fe       |    |		Load	0x2,-0x2
03e0 e5ff       |    |		Load	0x2,-0x1
03e1 8258       | X  |		Call	0x1,0x58
03e2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e3 0000 0000  |    |		.BLANK	0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 8251       | Q  |		Call	0x1,0x51
03ed 0092 0d19  |    |		Action	Push_String_Extended,0xd19					; "Edit"
03ef e5fe       |    |		Load	0x2,-0x2
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 8258       | X  |		Call	0x1,0x58
03f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f3 0000 0000  |    |		.BLANK	0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0422       | "  |		.CONST	0x0422								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0008       |    |		.CONST	0x0008								; Number of locals
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 0219       |    |		Execute	Heap_Access,All_Read
03fd e01c       |    |		Load	0x0,0x1c
03fe e24a       | J  |		Load	0x1,0x4a
03ff 0096       |    |		Execute	Package,Entry
0400 e02c       | ,  |		Load	0x0,0x2c
0401 e24a       | J  |		Load	0x1,0x4a
0402 0095       |    |		Execute	Package,Field_Reference_Dynamic
0403 00c6       |    |		Action	Check_Subprogram_Elaborated
0404 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
0405 0093 0000  |    |		push_full_address	0x0
0407 6068       |`h  |		Indirect_Literal	Discrete,0x470,{0x80000000, 0x00020000}
0408 0273       | s  |		Execute	Discrete,Plus
0409 e20d       |    |		Load	0x1,0xd
040a 6061       |`a  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x0000ffff}
040b 0279       | y  |		Execute	Discrete,And
040c 0273       | s  |		Execute	Discrete,Plus
040d e02d       | -  |		Load	0x0,0x2d
040e 0273       | s  |		Execute	Discrete,Plus
040f 4805       |H   |		Short_Literal	0x5
0410 0007       |    |		Action	Break_Optional
0411 e02c       | ,  |		Load	0x0,0x2c
0412 e24a       | J  |		Load	0x1,0x4a
0413 0095       |    |		Execute	Package,Field_Reference_Dynamic
0414 00c6       |    |		Action	Check_Subprogram_Elaborated
0415 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
0416 0093 0000  |    |		push_full_address	0x0
0418 604f       |`O  |		Indirect_Literal	Discrete,0x468,{0x80000000, 0x00010000}
0419 0273       | s  |		Execute	Discrete,Plus
041a e20d       |    |		Load	0x1,0xd
041b 6050       |`P  |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x0000ffff}
041c 0279       | y  |		Execute	Discrete,And
041d 0273       | s  |		Execute	Discrete,Plus
041e e02e       | .  |		Load	0x0,0x2e
041f 0273       | s  |		Execute	Discrete,Plus
0420 4808       |H   |		Short_Literal	0x8
0421 0007       |    |		Action	Break_Optional
0422			BODY_03f8:
0422 e5fe       |    |		Load	0x2,-0x2
0423 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0424 700b       |p   |		Jump_Nonzero	0x430
0425 0f02       |    |		Execute_Immediate	Equal,0x2
0426 7022       |p"  |		Jump_Nonzero	0x449
0427 4800       |H   |		Short_Literal	0x0
0428 0092 0d1a  |    |		Action	Push_String_Extended,0xd1a					; "No operation defined for value "
042a e5fe       |    |		Load	0x2,-0x2
042b 00e0       |    |		Load_Encached	Standard_Cache
042c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
042d 01cc       |    |		Execute	Vector,Catenate
042e 820e       |    |		Call	0x1,0xe
042f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0430 00d1       |    |		Pop_Control	Pop_Count_1
0431 4801       |H   |		Short_Literal	0x1
0432 e402       |    |		Load	0x2,0x2
0433 0217       |    |		Execute	Heap_Access,All_Reference
0434 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0435 602e       |`.  |		Indirect_Literal	Discrete,0x464,{0x00000000, 0x7fffffff}
0436 4801       |H   |		Short_Literal	0x1
0437 e5ff       |    |		Load	0x2,-0x1
0438 0219       |    |		Execute	Heap_Access,All_Read
0439 4803       |H   |		Short_Literal	0x3
043a 4802       |H   |		Short_Literal	0x2
043b 0099       |    |		Action	Reference_Dynamic
043c 4804       |H   |		Short_Literal	0x4
043d 4802       |H   |		Short_Literal	0x2
043e 0099       |    |		Action	Reference_Dynamic
043f e02c       | ,  |		Load	0x0,0x2c
0440 e24a       | J  |		Load	0x1,0x4a
0441 0096       |    |		Execute	Package,Entry
0442 e402       |    |		Load	0x2,0x2
0443 e5ff       |    |		Load	0x2,-0x1
0444 0219       |    |		Execute	Heap_Access,All_Read
0445 e015       |    |		Load	0x0,0x15
0446 e24a       | J  |		Load	0x1,0x4a
0447 0096       |    |		Execute	Package,Entry
0448 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0449 4802       |H   |		Short_Literal	0x2
044a e402       |    |		Load	0x2,0x2
044b 0217       |    |		Execute	Heap_Access,All_Reference
044c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
044d 6016       |`   |		Indirect_Literal	Discrete,0x464,{0x00000000, 0x7fffffff}
044e 4801       |H   |		Short_Literal	0x1
044f e5ff       |    |		Load	0x2,-0x1
0450 0219       |    |		Execute	Heap_Access,All_Read
0451 4806       |H   |		Short_Literal	0x6
0452 4802       |H   |		Short_Literal	0x2
0453 0099       |    |		Action	Reference_Dynamic
0454 4807       |H   |		Short_Literal	0x7
0455 4802       |H   |		Short_Literal	0x2
0456 0099       |    |		Action	Reference_Dynamic
0457 e02c       | ,  |		Load	0x0,0x2c
0458 e24a       | J  |		Load	0x1,0x4a
0459 0096       |    |		Execute	Package,Entry
045a e402       |    |		Load	0x2,0x2
045b e5ff       |    |		Load	0x2,-0x1
045c 0219       |    |		Execute	Heap_Access,All_Read
045d e015       |    |		Load	0x0,0x15
045e e24a       | J  |		Load	0x1,0x4a
045f 0096       |    |		Execute	Package,Entry
0460 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0461 0000 0000  |    |		.XXX[0x3]
0463 0000       |    |
0464 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0468 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
046c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0470 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0474 0000 0000  |    |		.BLANK	0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 048d       |    |		.CONST	0x048d								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0006       |    |		.CONST	0x0006								; Number of locals
047b			INIT_0478:
047b 00db       |    |		Load_Top	At_Offset_3
047c e250       | P  |		Load	0x1,0x50
047d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
047e e00c       |    |		Load	0x0,0xc
047f e24a       | J  |		Load	0x1,0x4a
0480 0098       |    |		Execute	Package,Field_Read_Dynamic
0481 0322       | "  |		Declare_Variable	Record
0482 00d8       |    |		Load_Top	At_Offset_0
0483 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0484 e23a       | :  |		Load	0x1,0x3a
0485 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0486 e5ff       |    |		Load	0x2,-0x1
0487 0219       |    |		Execute	Heap_Access,All_Read
0488 e01c       |    |		Load	0x0,0x1c
0489 e24a       | J  |		Load	0x1,0x4a
048a 0096       |    |		Execute	Package,Entry
048b 029f 0a8b  |    |		Declare_Subprogram	INIT_0a88,For_Call
048d			BODY_0478:
048d 4801       |H   |		Short_Literal	0x1
048e e402       |    |		Load	0x2,0x2
048f e250       | P  |		Load	0x1,0x50
0490 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0491 6807       |h   |		Jump_Zero	0x499
0492 4801       |H   |		Short_Literal	0x1
0493 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0494 00da       |    |		Load_Top	At_Offset_2
0495 00da       |    |		Load_Top	At_Offset_2
0496 0217       |    |		Execute	Heap_Access,All_Reference
0497 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0498 7822       |x"  |		Jump	0x4bb
0499 4802       |H   |		Short_Literal	0x2
049a e402       |    |		Load	0x2,0x2
049b e250       | P  |		Load	0x1,0x50
049c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
049d 6807       |h   |		Jump_Zero	0x4a5
049e 4802       |H   |		Short_Literal	0x2
049f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
04a0 00da       |    |		Load_Top	At_Offset_2
04a1 00da       |    |		Load_Top	At_Offset_2
04a2 0217       |    |		Execute	Heap_Access,All_Reference
04a3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04a4 7816       |x   |		Jump	0x4bb
04a5 4803       |H   |		Short_Literal	0x3
04a6 e402       |    |		Load	0x2,0x2
04a7 e250       | P  |		Load	0x1,0x50
04a8 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04a9 6807       |h   |		Jump_Zero	0x4b1
04aa 4803       |H   |		Short_Literal	0x3
04ab 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
04ac 00da       |    |		Load_Top	At_Offset_2
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 0217       |    |		Execute	Heap_Access,All_Reference
04af 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04b0 780a       |x   |		Jump	0x4bb
04b1 4800       |H   |		Short_Literal	0x0
04b2 0092 0d1b  |    |		Action	Push_String_Extended,0xd1b					; "Filter Command => "
04b4 e5fe       |    |		Load	0x2,-0x2
04b5 01cc       |    |		Execute	Vector,Catenate
04b6 0092 0d1c  |    |		Action	Push_String_Extended,0xd1c					; " not supported"
04b8 01cc       |    |		Execute	Vector,Catenate
04b9 820e       |    |		Call	0x1,0xe
04ba 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04bb 8406       |    |		Call	0x2,0x6
04bc 00d9       |    |		Load_Top	At_Offset_1
04bd e5ff       |    |		Load	0x2,-0x1
04be 0219       |    |		Execute	Heap_Access,All_Read
04bf e015       |    |		Load	0x0,0x15
04c0 e24a       | J  |		Load	0x1,0x4a
04c1 0096       |    |		Execute	Package,Entry
04c2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00ea       |    |		Load_Encached	Null_String_Cache
04cc 0092 0d1d  |    |		Action	Push_String_Extended,0xd1d					; "Show_Differential"
04ce e01f       |    |		Load	0x0,0x1f
04cf e236       | 6  |		Load	0x1,0x36
04d0 0096       |    |		Execute	Package,Entry
04d1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04d2 0000 0000  |    |		.BLANK	0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04ed       |    |		.CONST	0x04ed								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0004       |    |		.CONST	0x0004								; Number of locals
04db			INIT_04d8:
04db 00da       |    |		Load_Top	At_Offset_2
04dc 0219       |    |		Execute	Heap_Access,All_Read
04dd e01c       |    |		Load	0x0,0x1c
04de e24a       | J  |		Load	0x1,0x4a
04df 0096       |    |		Execute	Package,Entry
04e0 e005       |    |		Load	0x0,0x5
04e1 e02f       | /  |		Load	0x0,0x2f
04e2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e3 e030       | 0  |		Load	0x0,0x30
04e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e5 e5fe       |    |		Load	0x2,-0x2
04e6 8014       |    |		Call	0x0,0x14
04e7 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04e8 e031       | 1  |		Load	0x0,0x31
04e9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ea 02c7       |    |		Declare_Variable	Any
04eb 00d8       |    |		Load_Top	At_Offset_0
04ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04ed			BODY_04d8:
04ed e5ff       |    |		Load	0x2,-0x1
04ee 8253       | S  |		Call	0x1,0x53
04ef 00da       |    |		Load_Top	At_Offset_2
04f0 0219       |    |		Execute	Heap_Access,All_Read
04f1 00d8       |    |		Load_Top	At_Offset_0
04f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04f3 00db       |    |		Load_Top	At_Offset_3
04f4 8032       | 2  |		Call	0x0,0x32
04f5 00d9       |    |		Load_Top	At_Offset_1
04f6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04f7 00d1       |    |		Pop_Control	Pop_Count_1
04f8 00d8       |    |		Load_Top	At_Offset_0
04f9 00db       |    |		Load_Top	At_Offset_3
04fa 0217       |    |		Execute	Heap_Access,All_Reference
04fb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04fc 8033       | 3  |		Call	0x0,0x33
04fd c404       |    |		Store	0x2,0x4
04fe 4802       |H   |		Short_Literal	0x2
04ff 00da       |    |		Load_Top	At_Offset_2
0500 00da       |    |		Load_Top	At_Offset_2
0501 8034       | 4  |		Call	0x0,0x34
0502 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0503 0000 0000  |    |		.BLANK	0000[0x5]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0529       | )  |		.CONST	0x0529								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0007       |    |		.CONST	0x0007								; Number of locals
050b			INIT_0508:
050b 00da       |    |		Load_Top	At_Offset_2
050c 0219       |    |		Execute	Heap_Access,All_Read
050d e01c       |    |		Load	0x0,0x1c
050e e24a       | J  |		Load	0x1,0x4a
050f 0096       |    |		Execute	Package,Entry
0510 e031       | 1  |		Load	0x0,0x31
0511 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0512 02c7       |    |		Declare_Variable	Any
0513 00d8       |    |		Load_Top	At_Offset_0
0514 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0515 00d9       |    |		Load_Top	At_Offset_1
0516 0217       |    |		Execute	Heap_Access,All_Reference
0517 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0518 8035       | 5  |		Call	0x0,0x35
0519 e005       |    |		Load	0x0,0x5
051a 00db       |    |		Load_Top	At_Offset_3
051b 0217       |    |		Execute	Heap_Access,All_Reference
051c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
051d e5fd       |    |		Load	0x2,-0x3
051e 8014       |    |		Call	0x0,0x14
051f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0520 e007       |    |		Load	0x0,0x7
0521 0322       | "  |		Declare_Variable	Record
0522 00d8       |    |		Load_Top	At_Offset_0
0523 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0524 e5fe       |    |		Load	0x2,-0x2
0525 e5ff       |    |		Load	0x2,-0x1
0526 8257       | W  |		Call	0x1,0x57
0527 00e2       |    |		Load_Encached	Integer_Cache
0528 03f1       |    |		Declare_Variable	Discrete,With_Value
0529			BODY_0508:
0529 00d8       |    |		Load_Top	At_Offset_0
052a 4fff       |O   |		Short_Literal	-0x1
052b 027f       |    |		Execute	Discrete,Equal
052c 6801       |h   |		Jump_Zero	0x52e
052d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
052e 00db       |    |		Load_Top	At_Offset_3
052f 00db       |    |		Load_Top	At_Offset_3
0530 4800       |H   |		Short_Literal	0x0
0531 8036       | 6  |		Call	0x0,0x36
0532 c404       |    |		Store	0x2,0x4
0533 e403       |    |		Load	0x2,0x3
0534 e404       |    |		Load	0x2,0x4
0535 8037       | 7  |		Call	0x0,0x37
0536 c403       |    |		Store	0x2,0x3
0537 4802       |H   |		Short_Literal	0x2
0538 00db       |    |		Load_Top	At_Offset_3
0539 e403       |    |		Load	0x2,0x3
053a 8034       | 4  |		Call	0x0,0x34
053b e402       |    |		Load	0x2,0x2
053c 0217       |    |		Execute	Heap_Access,All_Reference
053d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
053e e404       |    |		Load	0x2,0x4
053f 8038       | 8  |		Call	0x0,0x38
0540 00da       |    |		Load_Top	At_Offset_2
0541 017d       | }  |		Execute	Record,Structure_Write
0542 e402       |    |		Load	0x2,0x2
0543 0219       |    |		Execute	Heap_Access,All_Read
0544 00d8       |    |		Load_Top	At_Offset_0
0545 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0546 00da       |    |		Load_Top	At_Offset_2
0547 00d8       |    |		Load_Top	At_Offset_0
0548 00e3       |    |		Load_Encached	Natural_Cache
0549 0260       | `  |		Execute	Discrete,In_Type
054a 7001       |p   |		Jump_Nonzero	0x54c
054b 0801       |    |		Execute_Immediate	Raise,0x1
054c e406       |    |		Load	0x2,0x6
054d 8039       | 9  |		Call	0x0,0x39
054e 00d9       |    |		Load_Top	At_Offset_1
054f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0550 00d1       |    |		Pop_Control	Pop_Count_1
0551 4800       |H   |		Short_Literal	0x0
0552 e402       |    |		Load	0x2,0x2
0553 0217       |    |		Execute	Heap_Access,All_Reference
0554 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0555 00da       |    |		Load_Top	At_Offset_2
0556 e406       |    |		Load	0x2,0x6
0557 e5ff       |    |		Load	0x2,-0x1
0558 8252       | R  |		Call	0x1,0x52
0559 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
055a 0000 0000  |    |		.BLANK	0000[0x6]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056e       | n  |		.CONST	0x056e								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0005       |    |		.CONST	0x0005								; Number of locals
0563			INIT_0560:
0563 e00c       |    |		Load	0x0,0xc
0564 e24a       | J  |		Load	0x1,0x4a
0565 0098       |    |		Execute	Package,Field_Read_Dynamic
0566 0322       | "  |		Declare_Variable	Record
0567 00d8       |    |		Load_Top	At_Offset_0
0568 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0569 00e1       |    |		Load_Encached	Boolean_Cache
056a 029f 0ab3  |    |		Declare_Subprogram	INIT_0ab0,For_Call
056c 029f 0ad3  |    |		Declare_Subprogram	INIT_0ad0,For_Call
056e			BODY_0560:
056e 8404       |    |		Call	0x2,0x4
056f 4801       |H   |		Short_Literal	0x1
0570 e5ff       |    |		Load	0x2,-0x1
0571 0219       |    |		Execute	Heap_Access,All_Read
0572 e028       | (  |		Load	0x0,0x28
0573 e24a       | J  |		Load	0x1,0x4a
0574 0096       |    |		Execute	Package,Entry
0575 e402       |    |		Load	0x2,0x2
0576 017d       | }  |		Execute	Record,Structure_Write
0577 00cf       |    |		Action	Mark_Auxiliary
0578 7802       |x   |		Jump	0x57b
0579 8405       |    |		Call	0x2,0x5
057a 00c9       |    |		Action	Pop_Auxiliary_Loop
057b e402       |    |		Load	0x2,0x2
057c e029       | )  |		Load	0x0,0x29
057d e24a       | J  |		Load	0x1,0x4a
057e 0096       |    |		Execute	Package,Entry
057f 6ff9       |o   |		Jump_Zero	0x579
0580 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0581 0000 0000  |    |		.BLANK	0000[0x7]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b 00da       |    |		Load_Top	At_Offset_2
058c 0227       | '  |		Execute	Access,All_Reference
058d e03a       | :  |		Load	0x0,0x3a
058e e24a       | J  |		Load	0x1,0x4a
058f 0096       |    |		Execute	Package,Entry
0590 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0591 0000 0000  |    |		.BLANK	0000[0x7]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05a2       |    |		.CONST	0x05a2								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0003       |    |		.CONST	0x0003								; Number of locals
059b			INIT_0598:
059b 00da       |    |		Load_Top	At_Offset_2
059c 0219       |    |		Execute	Heap_Access,All_Read
059d e01c       |    |		Load	0x0,0x1c
059e e24a       | J  |		Load	0x1,0x4a
059f 0096       |    |		Execute	Package,Entry
05a0 0092 0d1e  |    |		Action	Push_String_Extended,0xd1e					; "TSET"
05a2			BODY_0598:
05a2 00d9       |    |		Load_Top	At_Offset_1
05a3 0217       |    |		Execute	Heap_Access,All_Reference
05a4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05a5 0f00       |    |		Execute_Immediate	Equal,0x0
05a6 00da       |    |		Load_Top	At_Offset_2
05a7 0217       |    |		Execute	Heap_Access,All_Reference
05a8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
05a9 0f00       |    |		Execute_Immediate	Equal,0x0
05aa 0279       | y  |		Execute	Discrete,And
05ab 6802       |h   |		Jump_Zero	0x5ae
05ac 00d8       |    |		Load_Top	At_Offset_0
05ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ae 4829       |H)  |		Short_Literal	0x29
05af 0092 0d1f  |    |		Action	Push_String_Extended,0xd1f					; "TSET by "
05b1 00db       |    |		Load_Top	At_Offset_3
05b2 0217       |    |		Execute	Heap_Access,All_Reference
05b3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05b4 e239       | 9  |		Load	0x1,0x39
05b5 011c       |    |		Execute	Any,Convert_Unchecked
05b6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05b7 01cc       |    |		Execute	Vector,Catenate
05b8 0092 0d20  |    |		Action	Push_String_Extended,0xd20					; " ("
05ba 01cc       |    |		Execute	Vector,Catenate
05bb 00db       |    |		Load_Top	At_Offset_3
05bc 0217       |    |		Execute	Heap_Access,All_Reference
05bd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
05be e23a       | :  |		Load	0x1,0x3a
05bf 011c       |    |		Execute	Any,Convert_Unchecked
05c0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05c1 01cc       |    |		Execute	Vector,Catenate
05c2 01cb       |    |		Execute	Vector,Append
05c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 00da       |    |		Load_Top	At_Offset_2
05cc 0219       |    |		Execute	Heap_Access,All_Read
05cd e01c       |    |		Load	0x0,0x1c
05ce e24a       | J  |		Load	0x1,0x4a
05cf 0096       |    |		Execute	Package,Entry
05d0 0217       |    |		Execute	Heap_Access,All_Reference
05d1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05d2 801d       |    |		Call	0x0,0x1d
05d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d4 0000 0000  |    |		.BLANK	0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 00da       |    |		Load_Top	At_Offset_2
05dc 8229       | )  |		Call	0x1,0x29
05dd e5fe       |    |		Load	0x2,-0x2
05de 8229       | )  |		Call	0x1,0x29
05df 01df       |    |		Execute	Vector,Equal
05e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e1 0000 0000  |    |		.BLANK	0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f0       |    |		.CONST	0x05f0								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0002       |    |		.CONST	0x0002								; Number of locals
05eb			INIT_05e8:
05eb 00da       |    |		Load_Top	At_Offset_2
05ec 0219       |    |		Execute	Heap_Access,All_Read
05ed e01c       |    |		Load	0x0,0x1c
05ee e24a       | J  |		Load	0x1,0x4a
05ef 0096       |    |		Execute	Package,Entry
05f0			BODY_05e8:
05f0 00d8       |    |		Load_Top	At_Offset_0
05f1 0217       |    |		Execute	Heap_Access,All_Reference
05f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05f3 803b       | ;  |		Call	0x0,0x3b
05f4 0f01       |    |		Execute_Immediate	Equal,0x1
05f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f6 0000 0000  |    |		.XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4801       |H   |		Short_Literal	0x1
05fc 00db       |    |		Load_Top	At_Offset_3
05fd 0219       |    |		Execute	Heap_Access,All_Read
05fe e028       | (  |		Load	0x0,0x28
05ff e24a       | J  |		Load	0x1,0x4a
0600 0096       |    |		Execute	Package,Entry
0601 e235       | 5  |		Load	0x1,0x35
0602 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0603 a5fe       |    |		Store_Unchecked	0x2,-0x2
0604 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
060c 0227       | '  |		Execute	Access,All_Reference
060d e029       | )  |		Load	0x0,0x29
060e e24a       | J  |		Load	0x1,0x4a
060f 0096       |    |		Execute	Package,Entry
0610 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0611 0000 0000  |    |		.BLANK	0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c 0227       | '  |		Execute	Access,All_Reference
061d e03c       | <  |		Load	0x0,0x3c
061e e24a       | J  |		Load	0x1,0x4a
061f 0096       |    |		Execute	Package,Entry
0620 e233       | 3  |		Load	0x1,0x33
0621 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0622 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0623 0000 0000  |    |		.BLANK	0000[0x5]
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 0229       | )  |		Execute	Access,All_Read
062d 00d8       |    |		Load_Top	At_Offset_0
062e e03d       | =  |		Load	0x0,0x3d
062f e24a       | J  |		Load	0x1,0x4a
0630 0096       |    |		Execute	Package,Entry
0631 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0632 0000 0000  |    |		.BLANK	0000[0x6]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b       | ;  |		.CONST	0x063b								; Address of begin
0639 0004       |    |		.CONST	0x0004								; Address of exception handler
063a 0001       |    |		.CONST	0x0001								; Number of locals
063b			BODY_0638:
063b			INIT_0638:
063b 4607       |F   |		Jump_Case	0x8
063c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
063d 7807       |x   |		Jump	0x645								; case 0x1
063e 780a       |x   |		Jump	0x649								; case 0x2
063f 780e       |x   |		Jump	0x64e								; case 0x3
0640 7811       |x   |		Jump	0x652								; case 0x4
0641 7812       |x   |		Jump	0x654								; case 0x5
0642 7813       |x   |		Jump	0x656								; case 0x6
0643 7816       |x   |		Jump	0x65a								; case 0x7
0644 4302       |C   |		.XXX[0x1]
0645 00da       |    |		Load_Top	At_Offset_2
0646 0091 0d00  |    |		Action	Push_String_Extended_Indexed,0xd00				; "NIL_COL"
0648 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0649 00db       |    |		Load_Top	At_Offset_3
064a 00db       |    |		Load_Top	At_Offset_3
064b 00e0       |    |		Load_Encached	Standard_Cache
064c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
064d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
064e 00da       |    |		Load_Top	At_Offset_2
064f 00e0       |    |		Load_Encached	Standard_Cache
0650 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0651 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0652 00db       |    |		Load_Top	At_Offset_3
0653 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0654 00db       |    |		Load_Top	At_Offset_3
0655 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0656 e237       | 7  |		Load	0x1,0x37
0657 00dc       |    |		Load_Top	At_Offset_4
0658 0267       | g  |		Execute	Discrete,Predecessor
0659 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
065a e237       | 7  |		Load	0x1,0x37
065b 00dc       |    |		Load_Top	At_Offset_4
065c 0268       | h  |		Execute	Discrete,Successor
065d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
065e 0000 0000  |    |		.XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 4607       |F   |		Jump_Case	0x8
0664 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0665 7807       |x   |		Jump	0x66d								; case 0x1
0666 780a       |x   |		Jump	0x671								; case 0x2
0667 780e       |x   |		Jump	0x676								; case 0x3
0668 7811       |x   |		Jump	0x67a								; case 0x4
0669 7812       |x   |		Jump	0x67c								; case 0x5
066a 7813       |x   |		Jump	0x67e								; case 0x6
066b 7816       |x   |		Jump	0x682								; case 0x7
066c 4302       |C   |		.XXX[0x1]
066d 00da       |    |		Load_Top	At_Offset_2
066e 0091 0d05  |    |		Action	Push_String_Extended_Indexed,0xd05				; "NONE"
0670 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0671 00db       |    |		Load_Top	At_Offset_3
0672 00db       |    |		Load_Top	At_Offset_3
0673 00e0       |    |		Load_Encached	Standard_Cache
0674 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0675 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0676 00da       |    |		Load_Top	At_Offset_2
0677 00e0       |    |		Load_Encached	Standard_Cache
0678 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0679 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
067a 00db       |    |		Load_Top	At_Offset_3
067b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067c 00db       |    |		Load_Top	At_Offset_3
067d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067e e239       | 9  |		Load	0x1,0x39
067f 00dc       |    |		Load_Top	At_Offset_4
0680 0267       | g  |		Execute	Discrete,Predecessor
0681 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0682 e239       | 9  |		Load	0x1,0x39
0683 00dc       |    |		Load_Top	At_Offset_4
0684 0268       | h  |		Execute	Discrete,Successor
0685 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0686 0000 0000  |    |		.XXX[0x2]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b       |    |		.CONST	0x068b								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0001       |    |		.CONST	0x0001								; Number of locals
068b			BODY_0688:
068b			INIT_0688:
068b 4607       |F   |		Jump_Case	0x8
068c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
068d 7807       |x   |		Jump	0x695								; case 0x1
068e 780a       |x   |		Jump	0x699								; case 0x2
068f 780e       |x   |		Jump	0x69e								; case 0x3
0690 7811       |x   |		Jump	0x6a2								; case 0x4
0691 7812       |x   |		Jump	0x6a4								; case 0x5
0692 7813       |x   |		Jump	0x6a6								; case 0x6
0693 7816       |x   |		Jump	0x6aa								; case 0x7
0694 4302       |C   |		.XXX[0x1]
0695 00da       |    |		Load_Top	At_Offset_2
0696 0091 0d08  |    |		Action	Push_String_Extended_Indexed,0xd08				; "NONE"
0698 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0699 00db       |    |		Load_Top	At_Offset_3
069a 00db       |    |		Load_Top	At_Offset_3
069b 00e0       |    |		Load_Encached	Standard_Cache
069c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
069d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069e 00da       |    |		Load_Top	At_Offset_2
069f 00e0       |    |		Load_Encached	Standard_Cache
06a0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06a1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06a2 00db       |    |		Load_Top	At_Offset_3
06a3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06a4 00db       |    |		Load_Top	At_Offset_3
06a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06a6 e23a       | :  |		Load	0x1,0x3a
06a7 00dc       |    |		Load_Top	At_Offset_4
06a8 0267       | g  |		Execute	Discrete,Predecessor
06a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06aa e23a       | :  |		Load	0x1,0x3a
06ab 00dc       |    |		Load_Top	At_Offset_4
06ac 0268       | h  |		Execute	Discrete,Successor
06ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 4601       |F   |		Jump_Case	0x2
06b4 7801       |x   |		Jump	0x6b6								; case 0x0
06b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
06b6 4800       |H   |		Short_Literal	0x0
06b7 00db       |    |		Load_Top	At_Offset_3
06b8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06b9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ba 0000 0000  |    |		.BLANK	0000[0x6]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3 4601       |F   |		Jump_Case	0x2
06c4 7801       |x   |		Jump	0x6c6								; case 0x0
06c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
06c6 4800       |H   |		Short_Literal	0x0
06c7 00db       |    |		Load_Top	At_Offset_3
06c8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ca 0000 0000  |    |		.BLANK	0000[0x6]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 4609       |F   |		Jump_Case	0xa
06d4 7809       |x   |		Jump	0x6de								; case 0x0
06d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
06d6 7824       |x$  |		Jump	0x6fb								; case 0x2
06d7 7827       |x'  |		Jump	0x6ff								; case 0x3
06d8 785c       |x\  |		Jump	0x735								; case 0x4
06d9 785b       |x[  |		Jump	0x735								; case 0x5
06da 782a       |x*  |		Jump	0x705								; case 0x6
06db 783a       |x:  |		Jump	0x716								; case 0x7
06dc 784d       |xM  |		Jump	0x72a								; case 0x8
06dd 7853       |xS  |		Jump	0x731								; case 0x9
06de 00da       |    |		Load_Top	At_Offset_2
06df 016c       | l  |		Execute	Variant_Record,Is_Constrained
06e0 7009       |p   |		Jump_Nonzero	0x6ea
06e1 00cf       |    |		Action	Mark_Auxiliary
06e2 4800       |H   |		Short_Literal	0x0
06e3 e5ff       |    |		Load	0x2,-0x1
06e4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
06e5 00d8       |    |		Load_Top	At_Offset_0
06e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06e7 c5ff       |    |		Store	0x2,-0x1
06e8 00ce       |    |		Action	Pop_Auxiliary
06e9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ea 00da       |    |		Load_Top	At_Offset_2
06eb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06ec 4604       |F   |		Jump_Case	0x5
06ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
06ee 7804       |x   |		Jump	0x6f3								; case 0x1
06ef 7807       |x   |		Jump	0x6f7								; case 0x2
06f0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
06f1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
06f2 4302       |C   |		.XXX[0x1]
06f3 4800       |H   |		Short_Literal	0x0
06f4 00db       |    |		Load_Top	At_Offset_3
06f5 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
06f6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06f7 00da       |    |		Load_Top	At_Offset_2
06f8 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
06f9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06fa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06fb 4801       |H   |		Short_Literal	0x1
06fc 4806       |H   |		Short_Literal	0x6
06fd 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
06fe 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
06ff e5fd       |    |		Load	0x2,-0x3
0700 00db       |    |		Load_Top	At_Offset_3
0701 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0702 e5fe       |    |		Load	0x2,-0x2
0703 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0704 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0705 00db       |    |		Load_Top	At_Offset_3
0706 4604       |F   |		Jump_Case	0x5
0707 780c       |x   |		Jump	0x714								; case 0x0
0708 7805       |x   |		Jump	0x70e								; case 0x1
0709 7808       |x   |		Jump	0x712								; case 0x2
070a 7805       |x   |		Jump	0x710								; case 0x3
070b 7800       |x   |		Jump	0x70c								; case 0x4
070c 4804       |H   |		Short_Literal	0x4
070d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
070e 4801       |H   |		Short_Literal	0x1
070f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0710 4802       |H   |		Short_Literal	0x2
0711 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0712 4803       |H   |		Short_Literal	0x3
0713 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0714 48ff       |H   |		Short_Literal	0xff
0715 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0716 00db       |    |		Load_Top	At_Offset_3
0717 e5fe       |    |		Load	0x2,-0x2
0718 4604       |F   |		Jump_Case	0x5
0719 780c       |x   |		Jump	0x726								; case 0x0
071a 7805       |x   |		Jump	0x720								; case 0x1
071b 7808       |x   |		Jump	0x724								; case 0x2
071c 7805       |x   |		Jump	0x722								; case 0x3
071d 7800       |x   |		Jump	0x71e								; case 0x4
071e 4804       |H   |		Short_Literal	0x4
071f 7807       |x   |		Jump	0x727
0720 4801       |H   |		Short_Literal	0x1
0721 7805       |x   |		Jump	0x727
0722 4802       |H   |		Short_Literal	0x2
0723 7803       |x   |		Jump	0x727
0724 4803       |H   |		Short_Literal	0x3
0725 7801       |x   |		Jump	0x727
0726 48ff       |H   |		Short_Literal	0xff
0727 e5ff       |    |		Load	0x2,-0x1
0728 031b       |    |		Declare_Type	Variant_Record,Constrained
0729 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
072a 00db       |    |		Load_Top	At_Offset_3
072b e5fe       |    |		Load	0x2,-0x2
072c e5ff       |    |		Load	0x2,-0x1
072d 1c06       |    |		Execute_Immediate	Run_Utility,0x6
072e e5ff       |    |		Load	0x2,-0x1
072f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0730 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0731 4800       |H   |		Short_Literal	0x0
0732 00db       |    |		Load_Top	At_Offset_3
0733 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0734 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0735 0869       | i  |		Execute_Immediate	Raise,0x69
0736 0000 0000  |    |		.XXX[0x2]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b       | ;  |		.CONST	0x073b								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0001       |    |		.CONST	0x0001								; Number of locals
073b			BODY_0738:
073b			INIT_0738:
073b 00da       |    |		Load_Top	At_Offset_2
073c 7002       |p   |		Jump_Nonzero	0x73f
073d 00ea       |    |		Load_Encached	Null_String_Cache
073e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
073f 00da       |    |		Load_Top	At_Offset_2
0740 0217       |    |		Execute	Heap_Access,All_Reference
0741 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0742 4604       |F   |		Jump_Case	0x5
0743 7809       |x   |		Jump	0x74d								; case 0x0
0744 780a       |x   |		Jump	0x74f								; case 0x1
0745 7812       |x   |		Jump	0x758								; case 0x2
0746 7816       |x   |		Jump	0x75d								; case 0x3
0747 7800       |x   |		Jump	0x748								; case 0x4
0748 00da       |    |		Load_Top	At_Offset_2
0749 0217       |    |		Execute	Heap_Access,All_Reference
074a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
074b 803e       | >  |		Call	0x0,0x3e
074c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
074d 00ea       |    |		Load_Encached	Null_String_Cache
074e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
074f 00da       |    |		Load_Top	At_Offset_2
0750 0217       |    |		Execute	Heap_Access,All_Reference
0751 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0752 6803       |h   |		Jump_Zero	0x756
0753 0092 0d21  |   !|		Action	Push_String_Extended,0xd21					; "*"
0755 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0756 00ea       |    |		Load_Encached	Null_String_Cache
0757 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0758 00da       |    |		Load_Top	At_Offset_2
0759 0217       |    |		Execute	Heap_Access,All_Reference
075a 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
075b 803f       | ?  |		Call	0x0,0x3f
075c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075d 00da       |    |		Load_Top	At_Offset_2
075e 0217       |    |		Execute	Heap_Access,All_Reference
075f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0760 803f       | ?  |		Call	0x0,0x3f
0761 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0762 0000 0000  |    |		.BLANK	0000[0x6]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
076c 0000 0000  |    |		.BLANK	0000[0x4]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773       | s  |		.CONST	0x0773								; Address of begin
0771 0004       |    |		.CONST	0x0004								; Address of exception handler
0772 0001       |    |		.CONST	0x0001								; Number of locals
0773			BODY_0770:
0773			INIT_0770:
0773 e23c       | <  |		Load	0x1,0x3c
0774 e5fe       |    |		Load	0x2,-0x2
0775 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0776 00d8       |    |		Load_Top	At_Offset_0
0777 0217       |    |		Execute	Heap_Access,All_Reference
0778 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0779 a5fd       |    |		Store_Unchecked	0x2,-0x3
077a 00da       |    |		Load_Top	At_Offset_2
077b 0217       |    |		Execute	Heap_Access,All_Reference
077c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
077d e5fd       |    |		Load	0x2,-0x3
077e 0217       |    |		Execute	Heap_Access,All_Reference
077f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0780 00da       |    |		Load_Top	At_Offset_2
0781 0217       |    |		Execute	Heap_Access,All_Reference
0782 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0783 e5fd       |    |		Load	0x2,-0x3
0784 0217       |    |		Execute	Heap_Access,All_Reference
0785 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0786 00da       |    |		Load_Top	At_Offset_2
0787 0217       |    |		Execute	Heap_Access,All_Reference
0788 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0789 e5fd       |    |		Load	0x2,-0x3
078a 0217       |    |		Execute	Heap_Access,All_Reference
078b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
078c 00da       |    |		Load_Top	At_Offset_2
078d 0217       |    |		Execute	Heap_Access,All_Reference
078e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
078f e5fd       |    |		Load	0x2,-0x3
0790 0217       |    |		Execute	Heap_Access,All_Reference
0791 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0792 00da       |    |		Load_Top	At_Offset_2
0793 0217       |    |		Execute	Heap_Access,All_Reference
0794 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0795 e5fd       |    |		Load	0x2,-0x3
0796 0217       |    |		Execute	Heap_Access,All_Reference
0797 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0798 00db       |    |		Load_Top	At_Offset_3
0799 e5fd       |    |		Load	0x2,-0x3
079a 0217       |    |		Execute	Heap_Access,All_Reference
079b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
079c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
079d 0000 0000  |    |		.XXX[0x3]
079f 0000       |    |
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 0004       |    |		.CONST	0x0004								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a4 0000 0000  |    |		.BLANK	0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab 00da       |    |		Load_Top	At_Offset_2
07ac e5fd       |    |		Load	0x2,-0x3
07ad 017d       | }  |		Execute	Record,Structure_Write
07ae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07af 0000       |    |		.XXX[0x1]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3       |    |		.CONST	0x07b3								; Address of begin
07b1 0004       |    |		.CONST	0x0004								; Address of exception handler
07b2 0001       |    |		.CONST	0x0001								; Number of locals
07b3			BODY_07b0:
07b3			INIT_07b0:
07b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07b4 0000 0000  |    |		.BLANK	0000[0x4]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07c1       |    |		.CONST	0x07c1								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0004       |    |		.CONST	0x0004								; Number of locals
07bb			INIT_07b8:
07bb 029f 0b03  |    |		Declare_Subprogram	INIT_0b00,For_Call
07bd 029f 0b23  |   #|		Declare_Subprogram	INIT_0b20,For_Call
07bf 029f 0b33  |   3|		Declare_Subprogram	INIT_0b30,For_Call
07c1			BODY_07b8:
07c1 e5ff       |    |		Load	0x2,-0x1
07c2 7003       |p   |		Jump_Nonzero	0x7c6
07c3 e241       | A  |		Load	0x1,0x41
07c4 a5fd       |    |		Store_Unchecked	0x2,-0x3
07c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07c6 e5ff       |    |		Load	0x2,-0x1
07c7 0217       |    |		Execute	Heap_Access,All_Reference
07c8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07c9 00d8       |    |		Load_Top	At_Offset_0
07ca e240       | @  |		Load	0x1,0x40
07cb 1c06       |    |		Execute_Immediate	Run_Utility,0x6
07cc e241       | A  |		Load	0x1,0x41
07cd e5fe       |    |		Load	0x2,-0x2
07ce 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
07cf 00d8       |    |		Load_Top	At_Offset_0
07d0 0217       |    |		Execute	Heap_Access,All_Reference
07d1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07d2 a5fd       |    |		Store_Unchecked	0x2,-0x3
07d3 e5ff       |    |		Load	0x2,-0x1
07d4 0217       |    |		Execute	Heap_Access,All_Reference
07d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07d6 4604       |F   |		Jump_Case	0x5
07d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
07d8 7805       |x   |		Jump	0x7de								; case 0x1
07d9 780b       |x   |		Jump	0x7e5								; case 0x2
07da 780c       |x   |		Jump	0x7e7								; case 0x3
07db 7800       |x   |		Jump	0x7dc								; case 0x4
07dc 8404       |    |		Call	0x2,0x4
07dd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07de e5ff       |    |		Load	0x2,-0x1
07df 0217       |    |		Execute	Heap_Access,All_Reference
07e0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
07e1 e5fd       |    |		Load	0x2,-0x3
07e2 0217       |    |		Execute	Heap_Access,All_Reference
07e3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
07e4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e5 8402       |    |		Call	0x2,0x2
07e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e7 8403       |    |		Call	0x2,0x3
07e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e9 0000 0000  |    |		.BLANK	0000[0x7]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07fd       |    |		.CONST	0x07fd								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0003       |    |		.CONST	0x0003								; Number of locals
07f3			INIT_07f0:
07f3 00da       |    |		Load_Top	At_Offset_2
07f4 0219       |    |		Execute	Heap_Access,All_Read
07f5 e01c       |    |		Load	0x0,0x1c
07f6 e24a       | J  |		Load	0x1,0x4a
07f7 0096       |    |		Execute	Package,Entry
07f8 e031       | 1  |		Load	0x0,0x31
07f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07fa 02c7       |    |		Declare_Variable	Any
07fb 00d8       |    |		Load_Top	At_Offset_0
07fc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07fd			BODY_07f0:
07fd 00d9       |    |		Load_Top	At_Offset_1
07fe 0217       |    |		Execute	Heap_Access,All_Reference
07ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0800 803b       | ;  |		Call	0x0,0x3b
0801 7025       |p%  |		Jump_Nonzero	0x827
0802 00d9       |    |		Load_Top	At_Offset_1
0803 0219       |    |		Execute	Heap_Access,All_Read
0804 00d8       |    |		Load_Top	At_Offset_0
0805 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0806 4801       |H   |		Short_Literal	0x1
0807 8040       | @  |		Call	0x0,0x40
0808 00d9       |    |		Load_Top	At_Offset_1
0809 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
080a 00d1       |    |		Pop_Control	Pop_Count_1
080b 00d8       |    |		Load_Top	At_Offset_0
080c 00da       |    |		Load_Top	At_Offset_2
080d 0217       |    |		Execute	Heap_Access,All_Reference
080e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
080f 8033       | 3  |		Call	0x0,0x33
0810 c403       |    |		Store	0x2,0x3
0811 4801       |H   |		Short_Literal	0x1
0812 00d9       |    |		Load_Top	At_Offset_1
0813 e031       | 1  |		Load	0x0,0x31
0814 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0815 680b       |h   |		Jump_Zero	0x821
0816 4801       |H   |		Short_Literal	0x1
0817 4829       |H)  |		Short_Literal	0x29
0818 0092 0d22  |   "|		Action	Push_String_Extended,0xd22					; "Unable to access this object in read-write mode : ( "
081a 00db       |    |		Load_Top	At_Offset_3
081b e031       | 1  |		Load	0x0,0x31
081c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
081d 01cc       |    |		Execute	Vector,Catenate
081e 01cb       |    |		Execute	Vector,Append
081f 820e       |    |		Call	0x1,0xe
0820 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0821 00d9       |    |		Load_Top	At_Offset_1
0822 e5ff       |    |		Load	0x2,-0x1
0823 0219       |    |		Execute	Heap_Access,All_Read
0824 e015       |    |		Load	0x0,0x15
0825 e24a       | J  |		Load	0x1,0x4a
0826 0096       |    |		Execute	Package,Entry
0827 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0836       | 6  |		.CONST	0x0836								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0005       |    |		.CONST	0x0005								; Number of locals
082b			INIT_0828:
082b e00b       |    |		Load	0x0,0xb
082c e24a       | J  |		Load	0x1,0x4a
082d 0098       |    |		Execute	Package,Field_Read_Dynamic
082e 0322       | "  |		Declare_Variable	Record
082f e041       | A  |		Load	0x0,0x41
0830 0322       | "  |		Declare_Variable	Record
0831 00d8       |    |		Load_Top	At_Offset_0
0832 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0833 00e1       |    |		Load_Encached	Boolean_Cache
0834 029f 0b43  |   C|		Declare_Subprogram	INIT_0b40,For_Call
0836			BODY_0828:
0836 e5fe       |    |		Load	0x2,-0x2
0837 8042       | B  |		Call	0x0,0x42
0838 00db       |    |		Load_Top	At_Offset_3
0839 017d       | }  |		Execute	Record,Structure_Write
083a e5fd       |    |		Load	0x2,-0x3
083b 0d00       |    |		Execute_Immediate	Less,0x0
083c 6809       |h   |		Jump_Zero	0x846
083d 00db       |    |		Load_Top	At_Offset_3
083e 4802       |H   |		Short_Literal	0x2
083f e5ff       |    |		Load	0x2,-0x1
0840 0219       |    |		Execute	Heap_Access,All_Read
0841 e043       | C  |		Load	0x0,0x43
0842 e24a       | J  |		Load	0x1,0x4a
0843 0096       |    |		Execute	Package,Entry
0844 00d1       |    |		Pop_Control	Pop_Count_1
0845 780e       |x   |		Jump	0x854
0846 00db       |    |		Load_Top	At_Offset_3
0847 e5fd       |    |		Load	0x2,-0x3
0848 00d8       |    |		Load_Top	At_Offset_0
0849 00e3       |    |		Load_Encached	Natural_Cache
084a 0260       | `  |		Execute	Discrete,In_Type
084b 7001       |p   |		Jump_Nonzero	0x84d
084c 0801       |    |		Execute_Immediate	Raise,0x1
084d 4802       |H   |		Short_Literal	0x2
084e e5ff       |    |		Load	0x2,-0x1
084f 0219       |    |		Execute	Heap_Access,All_Read
0850 e044       | D  |		Load	0x0,0x44
0851 e24a       | J  |		Load	0x1,0x4a
0852 0096       |    |		Execute	Package,Entry
0853 00d1       |    |		Pop_Control	Pop_Count_1
0854 e5fb       |    |		Load	0x2,-0x5
0855 6805       |h   |		Jump_Zero	0x85b
0856 4800       |H   |		Short_Literal	0x0
0857 e5fe       |    |		Load	0x2,-0x2
0858 8045       | E  |		Call	0x0,0x45
0859 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
085a 7802       |x   |		Jump	0x85d
085b 4801       |H   |		Short_Literal	0x1
085c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
085d 00cf       |    |		Action	Mark_Auxiliary
085e 4804       |H   |		Short_Literal	0x4
085f 4801       |H   |		Short_Literal	0x1
0860 0007       |    |		Action	Break_Optional
0861 8405       |    |		Call	0x2,0x5
0862 00c8       |    |		Action	Pop_Auxiliary_Range
0863 3ffd       |?   |		Loop_Increasing	0x861
0864 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0865 0000 0000  |    |		.XXX[0x3]
0867 0000       |    |
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 087e       | ~  |		.CONST	0x087e								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0007       |    |		.CONST	0x0007								; Number of locals
086b			INIT_0868:
086b 00da       |    |		Load_Top	At_Offset_2
086c 0219       |    |		Execute	Heap_Access,All_Read
086d e01c       |    |		Load	0x0,0x1c
086e e24a       | J  |		Load	0x1,0x4a
086f 0096       |    |		Execute	Package,Entry
0870 00d8       |    |		Load_Top	At_Offset_0
0871 0217       |    |		Execute	Heap_Access,All_Reference
0872 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0873 0007       |    |		Action	Break_Optional
0874 e235       | 5  |		Load	0x1,0x35
0875 0007       |    |		Action	Break_Optional
0876 e233       | 3  |		Load	0x1,0x33
0877 0007       |    |		Action	Break_Optional
0878 e00b       |    |		Load	0x0,0xb
0879 e24a       | J  |		Load	0x1,0x4a
087a 0098       |    |		Execute	Package,Field_Read_Dynamic
087b 0322       | "  |		Declare_Variable	Record
087c 029f 0b83  |    |		Declare_Subprogram	INIT_0b80,For_Call
087e			BODY_0868:
087e e402       |    |		Load	0x2,0x2
087f 0217       |    |		Execute	Heap_Access,All_Reference
0880 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0881 6823       |h#  |		Jump_Zero	0x8a5
0882 e403       |    |		Load	0x2,0x3
0883 803b       | ;  |		Call	0x0,0x3b
0884 0f01       |    |		Execute_Immediate	Equal,0x1
0885 681f       |h   |		Jump_Zero	0x8a5
0886 e403       |    |		Load	0x2,0x3
0887 8046       | F  |		Call	0x0,0x46
0888 c403       |    |		Store	0x2,0x3
0889 00db       |    |		Load_Top	At_Offset_3
088a e5ff       |    |		Load	0x2,-0x1
088b 822c       | ,  |		Call	0x1,0x2c
088c c404       |    |		Store	0x2,0x4
088d 00cf       |    |		Action	Mark_Auxiliary
088e 7812       |x   |		Jump	0x8a1
088f e404       |    |		Load	0x2,0x4
0890 822e       | .  |		Call	0x1,0x2e
0891 a405       |    |		Store_Unchecked	0x2,0x5
0892 00db       |    |		Load_Top	At_Offset_3
0893 0227       | '  |		Execute	Access,All_Reference
0894 00db       |    |		Load_Top	At_Offset_3
0895 017d       | }  |		Execute	Record,Structure_Write
0896 00da       |    |		Load_Top	At_Offset_2
0897 e023       | #  |		Load	0x0,0x23
0898 e24a       | J  |		Load	0x1,0x4a
0899 0096       |    |		Execute	Package,Entry
089a 0f02       |    |		Execute_Immediate	Equal,0x2
089b 6801       |h   |		Jump_Zero	0x89d
089c 8407       |    |		Call	0x2,0x7
089d e404       |    |		Load	0x2,0x4
089e 822f       | /  |		Call	0x1,0x2f
089f c404       |    |		Store	0x2,0x4
08a0 00c9       |    |		Action	Pop_Auxiliary_Loop
08a1 e404       |    |		Load	0x2,0x4
08a2 822d       | -  |		Call	0x1,0x2d
08a3 6feb       |o   |		Jump_Zero	0x88f
08a4 00ce       |    |		Action	Pop_Auxiliary
08a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08a6 0000 0000  |    |		.XXX[0x2]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08b5       |    |		.CONST	0x08b5								; Address of begin
08a9 0004       |    |		.CONST	0x0004								; Address of exception handler
08aa 0004       |    |		.CONST	0x0004								; Number of locals
08ab			INIT_08a8:
08ab e241       | A  |		Load	0x1,0x41
08ac e5fe       |    |		Load	0x2,-0x2
08ad e5ff       |    |		Load	0x2,-0x1
08ae e047       | G  |		Load	0x0,0x47
08af e24a       | J  |		Load	0x1,0x4a
08b0 0096       |    |		Execute	Package,Entry
08b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
08b2 e048       | H  |		Load	0x0,0x48
08b3 029f 0b9b  |    |		Declare_Subprogram	INIT_0b98,For_Call
08b5			BODY_08a8:
08b5 e5fe       |    |		Load	0x2,-0x2
08b6 0f02       |    |		Execute_Immediate	Equal,0x2
08b7 6803       |h   |		Jump_Zero	0x8bb
08b8 4805       |H   |		Short_Literal	0x5
08b9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08ba 7805       |x   |		Jump	0x8c0
08bb e5fe       |    |		Load	0x2,-0x2
08bc 0f03       |    |		Execute_Immediate	Equal,0x3
08bd 6802       |h   |		Jump_Zero	0x8c0
08be 4811       |H   |		Short_Literal	0x11
08bf 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08c0 8404       |    |		Call	0x2,0x4
08c1 0831       | 1  |		Execute_Immediate	Raise,0x31
08c2 0000 0000  |    |		.BLANK	0000[0x6]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cd       |    |		.CONST	0x08cd								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0002       |    |		.CONST	0x0002								; Number of locals
08cb			INIT_08c8:
08cb 029f 0bdb  |    |		Declare_Subprogram	INIT_0bd8,For_Call
08cd			BODY_08c8:
08cd e5fe       |    |		Load	0x2,-0x2
08ce e023       | #  |		Load	0x0,0x23
08cf e24a       | J  |		Load	0x1,0x4a
08d0 0096       |    |		Execute	Package,Entry
08d1 0f02       |    |		Execute_Immediate	Equal,0x2
08d2 6801       |h   |		Jump_Zero	0x8d4
08d3 8402       |    |		Call	0x2,0x2
08d4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08d5 0000 0000  |    |		.XXX[0x3]
08d7 0000       |    |
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08e3       |    |		.CONST	0x08e3								; Address of begin
08d9 0004       |    |		.CONST	0x0004								; Address of exception handler
08da 0002       |    |		.CONST	0x0002								; Number of locals
08db			INIT_08d8:
08db e23e       | >  |		Load	0x1,0x3e
08dc 0322       | "  |		Declare_Variable	Record
08dd 00db       |    |		Load_Top	At_Offset_3
08de e049       | I  |		Load	0x0,0x49
08df e24a       | J  |		Load	0x1,0x4a
08e0 0096       |    |		Execute	Package,Entry
08e1 00d9       |    |		Load_Top	At_Offset_1
08e2 017d       | }  |		Execute	Record,Structure_Write
08e3			BODY_08d8:
08e3 4801       |H   |		Short_Literal	0x1
08e4 00d9       |    |		Load_Top	At_Offset_1
08e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08e6 00d8       |    |		Load_Top	At_Offset_0
08e7 e5ff       |    |		Load	0x2,-0x1
08e8 e04a       | J  |		Load	0x0,0x4a
08e9 e24a       | J  |		Load	0x1,0x4a
08ea 0096       |    |		Execute	Package,Entry
08eb 4800       |H   |		Short_Literal	0x0
08ec e5ff       |    |		Load	0x2,-0x1
08ed e04b       | K  |		Load	0x0,0x4b
08ee e24a       | J  |		Load	0x1,0x4a
08ef 0096       |    |		Execute	Package,Entry
08f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08f1 0000 0000  |    |		.BLANK	0000[0x7]
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 0905       |    |		.CONST	0x0905								; Address of begin
08f9 0004       |    |		.CONST	0x0004								; Address of exception handler
08fa 0006       |    |		.CONST	0x0006								; Number of locals
08fb			INIT_08f8:
08fb e00b       |    |		Load	0x0,0xb
08fc e24a       | J  |		Load	0x1,0x4a
08fd 0098       |    |		Execute	Package,Field_Read_Dynamic
08fe 0322       | "  |		Declare_Variable	Record
08ff 00e3       |    |		Load_Encached	Natural_Cache
0900 00e1       |    |		Load_Encached	Boolean_Cache
0901 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0902 e23c       | <  |		Load	0x1,0x3c
0903 029f 0bfb  |    |		Declare_Subprogram	INIT_0bf8,For_Call
0905			BODY_08f8:
0905 e5fe       |    |		Load	0x2,-0x2
0906 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0907 00d8       |    |		Load_Top	At_Offset_0
0908 00e4       |    |		Load_Encached	Positive_Cache
0909 0260       | `  |		Execute	Discrete,In_Type
090a 7001       |p   |		Jump_Nonzero	0x90c
090b 0801       |    |		Execute_Immediate	Raise,0x1
090c e5ff       |    |		Load	0x2,-0x1
090d 0219       |    |		Execute	Heap_Access,All_Read
090e e021       | !  |		Load	0x0,0x21
090f e24a       | J  |		Load	0x1,0x4a
0910 0096       |    |		Execute	Package,Entry
0911 e402       |    |		Load	0x2,0x2
0912 017d       | }  |		Execute	Record,Structure_Write
0913 e402       |    |		Load	0x2,0x2
0914 e023       | #  |		Load	0x0,0x23
0915 e24a       | J  |		Load	0x1,0x4a
0916 0096       |    |		Execute	Package,Entry
0917 4800       |H   |		Short_Literal	0x0
0918 4801       |H   |		Short_Literal	0x1
0919 0262       | b  |		Execute	Discrete,In_Range
091a 7003       |p   |		Jump_Nonzero	0x91e
091b 4800       |H   |		Short_Literal	0x0
091c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
091d 7802       |x   |		Jump	0x920
091e 4801       |H   |		Short_Literal	0x1
091f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0920 e5ff       |    |		Load	0x2,-0x1
0921 0219       |    |		Execute	Heap_Access,All_Read
0922 e01c       |    |		Load	0x0,0x1c
0923 e24a       | J  |		Load	0x1,0x4a
0924 0096       |    |		Execute	Package,Entry
0925 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0926 00da       |    |		Load_Top	At_Offset_2
0927 6802       |h   |		Jump_Zero	0x92a
0928 4800       |H   |		Short_Literal	0x0
0929 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
092a 8406       |    |		Call	0x2,0x6
092b 0831       | 1  |		Execute_Immediate	Raise,0x31
092c 0000 0000  |    |		.BLANK	0000[0x4]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0935       | 5  |		.CONST	0x0935								; Address of begin
0931 0004       |    |		.CONST	0x0004								; Address of exception handler
0932 0002       |    |		.CONST	0x0002								; Number of locals
0933			INIT_0930:
0933 0092 0d23  |   #|		Action	Push_String_Extended,0xd23					; "Test_Set_Ops.Insert (Test_Case => \x22<REGION>\x22);"
0935			BODY_0930:
0935 00d8       |    |		Load_Top	At_Offset_0
0936 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0937 0000       |    |		.XXX[0x1]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 094d       | M  |		.CONST	0x094d								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0003       |    |		.CONST	0x0003								; Number of locals
093b			INIT_0938:
093b e005       |    |		Load	0x0,0x5
093c e5fd       |    |		Load	0x2,-0x3
093d e5ff       |    |		Load	0x2,-0x1
093e e047       | G  |		Load	0x0,0x47
093f e24a       | J  |		Load	0x1,0x4a
0940 0096       |    |		Execute	Package,Entry
0941 0217       |    |		Execute	Heap_Access,All_Reference
0942 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0943 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0944 e005       |    |		Load	0x0,0x5
0945 e5fd       |    |		Load	0x2,-0x3
0946 e5fe       |    |		Load	0x2,-0x2
0947 e047       | G  |		Load	0x0,0x47
0948 e24a       | J  |		Load	0x1,0x4a
0949 0096       |    |		Execute	Package,Entry
094a 0217       |    |		Execute	Heap_Access,All_Reference
094b 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
094c 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
094d			BODY_0938:
094d 00d9       |    |		Load_Top	At_Offset_1
094e 803f       | ?  |		Call	0x0,0x3f
094f 00d9       |    |		Load_Top	At_Offset_1
0950 803f       | ?  |		Call	0x0,0x3f
0951 01c1       |    |		Execute	Vector,Less
0952 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0953 0000 0000  |    |		.BLANK	0000[0x5]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b       | [  |		.CONST	0x095b								; Address of begin
0959 0004       |    |		.CONST	0x0004								; Address of exception handler
095a 0001       |    |		.CONST	0x0001								; Number of locals
095b			BODY_0958:
095b			INIT_0958:
095b 4802       |H   |		Short_Literal	0x2
095c e5fe       |    |		Load	0x2,-0x2
095d e5ff       |    |		Load	0x2,-0x1
095e 8259       | Y  |		Call	0x1,0x59
095f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 4803       |H   |		Short_Literal	0x3
0964 e5fe       |    |		Load	0x2,-0x2
0965 e5ff       |    |		Load	0x2,-0x1
0966 8259       | Y  |		Call	0x1,0x59
0967 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096f       | o  |		.CONST	0x096f								; Address of begin
0969 0004       |    |		.CONST	0x0004								; Address of exception handler
096a 0002       |    |		.CONST	0x0002								; Number of locals
096b			INIT_0968:
096b e00b       |    |		Load	0x0,0xb
096c e24a       | J  |		Load	0x1,0x4a
096d 0098       |    |		Execute	Package,Field_Read_Dynamic
096e 0322       | "  |		Declare_Variable	Record
096f			BODY_0968:
096f 00d8       |    |		Load_Top	At_Offset_0
0970 4801       |H   |		Short_Literal	0x1
0971 e402       |    |		Load	0x2,0x2
0972 0219       |    |		Execute	Heap_Access,All_Read
0973 e043       | C  |		Load	0x0,0x43
0974 e24a       | J  |		Load	0x1,0x4a
0975 0096       |    |		Execute	Package,Entry
0976 00d1       |    |		Pop_Control	Pop_Count_1
0977 4802       |H   |		Short_Literal	0x2
0978 e24c       | L  |		Load	0x1,0x4c
0979 00da       |    |		Load_Top	At_Offset_2
097a e04c       | L  |		Load	0x0,0x4c
097b e24a       | J  |		Load	0x1,0x4a
097c 0096       |    |		Execute	Package,Entry
097d 4803       |H   |		Short_Literal	0x3
097e e24d       | M  |		Load	0x1,0x4d
097f 00da       |    |		Load_Top	At_Offset_2
0980 e04c       | L  |		Load	0x0,0x4c
0981 e24a       | J  |		Load	0x1,0x4a
0982 0096       |    |		Execute	Package,Entry
0983 4804       |H   |		Short_Literal	0x4
0984 e24e       | N  |		Load	0x1,0x4e
0985 00da       |    |		Load_Top	At_Offset_2
0986 e04c       | L  |		Load	0x0,0x4c
0987 e24a       | J  |		Load	0x1,0x4a
0988 0096       |    |		Execute	Package,Entry
0989 00d8       |    |		Load_Top	At_Offset_0
098a 4801       |H   |		Short_Literal	0x1
098b e402       |    |		Load	0x2,0x2
098c 0219       |    |		Execute	Heap_Access,All_Read
098d e043       | C  |		Load	0x0,0x43
098e e24a       | J  |		Load	0x1,0x4a
098f 0096       |    |		Execute	Package,Entry
0990 00d1       |    |		Pop_Control	Pop_Count_1
0991 4802       |H   |		Short_Literal	0x2
0992 4801       |H   |		Short_Literal	0x1
0993 4802       |H   |		Short_Literal	0x2
0994 e24b       | K  |		Load	0x1,0x4b
0995 01d7       |    |		Execute	Vector,Field_Read
0996 e24f       | O  |		Load	0x1,0x4f
0997 01cf       |    |		Execute	Vector,Slice_Read
0998 00da       |    |		Load_Top	At_Offset_2
0999 e04c       | L  |		Load	0x0,0x4c
099a e24a       | J  |		Load	0x1,0x4a
099b 0096       |    |		Execute	Package,Entry
099c 4803       |H   |		Short_Literal	0x3
099d 4801       |H   |		Short_Literal	0x1
099e 4803       |H   |		Short_Literal	0x3
099f e24b       | K  |		Load	0x1,0x4b
09a0 01d7       |    |		Execute	Vector,Field_Read
09a1 e24f       | O  |		Load	0x1,0x4f
09a2 01cf       |    |		Execute	Vector,Slice_Read
09a3 00da       |    |		Load_Top	At_Offset_2
09a4 e04c       | L  |		Load	0x0,0x4c
09a5 e24a       | J  |		Load	0x1,0x4a
09a6 0096       |    |		Execute	Package,Entry
09a7 4804       |H   |		Short_Literal	0x4
09a8 4801       |H   |		Short_Literal	0x1
09a9 4804       |H   |		Short_Literal	0x4
09aa e24b       | K  |		Load	0x1,0x4b
09ab 01d7       |    |		Execute	Vector,Field_Read
09ac e24f       | O  |		Load	0x1,0x4f
09ad 01cf       |    |		Execute	Vector,Slice_Read
09ae 00da       |    |		Load_Top	At_Offset_2
09af e04c       | L  |		Load	0x0,0x4c
09b0 e24a       | J  |		Load	0x1,0x4a
09b1 0096       |    |		Execute	Package,Entry
09b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09b3 0000 0000  |    |		.BLANK	0000[0x5]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09ca       |    |		.CONST	0x09ca								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0003       |    |		.CONST	0x0003								; Number of locals
09bb			INIT_09b8:
09bb e005       |    |		Load	0x0,0x5
09bc e5ff       |    |		Load	0x2,-0x1
09bd 0219       |    |		Execute	Heap_Access,All_Read
09be e020       |    |		Load	0x0,0x20
09bf e24a       | J  |		Load	0x1,0x4a
09c0 0096       |    |		Execute	Package,Entry
09c1 e402       |    |		Load	0x2,0x2
09c2 801d       |    |		Call	0x0,0x1d
09c3 8014       |    |		Call	0x0,0x14
09c4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
09c5 e031       | 1  |		Load	0x0,0x31
09c6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09c7 02c7       |    |		Declare_Variable	Any
09c8 00d8       |    |		Load_Top	At_Offset_0
09c9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09ca			BODY_09b8:
09ca e5fe       |    |		Load	0x2,-0x2
09cb 680f       |h   |		Jump_Zero	0x9db
09cc e5ff       |    |		Load	0x2,-0x1
09cd 8251       | Q  |		Call	0x1,0x51
09ce e5ff       |    |		Load	0x2,-0x1
09cf 8253       | S  |		Call	0x1,0x53
09d0 e402       |    |		Load	0x2,0x2
09d1 804d       | M  |		Call	0x0,0x4d
09d2 c402       |    |		Store	0x2,0x2
09d3 00d8       |    |		Load_Top	At_Offset_0
09d4 e402       |    |		Load	0x2,0x2
09d5 8033       | 3  |		Call	0x0,0x33
09d6 c603       |    |		Store	0x3,0x3
09d7 4802       |H   |		Short_Literal	0x2
09d8 00da       |    |		Load_Top	At_Offset_2
09d9 00da       |    |		Load_Top	At_Offset_2
09da 8034       | 4  |		Call	0x0,0x34
09db e5fd       |    |		Load	0x2,-0x3
09dc 680c       |h   |		Jump_Zero	0x9e9
09dd e402       |    |		Load	0x2,0x2
09de 4801       |H   |		Short_Literal	0x1
09df 804e       | N  |		Call	0x0,0x4e
09e0 c402       |    |		Store	0x2,0x2
09e1 00d8       |    |		Load_Top	At_Offset_0
09e2 e402       |    |		Load	0x2,0x2
09e3 8033       | 3  |		Call	0x0,0x33
09e4 c603       |    |		Store	0x3,0x3
09e5 4802       |H   |		Short_Literal	0x2
09e6 00da       |    |		Load_Top	At_Offset_2
09e7 00da       |    |		Load_Top	At_Offset_2
09e8 8034       | 4  |		Call	0x0,0x34
09e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09ea 0000 0000  |    |		.BLANK	0000[0x6]
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f9       |    |		.CONST	0x09f9								; Address of begin
09f1 0004       |    |		.CONST	0x0004								; Address of exception handler
09f2 0002       |    |		.CONST	0x0002								; Number of locals
09f3			INIT_09f0:
09f3 e04f       | O  |		Load	0x0,0x4f
09f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09f5 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
09f6 02c7       |    |		Declare_Variable	Any
09f7 00d8       |    |		Load_Top	At_Offset_0
09f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09f9			BODY_09f0:
09f9 00d8       |    |		Load_Top	At_Offset_0
09fa 0120       |    |		Execute	Any,Is_Value
09fb 6804       |h   |		Jump_Zero	0xa00
09fc e04f       | O  |		Load	0x0,0x4f
09fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09fe 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
09ff 7801       |x   |		Jump	0xa01
0a00 00d8       |    |		Load_Top	At_Offset_0
0a01 e5ff       |    |		Load	0x2,-0x1
0a02 8212       |    |		Call	0x1,0x12
0a03 8027       | '  |		Call	0x0,0x27
0a04 e04f       | O  |		Load	0x0,0x4f
0a05 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a06 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a07 c602       |    |		Store	0x3,0x2
0a08 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a09 0000 0000  |    |		.BLANK	0000[0x7]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a19       |    |		.CONST	0x0a19								; Address of begin
0a11 0004       |    |		.CONST	0x0004								; Address of exception handler
0a12 0002       |    |		.CONST	0x0002								; Number of locals
0a13			INIT_0a10:
0a13 e04f       | O  |		Load	0x0,0x4f
0a14 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a15 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0a16 02c7       |    |		Declare_Variable	Any
0a17 00d8       |    |		Load_Top	At_Offset_0
0a18 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a19			BODY_0a10:
0a19 00d8       |    |		Load_Top	At_Offset_0
0a1a 0120       |    |		Execute	Any,Is_Value
0a1b 6804       |h   |		Jump_Zero	0xa20
0a1c e04f       | O  |		Load	0x0,0x4f
0a1d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a1e 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0a1f 7801       |x   |		Jump	0xa21
0a20 00d8       |    |		Load_Top	At_Offset_0
0a21 e5fe       |    |		Load	0x2,-0x2
0a22 8212       |    |		Call	0x1,0x12
0a23 8027       | '  |		Call	0x0,0x27
0a24 e04f       | O  |		Load	0x0,0x4f
0a25 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a26 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a27 c602       |    |		Store	0x3,0x2
0a28 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a29 0000 0000  |    |		.BLANK	0000[0x7]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a39       | 9  |		.CONST	0x0a39								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0003       |    |		.CONST	0x0003								; Number of locals
0a33			INIT_0a30:
0a33 e00b       |    |		Load	0x0,0xb
0a34 e24a       | J  |		Load	0x1,0x4a
0a35 0098       |    |		Execute	Package,Field_Read_Dynamic
0a36 0322       | "  |		Declare_Variable	Record
0a37 e241       | A  |		Load	0x1,0x41
0a38 0007       |    |		Action	Break_Optional
0a39			BODY_0a30:
0a39 e403       |    |		Load	0x2,0x3
0a3a e03c       | <  |		Load	0x0,0x3c
0a3b e24a       | J  |		Load	0x1,0x4a
0a3c 0096       |    |		Execute	Package,Entry
0a3d 00da       |    |		Load_Top	At_Offset_2
0a3e 017d       | }  |		Execute	Record,Structure_Write
0a3f 00d9       |    |		Load_Top	At_Offset_1
0a40 e023       | #  |		Load	0x0,0x23
0a41 e24a       | J  |		Load	0x1,0x4a
0a42 0096       |    |		Execute	Package,Entry
0a43 0f02       |    |		Execute_Immediate	Equal,0x2
0a44 6811       |h   |		Jump_Zero	0xa56
0a45 4802       |H   |		Short_Literal	0x2
0a46 00da       |    |		Load_Top	At_Offset_2
0a47 e047       | G  |		Load	0x0,0x47
0a48 e24a       | J  |		Load	0x1,0x4a
0a49 0096       |    |		Execute	Package,Entry
0a4a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0a4b 4800       |H   |		Short_Literal	0x0
0a4c 00d9       |    |		Load_Top	At_Offset_1
0a4d 0217       |    |		Execute	Heap_Access,All_Reference
0a4e 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0a4f 8045       | E  |		Call	0x0,0x45
0a50 a404       |    |		Store_Unchecked	0x2,0x4
0a51 e404       |    |		Load	0x2,0x4
0a52 7003       |p   |		Jump_Nonzero	0xa56
0a53 00cc       |    |		Action	Pop_Block
0a54 00a7 03a1  |    |		Action	Jump_Extended,0x3a1
0a56 e403       |    |		Load	0x2,0x3
0a57 e03d       | =  |		Load	0x0,0x3d
0a58 e24a       | J  |		Load	0x1,0x4a
0a59 0096       |    |		Execute	Package,Entry
0a5a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a5b 0000 0000  |    |		.BLANK	0000[0x5]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a71       | q  |		.CONST	0x0a71								; Address of begin
0a61 0004       |    |		.CONST	0x0004								; Address of exception handler
0a62 0003       |    |		.CONST	0x0003								; Number of locals
0a63			INIT_0a60:
0a63 e5fe       |    |		Load	0x2,-0x2
0a64 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a65 00d8       |    |		Load_Top	At_Offset_0
0a66 00e4       |    |		Load_Encached	Positive_Cache
0a67 0260       | `  |		Execute	Discrete,In_Type
0a68 7001       |p   |		Jump_Nonzero	0xa6a
0a69 0801       |    |		Execute_Immediate	Raise,0x1
0a6a e5ff       |    |		Load	0x2,-0x1
0a6b 0219       |    |		Execute	Heap_Access,All_Read
0a6c e021       | !  |		Load	0x0,0x21
0a6d e24a       | J  |		Load	0x1,0x4a
0a6e 0096       |    |		Execute	Package,Entry
0a6f 029f 0c13  |    |		Declare_Subprogram	INIT_0c10,For_Call
0a71			BODY_0a60:
0a71 00d9       |    |		Load_Top	At_Offset_1
0a72 e023       | #  |		Load	0x0,0x23
0a73 e24a       | J  |		Load	0x1,0x4a
0a74 0096       |    |		Execute	Package,Entry
0a75 4800       |H   |		Short_Literal	0x0
0a76 4801       |H   |		Short_Literal	0x1
0a77 0262       | b  |		Execute	Discrete,In_Range
0a78 7004       |p   |		Jump_Nonzero	0xa7d
0a79 8603       |    |		Call	0x3,0x3
0a7a 00d9       |    |		Load_Top	At_Offset_1
0a7b 8256       | V  |		Call	0x1,0x56
0a7c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a7d 4800       |H   |		Short_Literal	0x0
0a7e 0092 0d24  |   $|		Action	Push_String_Extended,0xd24					; "Delete not defined for this line"
0a80 820e       |    |		Call	0x1,0xe
0a81 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a82 0000 0000  |    |		.BLANK	0000[0x6]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a92       |    |		.CONST	0x0a92								; Address of begin
0a89 0004       |    |		.CONST	0x0004								; Address of exception handler
0a8a 0003       |    |		.CONST	0x0003								; Number of locals
0a8b			INIT_0a88:
0a8b 00ea       |    |		Load_Encached	Null_String_Cache
0a8c e404       |    |		Load	0x2,0x4
0a8d e402       |    |		Load	0x2,0x2
0a8e e250       | P  |		Load	0x1,0x50
0a8f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0a90 029f 0c3b  |   ;|		Declare_Subprogram	INIT_0c38,For_Call
0a92			BODY_0a88:
0a92 4801       |H   |		Short_Literal	0x1
0a93 e5ff       |    |		Load	0x2,-0x1
0a94 0219       |    |		Execute	Heap_Access,All_Read
0a95 e028       | (  |		Load	0x0,0x28
0a96 e24a       | J  |		Load	0x1,0x4a
0a97 0096       |    |		Execute	Package,Entry
0a98 e403       |    |		Load	0x2,0x3
0a99 017d       | }  |		Execute	Record,Structure_Write
0a9a 00cf       |    |		Action	Mark_Auxiliary
0a9b 7807       |x   |		Jump	0xaa3
0a9c 8603       |    |		Call	0x3,0x3
0a9d e403       |    |		Load	0x2,0x3
0a9e e03d       | =  |		Load	0x0,0x3d
0a9f e24a       | J  |		Load	0x1,0x4a
0aa0 0096       |    |		Execute	Package,Entry
0aa1 00d1       |    |		Pop_Control	Pop_Count_1
0aa2 00c9       |    |		Action	Pop_Auxiliary_Loop
0aa3 e403       |    |		Load	0x2,0x3
0aa4 e029       | )  |		Load	0x0,0x29
0aa5 e24a       | J  |		Load	0x1,0x4a
0aa6 0096       |    |		Execute	Package,Entry
0aa7 6ff4       |o   |		Jump_Zero	0xa9c
0aa8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aa9 0000 0000  |    |		.BLANK	0000[0x7]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ab9       |    |		.CONST	0x0ab9								; Address of begin
0ab1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ab2 0002       |    |		.CONST	0x0002								; Number of locals
0ab3			INIT_0ab0:
0ab3 e04f       | O  |		Load	0x0,0x4f
0ab4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ab5 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0ab6 02c7       |    |		Declare_Variable	Any
0ab7 00d8       |    |		Load_Top	At_Offset_0
0ab8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ab9			BODY_0ab0:
0ab9 00d8       |    |		Load_Top	At_Offset_0
0aba 0120       |    |		Execute	Any,Is_Value
0abb 6804       |h   |		Jump_Zero	0xac0
0abc e04f       | O  |		Load	0x0,0x4f
0abd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0abe 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0abf 7801       |x   |		Jump	0xac1
0ac0 00d8       |    |		Load_Top	At_Offset_0
0ac1 e5ff       |    |		Load	0x2,-0x1
0ac2 8212       |    |		Call	0x1,0x12
0ac3 8027       | '  |		Call	0x0,0x27
0ac4 e04f       | O  |		Load	0x0,0x4f
0ac5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ac6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ac7 c602       |    |		Store	0x3,0x2
0ac8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ac9 0000 0000  |    |		.BLANK	0000[0x7]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad9       |    |		.CONST	0x0ad9								; Address of begin
0ad1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ad2 0003       |    |		.CONST	0x0003								; Number of locals
0ad3			INIT_0ad0:
0ad3 e00b       |    |		Load	0x0,0xb
0ad4 e24a       | J  |		Load	0x1,0x4a
0ad5 0098       |    |		Execute	Package,Field_Read_Dynamic
0ad6 0322       | "  |		Declare_Variable	Record
0ad7 e241       | A  |		Load	0x1,0x41
0ad8 0007       |    |		Action	Break_Optional
0ad9			BODY_0ad0:
0ad9 e402       |    |		Load	0x2,0x2
0ada e03c       | <  |		Load	0x0,0x3c
0adb e24a       | J  |		Load	0x1,0x4a
0adc 0096       |    |		Execute	Package,Entry
0add 00da       |    |		Load_Top	At_Offset_2
0ade 017d       | }  |		Execute	Record,Structure_Write
0adf 00d9       |    |		Load_Top	At_Offset_1
0ae0 e023       | #  |		Load	0x0,0x23
0ae1 e24a       | J  |		Load	0x1,0x4a
0ae2 0096       |    |		Execute	Package,Entry
0ae3 0f02       |    |		Execute_Immediate	Equal,0x2
0ae4 6811       |h   |		Jump_Zero	0xaf6
0ae5 4802       |H   |		Short_Literal	0x2
0ae6 00da       |    |		Load_Top	At_Offset_2
0ae7 e047       | G  |		Load	0x0,0x47
0ae8 e24a       | J  |		Load	0x1,0x4a
0ae9 0096       |    |		Execute	Package,Entry
0aea 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0aeb 4801       |H   |		Short_Literal	0x1
0aec 00d9       |    |		Load_Top	At_Offset_1
0aed 0217       |    |		Execute	Heap_Access,All_Reference
0aee 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0aef 8045       | E  |		Call	0x0,0x45
0af0 a403       |    |		Store_Unchecked	0x2,0x3
0af1 e403       |    |		Load	0x2,0x3
0af2 0f00       |    |		Execute_Immediate	Equal,0x0
0af3 00da       |    |		Load_Top	At_Offset_2
0af4 e5ff       |    |		Load	0x2,-0x1
0af5 8255       | U  |		Call	0x1,0x55
0af6 e402       |    |		Load	0x2,0x2
0af7 e03d       | =  |		Load	0x0,0x3d
0af8 e24a       | J  |		Load	0x1,0x4a
0af9 0096       |    |		Execute	Package,Entry
0afa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0afb 0000 0000  |    |		.BLANK	0000[0x5]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03       |    |		.CONST	0x0b03								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0001       |    |		.CONST	0x0001								; Number of locals
0b03			BODY_0b00:
0b03			INIT_0b00:
0b03 e5fd       |    |		Load	0x2,-0x3
0b04 0219       |    |		Execute	Heap_Access,All_Read
0b05 00d8       |    |		Load_Top	At_Offset_0
0b06 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0b07 e5fe       |    |		Load	0x2,-0x2
0b08 e5ff       |    |		Load	0x2,-0x1
0b09 0217       |    |		Execute	Heap_Access,All_Reference
0b0a 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0b0b 8050       | P  |		Call	0x0,0x50
0b0c 00d9       |    |		Load_Top	At_Offset_1
0b0d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0b0e 00d1       |    |		Pop_Control	Pop_Count_1
0b0f e5fd       |    |		Load	0x2,-0x3
0b10 0219       |    |		Execute	Heap_Access,All_Read
0b11 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0b12 00d8       |    |		Load_Top	At_Offset_0
0b13 e5fe       |    |		Load	0x2,-0x2
0b14 e5ff       |    |		Load	0x2,-0x1
0b15 0217       |    |		Execute	Heap_Access,All_Reference
0b16 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0b17 8051       | Q  |		Call	0x0,0x51
0b18 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b19 0000 0000  |    |		.BLANK	0000[0x7]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23       | #  |		.CONST	0x0b23								; Address of begin
0b21 0004       |    |		.CONST	0x0004								; Address of exception handler
0b22 0001       |    |		.CONST	0x0001								; Number of locals
0b23			BODY_0b20:
0b23			INIT_0b20:
0b23 e5fd       |    |		Load	0x2,-0x3
0b24 0219       |    |		Execute	Heap_Access,All_Read
0b25 00d8       |    |		Load_Top	At_Offset_0
0b26 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0b27 e5fe       |    |		Load	0x2,-0x2
0b28 e5ff       |    |		Load	0x2,-0x1
0b29 0217       |    |		Execute	Heap_Access,All_Reference
0b2a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0b2b 8050       | P  |		Call	0x0,0x50
0b2c 00d9       |    |		Load_Top	At_Offset_1
0b2d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0b2e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b2f 0000       |    |		.XXX[0x1]
0b30 ; --------------------------------------------------------------------------------------
0b30 ; SUBPROGRAM
0b30 ; --------------------------------------------------------------------------------------
0b30 0b33       | 3  |		.CONST	0x0b33								; Address of begin
0b31 0004       |    |		.CONST	0x0004								; Address of exception handler
0b32 0001       |    |		.CONST	0x0001								; Number of locals
0b33			BODY_0b30:
0b33			INIT_0b30:
0b33 e5fd       |    |		Load	0x2,-0x3
0b34 0219       |    |		Execute	Heap_Access,All_Read
0b35 00d8       |    |		Load_Top	At_Offset_0
0b36 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0b37 e5fe       |    |		Load	0x2,-0x2
0b38 e5ff       |    |		Load	0x2,-0x1
0b39 0217       |    |		Execute	Heap_Access,All_Reference
0b3a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0b3b 8050       | P  |		Call	0x0,0x50
0b3c 00d9       |    |		Load_Top	At_Offset_1
0b3d 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0b3e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b3f 0000       |    |		.XXX[0x1]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b4d       | M  |		.CONST	0x0b4d								; Address of begin
0b41 0004       |    |		.CONST	0x0004								; Address of exception handler
0b42 0002       |    |		.CONST	0x0002								; Number of locals
0b43			INIT_0b40:
0b43 e408       |    |		Load	0x2,0x8
0b44 00d8       |    |		Load_Top	At_Offset_0
0b45 e240       | @  |		Load	0x1,0x40
0b46 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0b47 e241       | A  |		Load	0x1,0x41
0b48 e5fc       |    |		Load	0x2,-0x4
0b49 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0b4a 00d8       |    |		Load_Top	At_Offset_0
0b4b 0217       |    |		Execute	Heap_Access,All_Reference
0b4c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b4d			BODY_0b40:
0b4d e408       |    |		Load	0x2,0x8
0b4e 0aff       |    |		Execute_Immediate	Plus,-0x1
0b4f 4603       |F   |		Jump_Case	0x4
0b50 780b       |x   |		Jump	0xb5c								; case 0x0
0b51 7810       |x   |		Jump	0xb62								; case 0x1
0b52 781b       |x   |		Jump	0xb6e								; case 0x2
0b53 7800       |x   |		Jump	0xb54								; case 0x3
0b54 e5fc       |    |		Load	0x2,-0x4
0b55 e403       |    |		Load	0x2,0x3
0b56 8052       | R  |		Call	0x0,0x52
0b57 8014       |    |		Call	0x0,0x14
0b58 00d9       |    |		Load_Top	At_Offset_1
0b59 0217       |    |		Execute	Heap_Access,All_Reference
0b5a 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0b5b 781a       |x   |		Jump	0xb76
0b5c e404       |    |		Load	0x2,0x4
0b5d 0f00       |    |		Execute_Immediate	Equal,0x0
0b5e 00d9       |    |		Load_Top	At_Offset_1
0b5f 0217       |    |		Execute	Heap_Access,All_Reference
0b60 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0b61 7814       |x   |		Jump	0xb76
0b62 e5fe       |    |		Load	0x2,-0x2
0b63 00d9       |    |		Load_Top	At_Offset_1
0b64 0217       |    |		Execute	Heap_Access,All_Reference
0b65 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0b66 e5fc       |    |		Load	0x2,-0x4
0b67 e5fe       |    |		Load	0x2,-0x2
0b68 8053       | S  |		Call	0x0,0x53
0b69 8014       |    |		Call	0x0,0x14
0b6a 00d9       |    |		Load_Top	At_Offset_1
0b6b 0217       |    |		Execute	Heap_Access,All_Reference
0b6c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0b6d 7808       |x   |		Jump	0xb76
0b6e 4800       |H   |		Short_Literal	0x0
0b6f 4800       |H   |		Short_Literal	0x0
0b70 e403       |    |		Load	0x2,0x3
0b71 4801       |H   |		Short_Literal	0x1
0b72 8054       | T  |		Call	0x0,0x54
0b73 00d9       |    |		Load_Top	At_Offset_1
0b74 0217       |    |		Execute	Heap_Access,All_Reference
0b75 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0b76 00d8       |    |		Load_Top	At_Offset_0
0b77 e408       |    |		Load	0x2,0x8
0b78 e402       |    |		Load	0x2,0x2
0b79 e055       | U  |		Load	0x0,0x55
0b7a e24a       | J  |		Load	0x1,0x4a
0b7b 0096       |    |		Execute	Package,Entry
0b7c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b7d 0000 0000  |    |		.XXX[0x3]
0b7f 0000       |    |
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b8a       |    |		.CONST	0x0b8a								; Address of begin
0b81 0004       |    |		.CONST	0x0004								; Address of exception handler
0b82 0002       |    |		.CONST	0x0002								; Number of locals
0b83			INIT_0b80:
0b83 e241       | A  |		Load	0x1,0x41
0b84 4802       |H   |		Short_Literal	0x2
0b85 e406       |    |		Load	0x2,0x6
0b86 e047       | G  |		Load	0x0,0x47
0b87 e24a       | J  |		Load	0x1,0x4a
0b88 0096       |    |		Execute	Package,Entry
0b89 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0b8a			BODY_0b80:
0b8a e403       |    |		Load	0x2,0x3
0b8b 00d9       |    |		Load_Top	At_Offset_1
0b8c 0217       |    |		Execute	Heap_Access,All_Reference
0b8d 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0b8e 8056       | V  |		Call	0x0,0x56
0b8f c403       |    |		Store	0x2,0x3
0b90 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b91 0000 0000  |    |		.BLANK	0000[0x7]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0ba2       |    |		.CONST	0x0ba2								; Address of begin
0b99 0004       |    |		.CONST	0x0004								; Address of exception handler
0b9a 0002       |    |		.CONST	0x0002								; Number of locals
0b9b			INIT_0b98:
0b9b e01b       |    |		Load	0x0,0x1b
0b9c 02ff       |    |		Declare_Variable	Variant_Record
0b9d e5fd       |    |		Load	0x2,-0x3
0b9e e403       |    |		Load	0x2,0x3
0b9f 8026       | &  |		Call	0x0,0x26
0ba0 00d9       |    |		Load_Top	At_Offset_1
0ba1 016d       | m  |		Execute	Variant_Record,Structure_Write
0ba2			BODY_0b98:
0ba2 e5fe       |    |		Load	0x2,-0x2
0ba3 0f03       |    |		Execute_Immediate	Equal,0x3
0ba4 681b       |h   |		Jump_Zero	0xbc0
0ba5 00d8       |    |		Load_Top	At_Offset_0
0ba6 00d8       |    |		Load_Top	At_Offset_0
0ba7 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0ba8 00d8       |    |		Load_Top	At_Offset_0
0ba9 e5fd       |    |		Load	0x2,-0x3
0baa e402       |    |		Load	0x2,0x2
0bab 0217       |    |		Execute	Heap_Access,All_Reference
0bac 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0bad 803f       | ?  |		Call	0x0,0x3f
0bae 8057       | W  |		Call	0x0,0x57
0baf 8014       |    |		Call	0x0,0x14
0bb0 00d9       |    |		Load_Top	At_Offset_1
0bb1 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
0bb2 00d1       |    |		Pop_Control	Pop_Count_1
0bb3 00d0       |    |		Action	Swap_Control
0bb4 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0bb5 00d8       |    |		Load_Top	At_Offset_0
0bb6 00d8       |    |		Load_Top	At_Offset_0
0bb7 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0bb8 00d8       |    |		Load_Top	At_Offset_0
0bb9 4804       |H   |		Short_Literal	0x4
0bba 00d9       |    |		Load_Top	At_Offset_1
0bbb 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0bbc 00d1       |    |		Pop_Control	Pop_Count_1
0bbd 00d0       |    |		Action	Swap_Control
0bbe 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0bbf 7812       |x   |		Jump	0xbd2
0bc0 00d8       |    |		Load_Top	At_Offset_0
0bc1 00d8       |    |		Load_Top	At_Offset_0
0bc2 270a       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0bc3 00d8       |    |		Load_Top	At_Offset_0
0bc4 e5fd       |    |		Load	0x2,-0x3
0bc5 00d8       |    |		Load_Top	At_Offset_0
0bc6 4802       |H   |		Short_Literal	0x2
0bc7 e402       |    |		Load	0x2,0x2
0bc8 0217       |    |		Execute	Heap_Access,All_Reference
0bc9 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0bca 8053       | S  |		Call	0x0,0x53
0bcb 8058       | X  |		Call	0x0,0x58
0bcc 8014       |    |		Call	0x0,0x14
0bcd 00d9       |    |		Load_Top	At_Offset_1
0bce 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
0bcf 00d1       |    |		Pop_Control	Pop_Count_1
0bd0 00d0       |    |		Action	Swap_Control
0bd1 2b0a       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
0bd2 00d8       |    |		Load_Top	At_Offset_0
0bd3 00cb       |    |		Action	Pop_Block_With_Result
0bd4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0bd5 0000 0000  |    |		.XXX[0x3]
0bd7 0000       |    |
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0be2       |    |		.CONST	0x0be2								; Address of begin
0bd9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bda 0002       |    |		.CONST	0x0002								; Number of locals
0bdb			INIT_0bd8:
0bdb e241       | A  |		Load	0x1,0x41
0bdc 4801       |H   |		Short_Literal	0x1
0bdd e5fe       |    |		Load	0x2,-0x2
0bde e047       | G  |		Load	0x0,0x47
0bdf e24a       | J  |		Load	0x1,0x4a
0be0 0096       |    |		Execute	Package,Entry
0be1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0be2			BODY_0bd8:
0be2 00d8       |    |		Load_Top	At_Offset_0
0be3 0217       |    |		Execute	Heap_Access,All_Reference
0be4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0be5 0f01       |    |		Execute_Immediate	Equal,0x1
0be6 680a       |h   |		Jump_Zero	0xbf1
0be7 e5fd       |    |		Load	0x2,-0x3
0be8 00d9       |    |		Load_Top	At_Offset_1
0be9 0217       |    |		Execute	Heap_Access,All_Reference
0bea 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0beb 00d8       |    |		Load_Top	At_Offset_0
0bec 4801       |H   |		Short_Literal	0x1
0bed e5fe       |    |		Load	0x2,-0x2
0bee e055       | U  |		Load	0x0,0x55
0bef e24a       | J  |		Load	0x1,0x4a
0bf0 0096       |    |		Execute	Package,Entry
0bf1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0bf2 0000 0000  |    |		.BLANK	0000[0x6]
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0bfb       |    |		.CONST	0x0bfb								; Address of begin
0bf9 0c05       |    |		.CONST	0x0c05								; Address of exception handler
0bfa 0001       |    |		.CONST	0x0001								; Number of locals
0bfb			BODY_0bf8:
0bfb			INIT_0bf8:
0bfb 00e3       |    |		Load_Encached	Natural_Cache
0bfc e402       |    |		Load	0x2,0x2
0bfd e059       | Y  |		Load	0x0,0x59
0bfe e24a       | J  |		Load	0x1,0x4a
0bff 0096       |    |		Execute	Package,Entry
0c00 c403       |    |		Store	0x2,0x3
0c01 e403       |    |		Load	0x2,0x3
0c02 0afd       |    |		Execute_Immediate	Plus,-0x3
0c03 00cb       |    |		Action	Pop_Block_With_Result
0c04 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c05			TRAP_0bf8:
0c05 e05a       | Z  |		Load	0x0,0x5a
0c06 010f       |    |		Execute	Exception,Equal
0c07 6807       |h   |		Jump_Zero	0xc0f
0c08 4800       |H   |		Short_Literal	0x0
0c09 0092 0d25  |   %|		Action	Push_String_Extended,0xd25					; "Insertion not defined for this position"
0c0b 820e       |    |		Call	0x1,0xe
0c0c 4fff       |O   |		Short_Literal	-0x1
0c0d 00cb       |    |		Action	Pop_Block_With_Result
0c0e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c0f 0100       |    |		Execute	Exception,Raise
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c18       |    |		.CONST	0x0c18								; Address of begin
0c11 0004       |    |		.CONST	0x0004								; Address of exception handler
0c12 0004       |    |		.CONST	0x0004								; Number of locals
0c13			INIT_0c10:
0c13 e23c       | <  |		Load	0x1,0x3c
0c14 0007       |    |		Action	Break_Optional
0c15 00e3       |    |		Load_Encached	Natural_Cache
0c16 029f 0c6b  |   k|		Declare_Subprogram	INIT_0c68,For_Call
0c18			BODY_0c10:
0c18 e5ff       |    |		Load	0x2,-0x1
0c19 0219       |    |		Execute	Heap_Access,All_Read
0c1a e01c       |    |		Load	0x0,0x1c
0c1b e24a       | J  |		Load	0x1,0x4a
0c1c 0096       |    |		Execute	Package,Entry
0c1d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0c1e 8804       |    |		Call	0x4,0x4
0c1f 00da       |    |		Load_Top	At_Offset_2
0c20 0219       |    |		Execute	Heap_Access,All_Read
0c21 00d8       |    |		Load_Top	At_Offset_0
0c22 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c23 00db       |    |		Load_Top	At_Offset_3
0c24 00d8       |    |		Load_Top	At_Offset_0
0c25 00e4       |    |		Load_Encached	Positive_Cache
0c26 0260       | `  |		Execute	Discrete,In_Type
0c27 7001       |p   |		Jump_Nonzero	0xc29
0c28 0801       |    |		Execute_Immediate	Raise,0x1
0c29 805b       | [  |		Call	0x0,0x5b
0c2a 00d9       |    |		Load_Top	At_Offset_1
0c2b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c2c 00d1       |    |		Pop_Control	Pop_Count_1
0c2d 00da       |    |		Load_Top	At_Offset_2
0c2e e5ff       |    |		Load	0x2,-0x1
0c2f 0219       |    |		Execute	Heap_Access,All_Read
0c30 e015       |    |		Load	0x0,0x15
0c31 e24a       | J  |		Load	0x1,0x4a
0c32 0096       |    |		Execute	Package,Entry
0c33 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c34 0000 0000  |    |		.BLANK	0000[0x4]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c44       | D  |		.CONST	0x0c44								; Address of begin
0c39 0004       |    |		.CONST	0x0004								; Address of exception handler
0c3a 0005       |    |		.CONST	0x0005								; Number of locals
0c3b			INIT_0c38:
0c3b e00b       |    |		Load	0x0,0xb
0c3c e24a       | J  |		Load	0x1,0x4a
0c3d 0098       |    |		Execute	Package,Field_Read_Dynamic
0c3e 0322       | "  |		Declare_Variable	Record
0c3f e241       | A  |		Load	0x1,0x41
0c40 029f 0c83  |    |		Declare_Subprogram	INIT_0c80,For_Call
0c42 029f 0cab  |    |		Declare_Subprogram	INIT_0ca8,For_Call
0c44			BODY_0c38:
0c44 e403       |    |		Load	0x2,0x3
0c45 e03c       | <  |		Load	0x0,0x3c
0c46 e24a       | J  |		Load	0x1,0x4a
0c47 0096       |    |		Execute	Package,Entry
0c48 e802       |    |		Load	0x4,0x2
0c49 017d       | }  |		Execute	Record,Structure_Write
0c4a 00db       |    |		Load_Top	At_Offset_3
0c4b e023       | #  |		Load	0x0,0x23
0c4c e24a       | J  |		Load	0x1,0x4a
0c4d 0096       |    |		Execute	Package,Entry
0c4e 0f02       |    |		Execute_Immediate	Equal,0x2
0c4f 6815       |h   |		Jump_Zero	0xc65
0c50 e404       |    |		Load	0x2,0x4
0c51 4603       |F   |		Jump_Case	0x4
0c52 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x0
0c53 780a       |x   |		Jump	0xc5e								; case 0x1
0c54 7809       |x   |		Jump	0xc5e								; case 0x2
0c55 7800       |x   |		Jump	0xc56								; case 0x3
0c56 4804       |H   |		Short_Literal	0x4
0c57 e802       |    |		Load	0x4,0x2
0c58 e047       | G  |		Load	0x0,0x47
0c59 e24a       | J  |		Load	0x1,0x4a
0c5a 0096       |    |		Execute	Package,Entry
0c5b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0c5c 8805       |    |		Call	0x4,0x5
0c5d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c5e 4803       |H   |		Short_Literal	0x3
0c5f e802       |    |		Load	0x4,0x2
0c60 e047       | G  |		Load	0x0,0x47
0c61 e24a       | J  |		Load	0x1,0x4a
0c62 0096       |    |		Execute	Package,Entry
0c63 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0c64 8804       |    |		Call	0x4,0x4
0c65 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c66 0000 0000  |    |		.XXX[0x2]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c6b       | k  |		.CONST	0x0c6b								; Address of begin
0c69 0c75       | u  |		.CONST	0x0c75								; Address of exception handler
0c6a 0001       |    |		.CONST	0x0001								; Number of locals
0c6b			BODY_0c68:
0c6b			INIT_0c68:
0c6b 00e3       |    |		Load_Encached	Natural_Cache
0c6c e602       |    |		Load	0x3,0x2
0c6d e059       | Y  |		Load	0x0,0x59
0c6e e24a       | J  |		Load	0x1,0x4a
0c6f 0096       |    |		Execute	Package,Entry
0c70 c803       |    |		Store	0x4,0x3
0c71 e803       |    |		Load	0x4,0x3
0c72 0afd       |    |		Execute_Immediate	Plus,-0x3
0c73 c803       |    |		Store	0x4,0x3
0c74 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c75			TRAP_0c68:
0c75 e05a       | Z  |		Load	0x0,0x5a
0c76 010f       |    |		Execute	Exception,Equal
0c77 6803       |h   |		Jump_Zero	0xc7b
0c78 4800       |H   |		Short_Literal	0x0
0c79 a803       |    |		Store_Unchecked	0x4,0x3
0c7a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c7b 0100       |    |		Execute	Exception,Raise
0c7c 0000 0000  |    |		.BLANK	0000[0x4]
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c95       |    |		.CONST	0x0c95								; Address of begin
0c81 0004       |    |		.CONST	0x0004								; Address of exception handler
0c82 0004       |    |		.CONST	0x0004								; Number of locals
0c83			INIT_0c80:
0c83 e803       |    |		Load	0x4,0x3
0c84 0217       |    |		Execute	Heap_Access,All_Reference
0c85 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0c86 803f       | ?  |		Call	0x0,0x3f
0c87 00d8       |    |		Load_Top	At_Offset_0
0c88 e04f       | O  |		Load	0x0,0x4f
0c89 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c8a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c8b 00d9       |    |		Load_Top	At_Offset_1
0c8c e602       |    |		Load	0x3,0x2
0c8d 01df       |    |		Execute	Vector,Equal
0c8e 7004       |p   |		Jump_Nonzero	0xc93
0c8f 00d8       |    |		Load_Top	At_Offset_0
0c90 e602       |    |		Load	0x3,0x2
0c91 01df       |    |		Execute	Vector,Equal
0c92 7802       |x   |		Jump	BODY_0c80
0c93 4801       |H   |		Short_Literal	0x1
0c94 0007       |    |		Action	Break_Optional
0c95			BODY_0c80:
0c95 e404       |    |		Load	0x2,0x4
0c96 0f01       |    |		Execute_Immediate	Equal,0x1
0c97 00d9       |    |		Load_Top	At_Offset_1
0c98 0f00       |    |		Execute_Immediate	Equal,0x0
0c99 0279       | y  |		Execute	Discrete,And
0c9a 7005       |p   |		Jump_Nonzero	0xca0
0c9b e404       |    |		Load	0x2,0x4
0c9c 0f02       |    |		Execute_Immediate	Equal,0x2
0c9d 00d9       |    |		Load_Top	At_Offset_1
0c9e 0279       | y  |		Execute	Discrete,And
0c9f 6802       |h   |		Jump_Zero	0xca2
0ca0 e802       |    |		Load	0x4,0x2
0ca1 8256       | V  |		Call	0x1,0x56
0ca2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ca3 0000 0000  |    |		.BLANK	0000[0x5]
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0cb9       |    |		.CONST	0x0cb9								; Address of begin
0ca9 0004       |    |		.CONST	0x0004								; Address of exception handler
0caa 0006       |    |		.CONST	0x0006								; Number of locals
0cab			INIT_0ca8:
0cab e803       |    |		Load	0x4,0x3
0cac 0217       |    |		Execute	Heap_Access,All_Reference
0cad 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0cae 803e       | >  |		Call	0x0,0x3e
0caf 00e1       |    |		Load_Encached	Boolean_Cache
0cb0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cb1 00d9       |    |		Load_Top	At_Offset_1
0cb2 01dd       |    |		Execute	Vector,First
0cb3 00e3       |    |		Load_Encached	Natural_Cache
0cb4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0cb5 00e3       |    |		Load_Encached	Natural_Cache
0cb6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cb7 029f 0ce3  |    |		Declare_Subprogram	INIT_0ce0,For_Call
0cb9			BODY_0ca8:
0cb9 ea02       |    |		Load	0x5,0x2
0cba 01db       |    |		Execute	Vector,Length
0cbb 681c       |h   |		Jump_Zero	0xcd8
0cbc 00cf       |    |		Action	Mark_Auxiliary
0cbd 8a06       |    |		Call	0x5,0x6
0cbe 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0cbf e602       |    |		Load	0x3,0x2
0cc0 e05c       | \  |		Load	0x0,0x5c
0cc1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0cc2 ea04       |    |		Load	0x5,0x4
0cc3 ea05       |    |		Load	0x5,0x5
0cc4 ea02       |    |		Load	0x5,0x2
0cc5 01cf       |    |		Execute	Vector,Slice_Read
0cc6 e05c       | \  |		Load	0x0,0x5c
0cc7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0cc8 01df       |    |		Execute	Vector,Equal
0cc9 6803       |h   |		Jump_Zero	0xccd
0cca 4801       |H   |		Short_Literal	0x1
0ccb aa03       |    |		Store_Unchecked	0x5,0x3
0ccc 780a       |x   |		Jump	0xcd7
0ccd 00da       |    |		Load_Top	At_Offset_2
0cce ea02       |    |		Load	0x5,0x2
0ccf 01dc       |    |		Execute	Vector,Last
0cd0 027f       |    |		Execute	Discrete,Equal
0cd1 7005       |p   |		Jump_Nonzero	0xcd7
0cd2 00da       |    |		Load_Top	At_Offset_2
0cd3 0a02       |    |		Execute_Immediate	Plus,0x2
0cd4 ca04       |    |		Store	0x5,0x4
0cd5 00c9       |    |		Action	Pop_Auxiliary_Loop
0cd6 7fe6       |    |		Jump	0xcbd
0cd7 00ce       |    |		Action	Pop_Auxiliary
0cd8 00db       |    |		Load_Top	At_Offset_3
0cd9 7002       |p   |		Jump_Nonzero	0xcdc
0cda e802       |    |		Load	0x4,0x2
0cdb 8256       | V  |		Call	0x1,0x56
0cdc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cdd 0000 0000  |    |		.XXX[0x3]
0cdf 0000       |    |
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0cee       |    |		.CONST	0x0cee								; Address of begin
0ce1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ce2 0002       |    |		.CONST	0x0002								; Number of locals
0ce3			INIT_0ce0:
0ce3 4800       |H   |		Short_Literal	0x0
0ce4 ea04       |    |		Load	0x5,0x4
0ce5 ea02       |    |		Load	0x5,0x2
0ce6 01dc       |    |		Execute	Vector,Last
0ce7 ea02       |    |		Load	0x5,0x2
0ce8 01cf       |    |		Execute	Vector,Slice_Read
0ce9 482c       |H,  |		Short_Literal	0x2c
0cea e05c       | \  |		Load	0x0,0x5c
0ceb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0cec 00e3       |    |		Load_Encached	Natural_Cache
0ced 03f1       |    |		Declare_Variable	Discrete,With_Value
0cee			BODY_0ce0:
0cee 00d8       |    |		Load_Top	At_Offset_0
0cef 7008       |p   |		Jump_Nonzero	0xcf8
0cf0 ea02       |    |		Load	0x5,0x2
0cf1 01dc       |    |		Execute	Vector,Last
0cf2 00d8       |    |		Load_Top	At_Offset_0
0cf3 00e3       |    |		Load_Encached	Natural_Cache
0cf4 0260       | `  |		Execute	Discrete,In_Type
0cf5 7001       |p   |		Jump_Nonzero	0xcf7
0cf6 0801       |    |		Execute_Immediate	Raise,0x1
0cf7 00ca       |    |		Action	Exit_Nullary_Function
0cf8 00d8       |    |		Load_Top	At_Offset_0
0cf9 0aff       |    |		Execute_Immediate	Plus,-0x1
0cfa 00d8       |    |		Load_Top	At_Offset_0
0cfb 00e3       |    |		Load_Encached	Natural_Cache
0cfc 0260       | `  |		Execute	Discrete,In_Type
0cfd 7001       |p   |		Jump_Nonzero	0xcff
0cfe 0801       |    |		Execute_Immediate	Raise,0x1
0cff 00ca       |    |		Action	Exit_Nullary_Function
0d00 ; --------------------------------------------------------------------------------------
0d00 ; STRING TABLE
0d00 ; --------------------------------------------------------------------------------------
0d00 004e       | N  |		.STRTAB	0x004e->0x0d27							; "NIL_COL"
0d01 0053       | S  |		.STRTAB	0x0053->0x0d2a							; "MARK_COL"
0d02 0059       | Y  |		.STRTAB	0x0059->0x0d2e							; "TEST_CASE_COL"
0d03 0064       | d  |		.STRTAB	0x0064->0x0d35							; "SUBJECT_PROGRAM_COL"
0d04 0075       | u  |		.STRTAB	0x0075->0x0d3e							; "KEYWORDS_COL"
0d05 007f       |    |		.STRTAB	0x007f->0x0d44							; "NONE"
0d06 0081       |    |		.STRTAB	0x0081->0x0d46							; "ALPHABETIC"
0d07 0089       |    |		.STRTAB	0x0089->0x0d4b							; "SUBJECT_PROGRAM"
0d08 0096       |    |		.STRTAB	0x0096->0x0d53							; "NONE"
0d09 0098       |    |		.STRTAB	0x0098->0x0d55							; "INCLUDE_SUBJECT_PROGRAM"
0d0a 00ad       |    |		.STRTAB	0x00ad->0x0d60							; "EXCLUDE_SUBJECT_PROGRAM"
0d0b 00c2       |    |		.STRTAB	0x00c2->0x0d6c							; "KEYWORD"
0d0c 00c7       |    |		.STRTAB	0x00c7->0x0d6f							; "  "
0d0d 00c7       |    |		.STRTAB	0x00c7->0x0d70							; "     TEST CASES"
0d0e 00d4       |    |		.STRTAB	0x00d4->0x0d78							; "SUBJECT PROGRAM"
0d0f 00e1       |    |		.STRTAB	0x00e1->0x0d7f							; "KEYWORDS"
0d10 00e7       |    |		.STRTAB	0x00e7->0x0d83							; "others => Unspecified"
0d11 00fa       |    |		.STRTAB	0x00fa->0x0d8e							; "Explain"
0d12 00ff       |    |		.STRTAB	0x00ff->0x0d91							; "Definition not defined for this selected line"
0d13 012a       | *  |		.STRTAB	0x012a->0x0da8							; "Definition not supported on this line for this column"
0d14 015d       | ]  |		.STRTAB	0x015d->0x0dc2							; "Definition not defined for this cursor position"
0d15 018a       |    |		.STRTAB	0x018a->0x0dda							; "Elide"
0d16 018d       |    |		.STRTAB	0x018d->0x0ddc							; "Expand"
0d17 0191       |    |		.STRTAB	0x0191->0x0ddf							; "Delete requires a selected line"
0d18 01ae       |    |		.STRTAB	0x01ae->0x0def							; "Insert"
0d19 01b2       |    |		.STRTAB	0x01b2->0x0df2							; "Edit"
0d1a 01b4       |    |		.STRTAB	0x01b4->0x0df4							; "No operation defined for value "
0d1b 01d1       |    |		.STRTAB	0x01d1->0x0e03							; "Filter Command => "
0d1c 01e1       |    |		.STRTAB	0x01e1->0x0e0c							; " not supported"
0d1d 01ed       |    |		.STRTAB	0x01ed->0x0e13							; "Show_Differential"
0d1e 01fc       |    |		.STRTAB	0x01fc->0x0e1c							; "TSET"
0d1f 01fe       |    |		.STRTAB	0x01fe->0x0e1e							; "TSET by "
0d20 0204       |    |		.STRTAB	0x0204->0x0e22							; " ("
0d21 0204       |    |		.STRTAB	0x0204->0x0e23							; "*"
0d22 0203       |    |		.STRTAB	0x0203->0x0e23							; "Unable to access this object in read-write mode : ( "
0d23 0235       | 5  |		.STRTAB	0x0235->0x0e3d							; "Test_Set_Ops.Insert (Test_Case => \x22<REGION>\x22);"
0d24 0261       | a  |		.STRTAB	0x0261->0x0e54							; "Delete not defined for this line"
0d25 027f       |    |		.STRTAB	0x027f->0x0e64							; "Insertion not defined for this position"
0d26 02a4       |    |		.STREND 0x02a4->0x0e78
0d27 4e49 4c5f  |NIL_|		.STRTAB_STRINGS
0e78 ; --------------------------------------------------------------------------------------
0e78 ; Debug Table
0e78 ; --------------------------------------------------------------------------------------
0e78 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7073,0x0000,0x0001,0x0000
0e7e 0000 0000  |    |		.BLANK	0000[0x182]