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

⟦321ca19f3⟧

    Length: 5120 (0x1400)
    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 0858       | X  |		.CONST	0x0858								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0405       |    |		.CONST	0x0405								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 4801       |H   |		Short_Literal	0x1
000d 00e1       |    |		Load_Encached	Boolean_Cache
000e 4801       |H   |		Short_Literal	0x1
000f e003       |    |		Load	0x0,0x3
0010 4801       |H   |		Short_Literal	0x1
0011 e004       |    |		Load	0x0,0x4
0012 4801       |H   |		Short_Literal	0x1
0013 e005       |    |		Load	0x0,0x5
0014 4801       |H   |		Short_Literal	0x1
0015 e006       |    |		Load	0x0,0x6
0016 029f 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Call
0018 4805       |H   |		Short_Literal	0x5
0019 4800       |H   |		Short_Literal	0x0
001a 4805       |H   |		Short_Literal	0x5
001b 4800       |H   |		Short_Literal	0x0
001c 4801       |H   |		Short_Literal	0x1
001d 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
001e 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0020 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0022 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
0024 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
0026 00bf       |    |		Action	Accept_Activation
0027 4800       |H   |		Short_Literal	0x0
0028 4804       |H   |		Short_Literal	0x4
0029 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
002b 03fd       |    |		Declare_Type	Discrete,Defined
002c 4800       |H   |		Short_Literal	0x0
002d 480d       |H   |		Short_Literal	0xd
002e 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
0030 03fd       |    |		Declare_Type	Discrete,Defined
0031 00d9       |    |		Load_Top	At_Offset_1
0032 4802       |H   |		Short_Literal	0x2
0033 00da       |    |		Load_Top	At_Offset_2
0034 e20d       |    |		Load	0x1,0xd
0035 029f 064b  |   K|		Declare_Subprogram	INIT_0648,For_Call
0037 4802       |H   |		Short_Literal	0x2
0038 4800       |H   |		Short_Literal	0x0
0039 4801       |H   |		Short_Literal	0x1
003a 4800       |H   |		Short_Literal	0x0
003b 4801       |H   |		Short_Literal	0x1
003c 031d       |    |		Declare_Type	Variant_Record,Defined
003d 4800       |H   |		Short_Literal	0x0
003e 00d9       |    |		Load_Top	At_Offset_1
003f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0040 4806       |H   |		Short_Literal	0x6
0041 e20d       |    |		Load	0x1,0xd
0042 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0043 4800       |H   |		Short_Literal	0x0
0044 00d9       |    |		Load_Top	At_Offset_1
0045 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0046 4801       |H   |		Short_Literal	0x1
0047 00db       |    |		Load_Top	At_Offset_3
0048 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0049 4806       |H   |		Short_Literal	0x6
004a e20d       |    |		Load	0x1,0xd
004b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
004c 4801       |H   |		Short_Literal	0x1
004d 00d9       |    |		Load_Top	At_Offset_1
004e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
004f 00eb       |    |		Load_Encached	Diana_Cache
0050 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0051 0266       | f  |		Execute	Discrete,Bounds
0052 e214       |    |		Load	0x1,0x14
0053 029f 069b  |    |		Declare_Subprogram	INIT_0698,For_Call
0055 4801       |H   |		Short_Literal	0x1
0056 035d       | ]  |		Declare_Type	Array,Defined
0057 00d8       |    |		Load_Top	At_Offset_0
0058 0337       | 7  |		Declare_Variable	Array
0059 00d8       |    |		Load_Top	At_Offset_0
005a 0335       | 5  |		Declare_Variable	Array,Duplicate
005b 00cd       |    |		Action	Spare6_Action
005c 4804       |H   |		Short_Literal	0x4
005d e214       |    |		Load	0x1,0x14
005e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
005f 4800       |H   |		Short_Literal	0x0
0060 00d9       |    |		Load_Top	At_Offset_1
0061 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0062 4804       |H   |		Short_Literal	0x4
0063 e20d       |    |		Load	0x1,0xd
0064 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0065 00d9       |    |		Load_Top	At_Offset_1
0066 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0067 4840       |H@  |		Short_Literal	0x40
0068 00da       |    |		Load_Top	At_Offset_2
0069 01d6       |    |		Execute	Vector,Field_Write
006a 4802       |H   |		Short_Literal	0x2
006b e214       |    |		Load	0x1,0x14
006c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006d 4800       |H   |		Short_Literal	0x0
006e 00d9       |    |		Load_Top	At_Offset_1
006f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0070 4800       |H   |		Short_Literal	0x0
0071 e20d       |    |		Load	0x1,0xd
0072 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0073 00d9       |    |		Load_Top	At_Offset_1
0074 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0075 48a8       |H   |		Short_Literal	0xa8
0076 00da       |    |		Load_Top	At_Offset_2
0077 01d6       |    |		Execute	Vector,Field_Write
0078 4802       |H   |		Short_Literal	0x2
0079 e214       |    |		Load	0x1,0x14
007a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
007b 4800       |H   |		Short_Literal	0x0
007c 00d9       |    |		Load_Top	At_Offset_1
007d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
007e 4801       |H   |		Short_Literal	0x1
007f e20d       |    |		Load	0x1,0xd
0080 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0081 4801       |H   |		Short_Literal	0x1
0082 00d9       |    |		Load_Top	At_Offset_1
0083 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0084 00d9       |    |		Load_Top	At_Offset_1
0085 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0086 4845       |HE  |		Short_Literal	0x45
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 4802       |H   |		Short_Literal	0x2
008a e214       |    |		Load	0x1,0x14
008b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
008c 4800       |H   |		Short_Literal	0x0
008d 00d9       |    |		Load_Top	At_Offset_1
008e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
008f 4801       |H   |		Short_Literal	0x1
0090 e20d       |    |		Load	0x1,0xd
0091 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0092 4800       |H   |		Short_Literal	0x0
0093 00d9       |    |		Load_Top	At_Offset_1
0094 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0095 00d9       |    |		Load_Top	At_Offset_1
0096 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0097 4885       |H   |		Short_Literal	0x85
0098 00da       |    |		Load_Top	At_Offset_2
0099 01d6       |    |		Execute	Vector,Field_Write
009a 4802       |H   |		Short_Literal	0x2
009b e214       |    |		Load	0x1,0x14
009c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
009d 4800       |H   |		Short_Literal	0x0
009e 00d9       |    |		Load_Top	At_Offset_1
009f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00a0 4802       |H   |		Short_Literal	0x2
00a1 e20d       |    |		Load	0x1,0xd
00a2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a3 4824       |H$  |		Short_Literal	0x24
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00a8 489b       |H   |		Short_Literal	0x9b
00a9 00da       |    |		Load_Top	At_Offset_2
00aa 01d6       |    |		Execute	Vector,Field_Write
00ab 4802       |H   |		Short_Literal	0x2
00ac e214       |    |		Load	0x1,0x14
00ad 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ae 4801       |H   |		Short_Literal	0x1
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00b1 4802       |H   |		Short_Literal	0x2
00b2 e20d       |    |		Load	0x1,0xd
00b3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b4 4800       |H   |		Short_Literal	0x0
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00b7 00d9       |    |		Load_Top	At_Offset_1
00b8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00b9 4839       |H9  |		Short_Literal	0x39
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc 4802       |H   |		Short_Literal	0x2
00bd e214       |    |		Load	0x1,0x14
00be 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00bf 4800       |H   |		Short_Literal	0x0
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00c2 4802       |H   |		Short_Literal	0x2
00c3 e20d       |    |		Load	0x1,0xd
00c4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c5 4801       |H   |		Short_Literal	0x1
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ca 4838       |H8  |		Short_Literal	0x38
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01d6       |    |		Execute	Vector,Field_Write
00cd 4802       |H   |		Short_Literal	0x2
00ce e214       |    |		Load	0x1,0x14
00cf 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d0 4800       |H   |		Short_Literal	0x0
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d3 4802       |H   |		Short_Literal	0x2
00d4 e20d       |    |		Load	0x1,0xd
00d5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d6 4802       |H   |		Short_Literal	0x2
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00d9 00d9       |    |		Load_Top	At_Offset_1
00da 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00db 4802       |H   |		Short_Literal	0x2
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 4802       |H   |		Short_Literal	0x2
00df e214       |    |		Load	0x1,0x14
00e0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e1 4802       |H   |		Short_Literal	0x2
00e2 00d9       |    |		Load_Top	At_Offset_1
00e3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00e4 4802       |H   |		Short_Literal	0x2
00e5 e20d       |    |		Load	0x1,0xd
00e6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e7 4803       |H   |		Short_Literal	0x3
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ec 483a       |H:  |		Short_Literal	0x3a
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 01d6       |    |		Execute	Vector,Field_Write
00ef 4802       |H   |		Short_Literal	0x2
00f0 e214       |    |		Load	0x1,0x14
00f1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f2 4803       |H   |		Short_Literal	0x3
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00f5 4802       |H   |		Short_Literal	0x2
00f6 e20d       |    |		Load	0x1,0xd
00f7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f8 4805       |H   |		Short_Literal	0x5
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00fd 483b       |H;  |		Short_Literal	0x3b
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4802       |H   |		Short_Literal	0x2
0101 e214       |    |		Load	0x1,0x14
0102 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0103 4800       |H   |		Short_Literal	0x0
0104 00d9       |    |		Load_Top	At_Offset_1
0105 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0106 4802       |H   |		Short_Literal	0x2
0107 e20d       |    |		Load	0x1,0xd
0108 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0109 4807       |H   |		Short_Literal	0x7
010a 00d9       |    |		Load_Top	At_Offset_1
010b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
010c 00d9       |    |		Load_Top	At_Offset_1
010d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
010e 483c       |H<  |		Short_Literal	0x3c
010f 00da       |    |		Load_Top	At_Offset_2
0110 01d6       |    |		Execute	Vector,Field_Write
0111 4802       |H   |		Short_Literal	0x2
0112 e214       |    |		Load	0x1,0x14
0113 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0114 4804       |H   |		Short_Literal	0x4
0115 00d9       |    |		Load_Top	At_Offset_1
0116 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0117 4802       |H   |		Short_Literal	0x2
0118 e20d       |    |		Load	0x1,0xd
0119 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011a 4808       |H   |		Short_Literal	0x8
011b 00d9       |    |		Load_Top	At_Offset_1
011c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
011d 00d9       |    |		Load_Top	At_Offset_1
011e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
011f 483e       |H>  |		Short_Literal	0x3e
0120 00da       |    |		Load_Top	At_Offset_2
0121 01d6       |    |		Execute	Vector,Field_Write
0122 4802       |H   |		Short_Literal	0x2
0123 e214       |    |		Load	0x1,0x14
0124 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0125 4805       |H   |		Short_Literal	0x5
0126 00d9       |    |		Load_Top	At_Offset_1
0127 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0128 4802       |H   |		Short_Literal	0x2
0129 e20d       |    |		Load	0x1,0xd
012a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
012b 4809       |H   |		Short_Literal	0x9
012c 00d9       |    |		Load_Top	At_Offset_1
012d 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
012e 00d9       |    |		Load_Top	At_Offset_1
012f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0130 4847       |HG  |		Short_Literal	0x47
0131 00da       |    |		Load_Top	At_Offset_2
0132 01d6       |    |		Execute	Vector,Field_Write
0133 4802       |H   |		Short_Literal	0x2
0134 e214       |    |		Load	0x1,0x14
0135 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0136 4806       |H   |		Short_Literal	0x6
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0139 4802       |H   |		Short_Literal	0x2
013a e20d       |    |		Load	0x1,0xd
013b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
013c 480a       |H   |		Short_Literal	0xa
013d 00d9       |    |		Load_Top	At_Offset_1
013e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
013f 00d9       |    |		Load_Top	At_Offset_1
0140 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0141 483d       |H=  |		Short_Literal	0x3d
0142 00da       |    |		Load_Top	At_Offset_2
0143 01d6       |    |		Execute	Vector,Field_Write
0144 4802       |H   |		Short_Literal	0x2
0145 e214       |    |		Load	0x1,0x14
0146 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0147 4807       |H   |		Short_Literal	0x7
0148 00d9       |    |		Load_Top	At_Offset_1
0149 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
014a 4802       |H   |		Short_Literal	0x2
014b e20d       |    |		Load	0x1,0xd
014c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
014d 480b       |H   |		Short_Literal	0xb
014e 00d9       |    |		Load_Top	At_Offset_1
014f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0150 00d9       |    |		Load_Top	At_Offset_1
0151 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0152 4848       |HH  |		Short_Literal	0x48
0153 00da       |    |		Load_Top	At_Offset_2
0154 01d6       |    |		Execute	Vector,Field_Write
0155 4802       |H   |		Short_Literal	0x2
0156 e214       |    |		Load	0x1,0x14
0157 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0158 4808       |H   |		Short_Literal	0x8
0159 00d9       |    |		Load_Top	At_Offset_1
015a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
015b 4802       |H   |		Short_Literal	0x2
015c e20d       |    |		Load	0x1,0xd
015d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015e 4813       |H   |		Short_Literal	0x13
015f 00d9       |    |		Load_Top	At_Offset_1
0160 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0161 00d9       |    |		Load_Top	At_Offset_1
0162 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0163 4841       |HA  |		Short_Literal	0x41
0164 00da       |    |		Load_Top	At_Offset_2
0165 01d6       |    |		Execute	Vector,Field_Write
0166 4802       |H   |		Short_Literal	0x2
0167 e214       |    |		Load	0x1,0x14
0168 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0169 4800       |H   |		Short_Literal	0x0
016a 00d9       |    |		Load_Top	At_Offset_1
016b 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
016c 4802       |H   |		Short_Literal	0x2
016d e20d       |    |		Load	0x1,0xd
016e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
016f 4819       |H   |		Short_Literal	0x19
0170 00d9       |    |		Load_Top	At_Offset_1
0171 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0172 00d9       |    |		Load_Top	At_Offset_1
0173 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0174 483f       |H?  |		Short_Literal	0x3f
0175 00da       |    |		Load_Top	At_Offset_2
0176 01d6       |    |		Execute	Vector,Field_Write
0177 4802       |H   |		Short_Literal	0x2
0178 e214       |    |		Load	0x1,0x14
0179 1c08       |    |		Execute_Immediate	Run_Utility,0x8
017a 4809       |H   |		Short_Literal	0x9
017b 00d9       |    |		Load_Top	At_Offset_1
017c 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
017d 4802       |H   |		Short_Literal	0x2
017e e20d       |    |		Load	0x1,0xd
017f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0180 481a       |H   |		Short_Literal	0x1a
0181 00d9       |    |		Load_Top	At_Offset_1
0182 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0183 00d9       |    |		Load_Top	At_Offset_1
0184 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0185 4846       |HF  |		Short_Literal	0x46
0186 00da       |    |		Load_Top	At_Offset_2
0187 01d6       |    |		Execute	Vector,Field_Write
0188 4802       |H   |		Short_Literal	0x2
0189 e214       |    |		Load	0x1,0x14
018a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
018b 480a       |H   |		Short_Literal	0xa
018c 00d9       |    |		Load_Top	At_Offset_1
018d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
018e 4802       |H   |		Short_Literal	0x2
018f e20d       |    |		Load	0x1,0xd
0190 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0191 481d       |H   |		Short_Literal	0x1d
0192 00d9       |    |		Load_Top	At_Offset_1
0193 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0194 00d9       |    |		Load_Top	At_Offset_1
0195 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0196 4837       |H7  |		Short_Literal	0x37
0197 00da       |    |		Load_Top	At_Offset_2
0198 01d6       |    |		Execute	Vector,Field_Write
0199 4802       |H   |		Short_Literal	0x2
019a e214       |    |		Load	0x1,0x14
019b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
019c 4800       |H   |		Short_Literal	0x0
019d 00d9       |    |		Load_Top	At_Offset_1
019e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
019f 4803       |H   |		Short_Literal	0x3
01a0 e20d       |    |		Load	0x1,0xd
01a1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a2 4800       |H   |		Short_Literal	0x0
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01a7 485a       |HZ  |		Short_Literal	0x5a
01a8 00da       |    |		Load_Top	At_Offset_2
01a9 01d6       |    |		Execute	Vector,Field_Write
01aa 4802       |H   |		Short_Literal	0x2
01ab e214       |    |		Load	0x1,0x14
01ac 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ad 4800       |H   |		Short_Literal	0x0
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01b0 4803       |H   |		Short_Literal	0x3
01b1 e20d       |    |		Load	0x1,0xd
01b2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b3 4801       |H   |		Short_Literal	0x1
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01b8 484d       |HM  |		Short_Literal	0x4d
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 01d6       |    |		Execute	Vector,Field_Write
01bb 4802       |H   |		Short_Literal	0x2
01bc e214       |    |		Load	0x1,0x14
01bd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01be 4800       |H   |		Short_Literal	0x0
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01c1 4803       |H   |		Short_Literal	0x3
01c2 e20d       |    |		Load	0x1,0xd
01c3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c4 4802       |H   |		Short_Literal	0x2
01c5 00d9       |    |		Load_Top	At_Offset_1
01c6 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01c9 485b       |H[  |		Short_Literal	0x5b
01ca 00da       |    |		Load_Top	At_Offset_2
01cb 01d6       |    |		Execute	Vector,Field_Write
01cc 4802       |H   |		Short_Literal	0x2
01cd e214       |    |		Load	0x1,0x14
01ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01cf 4800       |H   |		Short_Literal	0x0
01d0 00d9       |    |		Load_Top	At_Offset_1
01d1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01d2 4803       |H   |		Short_Literal	0x3
01d3 e20d       |    |		Load	0x1,0xd
01d4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d5 4803       |H   |		Short_Literal	0x3
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01da 4854       |HT  |		Short_Literal	0x54
01db 00da       |    |		Load_Top	At_Offset_2
01dc 01d6       |    |		Execute	Vector,Field_Write
01dd 4802       |H   |		Short_Literal	0x2
01de e214       |    |		Load	0x1,0x14
01df 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01e0 4800       |H   |		Short_Literal	0x0
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01e3 4803       |H   |		Short_Literal	0x3
01e4 e20d       |    |		Load	0x1,0xd
01e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01e6 4804       |H   |		Short_Literal	0x4
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01eb 485d       |H]  |		Short_Literal	0x5d
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 01d6       |    |		Execute	Vector,Field_Write
01ee 4802       |H   |		Short_Literal	0x2
01ef e214       |    |		Load	0x1,0x14
01f0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01f1 4800       |H   |		Short_Literal	0x0
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01f4 4803       |H   |		Short_Literal	0x3
01f5 e20d       |    |		Load	0x1,0xd
01f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01f7 4805       |H   |		Short_Literal	0x5
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01fa 00d9       |    |		Load_Top	At_Offset_1
01fb 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01fc 4855       |HU  |		Short_Literal	0x55
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 01d6       |    |		Execute	Vector,Field_Write
01ff 4802       |H   |		Short_Literal	0x2
0200 e214       |    |		Load	0x1,0x14
0201 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0202 4800       |H   |		Short_Literal	0x0
0203 00d9       |    |		Load_Top	At_Offset_1
0204 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0205 4803       |H   |		Short_Literal	0x3
0206 e20d       |    |		Load	0x1,0xd
0207 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0208 4806       |H   |		Short_Literal	0x6
0209 00d9       |    |		Load_Top	At_Offset_1
020a 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
020b 00d9       |    |		Load_Top	At_Offset_1
020c 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
020d 4853       |HS  |		Short_Literal	0x53
020e 00da       |    |		Load_Top	At_Offset_2
020f 01d6       |    |		Execute	Vector,Field_Write
0210 4802       |H   |		Short_Literal	0x2
0211 e214       |    |		Load	0x1,0x14
0212 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0213 4800       |H   |		Short_Literal	0x0
0214 00d9       |    |		Load_Top	At_Offset_1
0215 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0216 4803       |H   |		Short_Literal	0x3
0217 e20d       |    |		Load	0x1,0xd
0218 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0219 4807       |H   |		Short_Literal	0x7
021a 00d9       |    |		Load_Top	At_Offset_1
021b 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
021c 00d9       |    |		Load_Top	At_Offset_1
021d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
021e 4852       |HR  |		Short_Literal	0x52
021f 00da       |    |		Load_Top	At_Offset_2
0220 01d6       |    |		Execute	Vector,Field_Write
0221 4802       |H   |		Short_Literal	0x2
0222 e214       |    |		Load	0x1,0x14
0223 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0224 4800       |H   |		Short_Literal	0x0
0225 00d9       |    |		Load_Top	At_Offset_1
0226 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0227 4803       |H   |		Short_Literal	0x3
0228 e20d       |    |		Load	0x1,0xd
0229 1c08       |    |		Execute_Immediate	Run_Utility,0x8
022a 4808       |H   |		Short_Literal	0x8
022b 00d9       |    |		Load_Top	At_Offset_1
022c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
022d 00d9       |    |		Load_Top	At_Offset_1
022e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
022f 484b       |HK  |		Short_Literal	0x4b
0230 00da       |    |		Load_Top	At_Offset_2
0231 01d6       |    |		Execute	Vector,Field_Write
0232 4802       |H   |		Short_Literal	0x2
0233 e214       |    |		Load	0x1,0x14
0234 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0235 4800       |H   |		Short_Literal	0x0
0236 00d9       |    |		Load_Top	At_Offset_1
0237 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0238 4803       |H   |		Short_Literal	0x3
0239 e20d       |    |		Load	0x1,0xd
023a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023b 4809       |H   |		Short_Literal	0x9
023c 00d9       |    |		Load_Top	At_Offset_1
023d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
023e 00d9       |    |		Load_Top	At_Offset_1
023f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0240 485c       |H\  |		Short_Literal	0x5c
0241 00da       |    |		Load_Top	At_Offset_2
0242 01d6       |    |		Execute	Vector,Field_Write
0243 4802       |H   |		Short_Literal	0x2
0244 e214       |    |		Load	0x1,0x14
0245 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0246 4800       |H   |		Short_Literal	0x0
0247 00d9       |    |		Load_Top	At_Offset_1
0248 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0249 4803       |H   |		Short_Literal	0x3
024a e20d       |    |		Load	0x1,0xd
024b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024c 480a       |H   |		Short_Literal	0xa
024d 00d9       |    |		Load_Top	At_Offset_1
024e 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
024f 00d9       |    |		Load_Top	At_Offset_1
0250 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0251 4850       |HP  |		Short_Literal	0x50
0252 00da       |    |		Load_Top	At_Offset_2
0253 01d6       |    |		Execute	Vector,Field_Write
0254 4802       |H   |		Short_Literal	0x2
0255 e214       |    |		Load	0x1,0x14
0256 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0257 4800       |H   |		Short_Literal	0x0
0258 00d9       |    |		Load_Top	At_Offset_1
0259 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
025a 4803       |H   |		Short_Literal	0x3
025b e20d       |    |		Load	0x1,0xd
025c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
025d 480b       |H   |		Short_Literal	0xb
025e 00d9       |    |		Load_Top	At_Offset_1
025f 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0260 00d9       |    |		Load_Top	At_Offset_1
0261 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0262 4856       |HV  |		Short_Literal	0x56
0263 00da       |    |		Load_Top	At_Offset_2
0264 01d6       |    |		Execute	Vector,Field_Write
0265 4802       |H   |		Short_Literal	0x2
0266 e214       |    |		Load	0x1,0x14
0267 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0268 4800       |H   |		Short_Literal	0x0
0269 00d9       |    |		Load_Top	At_Offset_1
026a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
026b 4803       |H   |		Short_Literal	0x3
026c e20d       |    |		Load	0x1,0xd
026d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
026e 480c       |H   |		Short_Literal	0xc
026f 00d9       |    |		Load_Top	At_Offset_1
0270 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0271 00d9       |    |		Load_Top	At_Offset_1
0272 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0273 484f       |HO  |		Short_Literal	0x4f
0274 00da       |    |		Load_Top	At_Offset_2
0275 01d6       |    |		Execute	Vector,Field_Write
0276 4802       |H   |		Short_Literal	0x2
0277 e214       |    |		Load	0x1,0x14
0278 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0279 4800       |H   |		Short_Literal	0x0
027a 00d9       |    |		Load_Top	At_Offset_1
027b 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
027c 4803       |H   |		Short_Literal	0x3
027d e20d       |    |		Load	0x1,0xd
027e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
027f 480d       |H   |		Short_Literal	0xd
0280 00d9       |    |		Load_Top	At_Offset_1
0281 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0282 00d9       |    |		Load_Top	At_Offset_1
0283 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0284 484a       |HJ  |		Short_Literal	0x4a
0285 00da       |    |		Load_Top	At_Offset_2
0286 01d6       |    |		Execute	Vector,Field_Write
0287 4803       |H   |		Short_Literal	0x3
0288 e214       |    |		Load	0x1,0x14
0289 1c08       |    |		Execute_Immediate	Run_Utility,0x8
028a 4800       |H   |		Short_Literal	0x0
028b 00d9       |    |		Load_Top	At_Offset_1
028c 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
028d 4803       |H   |		Short_Literal	0x3
028e e20d       |    |		Load	0x1,0xd
028f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0290 480e       |H   |		Short_Literal	0xe
0291 00d9       |    |		Load_Top	At_Offset_1
0292 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0293 00d9       |    |		Load_Top	At_Offset_1
0294 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0295 484e       |HN  |		Short_Literal	0x4e
0296 00da       |    |		Load_Top	At_Offset_2
0297 01d6       |    |		Execute	Vector,Field_Write
0298 4802       |H   |		Short_Literal	0x2
0299 e214       |    |		Load	0x1,0x14
029a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
029b 4800       |H   |		Short_Literal	0x0
029c 00d9       |    |		Load_Top	At_Offset_1
029d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
029e 4803       |H   |		Short_Literal	0x3
029f e20d       |    |		Load	0x1,0xd
02a0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a1 480f       |H   |		Short_Literal	0xf
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02a4 00d9       |    |		Load_Top	At_Offset_1
02a5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02a6 484c       |HL  |		Short_Literal	0x4c
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 01d6       |    |		Execute	Vector,Field_Write
02a9 4802       |H   |		Short_Literal	0x2
02aa e214       |    |		Load	0x1,0x14
02ab 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ac 4800       |H   |		Short_Literal	0x0
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02af 4803       |H   |		Short_Literal	0x3
02b0 e20d       |    |		Load	0x1,0xd
02b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b2 4810       |H   |		Short_Literal	0x10
02b3 00d9       |    |		Load_Top	At_Offset_1
02b4 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02b7 485e       |H^  |		Short_Literal	0x5e
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 01d6       |    |		Execute	Vector,Field_Write
02ba 4802       |H   |		Short_Literal	0x2
02bb e214       |    |		Load	0x1,0x14
02bc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02bd 4800       |H   |		Short_Literal	0x0
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02c0 4803       |H   |		Short_Literal	0x3
02c1 e20d       |    |		Load	0x1,0xd
02c2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02c3 4811       |H   |		Short_Literal	0x11
02c4 00d9       |    |		Load_Top	At_Offset_1
02c5 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02c8 4851       |HQ  |		Short_Literal	0x51
02c9 00da       |    |		Load_Top	At_Offset_2
02ca 01d6       |    |		Execute	Vector,Field_Write
02cb 4802       |H   |		Short_Literal	0x2
02cc e214       |    |		Load	0x1,0x14
02cd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ce 4800       |H   |		Short_Literal	0x0
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02d1 4803       |H   |		Short_Literal	0x3
02d2 e20d       |    |		Load	0x1,0xd
02d3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02d4 4812       |H   |		Short_Literal	0x12
02d5 00d9       |    |		Load_Top	At_Offset_1
02d6 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02d7 00d9       |    |		Load_Top	At_Offset_1
02d8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02d9 4860       |H`  |		Short_Literal	0x60
02da 00da       |    |		Load_Top	At_Offset_2
02db 01d6       |    |		Execute	Vector,Field_Write
02dc 4802       |H   |		Short_Literal	0x2
02dd e214       |    |		Load	0x1,0x14
02de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02df 480b       |H   |		Short_Literal	0xb
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02e2 4805       |H   |		Short_Literal	0x5
02e3 e20d       |    |		Load	0x1,0xd
02e4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e5 4800       |H   |		Short_Literal	0x0
02e6 00d9       |    |		Load_Top	At_Offset_1
02e7 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02ea 4844       |HD  |		Short_Literal	0x44
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 01d6       |    |		Execute	Vector,Field_Write
02ed 4802       |H   |		Short_Literal	0x2
02ee e214       |    |		Load	0x1,0x14
02ef 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02f0 4800       |H   |		Short_Literal	0x0
02f1 00d9       |    |		Load_Top	At_Offset_1
02f2 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02f3 4805       |H   |		Short_Literal	0x5
02f4 e20d       |    |		Load	0x1,0xd
02f5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02f6 4802       |H   |		Short_Literal	0x2
02f7 00d9       |    |		Load_Top	At_Offset_1
02f8 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02f9 00d9       |    |		Load_Top	At_Offset_1
02fa 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02fb 4843       |HC  |		Short_Literal	0x43
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 01d6       |    |		Execute	Vector,Field_Write
02fe 4802       |H   |		Short_Literal	0x2
02ff e214       |    |		Load	0x1,0x14
0300 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0301 4800       |H   |		Short_Literal	0x0
0302 00d9       |    |		Load_Top	At_Offset_1
0303 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0304 4805       |H   |		Short_Literal	0x5
0305 e20d       |    |		Load	0x1,0xd
0306 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0307 4803       |H   |		Short_Literal	0x3
0308 00d9       |    |		Load_Top	At_Offset_1
0309 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
030a 00d9       |    |		Load_Top	At_Offset_1
030b 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
030c 4842       |HB  |		Short_Literal	0x42
030d 00da       |    |		Load_Top	At_Offset_2
030e 01d6       |    |		Execute	Vector,Field_Write
030f 4802       |H   |		Short_Literal	0x2
0310 e214       |    |		Load	0x1,0x14
0311 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0312 4800       |H   |		Short_Literal	0x0
0313 00d9       |    |		Load_Top	At_Offset_1
0314 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0315 4802       |H   |		Short_Literal	0x2
0316 e20d       |    |		Load	0x1,0xd
0317 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0318 4822       |H"  |		Short_Literal	0x22
0319 00d9       |    |		Load_Top	At_Offset_1
031a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
031b 00d9       |    |		Load_Top	At_Offset_1
031c 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
031d 487d       |H}  |		Short_Literal	0x7d
031e 00da       |    |		Load_Top	At_Offset_2
031f 01d6       |    |		Execute	Vector,Field_Write
0320 4802       |H   |		Short_Literal	0x2
0321 e214       |    |		Load	0x1,0x14
0322 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0323 480c       |H   |		Short_Literal	0xc
0324 00d9       |    |		Load_Top	At_Offset_1
0325 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0326 4802       |H   |		Short_Literal	0x2
0327 e20d       |    |		Load	0x1,0xd
0328 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0329 4822       |H"  |		Short_Literal	0x22
032a 00d9       |    |		Load_Top	At_Offset_1
032b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
032c 00d9       |    |		Load_Top	At_Offset_1
032d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
032e 487e       |H~  |		Short_Literal	0x7e
032f 00da       |    |		Load_Top	At_Offset_2
0330 01d6       |    |		Execute	Vector,Field_Write
0331 4802       |H   |		Short_Literal	0x2
0332 e214       |    |		Load	0x1,0x14
0333 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0334 480d       |H   |		Short_Literal	0xd
0335 00d9       |    |		Load_Top	At_Offset_1
0336 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0337 4802       |H   |		Short_Literal	0x2
0338 e20d       |    |		Load	0x1,0xd
0339 1c08       |    |		Execute_Immediate	Run_Utility,0x8
033a 4822       |H"  |		Short_Literal	0x22
033b 00d9       |    |		Load_Top	At_Offset_1
033c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
033d 00d9       |    |		Load_Top	At_Offset_1
033e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
033f 487f       |H   |		Short_Literal	0x7f
0340 00da       |    |		Load_Top	At_Offset_2
0341 01d6       |    |		Execute	Vector,Field_Write
0342 e215       |    |		Load	0x1,0x15
0343 4849       |HI  |		Short_Literal	0x49
0344 00da       |    |		Load_Top	At_Offset_2
0345 01d6       |    |		Execute	Vector,Field_Write
0346 e215       |    |		Load	0x1,0x15
0347 4800       |H   |		Short_Literal	0x0
0348 00da       |    |		Load_Top	At_Offset_2
0349 01d6       |    |		Execute	Vector,Field_Write
034a e215       |    |		Load	0x1,0x15
034b 4801       |H   |		Short_Literal	0x1
034c 00da       |    |		Load_Top	At_Offset_2
034d 01d6       |    |		Execute	Vector,Field_Write
034e 4813       |H   |		Short_Literal	0x13
034f 4803       |H   |		Short_Literal	0x3
0350 e215       |    |		Load	0x1,0x15
0351 00d9       |    |		Load_Top	At_Offset_1
0352 e21b       |    |		Load	0x1,0x1b
0353 01d6       |    |		Execute	Vector,Field_Write
0354 3ffb       |?   |		Loop_Increasing	0x350
0355 e215       |    |		Load	0x1,0x15
0356 4814       |H   |		Short_Literal	0x14
0357 00da       |    |		Load_Top	At_Offset_2
0358 01d6       |    |		Execute	Vector,Field_Write
0359 e215       |    |		Load	0x1,0x15
035a 4815       |H   |		Short_Literal	0x15
035b 00da       |    |		Load_Top	At_Offset_2
035c 01d6       |    |		Execute	Vector,Field_Write
035d 4818       |H   |		Short_Literal	0x18
035e 4816       |H   |		Short_Literal	0x16
035f e215       |    |		Load	0x1,0x15
0360 00d9       |    |		Load_Top	At_Offset_1
0361 e21b       |    |		Load	0x1,0x1b
0362 01d6       |    |		Execute	Vector,Field_Write
0363 3ffb       |?   |		Loop_Increasing	0x35f
0364 4831       |H1  |		Short_Literal	0x31
0365 4819       |H   |		Short_Literal	0x19
0366 e215       |    |		Load	0x1,0x15
0367 00d9       |    |		Load_Top	At_Offset_1
0368 e21b       |    |		Load	0x1,0x1b
0369 01d6       |    |		Execute	Vector,Field_Write
036a 3ffb       |?   |		Loop_Increasing	0x366
036b 4834       |H4  |		Short_Literal	0x34
036c 4832       |H2  |		Short_Literal	0x32
036d e215       |    |		Load	0x1,0x15
036e 00d9       |    |		Load_Top	At_Offset_1
036f e21b       |    |		Load	0x1,0x1b
0370 01d6       |    |		Execute	Vector,Field_Write
0371 3ffb       |?   |		Loop_Increasing	0x36d
0372 4836       |H6  |		Short_Literal	0x36
0373 4835       |H5  |		Short_Literal	0x35
0374 e217       |    |		Load	0x1,0x17
0375 00d9       |    |		Load_Top	At_Offset_1
0376 e21b       |    |		Load	0x1,0x1b
0377 01d6       |    |		Execute	Vector,Field_Write
0378 3ffb       |?   |		Loop_Increasing	0x374
0379 e215       |    |		Load	0x1,0x15
037a 4857       |HW  |		Short_Literal	0x57
037b 00da       |    |		Load_Top	At_Offset_2
037c 01d6       |    |		Execute	Vector,Field_Write
037d e215       |    |		Load	0x1,0x15
037e 4858       |HX  |		Short_Literal	0x58
037f 00da       |    |		Load_Top	At_Offset_2
0380 01d6       |    |		Execute	Vector,Field_Write
0381 e215       |    |		Load	0x1,0x15
0382 4859       |HY  |		Short_Literal	0x59
0383 00da       |    |		Load_Top	At_Offset_2
0384 01d6       |    |		Execute	Vector,Field_Write
0385 e215       |    |		Load	0x1,0x15
0386 485f       |H_  |		Short_Literal	0x5f
0387 00da       |    |		Load_Top	At_Offset_2
0388 01d6       |    |		Execute	Vector,Field_Write
0389 e215       |    |		Load	0x1,0x15
038a 4861       |Ha  |		Short_Literal	0x61
038b 00da       |    |		Load_Top	At_Offset_2
038c 01d6       |    |		Execute	Vector,Field_Write
038d 4866       |Hf  |		Short_Literal	0x66
038e 4862       |Hb  |		Short_Literal	0x62
038f e215       |    |		Load	0x1,0x15
0390 00d9       |    |		Load_Top	At_Offset_1
0391 e21b       |    |		Load	0x1,0x1b
0392 01d6       |    |		Execute	Vector,Field_Write
0393 3ffb       |?   |		Loop_Increasing	0x38f
0394 486a       |Hj  |		Short_Literal	0x6a
0395 4867       |Hg  |		Short_Literal	0x67
0396 e215       |    |		Load	0x1,0x15
0397 00d9       |    |		Load_Top	At_Offset_1
0398 e21b       |    |		Load	0x1,0x1b
0399 01d6       |    |		Execute	Vector,Field_Write
039a 3ffb       |?   |		Loop_Increasing	0x396
039b 486f       |Ho  |		Short_Literal	0x6f
039c 486b       |Hk  |		Short_Literal	0x6b
039d e215       |    |		Load	0x1,0x15
039e 00d9       |    |		Load_Top	At_Offset_1
039f e21b       |    |		Load	0x1,0x1b
03a0 01d6       |    |		Execute	Vector,Field_Write
03a1 3ffb       |?   |		Loop_Increasing	0x39d
03a2 e215       |    |		Load	0x1,0x15
03a3 4870       |Hp  |		Short_Literal	0x70
03a4 00da       |    |		Load_Top	At_Offset_2
03a5 01d6       |    |		Execute	Vector,Field_Write
03a6 e215       |    |		Load	0x1,0x15
03a7 4871       |Hq  |		Short_Literal	0x71
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 01d6       |    |		Execute	Vector,Field_Write
03aa e215       |    |		Load	0x1,0x15
03ab 4872       |Hr  |		Short_Literal	0x72
03ac 00da       |    |		Load_Top	At_Offset_2
03ad 01d6       |    |		Execute	Vector,Field_Write
03ae e215       |    |		Load	0x1,0x15
03af 4873       |Hs  |		Short_Literal	0x73
03b0 00da       |    |		Load_Top	At_Offset_2
03b1 01d6       |    |		Execute	Vector,Field_Write
03b2 4876       |Hv  |		Short_Literal	0x76
03b3 4874       |Ht  |		Short_Literal	0x74
03b4 e215       |    |		Load	0x1,0x15
03b5 00d9       |    |		Load_Top	At_Offset_1
03b6 e21b       |    |		Load	0x1,0x1b
03b7 01d6       |    |		Execute	Vector,Field_Write
03b8 3ffb       |?   |		Loop_Increasing	0x3b4
03b9 e217       |    |		Load	0x1,0x17
03ba 4877       |Hw  |		Short_Literal	0x77
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 01d6       |    |		Execute	Vector,Field_Write
03bd e217       |    |		Load	0x1,0x17
03be 4878       |Hx  |		Short_Literal	0x78
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 01d6       |    |		Execute	Vector,Field_Write
03c1 487c       |H|  |		Short_Literal	0x7c
03c2 4879       |Hy  |		Short_Literal	0x79
03c3 e217       |    |		Load	0x1,0x17
03c4 00d9       |    |		Load_Top	At_Offset_1
03c5 e21b       |    |		Load	0x1,0x1b
03c6 01d6       |    |		Execute	Vector,Field_Write
03c7 3ffb       |?   |		Loop_Increasing	0x3c3
03c8 4883       |H   |		Short_Literal	0x83
03c9 4880       |H   |		Short_Literal	0x80
03ca e217       |    |		Load	0x1,0x17
03cb 00d9       |    |		Load_Top	At_Offset_1
03cc e21b       |    |		Load	0x1,0x1b
03cd 01d6       |    |		Execute	Vector,Field_Write
03ce 3ffb       |?   |		Loop_Increasing	0x3ca
03cf e215       |    |		Load	0x1,0x15
03d0 4884       |H   |		Short_Literal	0x84
03d1 00da       |    |		Load_Top	At_Offset_2
03d2 01d6       |    |		Execute	Vector,Field_Write
03d3 4888       |H   |		Short_Literal	0x88
03d4 4886       |H   |		Short_Literal	0x86
03d5 e215       |    |		Load	0x1,0x15
03d6 00d9       |    |		Load_Top	At_Offset_1
03d7 e21b       |    |		Load	0x1,0x1b
03d8 01d6       |    |		Execute	Vector,Field_Write
03d9 3ffb       |?   |		Loop_Increasing	0x3d5
03da 4899       |H   |		Short_Literal	0x99
03db 4889       |H   |		Short_Literal	0x89
03dc e215       |    |		Load	0x1,0x15
03dd 00d9       |    |		Load_Top	At_Offset_1
03de e21b       |    |		Load	0x1,0x1b
03df 01d6       |    |		Execute	Vector,Field_Write
03e0 3ffb       |?   |		Loop_Increasing	0x3dc
03e1 e215       |    |		Load	0x1,0x15
03e2 489a       |H   |		Short_Literal	0x9a
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 01d6       |    |		Execute	Vector,Field_Write
03e5 48a7       |H   |		Short_Literal	0xa7
03e6 489c       |H   |		Short_Literal	0x9c
03e7 e215       |    |		Load	0x1,0x15
03e8 00d9       |    |		Load_Top	At_Offset_1
03e9 e21b       |    |		Load	0x1,0x1b
03ea 01d6       |    |		Execute	Vector,Field_Write
03eb 3ffb       |?   |		Loop_Increasing	0x3e7
03ec e215       |    |		Load	0x1,0x15
03ed 48a9       |H   |		Short_Literal	0xa9
03ee 00da       |    |		Load_Top	At_Offset_2
03ef 01d6       |    |		Execute	Vector,Field_Write
03f0 48ad       |H   |		Short_Literal	0xad
03f1 48aa       |H   |		Short_Literal	0xaa
03f2 e217       |    |		Load	0x1,0x17
03f3 00d9       |    |		Load_Top	At_Offset_1
03f4 e21b       |    |		Load	0x1,0x1b
03f5 01d6       |    |		Execute	Vector,Field_Write
03f6 3ffb       |?   |		Loop_Increasing	0x3f2
03f7 00d9       |    |		Load_Top	At_Offset_1
03f8 01d4       |    |		Execute	Vector,Structure_Write
03f9 029d 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call
03fb 029d 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call
03fd 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
03fe 00c7       |    |		Action	Elaborate_Subprogram
03ff 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0400 00c7       |    |		Action	Elaborate_Subprogram
0401 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0402 00c7       |    |		Action	Elaborate_Subprogram
0403 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0404 00c7       |    |		Action	Elaborate_Subprogram
0405			BODY_0008:
0405 00bc       |    |		Action	Signal_Activated
0406 00bb       |    |		Action	Signal_Completion
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f       |    |		.CONST	0x040f								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0002       |    |		.CONST	0x0002								; Number of locals
040b			INIT_0408:
040b e214       |    |		Load	0x1,0x14
040c 02ff       |    |		Declare_Variable	Variant_Record
040d 00d8       |    |		Load_Top	At_Offset_0
040e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
040f			BODY_0408:
040f 00db       |    |		Load_Top	At_Offset_3
0410 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0411 e21a       |    |		Load	0x1,0x1a
0412 01d5       |    |		Execute	Vector,Field_Reference
0413 00d9       |    |		Load_Top	At_Offset_1
0414 016d       | m  |		Execute	Variant_Record,Structure_Write
0415 00d8       |    |		Load_Top	At_Offset_0
0416 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0417 4604       |F   |		Jump_Case	0x5
0418 780c       |x   |		Jump	0x425								; case 0x0
0419 7809       |x   |		Jump	0x423								; case 0x1
041a 780a       |x   |		Jump	0x425								; case 0x2
041b 7809       |x   |		Jump	0x425								; case 0x3
041c 7800       |x   |		Jump	0x41d								; case 0x4
041d 0092 0765  |   e|		Action	Push_String_Extended,0x765					; "_COMMENT"
041f e5ff       |    |		Load	0x2,-0x1
0420 8007       |    |		Call	0x0,0x7
0421 01de       |    |		Execute	Vector,Not_Equal
0422 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0423 4800       |H   |		Short_Literal	0x0
0424 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0425 4801       |H   |		Short_Literal	0x1
0426 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0427 0000       |    |		.XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042f       | /  |		.CONST	0x042f								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0002       |    |		.CONST	0x0002								; Number of locals
042b			INIT_0428:
042b e214       |    |		Load	0x1,0x14
042c 02ff       |    |		Declare_Variable	Variant_Record
042d 00d8       |    |		Load_Top	At_Offset_0
042e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
042f			BODY_0428:
042f 00db       |    |		Load_Top	At_Offset_3
0430 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0431 e21a       |    |		Load	0x1,0x1a
0432 01d5       |    |		Execute	Vector,Field_Reference
0433 00d9       |    |		Load_Top	At_Offset_1
0434 016d       | m  |		Execute	Variant_Record,Structure_Write
0435 00d8       |    |		Load_Top	At_Offset_0
0436 e5ff       |    |		Load	0x2,-0x1
0437 821c       |    |		Call	0x1,0x1c
0438 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0439 0000 0000  |    |		.BLANK	0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0447       | G  |		.CONST	0x0447								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0002       |    |		.CONST	0x0002								; Number of locals
0443			INIT_0440:
0443 e214       |    |		Load	0x1,0x14
0444 02ff       |    |		Declare_Variable	Variant_Record
0445 00d8       |    |		Load_Top	At_Offset_0
0446 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0447			BODY_0440:
0447 00db       |    |		Load_Top	At_Offset_3
0448 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0449 e21a       |    |		Load	0x1,0x1a
044a 01d5       |    |		Execute	Vector,Field_Reference
044b 00d9       |    |		Load_Top	At_Offset_1
044c 016d       | m  |		Execute	Variant_Record,Structure_Write
044d 00d8       |    |		Load_Top	At_Offset_0
044e e5ff       |    |		Load	0x2,-0x1
044f 821c       |    |		Call	0x1,0x1c
0450 6804       |h   |		Jump_Zero	0x455
0451 00d8       |    |		Load_Top	At_Offset_0
0452 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0453 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0454 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0455 4806       |H   |		Short_Literal	0x6
0456 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f       | _  |		.CONST	0x045f								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0002       |    |		.CONST	0x0002								; Number of locals
045b			INIT_0458:
045b e214       |    |		Load	0x1,0x14
045c 02ff       |    |		Declare_Variable	Variant_Record
045d 00d8       |    |		Load_Top	At_Offset_0
045e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045f			BODY_0458:
045f 00db       |    |		Load_Top	At_Offset_3
0460 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0461 e21a       |    |		Load	0x1,0x1a
0462 01d5       |    |		Execute	Vector,Field_Reference
0463 00d9       |    |		Load_Top	At_Offset_1
0464 016d       | m  |		Execute	Variant_Record,Structure_Write
0465 00d8       |    |		Load_Top	At_Offset_0
0466 e5ff       |    |		Load	0x2,-0x1
0467 821c       |    |		Call	0x1,0x1c
0468 6987       |i   |		Jump_Zero	0x5f0
0469 00d8       |    |		Load_Top	At_Offset_0
046a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
046b 460d       |F   |		Jump_Case	0xe
046c 7980       |y   |		Jump	0x5ed								; case 0x0
046d 7816       |x   |		Jump	0x484								; case 0x1
046e 7833       |x3  |		Jump	0x4a2								; case 0x2
046f 7845       |xE  |		Jump	0x4b5								; case 0x3
0470 7865       |xe  |		Jump	0x4d6								; case 0x4
0471 787c       |x|  |		Jump	0x4ee								; case 0x5
0472 7888       |x   |		Jump	0x4fb								; case 0x6
0473 78eb       |x   |		Jump	0x55f								; case 0x7
0474 791c       |y   |		Jump	0x591								; case 0x8
0475 793d       |y=  |		Jump	0x5b3								; case 0x9
0476 7949       |yI  |		Jump	0x5c0								; case 0xa
0477 7955       |yU  |		Jump	0x5cd								; case 0xb
0478 796a       |yj  |		Jump	0x5e3								; case 0xc
0479 7800       |x   |		Jump	0x47a								; case 0xd
047a 00db       |    |		Load_Top	At_Offset_3
047b 821b       |    |		Call	0x1,0x1b
047c 6970       |ip  |		Jump_Zero	0x5ed
047d 4802       |H   |		Short_Literal	0x2
047e e20d       |    |		Load	0x1,0xd
047f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0480 4823       |H#  |		Short_Literal	0x23
0481 00d9       |    |		Load_Top	At_Offset_1
0482 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0483 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0484 00db       |    |		Load_Top	At_Offset_3
0485 00eb       |    |		Load_Encached	Diana_Cache
0486 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
0487 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0488 0f80       |    |		Execute_Immediate	Equal,-0x80
0489 6807       |h   |		Jump_Zero	0x491
048a 4802       |H   |		Short_Literal	0x2
048b e20d       |    |		Load	0x1,0xd
048c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
048d 4811       |H   |		Short_Literal	0x11
048e 00d9       |    |		Load_Top	At_Offset_1
048f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0490 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0491 00db       |    |		Load_Top	At_Offset_3
0492 00eb       |    |		Load_Encached	Diana_Cache
0493 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0494 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0495 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
0496 7003       |p   |		Jump_Nonzero	0x49a
0497 0fa2       |    |		Execute_Immediate	Equal,-0x5e
0498 7002       |p   |		Jump_Nonzero	0x49b
0499 7953       |yS  |		Jump	0x5ed
049a 00d1       |    |		Pop_Control	Pop_Count_1
049b 4802       |H   |		Short_Literal	0x2
049c e20d       |    |		Load	0x1,0xd
049d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
049e 4825       |H%  |		Short_Literal	0x25
049f 00d9       |    |		Load_Top	At_Offset_1
04a0 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a2 00db       |    |		Load_Top	At_Offset_3
04a3 00eb       |    |		Load_Encached	Diana_Cache
04a4 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
04a5 00eb       |    |		Load_Encached	Diana_Cache
04a6 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
04a7 008b       |    |		Action	Heap_Access,Diana_Seq_Type_Get_Head
04a8 4902       |I   |		Short_Literal	0x102
04a9 00eb       |    |		Load_Encached	Diana_Cache
04aa 0096       |    |		Execute	Package,Entry
04ab 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
04ac 0e74       | t  |		Execute_Immediate	Not_Equal,0x74
04ad 693f       |i?  |		Jump_Zero	0x5ed
04ae 4802       |H   |		Short_Literal	0x2
04af e20d       |    |		Load	0x1,0xd
04b0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04b1 4804       |H   |		Short_Literal	0x4
04b2 00d9       |    |		Load_Top	At_Offset_1
04b3 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 00eb       |    |		Load_Encached	Diana_Cache
04b7 18e8       |    |		Execute	Package,Field_Execute,Field_Number 0xe8
04b8 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
04b9 0b00       |    |		Execute_Immediate	Case_Compare,0x0
04ba 700c       |p   |		Jump_Nonzero	0x4c7
04bb 0f73       | s  |		Execute_Immediate	Equal,0x73
04bc 7012       |p   |		Jump_Nonzero	0x4cf
04bd 00db       |    |		Load_Top	At_Offset_3
04be 821b       |    |		Call	0x1,0x1b
04bf 692d       |i-  |		Jump_Zero	0x5ed
04c0 4802       |H   |		Short_Literal	0x2
04c1 e20d       |    |		Load	0x1,0xd
04c2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04c3 4823       |H#  |		Short_Literal	0x23
04c4 00d9       |    |		Load_Top	At_Offset_1
04c5 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c7 00d1       |    |		Pop_Control	Pop_Count_1
04c8 4802       |H   |		Short_Literal	0x2
04c9 e20d       |    |		Load	0x1,0xd
04ca 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04cb 4806       |H   |		Short_Literal	0x6
04cc 00d9       |    |		Load_Top	At_Offset_1
04cd 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04cf 4802       |H   |		Short_Literal	0x2
04d0 e20d       |    |		Load	0x1,0xd
04d1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04d2 481b       |H   |		Short_Literal	0x1b
04d3 00d9       |    |		Load_Top	At_Offset_1
04d4 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d6 00db       |    |		Load_Top	At_Offset_3
04d7 00eb       |    |		Load_Encached	Diana_Cache
04d8 18d8       |    |		Execute	Package,Field_Execute,Field_Number 0xd8
04d9 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
04da 0b80       |    |		Execute_Immediate	Case_Compare,0x80
04db 700a       |p   |		Jump_Nonzero	0x4e6
04dc 0f36       | 6  |		Execute_Immediate	Equal,0x36
04dd 7001       |p   |		Jump_Nonzero	0x4df
04de 790e       |y   |		Jump	0x5ed
04df 4802       |H   |		Short_Literal	0x2
04e0 e20d       |    |		Load	0x1,0xd
04e1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04e2 4816       |H   |		Short_Literal	0x16
04e3 00d9       |    |		Load_Top	At_Offset_1
04e4 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e6 00d1       |    |		Pop_Control	Pop_Count_1
04e7 4802       |H   |		Short_Literal	0x2
04e8 e20d       |    |		Load	0x1,0xd
04e9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04ea 480e       |H   |		Short_Literal	0xe
04eb 00d9       |    |		Load_Top	At_Offset_1
04ec 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ee 00db       |    |		Load_Top	At_Offset_3
04ef 00eb       |    |		Load_Encached	Diana_Cache
04f0 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
04f1 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
04f2 0f77       | w  |		Execute_Immediate	Equal,0x77
04f3 68f9       |h   |		Jump_Zero	0x5ed
04f4 4802       |H   |		Short_Literal	0x2
04f5 e20d       |    |		Load	0x1,0xd
04f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04f7 4820       |H   |		Short_Literal	0x20
04f8 00d9       |    |		Load_Top	At_Offset_1
04f9 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04fb 00db       |    |		Load_Top	At_Offset_3
04fc 00eb       |    |		Load_Encached	Diana_Cache
04fd 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
04fe 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
04ff 0b79       | y  |		Execute_Immediate	Case_Compare,0x79
0500 7005       |p   |		Jump_Nonzero	0x506
0501 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0502 700b       |p   |		Jump_Nonzero	0x50e
0503 0f7a       | z  |		Execute_Immediate	Equal,0x7a
0504 7032       |p2  |		Jump_Nonzero	0x537
0505 08e2       |    |		Execute_Immediate	Raise,0xe2
0506 00d1       |    |		Pop_Control	Pop_Count_1
0507 4802       |H   |		Short_Literal	0x2
0508 e20d       |    |		Load	0x1,0xd
0509 1c08       |    |		Execute_Immediate	Run_Utility,0x8
050a 481c       |H   |		Short_Literal	0x1c
050b 00d9       |    |		Load_Top	At_Offset_1
050c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
050d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
050e 00d1       |    |		Pop_Control	Pop_Count_1
050f 00db       |    |		Load_Top	At_Offset_3
0510 00eb       |    |		Load_Encached	Diana_Cache
0511 18e4       |    |		Execute	Package,Field_Execute,Field_Number 0xe4
0512 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0513 0b80       |    |		Execute_Immediate	Case_Compare,0x80
0514 7013       |p   |		Jump_Nonzero	0x528
0515 0f36       | 6  |		Execute_Immediate	Equal,0x36
0516 7019       |p   |		Jump_Nonzero	0x530
0517 00db       |    |		Load_Top	At_Offset_3
0518 821b       |    |		Call	0x1,0x1b
0519 6807       |h   |		Jump_Zero	0x521
051a 4802       |H   |		Short_Literal	0x2
051b e20d       |    |		Load	0x1,0xd
051c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
051d 4823       |H#  |		Short_Literal	0x23
051e 00d9       |    |		Load_Top	At_Offset_1
051f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0520 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0521 4802       |H   |		Short_Literal	0x2
0522 e20d       |    |		Load	0x1,0xd
0523 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0524 480a       |H   |		Short_Literal	0xa
0525 00d9       |    |		Load_Top	At_Offset_1
0526 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0527 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0528 00d1       |    |		Pop_Control	Pop_Count_1
0529 4802       |H   |		Short_Literal	0x2
052a e20d       |    |		Load	0x1,0xd
052b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
052c 480f       |H   |		Short_Literal	0xf
052d 00d9       |    |		Load_Top	At_Offset_1
052e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
052f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0530 4802       |H   |		Short_Literal	0x2
0531 e20d       |    |		Load	0x1,0xd
0532 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0533 4817       |H   |		Short_Literal	0x17
0534 00d9       |    |		Load_Top	At_Offset_1
0535 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0536 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0537 00db       |    |		Load_Top	At_Offset_3
0538 00eb       |    |		Load_Encached	Diana_Cache
0539 18e4       |    |		Execute	Package,Field_Execute,Field_Number 0xe4
053a 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
053b 0b80       |    |		Execute_Immediate	Case_Compare,0x80
053c 7013       |p   |		Jump_Nonzero	0x550
053d 0f36       | 6  |		Execute_Immediate	Equal,0x36
053e 7019       |p   |		Jump_Nonzero	0x558
053f 00db       |    |		Load_Top	At_Offset_3
0540 821b       |    |		Call	0x1,0x1b
0541 6807       |h   |		Jump_Zero	0x549
0542 4802       |H   |		Short_Literal	0x2
0543 e20d       |    |		Load	0x1,0xd
0544 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0545 4823       |H#  |		Short_Literal	0x23
0546 00d9       |    |		Load_Top	At_Offset_1
0547 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0548 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0549 4802       |H   |		Short_Literal	0x2
054a e20d       |    |		Load	0x1,0xd
054b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
054c 480c       |H   |		Short_Literal	0xc
054d 00d9       |    |		Load_Top	At_Offset_1
054e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
054f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0550 00d1       |    |		Pop_Control	Pop_Count_1
0551 4802       |H   |		Short_Literal	0x2
0552 e20d       |    |		Load	0x1,0xd
0553 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0554 4810       |H   |		Short_Literal	0x10
0555 00d9       |    |		Load_Top	At_Offset_1
0556 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0557 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0558 4802       |H   |		Short_Literal	0x2
0559 e20d       |    |		Load	0x1,0xd
055a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
055b 4818       |H   |		Short_Literal	0x18
055c 00d9       |    |		Load_Top	At_Offset_1
055d 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
055e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055f 00db       |    |		Load_Top	At_Offset_3
0560 00eb       |    |		Load_Encached	Diana_Cache
0561 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
0562 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0563 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0564 7003       |p   |		Jump_Nonzero	0x568
0565 0f7a       | z  |		Execute_Immediate	Equal,0x7a
0566 7016       |p   |		Jump_Nonzero	0x57d
0567 08e2       |    |		Execute_Immediate	Raise,0xe2
0568 00d1       |    |		Pop_Control	Pop_Count_1
0569 00db       |    |		Load_Top	At_Offset_3
056a 00eb       |    |		Load_Encached	Diana_Cache
056b 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
056c 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
056d 0f77       | w  |		Execute_Immediate	Equal,0x77
056e 6807       |h   |		Jump_Zero	0x576
056f 4802       |H   |		Short_Literal	0x2
0570 e20d       |    |		Load	0x1,0xd
0571 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0572 481e       |H   |		Short_Literal	0x1e
0573 00d9       |    |		Load_Top	At_Offset_1
0574 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0575 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0576 4802       |H   |		Short_Literal	0x2
0577 e20d       |    |		Load	0x1,0xd
0578 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0579 480b       |H   |		Short_Literal	0xb
057a 00d9       |    |		Load_Top	At_Offset_1
057b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
057c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057d 00db       |    |		Load_Top	At_Offset_3
057e 00eb       |    |		Load_Encached	Diana_Cache
057f 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
0580 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0581 0f77       | w  |		Execute_Immediate	Equal,0x77
0582 6807       |h   |		Jump_Zero	0x58a
0583 4802       |H   |		Short_Literal	0x2
0584 e20d       |    |		Load	0x1,0xd
0585 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0586 481f       |H   |		Short_Literal	0x1f
0587 00d9       |    |		Load_Top	At_Offset_1
0588 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0589 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
058a 4802       |H   |		Short_Literal	0x2
058b e20d       |    |		Load	0x1,0xd
058c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
058d 480d       |H   |		Short_Literal	0xd
058e 00d9       |    |		Load_Top	At_Offset_1
058f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0590 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0591 00db       |    |		Load_Top	At_Offset_3
0592 00eb       |    |		Load_Encached	Diana_Cache
0593 18cc       |    |		Execute	Package,Field_Execute,Field_Number 0xcc
0594 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0595 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0596 7005       |p   |		Jump_Nonzero	0x59c
0597 0b7a       | z  |		Execute_Immediate	Case_Compare,0x7a
0598 700b       |p   |		Jump_Nonzero	0x5a4
0599 0f7c       | |  |		Execute_Immediate	Equal,0x7c
059a 7011       |p   |		Jump_Nonzero	0x5ac
059b 08e2       |    |		Execute_Immediate	Raise,0xe2
059c 00d1       |    |		Pop_Control	Pop_Count_1
059d 4802       |H   |		Short_Literal	0x2
059e e20d       |    |		Load	0x1,0xd
059f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05a0 4814       |H   |		Short_Literal	0x14
05a1 00d9       |    |		Load_Top	At_Offset_1
05a2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a4 00d1       |    |		Pop_Control	Pop_Count_1
05a5 4802       |H   |		Short_Literal	0x2
05a6 e20d       |    |		Load	0x1,0xd
05a7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05a8 4815       |H   |		Short_Literal	0x15
05a9 00d9       |    |		Load_Top	At_Offset_1
05aa 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ac 4802       |H   |		Short_Literal	0x2
05ad e20d       |    |		Load	0x1,0xd
05ae 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05af 4813       |H   |		Short_Literal	0x13
05b0 00d9       |    |		Load_Top	At_Offset_1
05b1 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b3 00db       |    |		Load_Top	At_Offset_3
05b4 00eb       |    |		Load_Encached	Diana_Cache
05b5 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
05b6 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
05b7 0f77       | w  |		Execute_Immediate	Equal,0x77
05b8 6834       |h4  |		Jump_Zero	0x5ed
05b9 4802       |H   |		Short_Literal	0x2
05ba e20d       |    |		Load	0x1,0xd
05bb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05bc 4821       |H!  |		Short_Literal	0x21
05bd 00d9       |    |		Load_Top	At_Offset_1
05be 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c0 00db       |    |		Load_Top	At_Offset_3
05c1 00eb       |    |		Load_Encached	Diana_Cache
05c2 18c4       |    |		Execute	Package,Field_Execute,Field_Number 0xc4
05c3 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
05c4 0f80       |    |		Execute_Immediate	Equal,-0x80
05c5 6827       |h'  |		Jump_Zero	0x5ed
05c6 4802       |H   |		Short_Literal	0x2
05c7 e20d       |    |		Load	0x1,0xd
05c8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05c9 4812       |H   |		Short_Literal	0x12
05ca 00d9       |    |		Load_Top	At_Offset_1
05cb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05cd 00db       |    |		Load_Top	At_Offset_3
05ce 00eb       |    |		Load_Encached	Diana_Cache
05cf 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
05d0 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
05d1 480e       |H   |		Short_Literal	0xe
05d2 480f       |H   |		Short_Literal	0xf
05d3 0262       | b  |		Execute	Discrete,In_Range
05d4 7007       |p   |		Jump_Nonzero	0x5dc
05d5 4805       |H   |		Short_Literal	0x5
05d6 e20d       |    |		Load	0x1,0xd
05d7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05d8 4801       |H   |		Short_Literal	0x1
05d9 00d9       |    |		Load_Top	At_Offset_1
05da 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
05db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05dc 4805       |H   |		Short_Literal	0x5
05dd e20d       |    |		Load	0x1,0xd
05de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05df 4800       |H   |		Short_Literal	0x0
05e0 00d9       |    |		Load_Top	At_Offset_1
05e1 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
05e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e3 00db       |    |		Load_Top	At_Offset_3
05e4 821b       |    |		Call	0x1,0x1b
05e5 6807       |h   |		Jump_Zero	0x5ed
05e6 4802       |H   |		Short_Literal	0x2
05e7 e20d       |    |		Load	0x1,0xd
05e8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05e9 4823       |H#  |		Short_Literal	0x23
05ea 00d9       |    |		Load_Top	At_Offset_1
05eb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ed 00d8       |    |		Load_Top	At_Offset_0
05ee 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05ef 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f0 00db       |    |		Load_Top	At_Offset_3
05f1 820e       |    |		Call	0x1,0xe
05f2 6802       |h   |		Jump_Zero	0x5f5
05f3 e216       |    |		Load	0x1,0x16
05f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f5 e218       |    |		Load	0x1,0x18
05f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f7 0000       |    |		.XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4607       |F   |		Jump_Case	0x8
05fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
05fd 7807       |x   |		Jump	0x605								; case 0x1
05fe 780a       |x   |		Jump	0x609								; case 0x2
05ff 780e       |x   |		Jump	0x60e								; case 0x3
0600 7811       |x   |		Jump	0x612								; case 0x4
0601 7812       |x   |		Jump	0x614								; case 0x5
0602 7813       |x   |		Jump	0x616								; case 0x6
0603 7816       |x   |		Jump	0x61a								; case 0x7
0604 4302       |C   |		.XXX[0x1]
0605 00da       |    |		Load_Top	At_Offset_2
0606 0091 0752  |   R|		Action	Push_String_Extended_Indexed,0x752				; "INVALID"
0608 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0609 00db       |    |		Load_Top	At_Offset_3
060a 00db       |    |		Load_Top	At_Offset_3
060b 00e0       |    |		Load_Encached	Standard_Cache
060c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
060d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
060e 00da       |    |		Load_Top	At_Offset_2
060f 00e0       |    |		Load_Encached	Standard_Cache
0610 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0611 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0612 00db       |    |		Load_Top	At_Offset_3
0613 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0614 00db       |    |		Load_Top	At_Offset_3
0615 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0616 e212       |    |		Load	0x1,0x12
0617 00dc       |    |		Load_Top	At_Offset_4
0618 0267       | g  |		Execute	Discrete,Predecessor
0619 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
061a e212       |    |		Load	0x1,0x12
061b 00dc       |    |		Load_Top	At_Offset_4
061c 0268       | h  |		Execute	Discrete,Successor
061d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
061e 0000 0000  |    |		.XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 4607       |F   |		Jump_Case	0x8
0624 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0625 7807       |x   |		Jump	0x62d								; case 0x1
0626 780a       |x   |		Jump	0x631								; case 0x2
0627 780e       |x   |		Jump	0x636								; case 0x3
0628 7811       |x   |		Jump	0x63a								; case 0x4
0629 7812       |x   |		Jump	0x63c								; case 0x5
062a 7813       |x   |		Jump	0x63e								; case 0x6
062b 7816       |x   |		Jump	0x642								; case 0x7
062c 4302       |C   |		.XXX[0x1]
062d 00da       |    |		Load_Top	At_Offset_2
062e 0091 0757  |   W|		Action	Push_String_Extended_Indexed,0x757				; "NO_CONVERSION"
0630 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0631 00db       |    |		Load_Top	At_Offset_3
0632 00db       |    |		Load_Top	At_Offset_3
0633 00e0       |    |		Load_Encached	Standard_Cache
0634 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0635 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0636 00da       |    |		Load_Top	At_Offset_2
0637 00e0       |    |		Load_Encached	Standard_Cache
0638 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0639 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
063a 00db       |    |		Load_Top	At_Offset_3
063b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
063c 00db       |    |		Load_Top	At_Offset_3
063d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
063e e213       |    |		Load	0x1,0x13
063f 00dc       |    |		Load_Top	At_Offset_4
0640 0267       | g  |		Execute	Discrete,Predecessor
0641 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0642 e213       |    |		Load	0x1,0x13
0643 00dc       |    |		Load_Top	At_Offset_4
0644 0268       | h  |		Execute	Discrete,Successor
0645 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0646 0000 0000  |    |		.XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 4609       |F   |		Jump_Case	0xa
064c 7809       |x   |		Jump	0x656								; case 0x0
064d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
064e 781d       |x   |		Jump	0x66c								; case 0x2
064f 7820       |x   |		Jump	0x670								; case 0x3
0650 7846       |xF  |		Jump	0x697								; case 0x4
0651 7845       |xE  |		Jump	0x697								; case 0x5
0652 7823       |x#  |		Jump	0x676								; case 0x6
0653 782c       |x,  |		Jump	0x680								; case 0x7
0654 7837       |x7  |		Jump	0x68c								; case 0x8
0655 783d       |x=  |		Jump	0x693								; case 0x9
0656 00da       |    |		Load_Top	At_Offset_2
0657 016c       | l  |		Execute	Variant_Record,Is_Constrained
0658 7009       |p   |		Jump_Nonzero	0x662
0659 00cf       |    |		Action	Mark_Auxiliary
065a 4800       |H   |		Short_Literal	0x0
065b e5ff       |    |		Load	0x2,-0x1
065c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
065d 00d8       |    |		Load_Top	At_Offset_0
065e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
065f c5ff       |    |		Store	0x2,-0x1
0660 00ce       |    |		Action	Pop_Auxiliary
0661 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0662 00da       |    |		Load_Top	At_Offset_2
0663 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0664 4800       |H   |		Short_Literal	0x0
0665 4801       |H   |		Short_Literal	0x1
0666 0262       | b  |		Execute	Discrete,In_Range
0667 7003       |p   |		Jump_Nonzero	0x66b
0668 00da       |    |		Load_Top	At_Offset_2
0669 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
066a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
066b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
066c 4801       |H   |		Short_Literal	0x1
066d 4803       |H   |		Short_Literal	0x3
066e 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
066f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0670 e5fd       |    |		Load	0x2,-0x3
0671 00db       |    |		Load_Top	At_Offset_3
0672 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0673 e5fe       |    |		Load	0x2,-0x2
0674 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0675 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0676 00db       |    |		Load_Top	At_Offset_3
0677 4802       |H   |		Short_Literal	0x2
0678 4804       |H   |		Short_Literal	0x4
0679 0262       | b  |		Execute	Discrete,In_Range
067a 7001       |p   |		Jump_Nonzero	0x67c
067b 7802       |x   |		Jump	0x67e
067c 4801       |H   |		Short_Literal	0x1
067d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067e 48ff       |H   |		Short_Literal	0xff
067f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0680 00db       |    |		Load_Top	At_Offset_3
0681 e5fe       |    |		Load	0x2,-0x2
0682 4800       |H   |		Short_Literal	0x0
0683 4801       |H   |		Short_Literal	0x1
0684 0262       | b  |		Execute	Discrete,In_Range
0685 7002       |p   |		Jump_Nonzero	0x688
0686 4801       |H   |		Short_Literal	0x1
0687 7801       |x   |		Jump	0x689
0688 48ff       |H   |		Short_Literal	0xff
0689 e5ff       |    |		Load	0x2,-0x1
068a 031b       |    |		Declare_Type	Variant_Record,Constrained
068b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
068c 00db       |    |		Load_Top	At_Offset_3
068d e5fe       |    |		Load	0x2,-0x2
068e e5ff       |    |		Load	0x2,-0x1
068f 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0690 e5ff       |    |		Load	0x2,-0x1
0691 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0692 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0693 4800       |H   |		Short_Literal	0x0
0694 00db       |    |		Load_Top	At_Offset_3
0695 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0696 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0697 0869       | i  |		Execute_Immediate	Raise,0x69
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00d1       |    |		Pop_Control	Pop_Count_1
069c 00da       |    |		Load_Top	At_Offset_2
069d 01d8       |    |		Execute	Vector,Element_Type
069e 02ff       |    |		Declare_Variable	Variant_Record
069f 00d8       |    |		Load_Top	At_Offset_0
06a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a1 00db       |    |		Load_Top	At_Offset_3
06a2 01dc       |    |		Execute	Vector,Last
06a3 e5ff       |    |		Load	0x2,-0x1
06a4 01dd       |    |		Execute	Vector,First
06a5 0263       | c  |		Execute	Discrete,Above_Bound
06a6 7006       |p   |		Jump_Nonzero	0x6ad
06a7 00da       |    |		Load_Top	At_Offset_2
06a8 00d9       |    |		Load_Top	At_Offset_1
06a9 e5ff       |    |		Load	0x2,-0x1
06aa 01d6       |    |		Execute	Vector,Field_Write
06ab 0a01       |    |		Execute_Immediate	Plus,0x1
06ac 7ff8       |    |		Jump	0x6a5
06ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 00da       |    |		Load_Top	At_Offset_2
06b4 00eb       |    |		Load_Encached	Diana_Cache
06b5 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
06b6 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
06b7 0f8f       |    |		Execute_Immediate	Equal,-0x71
06b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06b9 0000 0000  |    |		.BLANK	0000[0x7]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3 00db       |    |		Load_Top	At_Offset_3
06c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06c5 4604       |F   |		Jump_Case	0x5
06c6 780a       |x   |		Jump	0x6d1								; case 0x0
06c7 7809       |x   |		Jump	0x6d1								; case 0x1
06c8 780a       |x   |		Jump	0x6d3								; case 0x2
06c9 780b       |x   |		Jump	0x6d5								; case 0x3
06ca 7800       |x   |		Jump	0x6cb								; case 0x4
06cb 0092 0765  |   e|		Action	Push_String_Extended,0x765					; "_COMMENT"
06cd 00db       |    |		Load_Top	At_Offset_3
06ce 8007       |    |		Call	0x0,0x7
06cf 01de       |    |		Execute	Vector,Not_Equal
06d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d1 4800       |H   |		Short_Literal	0x0
06d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d3 4801       |H   |		Short_Literal	0x1
06d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d5 00da       |    |		Load_Top	At_Offset_2
06d6 00eb       |    |		Load_Encached	Diana_Cache
06d7 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
06d8 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
06d9 4846       |HF  |		Short_Literal	0x46
06da 4848       |HH  |		Short_Literal	0x48
06db 0262       | b  |		Execute	Discrete,In_Range
06dc 7002       |p   |		Jump_Nonzero	0x6df
06dd 4801       |H   |		Short_Literal	0x1
06de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06df 4800       |H   |		Short_Literal	0x0
06e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06e1 0000 0000  |    |		.BLANK	0000[0x7]
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 4609       |F   |		Jump_Case	0xa
06ec 7809       |x   |		Jump	0x6f6								; case 0x0
06ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
06ee 781e       |x   |		Jump	0x70d								; case 0x2
06ef 7821       |x!  |		Jump	0x711								; case 0x3
06f0 7860       |x`  |		Jump	0x751								; case 0x4
06f1 785f       |x_  |		Jump	0x751								; case 0x5
06f2 7824       |x$  |		Jump	0x717								; case 0x6
06f3 7838       |x8  |		Jump	0x72c								; case 0x7
06f4 7851       |xQ  |		Jump	0x746								; case 0x8
06f5 7857       |xW  |		Jump	0x74d								; case 0x9
06f6 00da       |    |		Load_Top	At_Offset_2
06f7 016c       | l  |		Execute	Variant_Record,Is_Constrained
06f8 7009       |p   |		Jump_Nonzero	0x702
06f9 00cf       |    |		Action	Mark_Auxiliary
06fa 4806       |H   |		Short_Literal	0x6
06fb e5ff       |    |		Load	0x2,-0x1
06fc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
06fd 00d8       |    |		Load_Top	At_Offset_0
06fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06ff c5ff       |    |		Store	0x2,-0x1
0700 00ce       |    |		Action	Pop_Auxiliary
0701 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0702 00da       |    |		Load_Top	At_Offset_2
0703 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0704 4606       |F   |		Jump_Case	0x7
0705 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0706 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0707 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0708 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0709 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
070a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
070b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
070c 4302       |C   |		.XXX[0x1]
070d 4801       |H   |		Short_Literal	0x1
070e 4806       |H   |		Short_Literal	0x6
070f 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0710 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0711 e5fd       |    |		Load	0x2,-0x3
0712 00db       |    |		Load_Top	At_Offset_3
0713 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0714 e5fe       |    |		Load	0x2,-0x2
0715 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0716 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0717 00db       |    |		Load_Top	At_Offset_3
0718 4606       |F   |		Jump_Case	0x7
0719 7810       |x   |		Jump	0x72a								; case 0x0
071a 7807       |x   |		Jump	0x722								; case 0x1
071b 7808       |x   |		Jump	0x724								; case 0x2
071c 7809       |x   |		Jump	0x726								; case 0x3
071d 780c       |x   |		Jump	0x72a								; case 0x4
071e 7809       |x   |		Jump	0x728								; case 0x5
071f 7800       |x   |		Jump	0x720								; case 0x6
0720 4801       |H   |		Short_Literal	0x1
0721 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0722 4802       |H   |		Short_Literal	0x2
0723 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0724 4803       |H   |		Short_Literal	0x3
0725 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0726 4804       |H   |		Short_Literal	0x4
0727 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0728 4805       |H   |		Short_Literal	0x5
0729 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
072a 48ff       |H   |		Short_Literal	0xff
072b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
072c 00db       |    |		Load_Top	At_Offset_3
072d e5fe       |    |		Load	0x2,-0x2
072e 4606       |F   |		Jump_Case	0x7
072f 780a       |x   |		Jump	0x73a								; case 0x0
0730 780b       |x   |		Jump	0x73c								; case 0x1
0731 780c       |x   |		Jump	0x73e								; case 0x2
0732 780d       |x   |		Jump	0x740								; case 0x3
0733 7804       |x   |		Jump	0x738								; case 0x4
0734 780d       |x   |		Jump	0x742								; case 0x5
0735 7800       |x   |		Jump	0x736								; case 0x6
0736 4801       |H   |		Short_Literal	0x1
0737 780b       |x   |		Jump	0x743
0738 48ff       |H   |		Short_Literal	0xff
0739 7809       |x   |		Jump	0x743
073a 48ff       |H   |		Short_Literal	0xff
073b 7807       |x   |		Jump	0x743
073c 4802       |H   |		Short_Literal	0x2
073d 7805       |x   |		Jump	0x743
073e 4803       |H   |		Short_Literal	0x3
073f 7803       |x   |		Jump	0x743
0740 4804       |H   |		Short_Literal	0x4
0741 7801       |x   |		Jump	0x743
0742 4805       |H   |		Short_Literal	0x5
0743 e5ff       |    |		Load	0x2,-0x1
0744 031b       |    |		Declare_Type	Variant_Record,Constrained
0745 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0746 00db       |    |		Load_Top	At_Offset_3
0747 e5fe       |    |		Load	0x2,-0x2
0748 e5ff       |    |		Load	0x2,-0x1
0749 1c06       |    |		Execute_Immediate	Run_Utility,0x6
074a e5ff       |    |		Load	0x2,-0x1
074b 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
074c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
074d 4806       |H   |		Short_Literal	0x6
074e 00db       |    |		Load_Top	At_Offset_3
074f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0750 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0751 0869       | i  |		Execute_Immediate	Raise,0x69
0752 ; --------------------------------------------------------------------------------------
0752 ; STRING TABLE
0752 ; --------------------------------------------------------------------------------------
0752 002a       | *  |		.STRTAB	0x002a->0x0767							; "INVALID"
0753 002f       | /  |		.STRTAB	0x002f->0x076a							; "INVISIBLE"
0754 0036       | 6  |		.STRTAB	0x0036->0x076f							; "NO_CHECK"
0755 003c       | <  |		.STRTAB	0x003c->0x0773							; "DN_BLOCK_PARENT"
0756 0049       | I  |		.STRTAB	0x0049->0x077a							; "DN_PRAGMA_COMMENT"
0757 0058       | X  |		.STRTAB	0x0058->0x0783							; "NO_CONVERSION"
0758 0063       | c  |		.STRTAB	0x0063->0x0789							; "DN_VAR_IS_RENAME_OR_RECORD_COMPONENT"
0759 0085       |    |		.STRTAB	0x0085->0x079b							; "DN_NUMBER_IS_REAL_OR_INTEGER"
075a 009f       |    |		.STRTAB	0x009f->0x07a9							; "DN_TYPE_IS_INCOMPLETE_OR_TASK_OR_GENERIC_FORMAL"
075b 00cc       |    |		.STRTAB	0x00cc->0x07c1							; "DN_PACKAGE_DECL_IS_RENAME_OR_INSTANCE"
075c 00ef       |    |		.STRTAB	0x00ef->0x07d3							; "DN_PACKAGE_BODY_IS_SUBUNIT"
075d 0107       |    |		.STRTAB	0x0107->0x07e0							; "DN_SUBPROGRAM_DECL_IS_RENAME_OR_INSTANCE_OR_GENERIC_FORMAL"
075e 013f       | ?  |		.STRTAB	0x013f->0x07fd							; "DN_SUBPROGRAM_BODY_IS_SUBUNIT"
075f 015a       | Z  |		.STRTAB	0x015a->0x080c							; "DN_GENERIC_KIND"
0760 0167       | g  |		.STRTAB	0x0167->0x0813							; "DN_TASK_BODY_IS_SUBUNIT"
0761 017c       | |  |		.STRTAB	0x017c->0x081f							; "DN_EXCEPTION_IS_RENAME"
0762 0190       |    |		.STRTAB	0x0190->0x082a							; "DN_SIMPLE_REP_IS_LENGTH_OR_ENUM"
0763 01ad       |    |		.STRTAB	0x01ad->0x0839							; "DN_IN_IS_GENERIC_FORMAL"
0764 01c2       |    |		.STRTAB	0x01c2->0x0845							; "DN_IN_OUT_IS_GENERIC_FORMAL"
0765 01db       |    |		.STRTAB	0x01db->0x0852							; "_COMMENT"
0766 01e1       |    |		.STREND 0x01e1->0x0856
0767 494e 5641  |INVA|		.STRTAB_STRINGS
0857 0000       |    |		.XXX[0x1]
0858 ; --------------------------------------------------------------------------------------
0858 ; Debug Table
0858 ; --------------------------------------------------------------------------------------
0858 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5d8b,0x0000,0x0001,0x0000
085e 0000 0000  |    |		.BLANK	0000[0x1a2]