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

⟦a3130a623⟧

    Length: 7168 (0x1c00)
    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 0db8       |    |		.CONST	0x0db8								; 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 0128       | (  |		.CONST	0x0128								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0043       | C  |		.CONST	0x0043								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 4809       |H   |		Short_Literal	0x9
000d 4800       |H   |		Short_Literal	0x0
000e 4801       |H   |		Short_Literal	0x1
000f 4810       |H   |		Short_Literal	0x10
0010 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0011 029f 0ccb  |    |		Declare_Subprogram	INIT_0cc8,For_Call
0013 00d9       |    |		Load_Top	At_Offset_1
0014 012a       | *  |		Execute	Any,Change_Utility
0015 0007       |    |		Action	Break_Optional
0016 00d8       |    |		Load_Top	At_Offset_0
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0019 e003       |    |		Load	0x0,0x3
001a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
001b e004       |    |		Load	0x0,0x4
001c e005       |    |		Load	0x0,0x5
001d 00db       |    |		Load_Top	At_Offset_3
001e e20e       |    |		Load	0x1,0xe
001f e006       |    |		Load	0x0,0x6
0020 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0021 4801       |H   |		Short_Literal	0x1
0022 e007       |    |		Load	0x0,0x7
0023 4801       |H   |		Short_Literal	0x1
0024 e008       |    |		Load	0x0,0x8
0025 4801       |H   |		Short_Literal	0x1
0026 e009       |    |		Load	0x0,0x9
0027 4801       |H   |		Short_Literal	0x1
0028 e00a       |    |		Load	0x0,0xa
0029 4801       |H   |		Short_Literal	0x1
002a e00b       |    |		Load	0x0,0xb
002b 4801       |H   |		Short_Literal	0x1
002c e00c       |    |		Load	0x0,0xc
002d 4801       |H   |		Short_Literal	0x1
002e e00d       |    |		Load	0x0,0xd
002f 4801       |H   |		Short_Literal	0x1
0030 e00e       |    |		Load	0x0,0xe
0031 4801       |H   |		Short_Literal	0x1
0032 e00f       |    |		Load	0x0,0xf
0033 029f 0ccb  |    |		Declare_Subprogram	INIT_0cc8,For_Call
0035 4809       |H   |		Short_Literal	0x9
0036 4806       |H   |		Short_Literal	0x6
0037 e20d       |    |		Load	0x1,0xd
0038 0307       |    |		Complete_Type	Variant_Record,By_Defining
0039 00d8       |    |		Load_Top	At_Offset_0
003a 03a0       |    |		Complete_Type	Heap_Access,By_Component_Completion
003b 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
003d 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
003f 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0041 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0043 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0045 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0047 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0049 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
004b 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
004d 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
004f 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0051 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0053 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0055 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0057 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0059 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
005b 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
005d 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
005f 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0061 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
0063 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
0065 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
0067 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
0069 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
006b 029a 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Outer_Call,Visible,Unelaborated
006d 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
006f 029a 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call,Visible,Unelaborated
0071 029a 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call,Visible,Unelaborated
0073 029a 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call,Visible,Unelaborated
0075 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
0077 029a 0763  |   c|		Declare_Subprogram	INIT_0760,For_Outer_Call,Visible,Unelaborated
0079 029a 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Outer_Call,Visible,Unelaborated
007b 029a 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Visible,Unelaborated
007d 029a 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call,Visible,Unelaborated
007f 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
0081 029a 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call,Visible,Unelaborated
0083 029a 0863  |   c|		Declare_Subprogram	INIT_0860,For_Outer_Call,Visible,Unelaborated
0085 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
0087 029a 089b  |    |		Declare_Subprogram	INIT_0898,For_Outer_Call,Visible,Unelaborated
0089 029a 08db  |    |		Declare_Subprogram	INIT_08d8,For_Outer_Call,Visible,Unelaborated
008b 029a 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call,Visible,Unelaborated
008d 029a 0993  |    |		Declare_Subprogram	INIT_0990,For_Outer_Call,Visible,Unelaborated
008f 029a 099b  |    |		Declare_Subprogram	INIT_0998,For_Outer_Call,Visible,Unelaborated
0091 029a 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Outer_Call,Visible,Unelaborated
0093 029a 0a23  |   #|		Declare_Subprogram	INIT_0a20,For_Outer_Call,Visible,Unelaborated
0095 029a 0a5b  |   [|		Declare_Subprogram	INIT_0a58,For_Outer_Call,Visible,Unelaborated
0097 029a 0ad3  |    |		Declare_Subprogram	INIT_0ad0,For_Outer_Call,Visible,Unelaborated
0099 e002       |    |		Load	0x0,0x2
009a 4801       |H   |		Short_Literal	0x1
009b e010       |    |		Load	0x0,0x10
009c 4801       |H   |		Short_Literal	0x1
009d e011       |    |		Load	0x0,0x11
009e 4801       |H   |		Short_Literal	0x1
009f e012       |    |		Load	0x0,0x12
00a0 4801       |H   |		Short_Literal	0x1
00a1 e013       |    |		Load	0x0,0x13
00a2 4801       |H   |		Short_Literal	0x1
00a3 e014       |    |		Load	0x0,0x14
00a4 4801       |H   |		Short_Literal	0x1
00a5 e015       |    |		Load	0x0,0x15
00a6 4801       |H   |		Short_Literal	0x1
00a7 e016       |    |		Load	0x0,0x16
00a8 4801       |H   |		Short_Literal	0x1
00a9 e017       |    |		Load	0x0,0x17
00aa 4801       |H   |		Short_Literal	0x1
00ab e018       |    |		Load	0x0,0x18
00ac 029f 0c63  |   c|		Declare_Subprogram	INIT_0c60,For_Call
00ae 4809       |H   |		Short_Literal	0x9
00af 4800       |H   |		Short_Literal	0x0
00b0 4809       |H   |		Short_Literal	0x9
00b1 4800       |H   |		Short_Literal	0x0
00b2 4801       |H   |		Short_Literal	0x1
00b3 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00b4 00bf       |    |		Action	Accept_Activation
00b5 0093 0000  |    |		push_full_address	0x0
00b7 6098       |`   |		Indirect_Literal	Discrete,0x150,{0x80000000, 0x00010000}
00b8 0273       | s  |		Execute	Discrete,Plus
00b9 e019       |    |		Load	0x0,0x19
00ba 0273       | s  |		Execute	Discrete,Plus
00bb e01a       |    |		Load	0x0,0x1a
00bc 0273       | s  |		Execute	Discrete,Plus
00bd a01b       |    |		Store_Unchecked	0x0,0x1b
00be e01c       |    |		Load	0x0,0x1c
00bf 0387       |    |		Declare_Variable	Package
00c0 00d8       |    |		Load_Top	At_Offset_0
00c1 020f       |    |		Execute	Module,Activate
00c2 029d 0b1b  |    |		Declare_Subprogram	INIT_0b18,For_Outer_Call
00c4 029d 0b3b  |   ;|		Declare_Subprogram	INIT_0b38,For_Outer_Call
00c6 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00e1 00c7       |    |		Action	Elaborate_Subprogram
00e2 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00e3 00c7       |    |		Action	Elaborate_Subprogram
00e4 029d 0b63  |   c|		Declare_Subprogram	INIT_0b60,For_Outer_Call
00e6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00e7 00c7       |    |		Action	Elaborate_Subprogram
00e8 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00e9 00c7       |    |		Action	Elaborate_Subprogram
00ea 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00eb 00c7       |    |		Action	Elaborate_Subprogram
00ec 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00ed 00c7       |    |		Action	Elaborate_Subprogram
00ee 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00ef 00c7       |    |		Action	Elaborate_Subprogram
00f0 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00f1 00c7       |    |		Action	Elaborate_Subprogram
00f2 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00f3 00c7       |    |		Action	Elaborate_Subprogram
00f4 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00f7 00c7       |    |		Action	Elaborate_Subprogram
00f8 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 029d 0c13  |    |		Declare_Subprogram	INIT_0c10,For_Outer_Call
00fc 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
010b 00c7       |    |		Action	Elaborate_Subprogram
010c 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
010d 00c7       |    |		Action	Elaborate_Subprogram
010e 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
010f 00c7       |    |		Action	Elaborate_Subprogram
0110 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0111 00c7       |    |		Action	Elaborate_Subprogram
0112 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0113 00c7       |    |		Action	Elaborate_Subprogram
0114 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0115 00c7       |    |		Action	Elaborate_Subprogram
0116 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0117 00c7       |    |		Action	Elaborate_Subprogram
0118 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0119 00c7       |    |		Action	Elaborate_Subprogram
011a 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
011b 00c7       |    |		Action	Elaborate_Subprogram
011c 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
011d 00c7       |    |		Action	Elaborate_Subprogram
011e 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
011f 00c7       |    |		Action	Elaborate_Subprogram
0120 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
0121 00c7       |    |		Action	Elaborate_Subprogram
0122 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0123 00c7       |    |		Action	Elaborate_Subprogram
0124 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0125 00c7       |    |		Action	Elaborate_Subprogram
0126 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0127 00c7       |    |		Action	Elaborate_Subprogram
0128			BODY_0008:
0128 00bc       |    |		Action	Signal_Activated
0129 00bb       |    |		Action	Signal_Completion
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137       | 7  |		.CONST	0x0137								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0003       |    |		.CONST	0x0003								; Number of locals
0133			INIT_0130:
0133 e003       |    |		Load	0x0,0x3
0134 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0135 e20e       |    |		Load	0x1,0xe
0136 0007       |    |		Action	Break_Optional
0137			BODY_0130:
0137 00d9       |    |		Load_Top	At_Offset_1
0138 00d9       |    |		Load_Top	At_Offset_1
0139 e5fc       |    |		Load	0x2,-0x4
013a e5fe       |    |		Load	0x2,-0x2
013b 4801       |H   |		Short_Literal	0x1
013c 8241       | A  |		Call	0x1,0x41
013d 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
013e 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
013f 00d9       |    |		Load_Top	At_Offset_1
0140 e5fd       |    |		Load	0x2,-0x3
0141 e5ff       |    |		Load	0x2,-0x1
0142 801d       |    |		Call	0x0,0x1d
0143 00d9       |    |		Load_Top	At_Offset_1
0144 0217       |    |		Execute	Heap_Access,All_Reference
0145 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0146 00d8       |    |		Load_Top	At_Offset_0
0147 e5ff       |    |		Load	0x2,-0x1
0148 801e       |    |		Call	0x0,0x1e
0149 8240       | @  |		Call	0x1,0x40
014a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
014b 00d8       |    |		Load_Top	At_Offset_0
014c 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015f       | _  |		.CONST	0x015f								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e003       |    |		Load	0x0,0x3
015c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
015d e20e       |    |		Load	0x1,0xe
015e 0007       |    |		Action	Break_Optional
015f			BODY_0158:
015f 00d9       |    |		Load_Top	At_Offset_1
0160 00d9       |    |		Load_Top	At_Offset_1
0161 e5fc       |    |		Load	0x2,-0x4
0162 e5fe       |    |		Load	0x2,-0x2
0163 4802       |H   |		Short_Literal	0x2
0164 8241       | A  |		Call	0x1,0x41
0165 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0166 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0167 00d9       |    |		Load_Top	At_Offset_1
0168 e5fd       |    |		Load	0x2,-0x3
0169 e5ff       |    |		Load	0x2,-0x1
016a 801f       |    |		Call	0x0,0x1f
016b 00d9       |    |		Load_Top	At_Offset_1
016c 0217       |    |		Execute	Heap_Access,All_Reference
016d 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
016e 00d8       |    |		Load_Top	At_Offset_0
016f e5ff       |    |		Load	0x2,-0x1
0170 8020       |    |		Call	0x0,0x20
0171 8021       | !  |		Call	0x0,0x21
0172 8240       | @  |		Call	0x1,0x40
0173 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0174 00d8       |    |		Load_Top	At_Offset_0
0175 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017f       |    |		.CONST	0x017f								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e003       |    |		Load	0x0,0x3
017c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
017d e20e       |    |		Load	0x1,0xe
017e 0007       |    |		Action	Break_Optional
017f			BODY_0178:
017f 00d9       |    |		Load_Top	At_Offset_1
0180 00d9       |    |		Load_Top	At_Offset_1
0181 e5fb       |    |		Load	0x2,-0x5
0182 e5fd       |    |		Load	0x2,-0x3
0183 4804       |H   |		Short_Literal	0x4
0184 8241       | A  |		Call	0x1,0x41
0185 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0186 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0187 00d9       |    |		Load_Top	At_Offset_1
0188 e5fc       |    |		Load	0x2,-0x4
0189 e5fe       |    |		Load	0x2,-0x2
018a e5ff       |    |		Load	0x2,-0x1
018b 8022       | "  |		Call	0x0,0x22
018c 00d9       |    |		Load_Top	At_Offset_1
018d 0217       |    |		Execute	Heap_Access,All_Reference
018e 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
018f 00d8       |    |		Load_Top	At_Offset_0
0190 e5fe       |    |		Load	0x2,-0x2
0191 8023       | #  |		Call	0x0,0x23
0192 8240       | @  |		Call	0x1,0x40
0193 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0194 00d8       |    |		Load_Top	At_Offset_0
0195 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f       |    |		.CONST	0x019f								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b e003       |    |		Load	0x0,0x3
019c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
019d e20e       |    |		Load	0x1,0xe
019e 0007       |    |		Action	Break_Optional
019f			BODY_0198:
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 00d9       |    |		Load_Top	At_Offset_1
01a1 e5fc       |    |		Load	0x2,-0x4
01a2 e5fe       |    |		Load	0x2,-0x2
01a3 4803       |H   |		Short_Literal	0x3
01a4 8241       | A  |		Call	0x1,0x41
01a5 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01a6 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 8024       | $  |		Call	0x0,0x24
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 0217       |    |		Execute	Heap_Access,All_Reference
01ad 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
01ae e006       |    |		Load	0x0,0x6
01af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 0217       |    |		Execute	Heap_Access,All_Reference
01b2 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf       |    |		.CONST	0x01bf								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0003       |    |		.CONST	0x0003								; Number of locals
01bb			INIT_01b8:
01bb e003       |    |		Load	0x0,0x3
01bc 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01bd e20e       |    |		Load	0x1,0xe
01be 0007       |    |		Action	Break_Optional
01bf			BODY_01b8:
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 00d9       |    |		Load_Top	At_Offset_1
01c1 e5fc       |    |		Load	0x2,-0x4
01c2 e5fe       |    |		Load	0x2,-0x2
01c3 4805       |H   |		Short_Literal	0x5
01c4 8241       | A  |		Call	0x1,0x41
01c5 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01c6 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 e5fd       |    |		Load	0x2,-0x3
01c9 e5ff       |    |		Load	0x2,-0x1
01ca 8025       | %  |		Call	0x0,0x25
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 0217       |    |		Execute	Heap_Access,All_Reference
01cd 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf e5ff       |    |		Load	0x2,-0x1
01d0 8026       | &  |		Call	0x0,0x26
01d1 8240       | @  |		Call	0x1,0x40
01d2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01d3 00d8       |    |		Load_Top	At_Offset_0
01d4 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01df       |    |		.CONST	0x01df								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0003       |    |		.CONST	0x0003								; Number of locals
01db			INIT_01d8:
01db e003       |    |		Load	0x0,0x3
01dc 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01dd e20e       |    |		Load	0x1,0xe
01de 0007       |    |		Action	Break_Optional
01df			BODY_01d8:
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 e5fc       |    |		Load	0x2,-0x4
01e2 e5fe       |    |		Load	0x2,-0x2
01e3 4806       |H   |		Short_Literal	0x6
01e4 8241       | A  |		Call	0x1,0x41
01e5 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01e6 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 e5fd       |    |		Load	0x2,-0x3
01e9 e5ff       |    |		Load	0x2,-0x1
01ea 8027       | '  |		Call	0x0,0x27
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec 0217       |    |		Execute	Heap_Access,All_Reference
01ed 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef e5ff       |    |		Load	0x2,-0x1
01f0 8028       | (  |		Call	0x0,0x28
01f1 8240       | @  |		Call	0x1,0x40
01f2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff       |    |		.CONST	0x01ff								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0003       |    |		.CONST	0x0003								; Number of locals
01fb			INIT_01f8:
01fb e003       |    |		Load	0x0,0x3
01fc 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01fd e20e       |    |		Load	0x1,0xe
01fe 0007       |    |		Action	Break_Optional
01ff			BODY_01f8:
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 00d9       |    |		Load_Top	At_Offset_1
0201 e5fc       |    |		Load	0x2,-0x4
0202 e5fe       |    |		Load	0x2,-0x2
0203 4807       |H   |		Short_Literal	0x7
0204 8241       | A  |		Call	0x1,0x41
0205 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0206 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0207 00d9       |    |		Load_Top	At_Offset_1
0208 e5fd       |    |		Load	0x2,-0x3
0209 e5ff       |    |		Load	0x2,-0x1
020a 8029       | )  |		Call	0x0,0x29
020b 00d9       |    |		Load_Top	At_Offset_1
020c 0217       |    |		Execute	Heap_Access,All_Reference
020d 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
020e 00d8       |    |		Load_Top	At_Offset_0
020f e5ff       |    |		Load	0x2,-0x1
0210 8020       |    |		Call	0x0,0x20
0211 8021       | !  |		Call	0x0,0x21
0212 8240       | @  |		Call	0x1,0x40
0213 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0214 00d8       |    |		Load_Top	At_Offset_0
0215 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f       |    |		.CONST	0x021f								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0003       |    |		.CONST	0x0003								; Number of locals
021b			INIT_0218:
021b e003       |    |		Load	0x0,0x3
021c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
021d e20e       |    |		Load	0x1,0xe
021e 0007       |    |		Action	Break_Optional
021f			BODY_0218:
021f 00d9       |    |		Load_Top	At_Offset_1
0220 00d9       |    |		Load_Top	At_Offset_1
0221 e5fc       |    |		Load	0x2,-0x4
0222 e5fe       |    |		Load	0x2,-0x2
0223 4807       |H   |		Short_Literal	0x7
0224 8241       | A  |		Call	0x1,0x41
0225 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0226 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0227 00d9       |    |		Load_Top	At_Offset_1
0228 e5fd       |    |		Load	0x2,-0x3
0229 e5ff       |    |		Load	0x2,-0x1
022a 802a       | *  |		Call	0x0,0x2a
022b 00d9       |    |		Load_Top	At_Offset_1
022c 0217       |    |		Execute	Heap_Access,All_Reference
022d 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
022e 00d8       |    |		Load_Top	At_Offset_0
022f e5ff       |    |		Load	0x2,-0x1
0230 801e       |    |		Call	0x0,0x1e
0231 8240       | @  |		Call	0x1,0x40
0232 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0233 00d8       |    |		Load_Top	At_Offset_0
0234 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023f       | ?  |		.CONST	0x023f								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b e003       |    |		Load	0x0,0x3
023c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
023d e20e       |    |		Load	0x1,0xe
023e 0007       |    |		Action	Break_Optional
023f			BODY_0238:
023f 00d9       |    |		Load_Top	At_Offset_1
0240 00d9       |    |		Load_Top	At_Offset_1
0241 e5fb       |    |		Load	0x2,-0x5
0242 e5fd       |    |		Load	0x2,-0x3
0243 4807       |H   |		Short_Literal	0x7
0244 8241       | A  |		Call	0x1,0x41
0245 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0246 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0247 00d9       |    |		Load_Top	At_Offset_1
0248 e5fc       |    |		Load	0x2,-0x4
0249 e5fe       |    |		Load	0x2,-0x2
024a e5ff       |    |		Load	0x2,-0x1
024b 802b       | +  |		Call	0x0,0x2b
024c 00d9       |    |		Load_Top	At_Offset_1
024d 0217       |    |		Execute	Heap_Access,All_Reference
024e 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
024f 00d8       |    |		Load_Top	At_Offset_0
0250 e5fe       |    |		Load	0x2,-0x2
0251 8023       | #  |		Call	0x0,0x23
0252 8240       | @  |		Call	0x1,0x40
0253 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0254 00d8       |    |		Load_Top	At_Offset_0
0255 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025f       | _  |		.CONST	0x025f								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0003       |    |		.CONST	0x0003								; Number of locals
025b			INIT_0258:
025b e003       |    |		Load	0x0,0x3
025c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
025d e20e       |    |		Load	0x1,0xe
025e 0007       |    |		Action	Break_Optional
025f			BODY_0258:
025f 00d9       |    |		Load_Top	At_Offset_1
0260 00d9       |    |		Load_Top	At_Offset_1
0261 e5fb       |    |		Load	0x2,-0x5
0262 e5fe       |    |		Load	0x2,-0x2
0263 4808       |H   |		Short_Literal	0x8
0264 8241       | A  |		Call	0x1,0x41
0265 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0266 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0267 00d9       |    |		Load_Top	At_Offset_1
0268 e5fd       |    |		Load	0x2,-0x3
0269 e5fc       |    |		Load	0x2,-0x4
026a e5ff       |    |		Load	0x2,-0x1
026b 802c       | ,  |		Call	0x0,0x2c
026c 00d9       |    |		Load_Top	At_Offset_1
026d 0217       |    |		Execute	Heap_Access,All_Reference
026e 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
026f 00d8       |    |		Load_Top	At_Offset_0
0270 e5ff       |    |		Load	0x2,-0x1
0271 801e       |    |		Call	0x0,0x1e
0272 8240       | @  |		Call	0x1,0x40
0273 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0274 00d8       |    |		Load_Top	At_Offset_0
0275 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f       |    |		.CONST	0x027f								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e003       |    |		Load	0x0,0x3
027c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
027d e20e       |    |		Load	0x1,0xe
027e 0007       |    |		Action	Break_Optional
027f			BODY_0278:
027f 00d9       |    |		Load_Top	At_Offset_1
0280 00d9       |    |		Load_Top	At_Offset_1
0281 e5fc       |    |		Load	0x2,-0x4
0282 e5fe       |    |		Load	0x2,-0x2
0283 4809       |H   |		Short_Literal	0x9
0284 8241       | A  |		Call	0x1,0x41
0285 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0286 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0287 00d9       |    |		Load_Top	At_Offset_1
0288 e5fd       |    |		Load	0x2,-0x3
0289 e5ff       |    |		Load	0x2,-0x1
028a 802d       | -  |		Call	0x0,0x2d
028b 00d9       |    |		Load_Top	At_Offset_1
028c 0217       |    |		Execute	Heap_Access,All_Reference
028d 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
028e e006       |    |		Load	0x0,0x6
028f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0290 00d9       |    |		Load_Top	At_Offset_1
0291 0217       |    |		Execute	Heap_Access,All_Reference
0292 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0293 00d8       |    |		Load_Top	At_Offset_0
0294 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 6860       |h`  |		Jump_Zero	0x2fd
029d 00da       |    |		Load_Top	At_Offset_2
029e 0217       |    |		Execute	Heap_Access,All_Reference
029f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02a0 4609       |F   |		Jump_Case	0xa
02a1 785a       |xZ  |		Jump	0x2fc								; case 0x0
02a2 7811       |x   |		Jump	0x2b4								; case 0x1
02a3 7819       |x   |		Jump	0x2bd								; case 0x2
02a4 782a       |x*  |		Jump	0x2cf								; case 0x3
02a5 7820       |x   |		Jump	0x2c6								; case 0x4
02a6 7831       |x1  |		Jump	0x2d8								; case 0x5
02a7 7839       |x9  |		Jump	0x2e1								; case 0x6
02a8 7841       |xA  |		Jump	0x2ea								; case 0x7
02a9 7849       |xI  |		Jump	0x2f3								; case 0x8
02aa 7800       |x   |		Jump	0x2ab								; case 0x9
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 0219       |    |		Execute	Heap_Access,All_Read
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
02af 802e       | .  |		Call	0x0,0x2e
02b0 00d9       |    |		Load_Top	At_Offset_1
02b1 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
02b2 00d1       |    |		Pop_Control	Pop_Count_1
02b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 0219       |    |		Execute	Heap_Access,All_Read
02b6 00d8       |    |		Load_Top	At_Offset_0
02b7 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
02b8 802f       | /  |		Call	0x0,0x2f
02b9 00d9       |    |		Load_Top	At_Offset_1
02ba 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
02bb 00d1       |    |		Pop_Control	Pop_Count_1
02bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02bd 00da       |    |		Load_Top	At_Offset_2
02be 0219       |    |		Execute	Heap_Access,All_Read
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
02c1 8030       | 0  |		Call	0x0,0x30
02c2 00d9       |    |		Load_Top	At_Offset_1
02c3 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
02c4 00d1       |    |		Pop_Control	Pop_Count_1
02c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 0219       |    |		Execute	Heap_Access,All_Read
02c8 00d8       |    |		Load_Top	At_Offset_0
02c9 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
02ca 8031       | 1  |		Call	0x0,0x31
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02cd 00d1       |    |		Pop_Control	Pop_Count_1
02ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02cf 00da       |    |		Load_Top	At_Offset_2
02d0 0219       |    |		Execute	Heap_Access,All_Read
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
02d3 8032       | 2  |		Call	0x0,0x32
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
02d6 00d1       |    |		Pop_Control	Pop_Count_1
02d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 0219       |    |		Execute	Heap_Access,All_Read
02da 00d8       |    |		Load_Top	At_Offset_0
02db 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
02dc 8033       | 3  |		Call	0x0,0x33
02dd 00d9       |    |		Load_Top	At_Offset_1
02de 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
02df 00d1       |    |		Pop_Control	Pop_Count_1
02e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 0219       |    |		Execute	Heap_Access,All_Read
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
02e5 8034       | 4  |		Call	0x0,0x34
02e6 00d9       |    |		Load_Top	At_Offset_1
02e7 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
02e8 00d1       |    |		Pop_Control	Pop_Count_1
02e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ea 00da       |    |		Load_Top	At_Offset_2
02eb 0219       |    |		Execute	Heap_Access,All_Read
02ec 00d8       |    |		Load_Top	At_Offset_0
02ed 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
02ee 8035       | 5  |		Call	0x0,0x35
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
02f1 00d1       |    |		Pop_Control	Pop_Count_1
02f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 0219       |    |		Execute	Heap_Access,All_Read
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
02f7 8036       | 6  |		Call	0x0,0x36
02f8 00d9       |    |		Load_Top	At_Offset_1
02f9 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
02fa 00d1       |    |		Pop_Control	Pop_Count_1
02fb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02fc 0833       | 3  |		Execute_Immediate	Raise,0x33
02fd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02fe 0000 0000  |    |		.XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e20e       |    |		Load	0x1,0xe
0304 00ca       |    |		Action	Exit_Nullary_Function
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 0217       |    |		Execute	Heap_Access,All_Reference
030d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
030e 4609       |F   |		Jump_Case	0xa
030f 783f       |x?  |		Jump	0x34f								; case 0x0
0310 780d       |x   |		Jump	0x31e								; case 0x1
0311 7811       |x   |		Jump	0x323								; case 0x2
0312 781a       |x   |		Jump	0x32d								; case 0x3
0313 7814       |x   |		Jump	0x328								; case 0x4
0314 7820       |x   |		Jump	0x335								; case 0x5
0315 7827       |x'  |		Jump	0x33d								; case 0x6
0316 782e       |x.  |		Jump	0x345								; case 0x7
0317 7832       |x2  |		Jump	0x34a								; case 0x8
0318 7800       |x   |		Jump	0x319								; case 0x9
0319 00da       |    |		Load_Top	At_Offset_2
031a 0217       |    |		Execute	Heap_Access,All_Reference
031b 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
031c 8037       | 7  |		Call	0x0,0x37
031d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031e 00da       |    |		Load_Top	At_Offset_2
031f 0217       |    |		Execute	Heap_Access,All_Reference
0320 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0321 8038       | 8  |		Call	0x0,0x38
0322 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0323 00da       |    |		Load_Top	At_Offset_2
0324 0217       |    |		Execute	Heap_Access,All_Reference
0325 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0326 8039       | 9  |		Call	0x0,0x39
0327 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0328 00da       |    |		Load_Top	At_Offset_2
0329 0217       |    |		Execute	Heap_Access,All_Reference
032a 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
032b 803a       | :  |		Call	0x0,0x3a
032c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032d 00da       |    |		Load_Top	At_Offset_2
032e 0217       |    |		Execute	Heap_Access,All_Reference
032f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0330 00db       |    |		Load_Top	At_Offset_3
0331 0217       |    |		Execute	Heap_Access,All_Reference
0332 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0333 803b       | ;  |		Call	0x0,0x3b
0334 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0335 00da       |    |		Load_Top	At_Offset_2
0336 0217       |    |		Execute	Heap_Access,All_Reference
0337 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0338 00db       |    |		Load_Top	At_Offset_3
0339 0217       |    |		Execute	Heap_Access,All_Reference
033a 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
033b 803c       | <  |		Call	0x0,0x3c
033c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033d 00da       |    |		Load_Top	At_Offset_2
033e 0217       |    |		Execute	Heap_Access,All_Reference
033f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0340 00db       |    |		Load_Top	At_Offset_3
0341 0217       |    |		Execute	Heap_Access,All_Reference
0342 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0343 803d       | =  |		Call	0x0,0x3d
0344 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0345 00da       |    |		Load_Top	At_Offset_2
0346 0217       |    |		Execute	Heap_Access,All_Reference
0347 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0348 803e       | >  |		Call	0x0,0x3e
0349 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034a 00da       |    |		Load_Top	At_Offset_2
034b 0217       |    |		Execute	Heap_Access,All_Reference
034c 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
034d 803f       | ?  |		Call	0x0,0x3f
034e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034f 0833       | 3  |		Execute_Immediate	Raise,0x33
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 0217       |    |		Execute	Heap_Access,All_Reference
0355 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0356 4609       |F   |		Jump_Case	0xa
0357 7836       |x6  |		Jump	0x38e								; case 0x0
0358 780d       |x   |		Jump	0x366								; case 0x1
0359 7811       |x   |		Jump	0x36b								; case 0x2
035a 781a       |x   |		Jump	0x375								; case 0x3
035b 7814       |x   |		Jump	0x370								; case 0x4
035c 781d       |x   |		Jump	0x37a								; case 0x5
035d 7821       |x!  |		Jump	0x37f								; case 0x6
035e 7825       |x%  |		Jump	0x384								; case 0x7
035f 7829       |x)  |		Jump	0x389								; case 0x8
0360 7800       |x   |		Jump	0x361								; case 0x9
0361 00da       |    |		Load_Top	At_Offset_2
0362 0217       |    |		Execute	Heap_Access,All_Reference
0363 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0364 8040       | @  |		Call	0x0,0x40
0365 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0366 00da       |    |		Load_Top	At_Offset_2
0367 0217       |    |		Execute	Heap_Access,All_Reference
0368 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0369 8041       | A  |		Call	0x0,0x41
036a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036b 00da       |    |		Load_Top	At_Offset_2
036c 0217       |    |		Execute	Heap_Access,All_Reference
036d 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
036e 8042       | B  |		Call	0x0,0x42
036f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0370 00da       |    |		Load_Top	At_Offset_2
0371 0217       |    |		Execute	Heap_Access,All_Reference
0372 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0373 8043       | C  |		Call	0x0,0x43
0374 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0375 00da       |    |		Load_Top	At_Offset_2
0376 0217       |    |		Execute	Heap_Access,All_Reference
0377 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0378 8044       | D  |		Call	0x0,0x44
0379 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037a 00da       |    |		Load_Top	At_Offset_2
037b 0217       |    |		Execute	Heap_Access,All_Reference
037c 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
037d 8045       | E  |		Call	0x0,0x45
037e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037f 00da       |    |		Load_Top	At_Offset_2
0380 0217       |    |		Execute	Heap_Access,All_Reference
0381 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0382 8046       | F  |		Call	0x0,0x46
0383 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0384 00da       |    |		Load_Top	At_Offset_2
0385 0217       |    |		Execute	Heap_Access,All_Reference
0386 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0387 8047       | G  |		Call	0x0,0x47
0388 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0389 00da       |    |		Load_Top	At_Offset_2
038a 0217       |    |		Execute	Heap_Access,All_Reference
038b 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
038c 8048       | H  |		Call	0x0,0x48
038d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038e 0833       | 3  |		Execute_Immediate	Raise,0x33
038f 0000       |    |		.XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 00da       |    |		Load_Top	At_Offset_2
0394 0217       |    |		Execute	Heap_Access,All_Reference
0395 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0396 4609       |F   |		Jump_Case	0xa
0397 785a       |xZ  |		Jump	0x3f2								; case 0x0
0398 7811       |x   |		Jump	0x3aa								; case 0x1
0399 7819       |x   |		Jump	0x3b3								; case 0x2
039a 782a       |x*  |		Jump	0x3c5								; case 0x3
039b 7820       |x   |		Jump	0x3bc								; case 0x4
039c 7831       |x1  |		Jump	0x3ce								; case 0x5
039d 7839       |x9  |		Jump	0x3d7								; case 0x6
039e 7841       |xA  |		Jump	0x3e0								; case 0x7
039f 7849       |xI  |		Jump	0x3e9								; case 0x8
03a0 7800       |x   |		Jump	0x3a1								; case 0x9
03a1 00e1       |    |		Load_Encached	Boolean_Cache
03a2 e5fd       |    |		Load	0x2,-0x3
03a3 e5fe       |    |		Load	0x2,-0x2
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 0217       |    |		Execute	Heap_Access,All_Reference
03a6 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
03a7 8049       | I  |		Call	0x0,0x49
03a8 c5fc       |    |		Store	0x2,-0x4
03a9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03aa 00e1       |    |		Load_Encached	Boolean_Cache
03ab e5fd       |    |		Load	0x2,-0x3
03ac e5fe       |    |		Load	0x2,-0x2
03ad e5ff       |    |		Load	0x2,-0x1
03ae 0217       |    |		Execute	Heap_Access,All_Reference
03af 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03b0 804a       | J  |		Call	0x0,0x4a
03b1 c5fc       |    |		Store	0x2,-0x4
03b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03b3 00e1       |    |		Load_Encached	Boolean_Cache
03b4 e5fd       |    |		Load	0x2,-0x3
03b5 e5fe       |    |		Load	0x2,-0x2
03b6 e5ff       |    |		Load	0x2,-0x1
03b7 0217       |    |		Execute	Heap_Access,All_Reference
03b8 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
03b9 804b       | K  |		Call	0x0,0x4b
03ba c5fc       |    |		Store	0x2,-0x4
03bb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03bc 00e1       |    |		Load_Encached	Boolean_Cache
03bd e5fd       |    |		Load	0x2,-0x3
03be e5fe       |    |		Load	0x2,-0x2
03bf e5ff       |    |		Load	0x2,-0x1
03c0 0217       |    |		Execute	Heap_Access,All_Reference
03c1 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
03c2 804c       | L  |		Call	0x0,0x4c
03c3 c5fc       |    |		Store	0x2,-0x4
03c4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03c5 00e1       |    |		Load_Encached	Boolean_Cache
03c6 e5fd       |    |		Load	0x2,-0x3
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 e5ff       |    |		Load	0x2,-0x1
03c9 0217       |    |		Execute	Heap_Access,All_Reference
03ca 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
03cb 804d       | M  |		Call	0x0,0x4d
03cc c5fc       |    |		Store	0x2,-0x4
03cd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03ce 00e1       |    |		Load_Encached	Boolean_Cache
03cf e5fd       |    |		Load	0x2,-0x3
03d0 e5fe       |    |		Load	0x2,-0x2
03d1 e5ff       |    |		Load	0x2,-0x1
03d2 0217       |    |		Execute	Heap_Access,All_Reference
03d3 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
03d4 804e       | N  |		Call	0x0,0x4e
03d5 c5fc       |    |		Store	0x2,-0x4
03d6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03d7 00e1       |    |		Load_Encached	Boolean_Cache
03d8 e5fd       |    |		Load	0x2,-0x3
03d9 e5fe       |    |		Load	0x2,-0x2
03da e5ff       |    |		Load	0x2,-0x1
03db 0217       |    |		Execute	Heap_Access,All_Reference
03dc 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
03dd 804f       | O  |		Call	0x0,0x4f
03de c5fc       |    |		Store	0x2,-0x4
03df 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03e0 00e1       |    |		Load_Encached	Boolean_Cache
03e1 e5fd       |    |		Load	0x2,-0x3
03e2 e5fe       |    |		Load	0x2,-0x2
03e3 e5ff       |    |		Load	0x2,-0x1
03e4 0217       |    |		Execute	Heap_Access,All_Reference
03e5 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
03e6 8050       | P  |		Call	0x0,0x50
03e7 c5fc       |    |		Store	0x2,-0x4
03e8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03e9 00e1       |    |		Load_Encached	Boolean_Cache
03ea e5fd       |    |		Load	0x2,-0x3
03eb e5fe       |    |		Load	0x2,-0x2
03ec e5ff       |    |		Load	0x2,-0x1
03ed 0217       |    |		Execute	Heap_Access,All_Reference
03ee 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
03ef 8051       | Q  |		Call	0x0,0x51
03f0 c5fc       |    |		Store	0x2,-0x4
03f1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03f2 0833       | 3  |		Execute_Immediate	Raise,0x33
03f3 0000 0000  |    |		.BLANK	0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 0217       |    |		Execute	Heap_Access,All_Reference
03fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03fe 00d1       |    |		Pop_Control	Pop_Count_1
03ff 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 0217       |    |		Execute	Heap_Access,All_Reference
0405 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0406 4609       |F   |		Jump_Case	0xa
0407 7851       |xQ  |		Jump	0x459								; case 0x0
0408 7810       |x   |		Jump	0x419								; case 0x1
0409 7817       |x   |		Jump	0x421								; case 0x2
040a 7826       |x&  |		Jump	0x431								; case 0x3
040b 781d       |x   |		Jump	0x429								; case 0x4
040c 782c       |x,  |		Jump	0x439								; case 0x5
040d 7833       |x3  |		Jump	0x441								; case 0x6
040e 783a       |x:  |		Jump	0x449								; case 0x7
040f 7841       |xA  |		Jump	0x451								; case 0x8
0410 7800       |x   |		Jump	0x411								; case 0x9
0411 e5fd       |    |		Load	0x2,-0x3
0412 e5fe       |    |		Load	0x2,-0x2
0413 e5ff       |    |		Load	0x2,-0x1
0414 0217       |    |		Execute	Heap_Access,All_Reference
0415 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0416 8052       | R  |		Call	0x0,0x52
0417 00d1       |    |		Pop_Control	Pop_Count_1
0418 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0419 e5fd       |    |		Load	0x2,-0x3
041a e5fe       |    |		Load	0x2,-0x2
041b e5ff       |    |		Load	0x2,-0x1
041c 0217       |    |		Execute	Heap_Access,All_Reference
041d 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
041e 8053       | S  |		Call	0x0,0x53
041f 00d1       |    |		Pop_Control	Pop_Count_1
0420 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0421 e5fd       |    |		Load	0x2,-0x3
0422 e5fe       |    |		Load	0x2,-0x2
0423 e5ff       |    |		Load	0x2,-0x1
0424 0217       |    |		Execute	Heap_Access,All_Reference
0425 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0426 8054       | T  |		Call	0x0,0x54
0427 00d1       |    |		Pop_Control	Pop_Count_1
0428 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0429 e5fd       |    |		Load	0x2,-0x3
042a e5fe       |    |		Load	0x2,-0x2
042b e5ff       |    |		Load	0x2,-0x1
042c 0217       |    |		Execute	Heap_Access,All_Reference
042d 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
042e 8055       | U  |		Call	0x0,0x55
042f 00d1       |    |		Pop_Control	Pop_Count_1
0430 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0431 e5fd       |    |		Load	0x2,-0x3
0432 e5fe       |    |		Load	0x2,-0x2
0433 e5ff       |    |		Load	0x2,-0x1
0434 0217       |    |		Execute	Heap_Access,All_Reference
0435 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0436 8056       | V  |		Call	0x0,0x56
0437 00d1       |    |		Pop_Control	Pop_Count_1
0438 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0439 e5fd       |    |		Load	0x2,-0x3
043a e5fe       |    |		Load	0x2,-0x2
043b e5ff       |    |		Load	0x2,-0x1
043c 0217       |    |		Execute	Heap_Access,All_Reference
043d 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
043e 8057       | W  |		Call	0x0,0x57
043f 00d1       |    |		Pop_Control	Pop_Count_1
0440 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0441 e5fd       |    |		Load	0x2,-0x3
0442 e5fe       |    |		Load	0x2,-0x2
0443 e5ff       |    |		Load	0x2,-0x1
0444 0217       |    |		Execute	Heap_Access,All_Reference
0445 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0446 8058       | X  |		Call	0x0,0x58
0447 00d1       |    |		Pop_Control	Pop_Count_1
0448 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0449 e5fd       |    |		Load	0x2,-0x3
044a e5fe       |    |		Load	0x2,-0x2
044b e5ff       |    |		Load	0x2,-0x1
044c 0217       |    |		Execute	Heap_Access,All_Reference
044d 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
044e 8059       | Y  |		Call	0x0,0x59
044f 00d1       |    |		Pop_Control	Pop_Count_1
0450 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0451 e5fd       |    |		Load	0x2,-0x3
0452 e5fe       |    |		Load	0x2,-0x2
0453 e5ff       |    |		Load	0x2,-0x1
0454 0217       |    |		Execute	Heap_Access,All_Reference
0455 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0456 805a       | Z  |		Call	0x0,0x5a
0457 00d1       |    |		Pop_Control	Pop_Count_1
0458 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0459 0833       | 3  |		Execute_Immediate	Raise,0x33
045a 0000 0000  |    |		.BLANK	0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0469       | i  |		.CONST	0x0469								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0003       |    |		.CONST	0x0003								; Number of locals
0463			INIT_0460:
0463 e004       |    |		Load	0x0,0x4
0464 02ff       |    |		Declare_Variable	Variant_Record
0465 00d8       |    |		Load_Top	At_Offset_0
0466 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0467 00e1       |    |		Load_Encached	Boolean_Cache
0468 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0469			BODY_0460:
0469 e5ff       |    |		Load	0x2,-0x1
046a 0217       |    |		Execute	Heap_Access,All_Reference
046b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046c 4609       |F   |		Jump_Case	0xa
046d 785a       |xZ  |		Jump	0x4c8								; case 0x0
046e 7811       |x   |		Jump	0x480								; case 0x1
046f 7819       |x   |		Jump	0x489								; case 0x2
0470 782a       |x*  |		Jump	0x49b								; case 0x3
0471 7820       |x   |		Jump	0x492								; case 0x4
0472 7831       |x1  |		Jump	0x4a4								; case 0x5
0473 7839       |x9  |		Jump	0x4ad								; case 0x6
0474 7841       |xA  |		Jump	0x4b6								; case 0x7
0475 7849       |xI  |		Jump	0x4bf								; case 0x8
0476 7800       |x   |		Jump	0x477								; case 0x9
0477 00e1       |    |		Load_Encached	Boolean_Cache
0478 00da       |    |		Load_Top	At_Offset_2
0479 e5ff       |    |		Load	0x2,-0x1
047a 0217       |    |		Execute	Heap_Access,All_Reference
047b 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
047c 805b       | [  |		Call	0x0,0x5b
047d 00d1       |    |		Pop_Control	Pop_Count_1
047e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
047f 7849       |xI  |		Jump	0x4c9
0480 00e1       |    |		Load_Encached	Boolean_Cache
0481 00da       |    |		Load_Top	At_Offset_2
0482 e5ff       |    |		Load	0x2,-0x1
0483 0217       |    |		Execute	Heap_Access,All_Reference
0484 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0485 805c       | \  |		Call	0x0,0x5c
0486 00d1       |    |		Pop_Control	Pop_Count_1
0487 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0488 7840       |x@  |		Jump	0x4c9
0489 00e1       |    |		Load_Encached	Boolean_Cache
048a 00da       |    |		Load_Top	At_Offset_2
048b e5ff       |    |		Load	0x2,-0x1
048c 0217       |    |		Execute	Heap_Access,All_Reference
048d 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
048e 805d       | ]  |		Call	0x0,0x5d
048f 00d1       |    |		Pop_Control	Pop_Count_1
0490 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0491 7837       |x7  |		Jump	0x4c9
0492 00e1       |    |		Load_Encached	Boolean_Cache
0493 00da       |    |		Load_Top	At_Offset_2
0494 e5ff       |    |		Load	0x2,-0x1
0495 0217       |    |		Execute	Heap_Access,All_Reference
0496 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0497 805e       | ^  |		Call	0x0,0x5e
0498 00d1       |    |		Pop_Control	Pop_Count_1
0499 0059       | Y  |		Store_Top	Discrete,At_Offset_1
049a 782e       |x.  |		Jump	0x4c9
049b 00e1       |    |		Load_Encached	Boolean_Cache
049c 00da       |    |		Load_Top	At_Offset_2
049d e5ff       |    |		Load	0x2,-0x1
049e 0217       |    |		Execute	Heap_Access,All_Reference
049f 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
04a0 805f       | _  |		Call	0x0,0x5f
04a1 00d1       |    |		Pop_Control	Pop_Count_1
04a2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04a3 7825       |x%  |		Jump	0x4c9
04a4 00e1       |    |		Load_Encached	Boolean_Cache
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 e5ff       |    |		Load	0x2,-0x1
04a7 0217       |    |		Execute	Heap_Access,All_Reference
04a8 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
04a9 8060       | `  |		Call	0x0,0x60
04aa 00d1       |    |		Pop_Control	Pop_Count_1
04ab 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04ac 781c       |x   |		Jump	0x4c9
04ad 00e1       |    |		Load_Encached	Boolean_Cache
04ae 00da       |    |		Load_Top	At_Offset_2
04af e5ff       |    |		Load	0x2,-0x1
04b0 0217       |    |		Execute	Heap_Access,All_Reference
04b1 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
04b2 8061       | a  |		Call	0x0,0x61
04b3 00d1       |    |		Pop_Control	Pop_Count_1
04b4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04b5 7813       |x   |		Jump	0x4c9
04b6 00e1       |    |		Load_Encached	Boolean_Cache
04b7 00da       |    |		Load_Top	At_Offset_2
04b8 e5ff       |    |		Load	0x2,-0x1
04b9 0217       |    |		Execute	Heap_Access,All_Reference
04ba 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
04bb 8062       | b  |		Call	0x0,0x62
04bc 00d1       |    |		Pop_Control	Pop_Count_1
04bd 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04be 780a       |x   |		Jump	0x4c9
04bf 00e1       |    |		Load_Encached	Boolean_Cache
04c0 00da       |    |		Load_Top	At_Offset_2
04c1 e5ff       |    |		Load	0x2,-0x1
04c2 0217       |    |		Execute	Heap_Access,All_Reference
04c3 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
04c4 8063       | c  |		Call	0x0,0x63
04c5 00d1       |    |		Pop_Control	Pop_Count_1
04c6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04c7 7801       |x   |		Jump	0x4c9
04c8 0833       | 3  |		Execute_Immediate	Raise,0x33
04c9 00d8       |    |		Load_Top	At_Offset_0
04ca 6806       |h   |		Jump_Zero	0x4d1
04cb e5ff       |    |		Load	0x2,-0x1
04cc 0217       |    |		Execute	Heap_Access,All_Reference
04cd 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
04ce e5fe       |    |		Load	0x2,-0x2
04cf 016d       | m  |		Execute	Variant_Record,Structure_Write
04d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d1 00d9       |    |		Load_Top	At_Offset_1
04d2 e5fe       |    |		Load	0x2,-0x2
04d3 016d       | m  |		Execute	Variant_Record,Structure_Write
04d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d5 0000 0000  |    |		.XXX[0x3]
04d7 0000       |    |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 00da       |    |		Load_Top	At_Offset_2
04dc 0217       |    |		Execute	Heap_Access,All_Reference
04dd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04de 4609       |F   |		Jump_Case	0xa
04df 7848       |xH  |		Jump	0x528								; case 0x0
04e0 780f       |x   |		Jump	0x4f0								; case 0x1
04e1 7815       |x   |		Jump	0x4f7								; case 0x2
04e2 7822       |x"  |		Jump	0x505								; case 0x3
04e3 781a       |x   |		Jump	0x4fe								; case 0x4
04e4 7827       |x'  |		Jump	0x50c								; case 0x5
04e5 782d       |x-  |		Jump	0x513								; case 0x6
04e6 7833       |x3  |		Jump	0x51a								; case 0x7
04e7 7839       |x9  |		Jump	0x521								; case 0x8
04e8 7800       |x   |		Jump	0x4e9								; case 0x9
04e9 e5fd       |    |		Load	0x2,-0x3
04ea e5fe       |    |		Load	0x2,-0x2
04eb e5ff       |    |		Load	0x2,-0x1
04ec 0217       |    |		Execute	Heap_Access,All_Reference
04ed 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
04ee 8064       | d  |		Call	0x0,0x64
04ef 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04f0 e5fd       |    |		Load	0x2,-0x3
04f1 e5fe       |    |		Load	0x2,-0x2
04f2 e5ff       |    |		Load	0x2,-0x1
04f3 0217       |    |		Execute	Heap_Access,All_Reference
04f4 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
04f5 8065       | e  |		Call	0x0,0x65
04f6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04f7 e5fd       |    |		Load	0x2,-0x3
04f8 e5fe       |    |		Load	0x2,-0x2
04f9 e5ff       |    |		Load	0x2,-0x1
04fa 0217       |    |		Execute	Heap_Access,All_Reference
04fb 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
04fc 8066       | f  |		Call	0x0,0x66
04fd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04fe e5fd       |    |		Load	0x2,-0x3
04ff e5fe       |    |		Load	0x2,-0x2
0500 e5ff       |    |		Load	0x2,-0x1
0501 0217       |    |		Execute	Heap_Access,All_Reference
0502 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0503 8067       | g  |		Call	0x0,0x67
0504 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0505 e5fd       |    |		Load	0x2,-0x3
0506 e5fe       |    |		Load	0x2,-0x2
0507 e5ff       |    |		Load	0x2,-0x1
0508 0217       |    |		Execute	Heap_Access,All_Reference
0509 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
050a 8068       | h  |		Call	0x0,0x68
050b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
050c e5fd       |    |		Load	0x2,-0x3
050d e5fe       |    |		Load	0x2,-0x2
050e e5ff       |    |		Load	0x2,-0x1
050f 0217       |    |		Execute	Heap_Access,All_Reference
0510 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0511 8069       | i  |		Call	0x0,0x69
0512 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0513 e5fd       |    |		Load	0x2,-0x3
0514 e5fe       |    |		Load	0x2,-0x2
0515 e5ff       |    |		Load	0x2,-0x1
0516 0217       |    |		Execute	Heap_Access,All_Reference
0517 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0518 806a       | j  |		Call	0x0,0x6a
0519 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
051a e5fd       |    |		Load	0x2,-0x3
051b e5fe       |    |		Load	0x2,-0x2
051c e5ff       |    |		Load	0x2,-0x1
051d 0217       |    |		Execute	Heap_Access,All_Reference
051e 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
051f 806b       | k  |		Call	0x0,0x6b
0520 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0521 e5fd       |    |		Load	0x2,-0x3
0522 e5fe       |    |		Load	0x2,-0x2
0523 e5ff       |    |		Load	0x2,-0x1
0524 0217       |    |		Execute	Heap_Access,All_Reference
0525 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0526 806c       | l  |		Call	0x0,0x6c
0527 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0528 0833       | 3  |		Execute_Immediate	Raise,0x33
0529 0000 0000  |    |		.BLANK	0000[0x7]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 00da       |    |		Load_Top	At_Offset_2
0534 0217       |    |		Execute	Heap_Access,All_Reference
0535 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0536 4609       |F   |		Jump_Case	0xa
0537 7848       |xH  |		Jump	0x580								; case 0x0
0538 780f       |x   |		Jump	0x548								; case 0x1
0539 7815       |x   |		Jump	0x54f								; case 0x2
053a 7822       |x"  |		Jump	0x55d								; case 0x3
053b 781a       |x   |		Jump	0x556								; case 0x4
053c 7827       |x'  |		Jump	0x564								; case 0x5
053d 782d       |x-  |		Jump	0x56b								; case 0x6
053e 7833       |x3  |		Jump	0x572								; case 0x7
053f 7839       |x9  |		Jump	0x579								; case 0x8
0540 7800       |x   |		Jump	0x541								; case 0x9
0541 e5fd       |    |		Load	0x2,-0x3
0542 e5fe       |    |		Load	0x2,-0x2
0543 e5ff       |    |		Load	0x2,-0x1
0544 0217       |    |		Execute	Heap_Access,All_Reference
0545 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0546 806d       | m  |		Call	0x0,0x6d
0547 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0548 e5fd       |    |		Load	0x2,-0x3
0549 e5fe       |    |		Load	0x2,-0x2
054a e5ff       |    |		Load	0x2,-0x1
054b 0217       |    |		Execute	Heap_Access,All_Reference
054c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
054d 806e       | n  |		Call	0x0,0x6e
054e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
054f e5fd       |    |		Load	0x2,-0x3
0550 e5fe       |    |		Load	0x2,-0x2
0551 e5ff       |    |		Load	0x2,-0x1
0552 0217       |    |		Execute	Heap_Access,All_Reference
0553 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0554 806f       | o  |		Call	0x0,0x6f
0555 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0556 e5fd       |    |		Load	0x2,-0x3
0557 e5fe       |    |		Load	0x2,-0x2
0558 e5ff       |    |		Load	0x2,-0x1
0559 0217       |    |		Execute	Heap_Access,All_Reference
055a 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
055b 8070       | p  |		Call	0x0,0x70
055c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
055d e5fd       |    |		Load	0x2,-0x3
055e e5fe       |    |		Load	0x2,-0x2
055f e5ff       |    |		Load	0x2,-0x1
0560 0217       |    |		Execute	Heap_Access,All_Reference
0561 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0562 8071       | q  |		Call	0x0,0x71
0563 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0564 e5fd       |    |		Load	0x2,-0x3
0565 e5fe       |    |		Load	0x2,-0x2
0566 e5ff       |    |		Load	0x2,-0x1
0567 0217       |    |		Execute	Heap_Access,All_Reference
0568 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0569 8072       | r  |		Call	0x0,0x72
056a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
056b e5fd       |    |		Load	0x2,-0x3
056c e5fe       |    |		Load	0x2,-0x2
056d e5ff       |    |		Load	0x2,-0x1
056e 0217       |    |		Execute	Heap_Access,All_Reference
056f 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0570 8073       | s  |		Call	0x0,0x73
0571 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0572 e5fd       |    |		Load	0x2,-0x3
0573 e5fe       |    |		Load	0x2,-0x2
0574 e5ff       |    |		Load	0x2,-0x1
0575 0217       |    |		Execute	Heap_Access,All_Reference
0576 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0577 8074       | t  |		Call	0x0,0x74
0578 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0579 e5fd       |    |		Load	0x2,-0x3
057a e5fe       |    |		Load	0x2,-0x2
057b e5ff       |    |		Load	0x2,-0x1
057c 0217       |    |		Execute	Heap_Access,All_Reference
057d 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
057e 8075       | u  |		Call	0x0,0x75
057f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0580 0833       | 3  |		Execute_Immediate	Raise,0x33
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 00db       |    |		Load_Top	At_Offset_3
058c 0217       |    |		Execute	Heap_Access,All_Reference
058d 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
058e 681f       |h   |		Jump_Zero	0x5ae
058f 00db       |    |		Load_Top	At_Offset_3
0590 0217       |    |		Execute	Heap_Access,All_Reference
0591 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0592 a5fe       |    |		Store_Unchecked	0x2,-0x2
0593 00db       |    |		Load_Top	At_Offset_3
0594 0217       |    |		Execute	Heap_Access,All_Reference
0595 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0596 4609       |F   |		Jump_Case	0xa
0597 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
0598 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
0599 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
059a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
059b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x4
059c 780b       |x   |		Jump	0x5a8								; case 0x5
059d 7804       |x   |		Jump	0x5a2								; case 0x6
059e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
059f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x8
05a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x9
05a1 4502       |E   |		.XXX[0x1]
05a2 00da       |    |		Load_Top	At_Offset_2
05a3 e5fe       |    |		Load	0x2,-0x2
05a4 0217       |    |		Execute	Heap_Access,All_Reference
05a5 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
05a6 8076       | v  |		Call	0x0,0x76
05a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a8 00da       |    |		Load_Top	At_Offset_2
05a9 e5fe       |    |		Load	0x2,-0x2
05aa 0217       |    |		Execute	Heap_Access,All_Reference
05ab 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
05ac 8077       | w  |		Call	0x0,0x77
05ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ae 4800       |H   |		Short_Literal	0x0
05af 0092 0d5d  |   ]|		Action	Push_String_Extended,0xd5d					; "No previous Images for Undo"
05b1 801b       |    |		Call	0x0,0x1b
05b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b3 0000 0000  |    |		.BLANK	0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 00db       |    |		Load_Top	At_Offset_3
05bc 0217       |    |		Execute	Heap_Access,All_Reference
05bd 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
05be 681f       |h   |		Jump_Zero	0x5de
05bf 00db       |    |		Load_Top	At_Offset_3
05c0 0217       |    |		Execute	Heap_Access,All_Reference
05c1 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
05c2 a5fe       |    |		Store_Unchecked	0x2,-0x2
05c3 00db       |    |		Load_Top	At_Offset_3
05c4 0217       |    |		Execute	Heap_Access,All_Reference
05c5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05c6 4609       |F   |		Jump_Case	0xa
05c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
05c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
05c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
05ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
05cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x4
05cc 780b       |x   |		Jump	0x5d8								; case 0x5
05cd 7804       |x   |		Jump	0x5d2								; case 0x6
05ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
05cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x8
05d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x9
05d1 4502       |E   |		.XXX[0x1]
05d2 00da       |    |		Load_Top	At_Offset_2
05d3 e5fe       |    |		Load	0x2,-0x2
05d4 0217       |    |		Execute	Heap_Access,All_Reference
05d5 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
05d6 8078       | x  |		Call	0x0,0x78
05d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d8 00da       |    |		Load_Top	At_Offset_2
05d9 e5fe       |    |		Load	0x2,-0x2
05da 0217       |    |		Execute	Heap_Access,All_Reference
05db 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
05dc 8079       | y  |		Call	0x0,0x79
05dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05de 4800       |H   |		Short_Literal	0x0
05df 0092 0d5e  |   ^|		Action	Push_String_Extended,0xd5e					; "No more Images for Redo"
05e1 801b       |    |		Call	0x0,0x1b
05e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05e3 0000 0000  |    |		.BLANK	0000[0x5]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00db       |    |		Load_Top	At_Offset_3
05ec 0217       |    |		Execute	Heap_Access,All_Reference
05ed 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ee 4609       |F   |		Jump_Case	0xa
05ef 7843       |xC  |		Jump	0x633								; case 0x0
05f0 780e       |x   |		Jump	0x5ff								; case 0x1
05f1 7813       |x   |		Jump	0x605								; case 0x2
05f2 781e       |x   |		Jump	0x611								; case 0x3
05f3 7817       |x   |		Jump	0x60b								; case 0x4
05f4 7822       |x"  |		Jump	0x617								; case 0x5
05f5 782b       |x+  |		Jump	0x621								; case 0x6
05f6 7830       |x0  |		Jump	0x627								; case 0x7
05f7 7835       |x5  |		Jump	0x62d								; case 0x8
05f8 7800       |x   |		Jump	0x5f9								; case 0x9
05f9 00da       |    |		Load_Top	At_Offset_2
05fa e5fe       |    |		Load	0x2,-0x2
05fb 0217       |    |		Execute	Heap_Access,All_Reference
05fc 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
05fd 807a       | z  |		Call	0x0,0x7a
05fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ff 00da       |    |		Load_Top	At_Offset_2
0600 e5fe       |    |		Load	0x2,-0x2
0601 0217       |    |		Execute	Heap_Access,All_Reference
0602 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0603 807b       | {  |		Call	0x0,0x7b
0604 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0605 00da       |    |		Load_Top	At_Offset_2
0606 e5fe       |    |		Load	0x2,-0x2
0607 0217       |    |		Execute	Heap_Access,All_Reference
0608 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0609 807c       | |  |		Call	0x0,0x7c
060a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060b 00da       |    |		Load_Top	At_Offset_2
060c e5fe       |    |		Load	0x2,-0x2
060d 0217       |    |		Execute	Heap_Access,All_Reference
060e 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
060f 807d       | }  |		Call	0x0,0x7d
0610 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0611 00da       |    |		Load_Top	At_Offset_2
0612 e5fe       |    |		Load	0x2,-0x2
0613 0217       |    |		Execute	Heap_Access,All_Reference
0614 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0615 807e       | ~  |		Call	0x0,0x7e
0616 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0617 00db       |    |		Load_Top	At_Offset_3
0618 0219       |    |		Execute	Heap_Access,All_Read
0619 00d8       |    |		Load_Top	At_Offset_0
061a 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
061b e5ff       |    |		Load	0x2,-0x1
061c 807f       |    |		Call	0x0,0x7f
061d 00d9       |    |		Load_Top	At_Offset_1
061e 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
061f 00d1       |    |		Pop_Control	Pop_Count_1
0620 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0621 00da       |    |		Load_Top	At_Offset_2
0622 e5fe       |    |		Load	0x2,-0x2
0623 0217       |    |		Execute	Heap_Access,All_Reference
0624 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0625 8080       |    |		Call	0x0,0x80
0626 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0627 00da       |    |		Load_Top	At_Offset_2
0628 e5fe       |    |		Load	0x2,-0x2
0629 0217       |    |		Execute	Heap_Access,All_Reference
062a 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
062b 8081       |    |		Call	0x0,0x81
062c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
062d 00da       |    |		Load_Top	At_Offset_2
062e e5fe       |    |		Load	0x2,-0x2
062f 0217       |    |		Execute	Heap_Access,All_Reference
0630 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0631 8082       |    |		Call	0x0,0x82
0632 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0633 0833       | 3  |		Execute_Immediate	Raise,0x33
0634 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
063c 0217       |    |		Execute	Heap_Access,All_Reference
063d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
063e 4609       |F   |		Jump_Case	0xa
063f 783f       |x?  |		Jump	0x67f								; case 0x0
0640 780e       |x   |		Jump	0x64f								; case 0x1
0641 7813       |x   |		Jump	0x655								; case 0x2
0642 781e       |x   |		Jump	0x661								; case 0x3
0643 7817       |x   |		Jump	0x65b								; case 0x4
0644 7822       |x"  |		Jump	0x667								; case 0x5
0645 7827       |x'  |		Jump	0x66d								; case 0x6
0646 782c       |x,  |		Jump	0x673								; case 0x7
0647 7831       |x1  |		Jump	0x679								; case 0x8
0648 7800       |x   |		Jump	0x649								; case 0x9
0649 00db       |    |		Load_Top	At_Offset_3
064a 00db       |    |		Load_Top	At_Offset_3
064b 0217       |    |		Execute	Heap_Access,All_Reference
064c 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
064d 8083       |    |		Call	0x0,0x83
064e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
064f 00db       |    |		Load_Top	At_Offset_3
0650 00db       |    |		Load_Top	At_Offset_3
0651 0217       |    |		Execute	Heap_Access,All_Reference
0652 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0653 8084       |    |		Call	0x0,0x84
0654 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0655 00db       |    |		Load_Top	At_Offset_3
0656 00db       |    |		Load_Top	At_Offset_3
0657 0217       |    |		Execute	Heap_Access,All_Reference
0658 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0659 8085       |    |		Call	0x0,0x85
065a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
065b 00db       |    |		Load_Top	At_Offset_3
065c 00db       |    |		Load_Top	At_Offset_3
065d 0217       |    |		Execute	Heap_Access,All_Reference
065e 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
065f 8086       |    |		Call	0x0,0x86
0660 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0661 00db       |    |		Load_Top	At_Offset_3
0662 00db       |    |		Load_Top	At_Offset_3
0663 0217       |    |		Execute	Heap_Access,All_Reference
0664 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0665 8087       |    |		Call	0x0,0x87
0666 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0667 00db       |    |		Load_Top	At_Offset_3
0668 00db       |    |		Load_Top	At_Offset_3
0669 0217       |    |		Execute	Heap_Access,All_Reference
066a 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
066b 8088       |    |		Call	0x0,0x88
066c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
066d 00db       |    |		Load_Top	At_Offset_3
066e 00db       |    |		Load_Top	At_Offset_3
066f 0217       |    |		Execute	Heap_Access,All_Reference
0670 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0671 8089       |    |		Call	0x0,0x89
0672 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0673 00db       |    |		Load_Top	At_Offset_3
0674 00db       |    |		Load_Top	At_Offset_3
0675 0217       |    |		Execute	Heap_Access,All_Reference
0676 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0677 808a       |    |		Call	0x0,0x8a
0678 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0679 00db       |    |		Load_Top	At_Offset_3
067a 00db       |    |		Load_Top	At_Offset_3
067b 0217       |    |		Execute	Heap_Access,All_Reference
067c 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
067d 808b       |    |		Call	0x0,0x8b
067e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
067f 0833       | 3  |		Execute_Immediate	Raise,0x33
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 00da       |    |		Load_Top	At_Offset_2
0684 8243       | C  |		Call	0x1,0x43
0685 00da       |    |		Load_Top	At_Offset_2
0686 0217       |    |		Execute	Heap_Access,All_Reference
0687 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0688 4609       |F   |		Jump_Case	0xa
0689 783f       |x?  |		Jump	0x6c9								; case 0x0
068a 780e       |x   |		Jump	0x699								; case 0x1
068b 7813       |x   |		Jump	0x69f								; case 0x2
068c 781e       |x   |		Jump	0x6ab								; case 0x3
068d 7817       |x   |		Jump	0x6a5								; case 0x4
068e 7822       |x"  |		Jump	0x6b1								; case 0x5
068f 7827       |x'  |		Jump	0x6b7								; case 0x6
0690 782c       |x,  |		Jump	0x6bd								; case 0x7
0691 7831       |x1  |		Jump	0x6c3								; case 0x8
0692 7800       |x   |		Jump	0x693								; case 0x9
0693 00db       |    |		Load_Top	At_Offset_3
0694 00db       |    |		Load_Top	At_Offset_3
0695 0217       |    |		Execute	Heap_Access,All_Reference
0696 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0697 808c       |    |		Call	0x0,0x8c
0698 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0699 00db       |    |		Load_Top	At_Offset_3
069a 00db       |    |		Load_Top	At_Offset_3
069b 0217       |    |		Execute	Heap_Access,All_Reference
069c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
069d 808d       |    |		Call	0x0,0x8d
069e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
069f 00db       |    |		Load_Top	At_Offset_3
06a0 00db       |    |		Load_Top	At_Offset_3
06a1 0217       |    |		Execute	Heap_Access,All_Reference
06a2 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
06a3 808e       |    |		Call	0x0,0x8e
06a4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06a5 00db       |    |		Load_Top	At_Offset_3
06a6 00db       |    |		Load_Top	At_Offset_3
06a7 0217       |    |		Execute	Heap_Access,All_Reference
06a8 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
06a9 808f       |    |		Call	0x0,0x8f
06aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06ab 00db       |    |		Load_Top	At_Offset_3
06ac 00db       |    |		Load_Top	At_Offset_3
06ad 0217       |    |		Execute	Heap_Access,All_Reference
06ae 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
06af 8090       |    |		Call	0x0,0x90
06b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06b1 00db       |    |		Load_Top	At_Offset_3
06b2 00db       |    |		Load_Top	At_Offset_3
06b3 0217       |    |		Execute	Heap_Access,All_Reference
06b4 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
06b5 8091       |    |		Call	0x0,0x91
06b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06b7 00db       |    |		Load_Top	At_Offset_3
06b8 00db       |    |		Load_Top	At_Offset_3
06b9 0217       |    |		Execute	Heap_Access,All_Reference
06ba 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
06bb 8092       |    |		Call	0x0,0x92
06bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06bd 00db       |    |		Load_Top	At_Offset_3
06be 00db       |    |		Load_Top	At_Offset_3
06bf 0217       |    |		Execute	Heap_Access,All_Reference
06c0 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
06c1 8093       |    |		Call	0x0,0x93
06c2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06c3 00db       |    |		Load_Top	At_Offset_3
06c4 00db       |    |		Load_Top	At_Offset_3
06c5 0217       |    |		Execute	Heap_Access,All_Reference
06c6 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
06c7 8094       |    |		Call	0x0,0x94
06c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06c9 0833       | 3  |		Execute_Immediate	Raise,0x33
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 00da       |    |		Load_Top	At_Offset_2
06d4 0217       |    |		Execute	Heap_Access,All_Reference
06d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06d6 0f05       |    |		Execute_Immediate	Equal,0x5
06d7 6805       |h   |		Jump_Zero	0x6dd
06d8 00da       |    |		Load_Top	At_Offset_2
06d9 0217       |    |		Execute	Heap_Access,All_Reference
06da 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
06db 8095       |    |		Call	0x0,0x95
06dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06dd 00ea       |    |		Load_Encached	Null_String_Cache
06de 0092 0d5f  |   _|		Action	Push_String_Extended,0xd5f					; "Semanticize"
06e0 e096       |    |		Load	0x0,0x96
06e1 e23f       | ?  |		Load	0x1,0x3f
06e2 0096       |    |		Execute	Package,Entry
06e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e4 0000 0000  |    |		.BLANK	0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb 00da       |    |		Load_Top	At_Offset_2
06ec 0217       |    |		Execute	Heap_Access,All_Reference
06ed 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06ee 0f05       |    |		Execute_Immediate	Equal,0x5
06ef 7008       |p   |		Jump_Nonzero	0x6f8
06f0 00ea       |    |		Load_Encached	Null_String_Cache
06f1 0092 0d60  |   `|		Action	Push_String_Extended,0xd60					; "Edit"
06f3 e096       |    |		Load	0x0,0x96
06f4 e23f       | ?  |		Load	0x1,0x3f
06f5 0096       |    |		Execute	Package,Entry
06f6 00ea       |    |		Load_Encached	Null_String_Cache
06f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06f8 00db       |    |		Load_Top	At_Offset_3
06f9 00db       |    |		Load_Top	At_Offset_3
06fa 0217       |    |		Execute	Heap_Access,All_Reference
06fb 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
06fc 8097       |    |		Call	0x0,0x97
06fd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06fe 0000 0000  |    |		.XXX[0x2]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			INIT_0700:
0703 00da       |    |		Load_Top	At_Offset_2
0704 0217       |    |		Execute	Heap_Access,All_Reference
0705 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0706 0f06       |    |		Execute_Immediate	Equal,0x6
0707 7008       |p   |		Jump_Nonzero	0x710
0708 00ea       |    |		Load_Encached	Null_String_Cache
0709 0092 0d60  |   `|		Action	Push_String_Extended,0xd60					; "Edit"
070b e096       |    |		Load	0x0,0x96
070c e23f       | ?  |		Load	0x1,0x3f
070d 0096       |    |		Execute	Package,Entry
070e 00ea       |    |		Load_Encached	Null_String_Cache
070f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0710 00db       |    |		Load_Top	At_Offset_3
0711 00db       |    |		Load_Top	At_Offset_3
0712 0217       |    |		Execute	Heap_Access,All_Reference
0713 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0714 8098       |    |		Call	0x0,0x98
0715 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0716 0000 0000  |    |		.XXX[0x2]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b       |    |		.CONST	0x071b								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0001       |    |		.CONST	0x0001								; Number of locals
071b			BODY_0718:
071b			INIT_0718:
071b 00da       |    |		Load_Top	At_Offset_2
071c 0217       |    |		Execute	Heap_Access,All_Reference
071d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
071e 4609       |F   |		Jump_Case	0xa
071f 783f       |x?  |		Jump	0x75f								; case 0x0
0720 780e       |x   |		Jump	0x72f								; case 0x1
0721 7813       |x   |		Jump	0x735								; case 0x2
0722 781e       |x   |		Jump	0x741								; case 0x3
0723 7817       |x   |		Jump	0x73b								; case 0x4
0724 7822       |x"  |		Jump	0x747								; case 0x5
0725 7827       |x'  |		Jump	0x74d								; case 0x6
0726 782c       |x,  |		Jump	0x753								; case 0x7
0727 7831       |x1  |		Jump	0x759								; case 0x8
0728 7800       |x   |		Jump	0x729								; case 0x9
0729 00db       |    |		Load_Top	At_Offset_3
072a 00db       |    |		Load_Top	At_Offset_3
072b 0217       |    |		Execute	Heap_Access,All_Reference
072c 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
072d 8099       |    |		Call	0x0,0x99
072e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
072f 00db       |    |		Load_Top	At_Offset_3
0730 00db       |    |		Load_Top	At_Offset_3
0731 0217       |    |		Execute	Heap_Access,All_Reference
0732 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0733 809a       |    |		Call	0x0,0x9a
0734 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0735 00db       |    |		Load_Top	At_Offset_3
0736 00db       |    |		Load_Top	At_Offset_3
0737 0217       |    |		Execute	Heap_Access,All_Reference
0738 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0739 809b       |    |		Call	0x0,0x9b
073a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
073b 00db       |    |		Load_Top	At_Offset_3
073c 00db       |    |		Load_Top	At_Offset_3
073d 0217       |    |		Execute	Heap_Access,All_Reference
073e 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
073f 809c       |    |		Call	0x0,0x9c
0740 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0741 00db       |    |		Load_Top	At_Offset_3
0742 00db       |    |		Load_Top	At_Offset_3
0743 0217       |    |		Execute	Heap_Access,All_Reference
0744 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0745 809d       |    |		Call	0x0,0x9d
0746 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0747 00db       |    |		Load_Top	At_Offset_3
0748 00db       |    |		Load_Top	At_Offset_3
0749 0217       |    |		Execute	Heap_Access,All_Reference
074a 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
074b 809e       |    |		Call	0x0,0x9e
074c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
074d 00db       |    |		Load_Top	At_Offset_3
074e 00db       |    |		Load_Top	At_Offset_3
074f 0217       |    |		Execute	Heap_Access,All_Reference
0750 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0751 809f       |    |		Call	0x0,0x9f
0752 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0753 00db       |    |		Load_Top	At_Offset_3
0754 00db       |    |		Load_Top	At_Offset_3
0755 0217       |    |		Execute	Heap_Access,All_Reference
0756 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0757 80a0       |    |		Call	0x0,0xa0
0758 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0759 00db       |    |		Load_Top	At_Offset_3
075a 00db       |    |		Load_Top	At_Offset_3
075b 0217       |    |		Execute	Heap_Access,All_Reference
075c 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
075d 80a1       |    |		Call	0x0,0xa1
075e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
075f 0833       | 3  |		Execute_Immediate	Raise,0x33
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763       | c  |		.CONST	0x0763								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0001       |    |		.CONST	0x0001								; Number of locals
0763			BODY_0760:
0763			INIT_0760:
0763 00da       |    |		Load_Top	At_Offset_2
0764 8243       | C  |		Call	0x1,0x43
0765 00da       |    |		Load_Top	At_Offset_2
0766 0217       |    |		Execute	Heap_Access,All_Reference
0767 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0768 4609       |F   |		Jump_Case	0xa
0769 783f       |x?  |		Jump	0x7a9								; case 0x0
076a 780e       |x   |		Jump	0x779								; case 0x1
076b 7813       |x   |		Jump	0x77f								; case 0x2
076c 781e       |x   |		Jump	0x78b								; case 0x3
076d 7817       |x   |		Jump	0x785								; case 0x4
076e 7822       |x"  |		Jump	0x791								; case 0x5
076f 7827       |x'  |		Jump	0x797								; case 0x6
0770 782c       |x,  |		Jump	0x79d								; case 0x7
0771 7831       |x1  |		Jump	0x7a3								; case 0x8
0772 7800       |x   |		Jump	0x773								; case 0x9
0773 00db       |    |		Load_Top	At_Offset_3
0774 00db       |    |		Load_Top	At_Offset_3
0775 0217       |    |		Execute	Heap_Access,All_Reference
0776 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0777 80a2       |    |		Call	0x0,0xa2
0778 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0779 00db       |    |		Load_Top	At_Offset_3
077a 00db       |    |		Load_Top	At_Offset_3
077b 0217       |    |		Execute	Heap_Access,All_Reference
077c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
077d 80a3       |    |		Call	0x0,0xa3
077e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
077f 00db       |    |		Load_Top	At_Offset_3
0780 00db       |    |		Load_Top	At_Offset_3
0781 0217       |    |		Execute	Heap_Access,All_Reference
0782 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0783 80a4       |    |		Call	0x0,0xa4
0784 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0785 00db       |    |		Load_Top	At_Offset_3
0786 00db       |    |		Load_Top	At_Offset_3
0787 0217       |    |		Execute	Heap_Access,All_Reference
0788 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0789 80a5       |    |		Call	0x0,0xa5
078a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
078b 00db       |    |		Load_Top	At_Offset_3
078c 00db       |    |		Load_Top	At_Offset_3
078d 0217       |    |		Execute	Heap_Access,All_Reference
078e 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
078f 80a6       |    |		Call	0x0,0xa6
0790 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0791 00db       |    |		Load_Top	At_Offset_3
0792 00db       |    |		Load_Top	At_Offset_3
0793 0217       |    |		Execute	Heap_Access,All_Reference
0794 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0795 80a7       |    |		Call	0x0,0xa7
0796 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0797 00db       |    |		Load_Top	At_Offset_3
0798 00db       |    |		Load_Top	At_Offset_3
0799 0217       |    |		Execute	Heap_Access,All_Reference
079a 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
079b 80a8       |    |		Call	0x0,0xa8
079c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
079d 00db       |    |		Load_Top	At_Offset_3
079e 00db       |    |		Load_Top	At_Offset_3
079f 0217       |    |		Execute	Heap_Access,All_Reference
07a0 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
07a1 80a9       |    |		Call	0x0,0xa9
07a2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07a3 00db       |    |		Load_Top	At_Offset_3
07a4 00db       |    |		Load_Top	At_Offset_3
07a5 0217       |    |		Execute	Heap_Access,All_Reference
07a6 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
07a7 80aa       |    |		Call	0x0,0xaa
07a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07a9 0833       | 3  |		Execute_Immediate	Raise,0x33
07aa 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
07b4 0217       |    |		Execute	Heap_Access,All_Reference
07b5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07b6 0f01       |    |		Execute_Immediate	Equal,0x1
07b7 7007       |p   |		Jump_Nonzero	0x7bf
07b8 00ea       |    |		Load_Encached	Null_String_Cache
07b9 0092 0d61  |   a|		Action	Push_String_Extended,0xd61					; "Show_Differential"
07bb e096       |    |		Load	0x0,0x96
07bc e23f       | ?  |		Load	0x1,0x3f
07bd 0096       |    |		Execute	Package,Entry
07be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07bf e5fd       |    |		Load	0x2,-0x3
07c0 e5fe       |    |		Load	0x2,-0x2
07c1 e5ff       |    |		Load	0x2,-0x1
07c2 0217       |    |		Execute	Heap_Access,All_Reference
07c3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
07c4 80ab       |    |		Call	0x0,0xab
07c5 00d1       |    |		Pop_Control	Pop_Count_1
07c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07c7 0000       |    |		.XXX[0x1]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb       |    |		.CONST	0x07cb								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0001       |    |		.CONST	0x0001								; Number of locals
07cb			BODY_07c8:
07cb			INIT_07c8:
07cb 00da       |    |		Load_Top	At_Offset_2
07cc 0217       |    |		Execute	Heap_Access,All_Reference
07cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07ce 4609       |F   |		Jump_Case	0xa
07cf 7809       |x   |		Jump	0x7d9								; case 0x0
07d0 780f       |x   |		Jump	0x7e0								; case 0x1
07d1 7814       |x   |		Jump	0x7e6								; case 0x2
07d2 7806       |x   |		Jump	0x7d9								; case 0x3
07d3 7805       |x   |		Jump	0x7d9								; case 0x4
07d4 7804       |x   |		Jump	0x7d9								; case 0x5
07d5 7803       |x   |		Jump	0x7d9								; case 0x6
07d6 7802       |x   |		Jump	0x7d9								; case 0x7
07d7 7801       |x   |		Jump	0x7d9								; case 0x8
07d8 7800       |x   |		Jump	0x7d9								; case 0x9
07d9 00ea       |    |		Load_Encached	Null_String_Cache
07da 0092 0d62  |   b|		Action	Push_String_Extended,0xd62					; "Generate_Test_Set"
07dc e096       |    |		Load	0x0,0x96
07dd e23f       | ?  |		Load	0x1,0x3f
07de 0096       |    |		Execute	Package,Entry
07df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e0 00db       |    |		Load_Top	At_Offset_3
07e1 00db       |    |		Load_Top	At_Offset_3
07e2 0217       |    |		Execute	Heap_Access,All_Reference
07e3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
07e4 80ac       |    |		Call	0x0,0xac
07e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e6 00db       |    |		Load_Top	At_Offset_3
07e7 00db       |    |		Load_Top	At_Offset_3
07e8 0217       |    |		Execute	Heap_Access,All_Reference
07e9 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
07ea 80ad       |    |		Call	0x0,0xad
07eb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07ec 0000 0000  |    |		.BLANK	0000[0x4]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3       |    |		.CONST	0x07f3								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0001       |    |		.CONST	0x0001								; Number of locals
07f3			BODY_07f0:
07f3			INIT_07f0:
07f3 00da       |    |		Load_Top	At_Offset_2
07f4 0217       |    |		Execute	Heap_Access,All_Reference
07f5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07f6 4609       |F   |		Jump_Case	0xa
07f7 7809       |x   |		Jump	0x801								; case 0x0
07f8 7808       |x   |		Jump	0x801								; case 0x1
07f9 7807       |x   |		Jump	0x801								; case 0x2
07fa 7806       |x   |		Jump	0x801								; case 0x3
07fb 7805       |x   |		Jump	0x801								; case 0x4
07fc 780b       |x   |		Jump	0x808								; case 0x5
07fd 7810       |x   |		Jump	0x80e								; case 0x6
07fe 7802       |x   |		Jump	0x801								; case 0x7
07ff 7801       |x   |		Jump	0x801								; case 0x8
0800 7800       |x   |		Jump	0x801								; case 0x9
0801 00ea       |    |		Load_Encached	Null_String_Cache
0802 0092 0d63  |   c|		Action	Push_String_Extended,0xd63					; "Save_As"
0804 e096       |    |		Load	0x0,0x96
0805 e23f       | ?  |		Load	0x1,0x3f
0806 0096       |    |		Execute	Package,Entry
0807 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0808 00db       |    |		Load_Top	At_Offset_3
0809 00db       |    |		Load_Top	At_Offset_3
080a 0217       |    |		Execute	Heap_Access,All_Reference
080b 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
080c 80ae       |    |		Call	0x0,0xae
080d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
080e 00db       |    |		Load_Top	At_Offset_3
080f 00db       |    |		Load_Top	At_Offset_3
0810 0217       |    |		Execute	Heap_Access,All_Reference
0811 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0812 80af       |    |		Call	0x0,0xaf
0813 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0814 0000 0000  |    |		.BLANK	0000[0x4]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 0825       | %  |		.CONST	0x0825								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0003       |    |		.CONST	0x0003								; Number of locals
081b			INIT_0818:
081b e0b0       |    |		Load	0x0,0xb0
081c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
081d 02c7       |    |		Declare_Variable	Any
081e 00d8       |    |		Load_Top	At_Offset_0
081f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0820 00db       |    |		Load_Top	At_Offset_3
0821 0217       |    |		Execute	Heap_Access,All_Reference
0822 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0823 e23e       | >  |		Load	0x1,0x3e
0824 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0825			BODY_0818:
0825 00d9       |    |		Load_Top	At_Offset_1
0826 00ea       |    |		Load_Encached	Null_String_Cache
0827 e5fe       |    |		Load	0x2,-0x2
0828 4801       |H   |		Short_Literal	0x1
0829 e0b0       |    |		Load	0x0,0xb0
082a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
082b c402       |    |		Store	0x2,0x2
082c 00d8       |    |		Load_Top	At_Offset_0
082d e5ff       |    |		Load	0x2,-0x1
082e 823a       | :  |		Call	0x1,0x3a
082f 00d1       |    |		Pop_Control	Pop_Count_1
0830 00cf       |    |		Action	Mark_Auxiliary
0831 780a       |x   |		Jump	0x83c
0832 00d9       |    |		Load_Top	At_Offset_1
0833 823c       | <  |		Call	0x1,0x3c
0834 80b1       |    |		Call	0x0,0xb1
0835 00db       |    |		Load_Top	At_Offset_3
0836 e0b0       |    |		Load	0x0,0xb0
0837 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0838 00d9       |    |		Load_Top	At_Offset_1
0839 823d       | =  |		Call	0x1,0x3d
083a 00d1       |    |		Pop_Control	Pop_Count_1
083b 00c9       |    |		Action	Pop_Auxiliary_Loop
083c 00d9       |    |		Load_Top	At_Offset_1
083d 823b       | ;  |		Call	0x1,0x3b
083e 6ff3       |o   |		Jump_Zero	0x832
083f 00ce       |    |		Action	Pop_Auxiliary
0840 00d9       |    |		Load_Top	At_Offset_1
0841 e0b0       |    |		Load	0x0,0xb0
0842 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0843 c402       |    |		Store	0x2,0x2
0844 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0845 0000 0000  |    |		.XXX[0x3]
0847 0000       |    |
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b       | K  |		.CONST	0x084b								; Address of begin
0849 0004       |    |		.CONST	0x0004								; Address of exception handler
084a 0001       |    |		.CONST	0x0001								; Number of locals
084b			BODY_0848:
084b			INIT_0848:
084b 00da       |    |		Load_Top	At_Offset_2
084c 8243       | C  |		Call	0x1,0x43
084d 00da       |    |		Load_Top	At_Offset_2
084e 0217       |    |		Execute	Heap_Access,All_Reference
084f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0850 0f06       |    |		Execute_Immediate	Equal,0x6
0851 6807       |h   |		Jump_Zero	0x859
0852 e5fd       |    |		Load	0x2,-0x3
0853 e5fe       |    |		Load	0x2,-0x2
0854 e5ff       |    |		Load	0x2,-0x1
0855 0217       |    |		Execute	Heap_Access,All_Reference
0856 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0857 80b2       |    |		Call	0x0,0xb2
0858 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0859 00ea       |    |		Load_Encached	Null_String_Cache
085a 0092 0d64  |   d|		Action	Push_String_Extended,0xd64					; "Set_Value"
085c e096       |    |		Load	0x0,0x96
085d e23f       | ?  |		Load	0x1,0x3f
085e 0096       |    |		Execute	Package,Entry
085f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863       | c  |		.CONST	0x0863								; Address of begin
0861 0004       |    |		.CONST	0x0004								; Address of exception handler
0862 0001       |    |		.CONST	0x0001								; Number of locals
0863			BODY_0860:
0863			INIT_0860:
0863 00da       |    |		Load_Top	At_Offset_2
0864 8243       | C  |		Call	0x1,0x43
0865 00da       |    |		Load_Top	At_Offset_2
0866 0217       |    |		Execute	Heap_Access,All_Reference
0867 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0868 0f06       |    |		Execute_Immediate	Equal,0x6
0869 680b       |h   |		Jump_Zero	0x875
086a e5f9       |    |		Load	0x2,-0x7
086b e5fa       |    |		Load	0x2,-0x6
086c e5fb       |    |		Load	0x2,-0x5
086d e5fc       |    |		Load	0x2,-0x4
086e e5fd       |    |		Load	0x2,-0x3
086f e5fe       |    |		Load	0x2,-0x2
0870 e5ff       |    |		Load	0x2,-0x1
0871 0217       |    |		Execute	Heap_Access,All_Reference
0872 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0873 80b3       |    |		Call	0x0,0xb3
0874 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0875 00ea       |    |		Load_Encached	Null_String_Cache
0876 0092 0d65  |   e|		Action	Push_String_Extended,0xd65					; "Set_Term_Control_Value"
0878 e096       |    |		Load	0x0,0x96
0879 e23f       | ?  |		Load	0x1,0x3f
087a 0096       |    |		Execute	Package,Entry
087b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
087c 0000 0000  |    |		.BLANK	0000[0x4]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 00da       |    |		Load_Top	At_Offset_2
0884 8243       | C  |		Call	0x1,0x43
0885 00da       |    |		Load_Top	At_Offset_2
0886 0217       |    |		Execute	Heap_Access,All_Reference
0887 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0888 0f05       |    |		Execute_Immediate	Equal,0x5
0889 6807       |h   |		Jump_Zero	0x891
088a e5fd       |    |		Load	0x2,-0x3
088b e5fe       |    |		Load	0x2,-0x2
088c e5ff       |    |		Load	0x2,-0x1
088d 0217       |    |		Execute	Heap_Access,All_Reference
088e 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
088f 80b4       |    |		Call	0x0,0xb4
0890 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0891 00ea       |    |		Load_Encached	Null_String_Cache
0892 0092 0d66  |   f|		Action	Push_String_Extended,0xd66					; "Insert"
0894 e096       |    |		Load	0x0,0x96
0895 e23f       | ?  |		Load	0x1,0x3f
0896 0096       |    |		Execute	Package,Entry
0897 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b       |    |		.CONST	0x089b								; Address of begin
0899 0004       |    |		.CONST	0x0004								; Address of exception handler
089a 0001       |    |		.CONST	0x0001								; Number of locals
089b			BODY_0898:
089b			INIT_0898:
089b 00da       |    |		Load_Top	At_Offset_2
089c 0217       |    |		Execute	Heap_Access,All_Reference
089d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
089e 4609       |F   |		Jump_Case	0xa
089f 7836       |x6  |		Jump	0x8d6								; case 0x0
08a0 780d       |x   |		Jump	0x8ae								; case 0x1
08a1 7811       |x   |		Jump	0x8b3								; case 0x2
08a2 781a       |x   |		Jump	0x8bd								; case 0x3
08a3 7814       |x   |		Jump	0x8b8								; case 0x4
08a4 781d       |x   |		Jump	0x8c2								; case 0x5
08a5 7821       |x!  |		Jump	0x8c7								; case 0x6
08a6 7825       |x%  |		Jump	0x8cc								; case 0x7
08a7 7829       |x)  |		Jump	0x8d1								; case 0x8
08a8 7800       |x   |		Jump	0x8a9								; case 0x9
08a9 00da       |    |		Load_Top	At_Offset_2
08aa 0217       |    |		Execute	Heap_Access,All_Reference
08ab 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
08ac 80b5       |    |		Call	0x0,0xb5
08ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08ae 00da       |    |		Load_Top	At_Offset_2
08af 0217       |    |		Execute	Heap_Access,All_Reference
08b0 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
08b1 80b6       |    |		Call	0x0,0xb6
08b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08b3 00da       |    |		Load_Top	At_Offset_2
08b4 0217       |    |		Execute	Heap_Access,All_Reference
08b5 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
08b6 80b7       |    |		Call	0x0,0xb7
08b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08b8 00da       |    |		Load_Top	At_Offset_2
08b9 0217       |    |		Execute	Heap_Access,All_Reference
08ba 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
08bb 80b8       |    |		Call	0x0,0xb8
08bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08bd 00da       |    |		Load_Top	At_Offset_2
08be 0217       |    |		Execute	Heap_Access,All_Reference
08bf 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
08c0 80b9       |    |		Call	0x0,0xb9
08c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c2 00da       |    |		Load_Top	At_Offset_2
08c3 0217       |    |		Execute	Heap_Access,All_Reference
08c4 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
08c5 80ba       |    |		Call	0x0,0xba
08c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c7 00da       |    |		Load_Top	At_Offset_2
08c8 0217       |    |		Execute	Heap_Access,All_Reference
08c9 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
08ca 80bb       |    |		Call	0x0,0xbb
08cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08cc 00da       |    |		Load_Top	At_Offset_2
08cd 0217       |    |		Execute	Heap_Access,All_Reference
08ce 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
08cf 80bc       |    |		Call	0x0,0xbc
08d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d1 00da       |    |		Load_Top	At_Offset_2
08d2 0217       |    |		Execute	Heap_Access,All_Reference
08d3 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
08d4 80bd       |    |		Call	0x0,0xbd
08d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d6 0833       | 3  |		Execute_Immediate	Raise,0x33
08d7 0000       |    |		.XXX[0x1]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08dd       |    |		.CONST	0x08dd								; Address of begin
08d9 0004       |    |		.CONST	0x0004								; Address of exception handler
08da 0002       |    |		.CONST	0x0002								; Number of locals
08db			INIT_08d8:
08db 029f 0c33  |   3|		Declare_Subprogram	INIT_0c30,For_Call
08dd			BODY_08d8:
08dd 00db       |    |		Load_Top	At_Offset_3
08de 0217       |    |		Execute	Heap_Access,All_Reference
08df 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
08e0 4609       |F   |		Jump_Case	0xa
08e1 783f       |x?  |		Jump	0x921								; case 0x0
08e2 780e       |x   |		Jump	0x8f1								; case 0x1
08e3 7813       |x   |		Jump	0x8f7								; case 0x2
08e4 781e       |x   |		Jump	0x903								; case 0x3
08e5 7817       |x   |		Jump	0x8fd								; case 0x4
08e6 7822       |x"  |		Jump	0x909								; case 0x5
08e7 7827       |x'  |		Jump	0x90f								; case 0x6
08e8 782c       |x,  |		Jump	0x915								; case 0x7
08e9 7831       |x1  |		Jump	0x91b								; case 0x8
08ea 7800       |x   |		Jump	0x8eb								; case 0x9
08eb 00db       |    |		Load_Top	At_Offset_3
08ec 0217       |    |		Execute	Heap_Access,All_Reference
08ed 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
08ee 80be       |    |		Call	0x0,0xbe
08ef 8402       |    |		Call	0x2,0x2
08f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f1 00db       |    |		Load_Top	At_Offset_3
08f2 0217       |    |		Execute	Heap_Access,All_Reference
08f3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
08f4 80bf       |    |		Call	0x0,0xbf
08f5 8402       |    |		Call	0x2,0x2
08f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f7 00db       |    |		Load_Top	At_Offset_3
08f8 0217       |    |		Execute	Heap_Access,All_Reference
08f9 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
08fa 80c0       |    |		Call	0x0,0xc0
08fb 8402       |    |		Call	0x2,0x2
08fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08fd 00db       |    |		Load_Top	At_Offset_3
08fe 0217       |    |		Execute	Heap_Access,All_Reference
08ff 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0900 80c1       |    |		Call	0x0,0xc1
0901 8402       |    |		Call	0x2,0x2
0902 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0903 00db       |    |		Load_Top	At_Offset_3
0904 0217       |    |		Execute	Heap_Access,All_Reference
0905 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0906 80c2       |    |		Call	0x0,0xc2
0907 8402       |    |		Call	0x2,0x2
0908 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0909 00db       |    |		Load_Top	At_Offset_3
090a 0217       |    |		Execute	Heap_Access,All_Reference
090b 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
090c 80c3       |    |		Call	0x0,0xc3
090d 8402       |    |		Call	0x2,0x2
090e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
090f 00db       |    |		Load_Top	At_Offset_3
0910 0217       |    |		Execute	Heap_Access,All_Reference
0911 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0912 80c4       |    |		Call	0x0,0xc4
0913 8402       |    |		Call	0x2,0x2
0914 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0915 00db       |    |		Load_Top	At_Offset_3
0916 0217       |    |		Execute	Heap_Access,All_Reference
0917 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0918 80c5       |    |		Call	0x0,0xc5
0919 8402       |    |		Call	0x2,0x2
091a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091b 00db       |    |		Load_Top	At_Offset_3
091c 0217       |    |		Execute	Heap_Access,All_Reference
091d 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
091e 80c6       |    |		Call	0x0,0xc6
091f 8402       |    |		Call	0x2,0x2
0920 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0921 0833       | 3  |		Execute_Immediate	Raise,0x33
0922 0000 0000  |    |		.BLANK	0000[0x6]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b 00da       |    |		Load_Top	At_Offset_2
092c 0217       |    |		Execute	Heap_Access,All_Reference
092d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
092e e5fe       |    |		Load	0x2,-0x2
092f 0217       |    |		Execute	Heap_Access,All_Reference
0930 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0931 027e       | ~  |		Execute	Discrete,Not_Equal
0932 6802       |h   |		Jump_Zero	0x935
0933 4800       |H   |		Short_Literal	0x0
0934 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0935 00da       |    |		Load_Top	At_Offset_2
0936 0217       |    |		Execute	Heap_Access,All_Reference
0937 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0938 4609       |F   |		Jump_Case	0xa
0939 7851       |xQ  |		Jump	0x98b								; case 0x0
093a 7810       |x   |		Jump	0x94b								; case 0x1
093b 7817       |x   |		Jump	0x953								; case 0x2
093c 7826       |x&  |		Jump	0x963								; case 0x3
093d 781d       |x   |		Jump	0x95b								; case 0x4
093e 782c       |x,  |		Jump	0x96b								; case 0x5
093f 7833       |x3  |		Jump	0x973								; case 0x6
0940 783a       |x:  |		Jump	0x97b								; case 0x7
0941 7841       |xA  |		Jump	0x983								; case 0x8
0942 7800       |x   |		Jump	0x943								; case 0x9
0943 00db       |    |		Load_Top	At_Offset_3
0944 0217       |    |		Execute	Heap_Access,All_Reference
0945 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0946 00db       |    |		Load_Top	At_Offset_3
0947 0217       |    |		Execute	Heap_Access,All_Reference
0948 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0949 80c7       |    |		Call	0x0,0xc7
094a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
094b 00db       |    |		Load_Top	At_Offset_3
094c 0217       |    |		Execute	Heap_Access,All_Reference
094d 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
094e 00db       |    |		Load_Top	At_Offset_3
094f 0217       |    |		Execute	Heap_Access,All_Reference
0950 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0951 80c8       |    |		Call	0x0,0xc8
0952 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0953 00db       |    |		Load_Top	At_Offset_3
0954 0217       |    |		Execute	Heap_Access,All_Reference
0955 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0956 00db       |    |		Load_Top	At_Offset_3
0957 0217       |    |		Execute	Heap_Access,All_Reference
0958 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0959 80c9       |    |		Call	0x0,0xc9
095a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
095b 00db       |    |		Load_Top	At_Offset_3
095c 0217       |    |		Execute	Heap_Access,All_Reference
095d 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
095e 00db       |    |		Load_Top	At_Offset_3
095f 0217       |    |		Execute	Heap_Access,All_Reference
0960 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0961 80ca       |    |		Call	0x0,0xca
0962 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0963 00db       |    |		Load_Top	At_Offset_3
0964 0217       |    |		Execute	Heap_Access,All_Reference
0965 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0966 00db       |    |		Load_Top	At_Offset_3
0967 0217       |    |		Execute	Heap_Access,All_Reference
0968 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0969 80cb       |    |		Call	0x0,0xcb
096a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
096b 00db       |    |		Load_Top	At_Offset_3
096c 0217       |    |		Execute	Heap_Access,All_Reference
096d 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
096e 00db       |    |		Load_Top	At_Offset_3
096f 0217       |    |		Execute	Heap_Access,All_Reference
0970 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0971 80cc       |    |		Call	0x0,0xcc
0972 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0973 00db       |    |		Load_Top	At_Offset_3
0974 0217       |    |		Execute	Heap_Access,All_Reference
0975 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0976 00db       |    |		Load_Top	At_Offset_3
0977 0217       |    |		Execute	Heap_Access,All_Reference
0978 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0979 80cd       |    |		Call	0x0,0xcd
097a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
097b 00db       |    |		Load_Top	At_Offset_3
097c 0217       |    |		Execute	Heap_Access,All_Reference
097d 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
097e 00db       |    |		Load_Top	At_Offset_3
097f 0217       |    |		Execute	Heap_Access,All_Reference
0980 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0981 80ce       |    |		Call	0x0,0xce
0982 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0983 00db       |    |		Load_Top	At_Offset_3
0984 0217       |    |		Execute	Heap_Access,All_Reference
0985 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0986 00db       |    |		Load_Top	At_Offset_3
0987 0217       |    |		Execute	Heap_Access,All_Reference
0988 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0989 80cf       |    |		Call	0x0,0xcf
098a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
098b 0833       | 3  |		Execute_Immediate	Raise,0x33
098c 0000 0000  |    |		.BLANK	0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993       |    |		.CONST	0x0993								; Address of begin
0991 0004       |    |		.CONST	0x0004								; Address of exception handler
0992 0001       |    |		.CONST	0x0001								; Number of locals
0993			BODY_0990:
0993			INIT_0990:
0993 00da       |    |		Load_Top	At_Offset_2
0994 0217       |    |		Execute	Heap_Access,All_Reference
0995 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0996 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0997 0000       |    |		.XXX[0x1]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b       |    |		.CONST	0x099b								; Address of begin
0999 0004       |    |		.CONST	0x0004								; Address of exception handler
099a 0001       |    |		.CONST	0x0001								; Number of locals
099b			BODY_0998:
099b			INIT_0998:
099b 00da       |    |		Load_Top	At_Offset_2
099c 0217       |    |		Execute	Heap_Access,All_Reference
099d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
099e 4609       |F   |		Jump_Case	0xa
099f 7809       |x   |		Jump	0x9a9								; case 0x0
09a0 7808       |x   |		Jump	0x9a9								; case 0x1
09a1 7807       |x   |		Jump	0x9a9								; case 0x2
09a2 7806       |x   |		Jump	0x9a9								; case 0x3
09a3 7805       |x   |		Jump	0x9a9								; case 0x4
09a4 7806       |x   |		Jump	0x9ab								; case 0x5
09a5 780a       |x   |		Jump	0x9b0								; case 0x6
09a6 7802       |x   |		Jump	0x9a9								; case 0x7
09a7 7801       |x   |		Jump	0x9a9								; case 0x8
09a8 7800       |x   |		Jump	0x9a9								; case 0x9
09a9 4800       |H   |		Short_Literal	0x0
09aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09ab 00da       |    |		Load_Top	At_Offset_2
09ac 0217       |    |		Execute	Heap_Access,All_Reference
09ad 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
09ae 80d0       |    |		Call	0x0,0xd0
09af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09b0 00da       |    |		Load_Top	At_Offset_2
09b1 0217       |    |		Execute	Heap_Access,All_Reference
09b2 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
09b3 80d1       |    |		Call	0x0,0xd1
09b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09b5 0000 0000  |    |		.XXX[0x3]
09b7 0000       |    |
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb 00da       |    |		Load_Top	At_Offset_2
09bc 0217       |    |		Execute	Heap_Access,All_Reference
09bd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09be 4609       |F   |		Jump_Case	0xa
09bf 785a       |xZ  |		Jump	0xa1a								; case 0x0
09c0 7811       |x   |		Jump	0x9d2								; case 0x1
09c1 7819       |x   |		Jump	0x9db								; case 0x2
09c2 782a       |x*  |		Jump	0x9ed								; case 0x3
09c3 7820       |x   |		Jump	0x9e4								; case 0x4
09c4 7831       |x1  |		Jump	0x9f6								; case 0x5
09c5 7839       |x9  |		Jump	0x9ff								; case 0x6
09c6 7841       |xA  |		Jump	0xa08								; case 0x7
09c7 7849       |xI  |		Jump	0xa11								; case 0x8
09c8 7800       |x   |		Jump	0x9c9								; case 0x9
09c9 00db       |    |		Load_Top	At_Offset_3
09ca 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
09cb 00db       |    |		Load_Top	At_Offset_3
09cc 0217       |    |		Execute	Heap_Access,All_Reference
09cd 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
09ce 80d2       |    |		Call	0x0,0xd2
09cf e5fe       |    |		Load	0x2,-0x2
09d0 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
09d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09d2 00db       |    |		Load_Top	At_Offset_3
09d3 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
09d4 00db       |    |		Load_Top	At_Offset_3
09d5 0217       |    |		Execute	Heap_Access,All_Reference
09d6 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
09d7 80d3       |    |		Call	0x0,0xd3
09d8 e5fe       |    |		Load	0x2,-0x2
09d9 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
09da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09db 00db       |    |		Load_Top	At_Offset_3
09dc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
09dd 00db       |    |		Load_Top	At_Offset_3
09de 0217       |    |		Execute	Heap_Access,All_Reference
09df 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
09e0 80d4       |    |		Call	0x0,0xd4
09e1 e5fe       |    |		Load	0x2,-0x2
09e2 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
09e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09e4 00db       |    |		Load_Top	At_Offset_3
09e5 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
09e6 00db       |    |		Load_Top	At_Offset_3
09e7 0217       |    |		Execute	Heap_Access,All_Reference
09e8 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
09e9 80d5       |    |		Call	0x0,0xd5
09ea e5fe       |    |		Load	0x2,-0x2
09eb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
09ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09ed 00db       |    |		Load_Top	At_Offset_3
09ee 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
09ef 00db       |    |		Load_Top	At_Offset_3
09f0 0217       |    |		Execute	Heap_Access,All_Reference
09f1 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
09f2 80d6       |    |		Call	0x0,0xd6
09f3 e5fe       |    |		Load	0x2,-0x2
09f4 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
09f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09f6 00db       |    |		Load_Top	At_Offset_3
09f7 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
09f8 00db       |    |		Load_Top	At_Offset_3
09f9 0217       |    |		Execute	Heap_Access,All_Reference
09fa 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
09fb 80d7       |    |		Call	0x0,0xd7
09fc e5fe       |    |		Load	0x2,-0x2
09fd 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
09fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09ff 00db       |    |		Load_Top	At_Offset_3
0a00 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0a01 00db       |    |		Load_Top	At_Offset_3
0a02 0217       |    |		Execute	Heap_Access,All_Reference
0a03 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0a04 80d8       |    |		Call	0x0,0xd8
0a05 e5fe       |    |		Load	0x2,-0x2
0a06 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0a07 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a08 00db       |    |		Load_Top	At_Offset_3
0a09 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0a0a 00db       |    |		Load_Top	At_Offset_3
0a0b 0217       |    |		Execute	Heap_Access,All_Reference
0a0c 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0a0d 80d9       |    |		Call	0x0,0xd9
0a0e e5fe       |    |		Load	0x2,-0x2
0a0f 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0a10 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a11 00db       |    |		Load_Top	At_Offset_3
0a12 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0a13 00db       |    |		Load_Top	At_Offset_3
0a14 0217       |    |		Execute	Heap_Access,All_Reference
0a15 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0a16 80da       |    |		Call	0x0,0xda
0a17 e5fe       |    |		Load	0x2,-0x2
0a18 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0a19 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a1a 0833       | 3  |		Execute_Immediate	Raise,0x33
0a1b 0000 0000  |    |		.BLANK	0000[0x5]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23       | #  |		.CONST	0x0a23								; Address of begin
0a21 0004       |    |		.CONST	0x0004								; Address of exception handler
0a22 0001       |    |		.CONST	0x0001								; Number of locals
0a23			BODY_0a20:
0a23			INIT_0a20:
0a23 00da       |    |		Load_Top	At_Offset_2
0a24 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a25 4609       |F   |		Jump_Case	0xa
0a26 782d       |x-  |		Jump	0xa54								; case 0x0
0a27 780c       |x   |		Jump	0xa34								; case 0x1
0a28 780f       |x   |		Jump	0xa38								; case 0x2
0a29 7816       |x   |		Jump	0xa40								; case 0x3
0a2a 7811       |x   |		Jump	0xa3c								; case 0x4
0a2b 7818       |x   |		Jump	0xa44								; case 0x5
0a2c 781b       |x   |		Jump	0xa48								; case 0x6
0a2d 781e       |x   |		Jump	0xa4c								; case 0x7
0a2e 7821       |x!  |		Jump	0xa50								; case 0x8
0a2f 7800       |x   |		Jump	0xa30								; case 0x9
0a30 00da       |    |		Load_Top	At_Offset_2
0a31 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0a32 80db       |    |		Call	0x0,0xdb
0a33 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a34 00da       |    |		Load_Top	At_Offset_2
0a35 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a36 80dc       |    |		Call	0x0,0xdc
0a37 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a38 00da       |    |		Load_Top	At_Offset_2
0a39 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a3a 80dd       |    |		Call	0x0,0xdd
0a3b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a3c 00da       |    |		Load_Top	At_Offset_2
0a3d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0a3e 80de       |    |		Call	0x0,0xde
0a3f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a40 00da       |    |		Load_Top	At_Offset_2
0a41 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0a42 80df       |    |		Call	0x0,0xdf
0a43 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a44 00da       |    |		Load_Top	At_Offset_2
0a45 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0a46 80e0       |    |		Call	0x0,0xe0
0a47 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a48 00da       |    |		Load_Top	At_Offset_2
0a49 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0a4a 80e1       |    |		Call	0x0,0xe1
0a4b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a4c 00da       |    |		Load_Top	At_Offset_2
0a4d 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0a4e 80e2       |    |		Call	0x0,0xe2
0a4f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a50 00da       |    |		Load_Top	At_Offset_2
0a51 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0a52 80e3       |    |		Call	0x0,0xe3
0a53 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a54 0833       | 3  |		Execute_Immediate	Raise,0x33
0a55 0000 0000  |    |		.XXX[0x3]
0a57 0000       |    |
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b       | [  |		.CONST	0x0a5b								; Address of begin
0a59 0004       |    |		.CONST	0x0004								; Address of exception handler
0a5a 0001       |    |		.CONST	0x0001								; Number of locals
0a5b			BODY_0a58:
0a5b			INIT_0a58:
0a5b 00da       |    |		Load_Top	At_Offset_2
0a5c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a5d 4609       |F   |		Jump_Case	0xa
0a5e 786c       |xl  |		Jump	0xacb								; case 0x0
0a5f 7813       |x   |		Jump	0xa73								; case 0x1
0a60 781d       |x   |		Jump	0xa7e								; case 0x2
0a61 7832       |x2  |		Jump	0xa94								; case 0x3
0a62 7826       |x&  |		Jump	0xa89								; case 0x4
0a63 783b       |x;  |		Jump	0xa9f								; case 0x5
0a64 7845       |xE  |		Jump	0xaaa								; case 0x6
0a65 784f       |xO  |		Jump	0xab5								; case 0x7
0a66 7859       |xY  |		Jump	0xac0								; case 0x8
0a67 7800       |x   |		Jump	0xa68								; case 0x9
0a68 4809       |H   |		Short_Literal	0x9
0a69 e0e4       |    |		Load	0x0,0xe4
0a6a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a6b 00db       |    |		Load_Top	At_Offset_3
0a6c 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0a6d 80e5       |    |		Call	0x0,0xe5
0a6e 00d9       |    |		Load_Top	At_Offset_1
0a6f 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0a70 e0e6       |    |		Load	0x0,0xe6
0a71 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0a72 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a73 4801       |H   |		Short_Literal	0x1
0a74 e0e4       |    |		Load	0x0,0xe4
0a75 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a76 00db       |    |		Load_Top	At_Offset_3
0a77 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a78 80e7       |    |		Call	0x0,0xe7
0a79 00d9       |    |		Load_Top	At_Offset_1
0a7a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0a7b e0e6       |    |		Load	0x0,0xe6
0a7c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0a7d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a7e 4802       |H   |		Short_Literal	0x2
0a7f e0e4       |    |		Load	0x0,0xe4
0a80 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a81 00db       |    |		Load_Top	At_Offset_3
0a82 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a83 80e8       |    |		Call	0x0,0xe8
0a84 00d9       |    |		Load_Top	At_Offset_1
0a85 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0a86 e0e6       |    |		Load	0x0,0xe6
0a87 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0a88 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a89 4804       |H   |		Short_Literal	0x4
0a8a e0e4       |    |		Load	0x0,0xe4
0a8b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a8c 00db       |    |		Load_Top	At_Offset_3
0a8d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0a8e 80e9       |    |		Call	0x0,0xe9
0a8f 00d9       |    |		Load_Top	At_Offset_1
0a90 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0a91 e0e6       |    |		Load	0x0,0xe6
0a92 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0a93 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a94 4803       |H   |		Short_Literal	0x3
0a95 e0e4       |    |		Load	0x0,0xe4
0a96 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a97 00db       |    |		Load_Top	At_Offset_3
0a98 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0a99 80ea       |    |		Call	0x0,0xea
0a9a 00d9       |    |		Load_Top	At_Offset_1
0a9b 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0a9c e0e6       |    |		Load	0x0,0xe6
0a9d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0a9e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a9f 4805       |H   |		Short_Literal	0x5
0aa0 e0e4       |    |		Load	0x0,0xe4
0aa1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0aa2 00db       |    |		Load_Top	At_Offset_3
0aa3 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0aa4 80eb       |    |		Call	0x0,0xeb
0aa5 00d9       |    |		Load_Top	At_Offset_1
0aa6 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0aa7 e0e6       |    |		Load	0x0,0xe6
0aa8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0aa9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0aaa 4806       |H   |		Short_Literal	0x6
0aab e0e4       |    |		Load	0x0,0xe4
0aac 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0aad 00db       |    |		Load_Top	At_Offset_3
0aae 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0aaf 80ec       |    |		Call	0x0,0xec
0ab0 00d9       |    |		Load_Top	At_Offset_1
0ab1 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0ab2 e0e6       |    |		Load	0x0,0xe6
0ab3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0ab4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ab5 4807       |H   |		Short_Literal	0x7
0ab6 e0e4       |    |		Load	0x0,0xe4
0ab7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0ab8 00db       |    |		Load_Top	At_Offset_3
0ab9 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0aba 80ed       |    |		Call	0x0,0xed
0abb 00d9       |    |		Load_Top	At_Offset_1
0abc 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0abd e0e6       |    |		Load	0x0,0xe6
0abe 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0abf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ac0 4808       |H   |		Short_Literal	0x8
0ac1 e0e4       |    |		Load	0x0,0xe4
0ac2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0ac3 00db       |    |		Load_Top	At_Offset_3
0ac4 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0ac5 80ee       |    |		Call	0x0,0xee
0ac6 00d9       |    |		Load_Top	At_Offset_1
0ac7 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0ac8 e0e6       |    |		Load	0x0,0xe6
0ac9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0aca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0acb 0833       | 3  |		Execute_Immediate	Raise,0x33
0acc 0000 0000  |    |		.BLANK	0000[0x4]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3       |    |		.CONST	0x0ad3								; Address of begin
0ad1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ad2 0001       |    |		.CONST	0x0001								; Number of locals
0ad3			BODY_0ad0:
0ad3			INIT_0ad0:
0ad3 00da       |    |		Load_Top	At_Offset_2
0ad4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ad5 4609       |F   |		Jump_Case	0xa
0ad6 783f       |x?  |		Jump	0xb16								; case 0x0
0ad7 780e       |x   |		Jump	0xae6								; case 0x1
0ad8 7813       |x   |		Jump	0xaec								; case 0x2
0ad9 781e       |x   |		Jump	0xaf8								; case 0x3
0ada 7817       |x   |		Jump	0xaf2								; case 0x4
0adb 7822       |x"  |		Jump	0xafe								; case 0x5
0adc 7827       |x'  |		Jump	0xb04								; case 0x6
0add 782c       |x,  |		Jump	0xb0a								; case 0x7
0ade 7831       |x1  |		Jump	0xb10								; case 0x8
0adf 7800       |x   |		Jump	0xae0								; case 0x9
0ae0 00da       |    |		Load_Top	At_Offset_2
0ae1 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0ae2 80ef       |    |		Call	0x0,0xef
0ae3 00db       |    |		Load_Top	At_Offset_3
0ae4 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0ae5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ae6 00da       |    |		Load_Top	At_Offset_2
0ae7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0ae8 80f0       |    |		Call	0x0,0xf0
0ae9 00db       |    |		Load_Top	At_Offset_3
0aea 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0aeb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aec 00da       |    |		Load_Top	At_Offset_2
0aed 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0aee 80f1       |    |		Call	0x0,0xf1
0aef 00db       |    |		Load_Top	At_Offset_3
0af0 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0af1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0af2 00da       |    |		Load_Top	At_Offset_2
0af3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0af4 80f2       |    |		Call	0x0,0xf2
0af5 00db       |    |		Load_Top	At_Offset_3
0af6 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0af7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0af8 00da       |    |		Load_Top	At_Offset_2
0af9 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0afa 80f3       |    |		Call	0x0,0xf3
0afb 00db       |    |		Load_Top	At_Offset_3
0afc 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0afd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0afe 00da       |    |		Load_Top	At_Offset_2
0aff 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0b00 80f4       |    |		Call	0x0,0xf4
0b01 00db       |    |		Load_Top	At_Offset_3
0b02 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0b03 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b04 00da       |    |		Load_Top	At_Offset_2
0b05 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0b06 80f5       |    |		Call	0x0,0xf5
0b07 00db       |    |		Load_Top	At_Offset_3
0b08 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0b09 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b0a 00da       |    |		Load_Top	At_Offset_2
0b0b 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0b0c 80f6       |    |		Call	0x0,0xf6
0b0d 00db       |    |		Load_Top	At_Offset_3
0b0e 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0b0f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b10 00da       |    |		Load_Top	At_Offset_2
0b11 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0b12 80f7       |    |		Call	0x0,0xf7
0b13 00db       |    |		Load_Top	At_Offset_3
0b14 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0b15 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b16 0833       | 3  |		Execute_Immediate	Raise,0x33
0b17 0000       |    |		.XXX[0x1]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b28       | (  |		.CONST	0x0b28								; Address of begin
0b19 0b30       | 0  |		.CONST	0x0b30								; Address of exception handler
0b1a 0002       |    |		.CONST	0x0002								; Number of locals
0b1b			INIT_0b18:
0b1b e0f8       |    |		Load	0x0,0xf8
0b1c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b1d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b1e 02c7       |    |		Declare_Variable	Any
0b1f 4801       |H   |		Short_Literal	0x1
0b20 e0f8       |    |		Load	0x0,0xf8
0b21 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b22 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b23 e5ff       |    |		Load	0x2,-0x1
0b24 e0f8       |    |		Load	0x0,0xf8
0b25 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b26 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0b27 a402       |    |		Store_Unchecked	0x2,0x2
0b28			BODY_0b18:
0b28 00d8       |    |		Load_Top	At_Offset_0
0b29 e0f8       |    |		Load	0x0,0xf8
0b2a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0b2b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0b2c e5fe       |    |		Load	0x2,-0x2
0b2d 0217       |    |		Execute	Heap_Access,All_Reference
0b2e 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0b2f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b30			TRAP_0b18:
0b30 0007       |    |		Action	Break_Optional
0b31 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b32 0000 0000  |    |		.BLANK	0000[0x6]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b3b       | ;  |		.CONST	0x0b3b								; Address of begin
0b39 0004       |    |		.CONST	0x0004								; Address of exception handler
0b3a 0001       |    |		.CONST	0x0001								; Number of locals
0b3b			BODY_0b38:
0b3b			INIT_0b38:
0b3b e003       |    |		Load	0x0,0x3
0b3c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0b3d 4905       |I   |		Short_Literal	0x105
0b3e e0f9       |    |		Load	0x0,0xf9
0b3f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0b40 c5fb       |    |		Store	0x2,-0x5
0b41 00da       |    |		Load_Top	At_Offset_2
0b42 00d8       |    |		Load_Top	At_Offset_0
0b43 e20d       |    |		Load	0x1,0xd
0b44 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0b45 e20e       |    |		Load	0x1,0xe
0b46 e5fb       |    |		Load	0x2,-0x5
0b47 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0b48 00d8       |    |		Load_Top	At_Offset_0
0b49 0217       |    |		Execute	Heap_Access,All_Reference
0b4a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b4b a5fc       |    |		Store_Unchecked	0x2,-0x4
0b4c e5fb       |    |		Load	0x2,-0x5
0b4d e5fc       |    |		Load	0x2,-0x4
0b4e 0217       |    |		Execute	Heap_Access,All_Reference
0b4f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b50 00db       |    |		Load_Top	At_Offset_3
0b51 e5fc       |    |		Load	0x2,-0x4
0b52 0217       |    |		Execute	Heap_Access,All_Reference
0b53 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0b54 e5fd       |    |		Load	0x2,-0x3
0b55 e5fc       |    |		Load	0x2,-0x4
0b56 0217       |    |		Execute	Heap_Access,All_Reference
0b57 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0b58 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0b59 0000 0000  |    |		.BLANK	0000[0x7]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b63       | c  |		.CONST	0x0b63								; Address of begin
0b61 0004       |    |		.CONST	0x0004								; Address of exception handler
0b62 0001       |    |		.CONST	0x0001								; Number of locals
0b63			BODY_0b60:
0b63			INIT_0b60:
0b63 e5fd       |    |		Load	0x2,-0x3
0b64 6800       |h   |		Jump_Zero	0xb65
0b65 00da       |    |		Load_Top	At_Offset_2
0b66 0217       |    |		Execute	Heap_Access,All_Reference
0b67 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b68 00d8       |    |		Load_Top	At_Offset_0
0b69 e20d       |    |		Load	0x1,0xd
0b6a 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0b6b e20e       |    |		Load	0x1,0xe
0b6c e5fe       |    |		Load	0x2,-0x2
0b6d 039a       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Constraint
0b6e 00d8       |    |		Load_Top	At_Offset_0
0b6f 0217       |    |		Execute	Heap_Access,All_Reference
0b70 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b71 a5fd       |    |		Store_Unchecked	0x2,-0x3
0b72 00db       |    |		Load_Top	At_Offset_3
0b73 e5fd       |    |		Load	0x2,-0x3
0b74 0217       |    |		Execute	Heap_Access,All_Reference
0b75 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b76 00da       |    |		Load_Top	At_Offset_2
0b77 0217       |    |		Execute	Heap_Access,All_Reference
0b78 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0b79 e5fd       |    |		Load	0x2,-0x3
0b7a 0217       |    |		Execute	Heap_Access,All_Reference
0b7b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0b7c 00da       |    |		Load_Top	At_Offset_2
0b7d 0217       |    |		Execute	Heap_Access,All_Reference
0b7e 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0b7f e5fd       |    |		Load	0x2,-0x3
0b80 0217       |    |		Execute	Heap_Access,All_Reference
0b81 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0b82 00da       |    |		Load_Top	At_Offset_2
0b83 0217       |    |		Execute	Heap_Access,All_Reference
0b84 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0b85 e5fd       |    |		Load	0x2,-0x3
0b86 0217       |    |		Execute	Heap_Access,All_Reference
0b87 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0b88 00da       |    |		Load_Top	At_Offset_2
0b89 0217       |    |		Execute	Heap_Access,All_Reference
0b8a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b8b 4609       |F   |		Jump_Case	0xa
0b8c 787e       |x~  |		Jump	0xc0b								; case 0x0
0b8d 7815       |x   |		Jump	0xba3								; case 0x1
0b8e 7821       |x!  |		Jump	0xbb0								; case 0x2
0b8f 783a       |x:  |		Jump	0xbca								; case 0x3
0b90 782c       |x,  |		Jump	0xbbd								; case 0x4
0b91 7845       |xE  |		Jump	0xbd7								; case 0x5
0b92 7851       |xQ  |		Jump	0xbe4								; case 0x6
0b93 785d       |x]  |		Jump	0xbf1								; case 0x7
0b94 7869       |xi  |		Jump	0xbfe								; case 0x8
0b95 7800       |x   |		Jump	0xb96								; case 0x9
0b96 e5fd       |    |		Load	0x2,-0x3
0b97 0219       |    |		Execute	Heap_Access,All_Read
0b98 00d8       |    |		Load_Top	At_Offset_0
0b99 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0b9a e5fe       |    |		Load	0x2,-0x2
0b9b e5ff       |    |		Load	0x2,-0x1
0b9c 0217       |    |		Execute	Heap_Access,All_Reference
0b9d 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0b9e 80fa       |    |		Call	0x0,0xfa
0b9f 00d9       |    |		Load_Top	At_Offset_1
0ba0 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0ba1 00d1       |    |		Pop_Control	Pop_Count_1
0ba2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ba3 e5fd       |    |		Load	0x2,-0x3
0ba4 0219       |    |		Execute	Heap_Access,All_Read
0ba5 00d8       |    |		Load_Top	At_Offset_0
0ba6 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0ba7 e5fe       |    |		Load	0x2,-0x2
0ba8 e5ff       |    |		Load	0x2,-0x1
0ba9 0217       |    |		Execute	Heap_Access,All_Reference
0baa 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0bab 80fb       |    |		Call	0x0,0xfb
0bac 00d9       |    |		Load_Top	At_Offset_1
0bad 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0bae 00d1       |    |		Pop_Control	Pop_Count_1
0baf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bb0 e5fd       |    |		Load	0x2,-0x3
0bb1 0219       |    |		Execute	Heap_Access,All_Read
0bb2 00d8       |    |		Load_Top	At_Offset_0
0bb3 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0bb4 e5fe       |    |		Load	0x2,-0x2
0bb5 e5ff       |    |		Load	0x2,-0x1
0bb6 0217       |    |		Execute	Heap_Access,All_Reference
0bb7 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0bb8 80fc       |    |		Call	0x0,0xfc
0bb9 00d9       |    |		Load_Top	At_Offset_1
0bba 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0bbb 00d1       |    |		Pop_Control	Pop_Count_1
0bbc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bbd e5fd       |    |		Load	0x2,-0x3
0bbe 0219       |    |		Execute	Heap_Access,All_Read
0bbf 00d8       |    |		Load_Top	At_Offset_0
0bc0 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0bc1 e5fe       |    |		Load	0x2,-0x2
0bc2 e5ff       |    |		Load	0x2,-0x1
0bc3 0217       |    |		Execute	Heap_Access,All_Reference
0bc4 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0bc5 80fd       |    |		Call	0x0,0xfd
0bc6 00d9       |    |		Load_Top	At_Offset_1
0bc7 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0bc8 00d1       |    |		Pop_Control	Pop_Count_1
0bc9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bca e5fd       |    |		Load	0x2,-0x3
0bcb 0219       |    |		Execute	Heap_Access,All_Read
0bcc 00d8       |    |		Load_Top	At_Offset_0
0bcd 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0bce e5fe       |    |		Load	0x2,-0x2
0bcf e5ff       |    |		Load	0x2,-0x1
0bd0 0217       |    |		Execute	Heap_Access,All_Reference
0bd1 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0bd2 80fe       |    |		Call	0x0,0xfe
0bd3 00d9       |    |		Load_Top	At_Offset_1
0bd4 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0bd5 00d1       |    |		Pop_Control	Pop_Count_1
0bd6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bd7 e5fd       |    |		Load	0x2,-0x3
0bd8 0219       |    |		Execute	Heap_Access,All_Read
0bd9 00d8       |    |		Load_Top	At_Offset_0
0bda 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0bdb e5fe       |    |		Load	0x2,-0x2
0bdc e5ff       |    |		Load	0x2,-0x1
0bdd 0217       |    |		Execute	Heap_Access,All_Reference
0bde 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0bdf 80ff       |    |		Call	0x0,0xff
0be0 00d9       |    |		Load_Top	At_Offset_1
0be1 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0be2 00d1       |    |		Pop_Control	Pop_Count_1
0be3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0be4 e5fd       |    |		Load	0x2,-0x3
0be5 0219       |    |		Execute	Heap_Access,All_Read
0be6 00d8       |    |		Load_Top	At_Offset_0
0be7 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0be8 e5fe       |    |		Load	0x2,-0x2
0be9 e5ff       |    |		Load	0x2,-0x1
0bea 0217       |    |		Execute	Heap_Access,All_Reference
0beb 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0bec 8100       |    |		Call	0x0,-0x100
0bed 00d9       |    |		Load_Top	At_Offset_1
0bee 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0bef 00d1       |    |		Pop_Control	Pop_Count_1
0bf0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bf1 e5fd       |    |		Load	0x2,-0x3
0bf2 0219       |    |		Execute	Heap_Access,All_Read
0bf3 00d8       |    |		Load_Top	At_Offset_0
0bf4 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0bf5 e5fe       |    |		Load	0x2,-0x2
0bf6 e5ff       |    |		Load	0x2,-0x1
0bf7 0217       |    |		Execute	Heap_Access,All_Reference
0bf8 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0bf9 8101       |    |		Call	0x0,-0xff
0bfa 00d9       |    |		Load_Top	At_Offset_1
0bfb 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0bfc 00d1       |    |		Pop_Control	Pop_Count_1
0bfd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bfe e5fd       |    |		Load	0x2,-0x3
0bff 0219       |    |		Execute	Heap_Access,All_Read
0c00 00d8       |    |		Load_Top	At_Offset_0
0c01 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0c02 e5fe       |    |		Load	0x2,-0x2
0c03 e5ff       |    |		Load	0x2,-0x1
0c04 0217       |    |		Execute	Heap_Access,All_Reference
0c05 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0c06 8102       |    |		Call	0x0,-0xfe
0c07 00d9       |    |		Load_Top	At_Offset_1
0c08 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
0c09 00d1       |    |		Pop_Control	Pop_Count_1
0c0a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c0b 0833       | 3  |		Execute_Immediate	Raise,0x33
0c0c 0000 0000  |    |		.BLANK	0000[0x4]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c15       |    |		.CONST	0x0c15								; Address of begin
0c11 0004       |    |		.CONST	0x0004								; Address of exception handler
0c12 0002       |    |		.CONST	0x0002								; Number of locals
0c13			INIT_0c10:
0c13 e20e       |    |		Load	0x1,0xe
0c14 0007       |    |		Action	Break_Optional
0c15			BODY_0c10:
0c15 00d8       |    |		Load_Top	At_Offset_0
0c16 e5ff       |    |		Load	0x2,-0x1
0c17 0217       |    |		Execute	Heap_Access,All_Reference
0c18 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c19 e5ff       |    |		Load	0x2,-0x1
0c1a 8242       | B  |		Call	0x1,0x42
0c1b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0c1c 00d8       |    |		Load_Top	At_Offset_0
0c1d e5ff       |    |		Load	0x2,-0x1
0c1e 0217       |    |		Execute	Heap_Access,All_Reference
0c1f 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0c20 00d8       |    |		Load_Top	At_Offset_0
0c21 0217       |    |		Execute	Heap_Access,All_Reference
0c22 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0c23 e5ff       |    |		Load	0x2,-0x1
0c24 0217       |    |		Execute	Heap_Access,All_Reference
0c25 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0c26 00db       |    |		Load_Top	At_Offset_3
0c27 00d9       |    |		Load_Top	At_Offset_1
0c28 0217       |    |		Execute	Heap_Access,All_Reference
0c29 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0c2a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c2b 0000 0000  |    |		.BLANK	0000[0x5]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c35       | 5  |		.CONST	0x0c35								; Address of begin
0c31 0004       |    |		.CONST	0x0004								; Address of exception handler
0c32 0002       |    |		.CONST	0x0002								; Number of locals
0c33			INIT_0c30:
0c33 029f 0c43  |   C|		Declare_Subprogram	INIT_0c40,For_Call
0c35			BODY_0c30:
0c35 00db       |    |		Load_Top	At_Offset_3
0c36 8103       |    |		Call	0x0,-0xfd
0c37 6802       |h   |		Jump_Zero	0xc3a
0c38 8602       |    |		Call	0x3,0x2
0c39 7802       |x   |		Jump	0xc3c
0c3a 00db       |    |		Load_Top	At_Offset_3
0c3b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c3c 0831       | 1  |		Execute_Immediate	Raise,0x31
0c3d 0000 0000  |    |		.XXX[0x3]
0c3f 0000       |    |
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c47       | G  |		.CONST	0x0c47								; Address of begin
0c41 0004       |    |		.CONST	0x0004								; Address of exception handler
0c42 0002       |    |		.CONST	0x0002								; Number of locals
0c43			INIT_0c40:
0c43 e5ff       |    |		Load	0x2,-0x1
0c44 0217       |    |		Execute	Heap_Access,All_Reference
0c45 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0c46 8021       | !  |		Call	0x0,0x21
0c47			BODY_0c40:
0c47 00d8       |    |		Load_Top	At_Offset_0
0c48 01db       |    |		Execute	Vector,Length
0c49 680d       |h   |		Jump_Zero	0xc57
0c4a 00d8       |    |		Load_Top	At_Offset_0
0c4b 0092 0d67  |   g|		Action	Push_String_Extended,0xd67					; "'"
0c4d 01cc       |    |		Execute	Vector,Catenate
0c4e e5ff       |    |		Load	0x2,-0x1
0c4f 0217       |    |		Execute	Heap_Access,All_Reference
0c50 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c51 e002       |    |		Load	0x0,0x2
0c52 011c       |    |		Execute	Any,Convert_Unchecked
0c53 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0c54 01cc       |    |		Execute	Vector,Catenate
0c55 00cb       |    |		Action	Pop_Block_With_Result
0c56 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c57 e5ff       |    |		Load	0x2,-0x1
0c58 0217       |    |		Execute	Heap_Access,All_Reference
0c59 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c5a e002       |    |		Load	0x0,0x2
0c5b 011c       |    |		Execute	Any,Convert_Unchecked
0c5c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0c5d 00cb       |    |		Action	Pop_Block_With_Result
0c5e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c5f 0000       |    |		.XXX[0x1]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c63       | c  |		.CONST	0x0c63								; Address of begin
0c61 0004       |    |		.CONST	0x0004								; Address of exception handler
0c62 0001       |    |		.CONST	0x0001								; Number of locals
0c63			BODY_0c60:
0c63			INIT_0c60:
0c63 4609       |F   |		Jump_Case	0xa
0c64 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0c65 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0c66 7808       |x   |		Jump	0xc6f								; case 0x2
0c67 780b       |x   |		Jump	0xc73								; case 0x3
0c68 785a       |xZ  |		Jump	0xcc3								; case 0x4
0c69 7859       |xY  |		Jump	0xcc3								; case 0x5
0c6a 780e       |x   |		Jump	0xc79								; case 0x6
0c6b 782d       |x-  |		Jump	0xc99								; case 0x7
0c6c 784f       |xO  |		Jump	0xcbc								; case 0x8
0c6d 7855       |xU  |		Jump	0xcc3								; case 0x9
0c6e 4302       |C   |		.XXX[0x1]
0c6f 4801       |H   |		Short_Literal	0x1
0c70 480a       |H   |		Short_Literal	0xa
0c71 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0c72 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0c73 e5fd       |    |		Load	0x2,-0x3
0c74 00db       |    |		Load_Top	At_Offset_3
0c75 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0c76 e5fe       |    |		Load	0x2,-0x2
0c77 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0c78 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0c79 00db       |    |		Load_Top	At_Offset_3
0c7a 4609       |F   |		Jump_Case	0xa
0c7b 781b       |x   |		Jump	0xc97								; case 0x0
0c7c 780a       |x   |		Jump	0xc87								; case 0x1
0c7d 780b       |x   |		Jump	0xc89								; case 0x2
0c7e 780e       |x   |		Jump	0xc8d								; case 0x3
0c7f 780b       |x   |		Jump	0xc8b								; case 0x4
0c80 780e       |x   |		Jump	0xc8f								; case 0x5
0c81 780f       |x   |		Jump	0xc91								; case 0x6
0c82 7810       |x   |		Jump	0xc93								; case 0x7
0c83 7811       |x   |		Jump	0xc95								; case 0x8
0c84 7800       |x   |		Jump	0xc85								; case 0x9
0c85 4809       |H   |		Short_Literal	0x9
0c86 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c87 4801       |H   |		Short_Literal	0x1
0c88 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c89 4802       |H   |		Short_Literal	0x2
0c8a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c8b 4803       |H   |		Short_Literal	0x3
0c8c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c8d 4804       |H   |		Short_Literal	0x4
0c8e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c8f 4805       |H   |		Short_Literal	0x5
0c90 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c91 4806       |H   |		Short_Literal	0x6
0c92 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c93 4807       |H   |		Short_Literal	0x7
0c94 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c95 4808       |H   |		Short_Literal	0x8
0c96 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c97 48ff       |H   |		Short_Literal	0xff
0c98 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c99 00db       |    |		Load_Top	At_Offset_3
0c9a e5fe       |    |		Load	0x2,-0x2
0c9b 4609       |F   |		Jump_Case	0xa
0c9c 781b       |x   |		Jump	0xcb8								; case 0x0
0c9d 780a       |x   |		Jump	0xca8								; case 0x1
0c9e 780b       |x   |		Jump	0xcaa								; case 0x2
0c9f 780e       |x   |		Jump	0xcae								; case 0x3
0ca0 780b       |x   |		Jump	0xcac								; case 0x4
0ca1 780e       |x   |		Jump	0xcb0								; case 0x5
0ca2 780f       |x   |		Jump	0xcb2								; case 0x6
0ca3 7810       |x   |		Jump	0xcb4								; case 0x7
0ca4 7811       |x   |		Jump	0xcb6								; case 0x8
0ca5 7800       |x   |		Jump	0xca6								; case 0x9
0ca6 4809       |H   |		Short_Literal	0x9
0ca7 7811       |x   |		Jump	0xcb9
0ca8 4801       |H   |		Short_Literal	0x1
0ca9 780f       |x   |		Jump	0xcb9
0caa 4802       |H   |		Short_Literal	0x2
0cab 780d       |x   |		Jump	0xcb9
0cac 4803       |H   |		Short_Literal	0x3
0cad 780b       |x   |		Jump	0xcb9
0cae 4804       |H   |		Short_Literal	0x4
0caf 7809       |x   |		Jump	0xcb9
0cb0 4805       |H   |		Short_Literal	0x5
0cb1 7807       |x   |		Jump	0xcb9
0cb2 4806       |H   |		Short_Literal	0x6
0cb3 7805       |x   |		Jump	0xcb9
0cb4 4807       |H   |		Short_Literal	0x7
0cb5 7803       |x   |		Jump	0xcb9
0cb6 4808       |H   |		Short_Literal	0x8
0cb7 7801       |x   |		Jump	0xcb9
0cb8 48ff       |H   |		Short_Literal	0xff
0cb9 e5ff       |    |		Load	0x2,-0x1
0cba 031b       |    |		Declare_Type	Variant_Record,Constrained
0cbb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0cbc 00db       |    |		Load_Top	At_Offset_3
0cbd e5fe       |    |		Load	0x2,-0x2
0cbe e5ff       |    |		Load	0x2,-0x1
0cbf 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0cc0 e5ff       |    |		Load	0x2,-0x1
0cc1 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0cc2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0cc3 0869       | i  |		Execute_Immediate	Raise,0x69
0cc4 0000 0000  |    |		.BLANK	0000[0x4]
0cc8 ; --------------------------------------------------------------------------------------
0cc8 ; SUBPROGRAM
0cc8 ; SUBPROGRAM
0cc8 ; --------------------------------------------------------------------------------------
0cc8 0ccb       |    |		.CONST	0x0ccb								; Address of begin
0cc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cca 0001       |    |		.CONST	0x0001								; Number of locals
0ccb			BODY_0cc8:
0ccb			BODY_0cc8:
0ccb			INIT_0cc8:
0ccb			INIT_0cc8:
0ccb 4609       |F   |		Jump_Case	0xa
0ccc 7809       |x   |		Jump	0xcd6								; case 0x0
0ccd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0cce 781d       |x   |		Jump	0xcec								; case 0x2
0ccf 7820       |x   |		Jump	0xcf0								; case 0x3
0cd0 7825       |x%  |		Jump	0xcf6								; case 0x4
0cd1 782f       |x/  |		Jump	0xd01								; case 0x5
0cd2 783f       |x?  |		Jump	0xd12								; case 0x6
0cd3 785e       |x^  |		Jump	0xd32								; case 0x7
0cd4 7880       |x   |		Jump	0xd55								; case 0x8
0cd5 7886       |x   |		Jump	0xd5c								; case 0x9
0cd6 00da       |    |		Load_Top	At_Offset_2
0cd7 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0cd8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0cd9 00da       |    |		Load_Top	At_Offset_2
0cda 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0cdb 00da       |    |		Load_Top	At_Offset_2
0cdc 2407       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
0cdd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0cde 00da       |    |		Load_Top	At_Offset_2
0cdf 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0ce0 4609       |F   |		Jump_Case	0xa
0ce1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0ce2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0ce3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0ce4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0ce5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0ce6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0ce7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0ce8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0ce9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0cea 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
0ceb 4302       |C   |		.XXX[0x1]
0cec 4801       |H   |		Short_Literal	0x1
0ced 4810       |H   |		Short_Literal	0x10
0cee 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0cef 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0cf0 e5fd       |    |		Load	0x2,-0x3
0cf1 00db       |    |		Load_Top	At_Offset_3
0cf2 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0cf3 e5fe       |    |		Load	0x2,-0x2
0cf4 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0cf5 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0cf6 4801       |H   |		Short_Literal	0x1
0cf7 4810       |H   |		Short_Literal	0x10
0cf8 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0cf9 e5fe       |    |		Load	0x2,-0x2
0cfa 00d8       |    |		Load_Top	At_Offset_0
0cfb e5ff       |    |		Load	0x2,-0x1
0cfc 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0cfd e5ff       |    |		Load	0x2,-0x1
0cfe 00db       |    |		Load_Top	At_Offset_3
0cff 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
0d00 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d01 4801       |H   |		Short_Literal	0x1
0d02 00db       |    |		Load_Top	At_Offset_3
0d03 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
0d04 4609       |F   |		Jump_Case	0xa
0d05 7809       |x   |		Jump	0xd0f								; case 0x0
0d06 7808       |x   |		Jump	0xd0f								; case 0x1
0d07 7807       |x   |		Jump	0xd0f								; case 0x2
0d08 7806       |x   |		Jump	0xd0f								; case 0x3
0d09 7805       |x   |		Jump	0xd0f								; case 0x4
0d0a 7804       |x   |		Jump	0xd0f								; case 0x5
0d0b 7803       |x   |		Jump	0xd0f								; case 0x6
0d0c 7802       |x   |		Jump	0xd0f								; case 0x7
0d0d 7801       |x   |		Jump	0xd0f								; case 0x8
0d0e 7800       |x   |		Jump	0xd0f								; case 0x9
0d0f e5ff       |    |		Load	0x2,-0x1
0d10 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
0d11 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0d12 00db       |    |		Load_Top	At_Offset_3
0d13 4609       |F   |		Jump_Case	0xa
0d14 781b       |x   |		Jump	0xd30								; case 0x0
0d15 780a       |x   |		Jump	0xd20								; case 0x1
0d16 780b       |x   |		Jump	0xd22								; case 0x2
0d17 780c       |x   |		Jump	0xd24								; case 0x3
0d18 780d       |x   |		Jump	0xd26								; case 0x4
0d19 780e       |x   |		Jump	0xd28								; case 0x5
0d1a 780f       |x   |		Jump	0xd2a								; case 0x6
0d1b 7810       |x   |		Jump	0xd2c								; case 0x7
0d1c 7811       |x   |		Jump	0xd2e								; case 0x8
0d1d 7800       |x   |		Jump	0xd1e								; case 0x9
0d1e 4809       |H   |		Short_Literal	0x9
0d1f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d20 4801       |H   |		Short_Literal	0x1
0d21 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d22 4802       |H   |		Short_Literal	0x2
0d23 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d24 4803       |H   |		Short_Literal	0x3
0d25 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d26 4804       |H   |		Short_Literal	0x4
0d27 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d28 4805       |H   |		Short_Literal	0x5
0d29 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d2a 4806       |H   |		Short_Literal	0x6
0d2b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d2c 4807       |H   |		Short_Literal	0x7
0d2d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d2e 4808       |H   |		Short_Literal	0x8
0d2f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d30 48ff       |H   |		Short_Literal	0xff
0d31 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d32 00db       |    |		Load_Top	At_Offset_3
0d33 e5fe       |    |		Load	0x2,-0x2
0d34 4609       |F   |		Jump_Case	0xa
0d35 781b       |x   |		Jump	0xd51								; case 0x0
0d36 780a       |x   |		Jump	0xd41								; case 0x1
0d37 780b       |x   |		Jump	0xd43								; case 0x2
0d38 780c       |x   |		Jump	0xd45								; case 0x3
0d39 780d       |x   |		Jump	0xd47								; case 0x4
0d3a 780e       |x   |		Jump	0xd49								; case 0x5
0d3b 780f       |x   |		Jump	0xd4b								; case 0x6
0d3c 7810       |x   |		Jump	0xd4d								; case 0x7
0d3d 7811       |x   |		Jump	0xd4f								; case 0x8
0d3e 7800       |x   |		Jump	0xd3f								; case 0x9
0d3f 4809       |H   |		Short_Literal	0x9
0d40 7811       |x   |		Jump	0xd52
0d41 4801       |H   |		Short_Literal	0x1
0d42 780f       |x   |		Jump	0xd52
0d43 4802       |H   |		Short_Literal	0x2
0d44 780d       |x   |		Jump	0xd52
0d45 4803       |H   |		Short_Literal	0x3
0d46 780b       |x   |		Jump	0xd52
0d47 4804       |H   |		Short_Literal	0x4
0d48 7809       |x   |		Jump	0xd52
0d49 4805       |H   |		Short_Literal	0x5
0d4a 7807       |x   |		Jump	0xd52
0d4b 4806       |H   |		Short_Literal	0x6
0d4c 7805       |x   |		Jump	0xd52
0d4d 4807       |H   |		Short_Literal	0x7
0d4e 7803       |x   |		Jump	0xd52
0d4f 4808       |H   |		Short_Literal	0x8
0d50 7801       |x   |		Jump	0xd52
0d51 48ff       |H   |		Short_Literal	0xff
0d52 e5ff       |    |		Load	0x2,-0x1
0d53 031b       |    |		Declare_Type	Variant_Record,Constrained
0d54 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d55 00db       |    |		Load_Top	At_Offset_3
0d56 e5fe       |    |		Load	0x2,-0x2
0d57 e5ff       |    |		Load	0x2,-0x1
0d58 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0d59 e5ff       |    |		Load	0x2,-0x1
0d5a 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0d5b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d5c 0869       | i  |		Execute_Immediate	Raise,0x69
0d5d ; --------------------------------------------------------------------------------------
0d5d ; STRING TABLE
0d5d ; --------------------------------------------------------------------------------------
0d5d 0018       |    |		.STRTAB	0x0018->0x0d69							; "No previous Images for Undo"
0d5e 0031       | 1  |		.STRTAB	0x0031->0x0d76							; "No more Images for Redo"
0d5f 0046       | F  |		.STRTAB	0x0046->0x0d82							; "Semanticize"
0d60 004f       | O  |		.STRTAB	0x004f->0x0d87							; "Edit"
0d61 0051       | Q  |		.STRTAB	0x0051->0x0d89							; "Show_Differential"
0d62 0060       | `  |		.STRTAB	0x0060->0x0d92							; "Generate_Test_Set"
0d63 006f       | o  |		.STRTAB	0x006f->0x0d9a							; "Save_As"
0d64 0074       | t  |		.STRTAB	0x0074->0x0d9e							; "Set_Value"
0d65 007b       | {  |		.STRTAB	0x007b->0x0da2							; "Set_Term_Control_Value"
0d66 008f       |    |		.STRTAB	0x008f->0x0dad							; "Insert"
0d67 0093       |    |		.STRTAB	0x0093->0x0db0							; "'"
0d68 0092       |    |		.STREND 0x0092->0x0db1
0d69 4e6f 2070  |No p|		.STRTAB_STRINGS
0db1 0000 0000  |    |		.BLANK	0000[0x7]
0db8 ; --------------------------------------------------------------------------------------
0db8 ; Debug Table
0db8 ; --------------------------------------------------------------------------------------
0db8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x765a,0x0000,0x0001,0x0000
0dbe 0000 0000  |    |		.BLANK	0000[0x42]