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

⟦30eda76f7⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0718       |    |		.CONST	0x0718								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 040b       |    |		.CONST	0x040b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0772,0x8000,0x0000,0x0033,0xd324,0x0000,0x000f
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
000d 4801       |H   |		Short_Literal	0x1
000e 00e1       |    |		Load_Encached	Boolean_Cache
000f 4801       |H   |		Short_Literal	0x1
0010 e002       |    |		Load	0x0,0x2
0011 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0012 4801       |H   |		Short_Literal	0x1
0013 e003       |    |		Load	0x0,0x3
0014 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0015 4801       |H   |		Short_Literal	0x1
0016 e004       |    |		Load	0x0,0x4
0017 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0018 4801       |H   |		Short_Literal	0x1
0019 e005       |    |		Load	0x0,0x5
001a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
001b 029f 0413  |    |		Declare_Subprogram	INIT_0410,For_Call
001d 4805       |H   |		Short_Literal	0x5
001e 4800       |H   |		Short_Literal	0x0
001f 4805       |H   |		Short_Literal	0x5
0020 4800       |H   |		Short_Literal	0x0
0021 4801       |H   |		Short_Literal	0x1
0022 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0023 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0x23,0xfffe
0025 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x25,0xfffd
0027 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x27,0xfffc
0029 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x29,0xfffb
002b 00bf       |    |		Action	Accept_Activation
002c 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x002c,0x077e,0x8000,0x0000,0x0033,0xdda4,0x0000,0x0011
													; Debug Table 0x1.0x0 = 0x2c,0xffff
002d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x2d,0xfffe
002e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x2e,0xfffd
002f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x2f,0xfffc
0030 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x30,0xfffb
0031 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x5 = 0x31,0xfffa
0032 480f       |H   |		Short_Literal	0xf
0033 00e3       |    |		Load_Encached	Natural_Cache
0034 03f8       |    |		Declare_Type	Discrete,Constrained
0035 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x35,0xfff9
0036 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x36,0xfff8
0037 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x37,0xfff7
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0x38,0xfff6
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x39,0xfff5
003a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0xb = 0x3a,0xfff4
003b 480f       |H   |		Short_Literal	0xf
003c 00e3       |    |		Load_Encached	Natural_Cache
003d 03f8       |    |		Declare_Type	Discrete,Constrained
003e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xc = 0x3e,0xfff3
003f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xd = 0x3f,0xfff2
0040 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xe = 0x40,0xfff1
0041 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xf = 0x41,0xfff0
0042 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x10 = 0x42,0xffef
0043 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x11 = 0x43,0xffee
0044 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x12 = 0x44,0xffed
0045 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x13 = 0x45,0xffec
0046 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x14 = 0x46,0xffeb
0047 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x15 = 0x47,0xffea
0048 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x16 = 0x48,0xffe9
0049 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x17 = 0x49,0xffe8
004a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x18 = 0x4a,0xffe7
004b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x19 = 0x4b,0xffe6
004c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1.0x1a = 0x4c,0xffe5
004d 4802       |H   |		Short_Literal	0x2
004e 00da       |    |		Load_Top	At_Offset_2
004f e20d       |    |		Load	0x1,0xd
0050 029f 0673  |   s|		Declare_Subprogram	INIT_0670,For_Call
0052 4802       |H   |		Short_Literal	0x2
0053 4800       |H   |		Short_Literal	0x0
0054 4801       |H   |		Short_Literal	0x1
0055 4800       |H   |		Short_Literal	0x0
0056 4801       |H   |		Short_Literal	0x1
0057 031d       |    |		Declare_Type	Variant_Record,Defined
0058 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x1b = 0x58,0xffe4
0059 00d9       |    |		Load_Top	At_Offset_1
005a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
005b 4806       |H   |		Short_Literal	0x6							; Debug Table 0x1.0x1c = 0x5b,0xffe3
005c e20d       |    |		Load	0x1,0xd
005d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
005e 4800       |H   |		Short_Literal	0x0
005f 00d9       |    |		Load_Top	At_Offset_1
0060 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0061 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x1d = 0x61,0xffe2
0062 00db       |    |		Load_Top	At_Offset_3
0063 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0064 4806       |H   |		Short_Literal	0x6							; Debug Table 0x1.0x1e = 0x64,0xffe1
0065 e20d       |    |		Load	0x1,0xd
0066 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0067 4801       |H   |		Short_Literal	0x1
0068 00d9       |    |		Load_Top	At_Offset_1
0069 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
006a 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x1.0x1f = 0x6a,0xffe0
006b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006c 0266       | f  |		Execute	Discrete,Bounds
006d e214       |    |		Load	0x1,0x14
006e 029f 06bb  |    |		Declare_Subprogram	INIT_06b8,For_Call
0070 4801       |H   |		Short_Literal	0x1
0071 035d       | ]  |		Declare_Type	Array,Defined
0072 00d8       |    |		Load_Top	At_Offset_0
0073 0337       | 7  |		Declare_Variable	Array
0074 00d8       |    |		Load_Top	At_Offset_0
0075 0337       | 7  |		Declare_Variable	Array
0076 4804       |H   |		Short_Literal	0x4
0077 e214       |    |		Load	0x1,0x14
0078 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0079 4800       |H   |		Short_Literal	0x0
007a 00d9       |    |		Load_Top	At_Offset_1
007b 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
007c 4804       |H   |		Short_Literal	0x4
007d e20d       |    |		Load	0x1,0xd
007e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
007f 00d9       |    |		Load_Top	At_Offset_1
0080 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0081 4840       |H@  |		Short_Literal	0x40
0082 00da       |    |		Load_Top	At_Offset_2
0083 01d6       |    |		Execute	Vector,Field_Write
0084 4802       |H   |		Short_Literal	0x2
0085 e214       |    |		Load	0x1,0x14
0086 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0087 4800       |H   |		Short_Literal	0x0
0088 00d9       |    |		Load_Top	At_Offset_1
0089 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
008a 4800       |H   |		Short_Literal	0x0
008b e20d       |    |		Load	0x1,0xd
008c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
008d 00d9       |    |		Load_Top	At_Offset_1
008e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
008f 48a8       |H   |		Short_Literal	0xa8
0090 00da       |    |		Load_Top	At_Offset_2
0091 01d6       |    |		Execute	Vector,Field_Write
0092 4802       |H   |		Short_Literal	0x2
0093 e214       |    |		Load	0x1,0x14
0094 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0095 4800       |H   |		Short_Literal	0x0
0096 00d9       |    |		Load_Top	At_Offset_1
0097 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0098 4801       |H   |		Short_Literal	0x1
0099 e20d       |    |		Load	0x1,0xd
009a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
009b 4801       |H   |		Short_Literal	0x1
009c 00d9       |    |		Load_Top	At_Offset_1
009d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
009e 00d9       |    |		Load_Top	At_Offset_1
009f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00a0 4845       |HE  |		Short_Literal	0x45
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 01d6       |    |		Execute	Vector,Field_Write
00a3 4802       |H   |		Short_Literal	0x2
00a4 e214       |    |		Load	0x1,0x14
00a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a6 4800       |H   |		Short_Literal	0x0
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00a9 4801       |H   |		Short_Literal	0x1
00aa e20d       |    |		Load	0x1,0xd
00ab 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ac 4800       |H   |		Short_Literal	0x0
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00b1 4885       |H   |		Short_Literal	0x85
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 4802       |H   |		Short_Literal	0x2
00b5 e214       |    |		Load	0x1,0x14
00b6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b7 4801       |H   |		Short_Literal	0x1
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ba 4802       |H   |		Short_Literal	0x2
00bb e20d       |    |		Load	0x1,0xd
00bc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00bd 4800       |H   |		Short_Literal	0x0
00be 00d9       |    |		Load_Top	At_Offset_1
00bf 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00c2 4839       |H9  |		Short_Literal	0x39
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 01d6       |    |		Execute	Vector,Field_Write
00c5 4802       |H   |		Short_Literal	0x2
00c6 e214       |    |		Load	0x1,0x14
00c7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c8 4800       |H   |		Short_Literal	0x0
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00cb 4802       |H   |		Short_Literal	0x2
00cc e20d       |    |		Load	0x1,0xd
00cd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ce 4801       |H   |		Short_Literal	0x1
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00d3 4838       |H8  |		Short_Literal	0x38
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 01d6       |    |		Execute	Vector,Field_Write
00d6 4802       |H   |		Short_Literal	0x2
00d7 e214       |    |		Load	0x1,0x14
00d8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d9 4800       |H   |		Short_Literal	0x0
00da 00d9       |    |		Load_Top	At_Offset_1
00db 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00dc 4802       |H   |		Short_Literal	0x2
00dd e20d       |    |		Load	0x1,0xd
00de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00df 4802       |H   |		Short_Literal	0x2
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00e2 00d9       |    |		Load_Top	At_Offset_1
00e3 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00e4 4802       |H   |		Short_Literal	0x2
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 01d6       |    |		Execute	Vector,Field_Write
00e7 4802       |H   |		Short_Literal	0x2
00e8 e214       |    |		Load	0x1,0x14
00e9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ea 4802       |H   |		Short_Literal	0x2
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ed 4802       |H   |		Short_Literal	0x2
00ee e20d       |    |		Load	0x1,0xd
00ef 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f0 4803       |H   |		Short_Literal	0x3
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00f5 483a       |H:  |		Short_Literal	0x3a
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 01d6       |    |		Execute	Vector,Field_Write
00f8 4802       |H   |		Short_Literal	0x2
00f9 e214       |    |		Load	0x1,0x14
00fa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fb 4803       |H   |		Short_Literal	0x3
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00fe 4802       |H   |		Short_Literal	0x2
00ff e20d       |    |		Load	0x1,0xd
0100 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0101 4805       |H   |		Short_Literal	0x5
0102 00d9       |    |		Load_Top	At_Offset_1
0103 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0104 00d9       |    |		Load_Top	At_Offset_1
0105 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0106 483b       |H;  |		Short_Literal	0x3b
0107 00da       |    |		Load_Top	At_Offset_2
0108 01d6       |    |		Execute	Vector,Field_Write
0109 4802       |H   |		Short_Literal	0x2
010a e214       |    |		Load	0x1,0x14
010b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010c 4800       |H   |		Short_Literal	0x0
010d 00d9       |    |		Load_Top	At_Offset_1
010e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
010f 4802       |H   |		Short_Literal	0x2
0110 e20d       |    |		Load	0x1,0xd
0111 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0112 4807       |H   |		Short_Literal	0x7
0113 00d9       |    |		Load_Top	At_Offset_1
0114 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0115 00d9       |    |		Load_Top	At_Offset_1
0116 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0117 483c       |H<  |		Short_Literal	0x3c
0118 00da       |    |		Load_Top	At_Offset_2
0119 01d6       |    |		Execute	Vector,Field_Write
011a 4802       |H   |		Short_Literal	0x2
011b e214       |    |		Load	0x1,0x14
011c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011d 4804       |H   |		Short_Literal	0x4
011e 00d9       |    |		Load_Top	At_Offset_1
011f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0120 4802       |H   |		Short_Literal	0x2
0121 e20d       |    |		Load	0x1,0xd
0122 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0123 4808       |H   |		Short_Literal	0x8
0124 00d9       |    |		Load_Top	At_Offset_1
0125 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0126 00d9       |    |		Load_Top	At_Offset_1
0127 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0128 483e       |H>  |		Short_Literal	0x3e
0129 00da       |    |		Load_Top	At_Offset_2
012a 01d6       |    |		Execute	Vector,Field_Write
012b 4802       |H   |		Short_Literal	0x2
012c e214       |    |		Load	0x1,0x14
012d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
012e 4805       |H   |		Short_Literal	0x5
012f 00d9       |    |		Load_Top	At_Offset_1
0130 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0131 4802       |H   |		Short_Literal	0x2
0132 e20d       |    |		Load	0x1,0xd
0133 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0134 4809       |H   |		Short_Literal	0x9
0135 00d9       |    |		Load_Top	At_Offset_1
0136 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0139 4847       |HG  |		Short_Literal	0x47
013a 00da       |    |		Load_Top	At_Offset_2
013b 01d6       |    |		Execute	Vector,Field_Write
013c 4802       |H   |		Short_Literal	0x2
013d e214       |    |		Load	0x1,0x14
013e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
013f 4806       |H   |		Short_Literal	0x6
0140 00d9       |    |		Load_Top	At_Offset_1
0141 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0142 4802       |H   |		Short_Literal	0x2
0143 e20d       |    |		Load	0x1,0xd
0144 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0145 480a       |H   |		Short_Literal	0xa
0146 00d9       |    |		Load_Top	At_Offset_1
0147 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0148 00d9       |    |		Load_Top	At_Offset_1
0149 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
014a 483d       |H=  |		Short_Literal	0x3d
014b 00da       |    |		Load_Top	At_Offset_2
014c 01d6       |    |		Execute	Vector,Field_Write
014d 4802       |H   |		Short_Literal	0x2
014e e214       |    |		Load	0x1,0x14
014f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0150 4807       |H   |		Short_Literal	0x7
0151 00d9       |    |		Load_Top	At_Offset_1
0152 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0153 4802       |H   |		Short_Literal	0x2
0154 e20d       |    |		Load	0x1,0xd
0155 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0156 480b       |H   |		Short_Literal	0xb
0157 00d9       |    |		Load_Top	At_Offset_1
0158 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0159 00d9       |    |		Load_Top	At_Offset_1
015a 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
015b 4848       |HH  |		Short_Literal	0x48
015c 00da       |    |		Load_Top	At_Offset_2
015d 01d6       |    |		Execute	Vector,Field_Write
015e 4802       |H   |		Short_Literal	0x2
015f e214       |    |		Load	0x1,0x14
0160 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0161 4808       |H   |		Short_Literal	0x8
0162 00d9       |    |		Load_Top	At_Offset_1
0163 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0164 4802       |H   |		Short_Literal	0x2
0165 e20d       |    |		Load	0x1,0xd
0166 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0167 4813       |H   |		Short_Literal	0x13
0168 00d9       |    |		Load_Top	At_Offset_1
0169 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
016a 00d9       |    |		Load_Top	At_Offset_1
016b 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
016c 4841       |HA  |		Short_Literal	0x41
016d 00da       |    |		Load_Top	At_Offset_2
016e 01d6       |    |		Execute	Vector,Field_Write
016f 4802       |H   |		Short_Literal	0x2
0170 e214       |    |		Load	0x1,0x14
0171 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0172 4800       |H   |		Short_Literal	0x0
0173 00d9       |    |		Load_Top	At_Offset_1
0174 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0175 4802       |H   |		Short_Literal	0x2
0176 e20d       |    |		Load	0x1,0xd
0177 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0178 4819       |H   |		Short_Literal	0x19
0179 00d9       |    |		Load_Top	At_Offset_1
017a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
017b 00d9       |    |		Load_Top	At_Offset_1
017c 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
017d 483f       |H?  |		Short_Literal	0x3f
017e 00da       |    |		Load_Top	At_Offset_2
017f 01d6       |    |		Execute	Vector,Field_Write
0180 4802       |H   |		Short_Literal	0x2
0181 e214       |    |		Load	0x1,0x14
0182 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0183 4809       |H   |		Short_Literal	0x9
0184 00d9       |    |		Load_Top	At_Offset_1
0185 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0186 4802       |H   |		Short_Literal	0x2
0187 e20d       |    |		Load	0x1,0xd
0188 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0189 481a       |H   |		Short_Literal	0x1a
018a 00d9       |    |		Load_Top	At_Offset_1
018b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
018c 00d9       |    |		Load_Top	At_Offset_1
018d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
018e 4846       |HF  |		Short_Literal	0x46
018f 00da       |    |		Load_Top	At_Offset_2
0190 01d6       |    |		Execute	Vector,Field_Write
0191 4802       |H   |		Short_Literal	0x2
0192 e214       |    |		Load	0x1,0x14
0193 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0194 480a       |H   |		Short_Literal	0xa
0195 00d9       |    |		Load_Top	At_Offset_1
0196 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0197 4802       |H   |		Short_Literal	0x2
0198 e20d       |    |		Load	0x1,0xd
0199 1c08       |    |		Execute_Immediate	Run_Utility,0x8
019a 481d       |H   |		Short_Literal	0x1d
019b 00d9       |    |		Load_Top	At_Offset_1
019c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
019d 00d9       |    |		Load_Top	At_Offset_1
019e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
019f 4837       |H7  |		Short_Literal	0x37
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 01d6       |    |		Execute	Vector,Field_Write
01a2 4802       |H   |		Short_Literal	0x2
01a3 e214       |    |		Load	0x1,0x14
01a4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a5 4800       |H   |		Short_Literal	0x0
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01a8 4803       |H   |		Short_Literal	0x3
01a9 e20d       |    |		Load	0x1,0xd
01aa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ab 4800       |H   |		Short_Literal	0x0
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01b0 485a       |HZ  |		Short_Literal	0x5a
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 01d6       |    |		Execute	Vector,Field_Write
01b3 4802       |H   |		Short_Literal	0x2
01b4 e214       |    |		Load	0x1,0x14
01b5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b6 4800       |H   |		Short_Literal	0x0
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01b9 4803       |H   |		Short_Literal	0x3
01ba e20d       |    |		Load	0x1,0xd
01bb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01bc 4801       |H   |		Short_Literal	0x1
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01c1 484d       |HM  |		Short_Literal	0x4d
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 01d6       |    |		Execute	Vector,Field_Write
01c4 4802       |H   |		Short_Literal	0x2
01c5 e214       |    |		Load	0x1,0x14
01c6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c7 4800       |H   |		Short_Literal	0x0
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01ca 4803       |H   |		Short_Literal	0x3
01cb e20d       |    |		Load	0x1,0xd
01cc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01cd 4802       |H   |		Short_Literal	0x2
01ce 00d9       |    |		Load_Top	At_Offset_1
01cf 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01d0 00d9       |    |		Load_Top	At_Offset_1
01d1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01d2 485b       |H[  |		Short_Literal	0x5b
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 01d6       |    |		Execute	Vector,Field_Write
01d5 4802       |H   |		Short_Literal	0x2
01d6 e214       |    |		Load	0x1,0x14
01d7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d8 4800       |H   |		Short_Literal	0x0
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01db 4803       |H   |		Short_Literal	0x3
01dc e20d       |    |		Load	0x1,0xd
01dd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01de 4803       |H   |		Short_Literal	0x3
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01e3 4854       |HT  |		Short_Literal	0x54
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 01d6       |    |		Execute	Vector,Field_Write
01e6 4802       |H   |		Short_Literal	0x2
01e7 e214       |    |		Load	0x1,0x14
01e8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01e9 4800       |H   |		Short_Literal	0x0
01ea 00d9       |    |		Load_Top	At_Offset_1
01eb 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01ec 4803       |H   |		Short_Literal	0x3
01ed e20d       |    |		Load	0x1,0xd
01ee 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ef 4804       |H   |		Short_Literal	0x4
01f0 00d9       |    |		Load_Top	At_Offset_1
01f1 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01f4 485d       |H]  |		Short_Literal	0x5d
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 01d6       |    |		Execute	Vector,Field_Write
01f7 4802       |H   |		Short_Literal	0x2
01f8 e214       |    |		Load	0x1,0x14
01f9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01fa 4800       |H   |		Short_Literal	0x0
01fb 00d9       |    |		Load_Top	At_Offset_1
01fc 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01fd 4803       |H   |		Short_Literal	0x3
01fe e20d       |    |		Load	0x1,0xd
01ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0200 4805       |H   |		Short_Literal	0x5
0201 00d9       |    |		Load_Top	At_Offset_1
0202 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0203 00d9       |    |		Load_Top	At_Offset_1
0204 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0205 4855       |HU  |		Short_Literal	0x55
0206 00da       |    |		Load_Top	At_Offset_2
0207 01d6       |    |		Execute	Vector,Field_Write
0208 4802       |H   |		Short_Literal	0x2
0209 e214       |    |		Load	0x1,0x14
020a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
020b 4800       |H   |		Short_Literal	0x0
020c 00d9       |    |		Load_Top	At_Offset_1
020d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
020e 4803       |H   |		Short_Literal	0x3
020f e20d       |    |		Load	0x1,0xd
0210 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0211 4806       |H   |		Short_Literal	0x6
0212 00d9       |    |		Load_Top	At_Offset_1
0213 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0214 00d9       |    |		Load_Top	At_Offset_1
0215 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0216 4853       |HS  |		Short_Literal	0x53
0217 00da       |    |		Load_Top	At_Offset_2
0218 01d6       |    |		Execute	Vector,Field_Write
0219 4802       |H   |		Short_Literal	0x2
021a e214       |    |		Load	0x1,0x14
021b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
021c 4800       |H   |		Short_Literal	0x0
021d 00d9       |    |		Load_Top	At_Offset_1
021e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
021f 4803       |H   |		Short_Literal	0x3
0220 e20d       |    |		Load	0x1,0xd
0221 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0222 4807       |H   |		Short_Literal	0x7
0223 00d9       |    |		Load_Top	At_Offset_1
0224 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0225 00d9       |    |		Load_Top	At_Offset_1
0226 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0227 4852       |HR  |		Short_Literal	0x52
0228 00da       |    |		Load_Top	At_Offset_2
0229 01d6       |    |		Execute	Vector,Field_Write
022a 4802       |H   |		Short_Literal	0x2
022b e214       |    |		Load	0x1,0x14
022c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
022d 4800       |H   |		Short_Literal	0x0
022e 00d9       |    |		Load_Top	At_Offset_1
022f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0230 4803       |H   |		Short_Literal	0x3
0231 e20d       |    |		Load	0x1,0xd
0232 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0233 4808       |H   |		Short_Literal	0x8
0234 00d9       |    |		Load_Top	At_Offset_1
0235 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0236 00d9       |    |		Load_Top	At_Offset_1
0237 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0238 484b       |HK  |		Short_Literal	0x4b
0239 00da       |    |		Load_Top	At_Offset_2
023a 01d6       |    |		Execute	Vector,Field_Write
023b 4802       |H   |		Short_Literal	0x2
023c e214       |    |		Load	0x1,0x14
023d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023e 4800       |H   |		Short_Literal	0x0
023f 00d9       |    |		Load_Top	At_Offset_1
0240 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0241 4803       |H   |		Short_Literal	0x3
0242 e20d       |    |		Load	0x1,0xd
0243 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0244 4809       |H   |		Short_Literal	0x9
0245 00d9       |    |		Load_Top	At_Offset_1
0246 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0247 00d9       |    |		Load_Top	At_Offset_1
0248 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0249 485c       |H\  |		Short_Literal	0x5c
024a 00da       |    |		Load_Top	At_Offset_2
024b 01d6       |    |		Execute	Vector,Field_Write
024c 4802       |H   |		Short_Literal	0x2
024d e214       |    |		Load	0x1,0x14
024e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024f 4800       |H   |		Short_Literal	0x0
0250 00d9       |    |		Load_Top	At_Offset_1
0251 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0252 4803       |H   |		Short_Literal	0x3
0253 e20d       |    |		Load	0x1,0xd
0254 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0255 480a       |H   |		Short_Literal	0xa
0256 00d9       |    |		Load_Top	At_Offset_1
0257 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0258 00d9       |    |		Load_Top	At_Offset_1
0259 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
025a 4850       |HP  |		Short_Literal	0x50
025b 00da       |    |		Load_Top	At_Offset_2
025c 01d6       |    |		Execute	Vector,Field_Write
025d 4802       |H   |		Short_Literal	0x2
025e e214       |    |		Load	0x1,0x14
025f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0260 4800       |H   |		Short_Literal	0x0
0261 00d9       |    |		Load_Top	At_Offset_1
0262 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0263 4803       |H   |		Short_Literal	0x3
0264 e20d       |    |		Load	0x1,0xd
0265 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0266 480b       |H   |		Short_Literal	0xb
0267 00d9       |    |		Load_Top	At_Offset_1
0268 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0269 00d9       |    |		Load_Top	At_Offset_1
026a 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
026b 4856       |HV  |		Short_Literal	0x56
026c 00da       |    |		Load_Top	At_Offset_2
026d 01d6       |    |		Execute	Vector,Field_Write
026e 4802       |H   |		Short_Literal	0x2
026f e214       |    |		Load	0x1,0x14
0270 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0271 4800       |H   |		Short_Literal	0x0
0272 00d9       |    |		Load_Top	At_Offset_1
0273 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0274 4803       |H   |		Short_Literal	0x3
0275 e20d       |    |		Load	0x1,0xd
0276 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0277 480c       |H   |		Short_Literal	0xc
0278 00d9       |    |		Load_Top	At_Offset_1
0279 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
027a 00d9       |    |		Load_Top	At_Offset_1
027b 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
027c 484f       |HO  |		Short_Literal	0x4f
027d 00da       |    |		Load_Top	At_Offset_2
027e 01d6       |    |		Execute	Vector,Field_Write
027f 4802       |H   |		Short_Literal	0x2
0280 e214       |    |		Load	0x1,0x14
0281 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0282 4800       |H   |		Short_Literal	0x0
0283 00d9       |    |		Load_Top	At_Offset_1
0284 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0285 4803       |H   |		Short_Literal	0x3
0286 e20d       |    |		Load	0x1,0xd
0287 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0288 480d       |H   |		Short_Literal	0xd
0289 00d9       |    |		Load_Top	At_Offset_1
028a 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
028b 00d9       |    |		Load_Top	At_Offset_1
028c 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
028d 484a       |HJ  |		Short_Literal	0x4a
028e 00da       |    |		Load_Top	At_Offset_2
028f 01d6       |    |		Execute	Vector,Field_Write
0290 4803       |H   |		Short_Literal	0x3
0291 e214       |    |		Load	0x1,0x14
0292 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0293 4800       |H   |		Short_Literal	0x0
0294 00d9       |    |		Load_Top	At_Offset_1
0295 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0296 4803       |H   |		Short_Literal	0x3
0297 e20d       |    |		Load	0x1,0xd
0298 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0299 480e       |H   |		Short_Literal	0xe
029a 00d9       |    |		Load_Top	At_Offset_1
029b 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
029c 00d9       |    |		Load_Top	At_Offset_1
029d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
029e 484e       |HN  |		Short_Literal	0x4e
029f 00da       |    |		Load_Top	At_Offset_2
02a0 01d6       |    |		Execute	Vector,Field_Write
02a1 4802       |H   |		Short_Literal	0x2
02a2 e214       |    |		Load	0x1,0x14
02a3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a4 4800       |H   |		Short_Literal	0x0
02a5 00d9       |    |		Load_Top	At_Offset_1
02a6 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02a7 4803       |H   |		Short_Literal	0x3
02a8 e20d       |    |		Load	0x1,0xd
02a9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02aa 480f       |H   |		Short_Literal	0xf
02ab 00d9       |    |		Load_Top	At_Offset_1
02ac 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02af 484c       |HL  |		Short_Literal	0x4c
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 01d6       |    |		Execute	Vector,Field_Write
02b2 4802       |H   |		Short_Literal	0x2
02b3 e214       |    |		Load	0x1,0x14
02b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b5 4800       |H   |		Short_Literal	0x0
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02b8 4803       |H   |		Short_Literal	0x3
02b9 e20d       |    |		Load	0x1,0xd
02ba 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02bb 4810       |H   |		Short_Literal	0x10
02bc 00d9       |    |		Load_Top	At_Offset_1
02bd 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02c0 485e       |H^  |		Short_Literal	0x5e
02c1 00da       |    |		Load_Top	At_Offset_2
02c2 01d6       |    |		Execute	Vector,Field_Write
02c3 4802       |H   |		Short_Literal	0x2
02c4 e214       |    |		Load	0x1,0x14
02c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02c6 4800       |H   |		Short_Literal	0x0
02c7 00d9       |    |		Load_Top	At_Offset_1
02c8 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02c9 4803       |H   |		Short_Literal	0x3
02ca e20d       |    |		Load	0x1,0xd
02cb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02cc 4811       |H   |		Short_Literal	0x11
02cd 00d9       |    |		Load_Top	At_Offset_1
02ce 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02d1 4851       |HQ  |		Short_Literal	0x51
02d2 00da       |    |		Load_Top	At_Offset_2
02d3 01d6       |    |		Execute	Vector,Field_Write
02d4 4802       |H   |		Short_Literal	0x2
02d5 e214       |    |		Load	0x1,0x14
02d6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02d7 4800       |H   |		Short_Literal	0x0
02d8 00d9       |    |		Load_Top	At_Offset_1
02d9 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02da 4803       |H   |		Short_Literal	0x3
02db e20d       |    |		Load	0x1,0xd
02dc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02dd 4812       |H   |		Short_Literal	0x12
02de 00d9       |    |		Load_Top	At_Offset_1
02df 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02e2 4860       |H`  |		Short_Literal	0x60
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 01d6       |    |		Execute	Vector,Field_Write
02e5 4802       |H   |		Short_Literal	0x2
02e6 e214       |    |		Load	0x1,0x14
02e7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e8 480b       |H   |		Short_Literal	0xb
02e9 00d9       |    |		Load_Top	At_Offset_1
02ea 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02eb 4805       |H   |		Short_Literal	0x5
02ec e20d       |    |		Load	0x1,0xd
02ed 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ee 4800       |H   |		Short_Literal	0x0
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02f1 00d9       |    |		Load_Top	At_Offset_1
02f2 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02f3 4844       |HD  |		Short_Literal	0x44
02f4 00da       |    |		Load_Top	At_Offset_2
02f5 01d6       |    |		Execute	Vector,Field_Write
02f6 4802       |H   |		Short_Literal	0x2
02f7 e214       |    |		Load	0x1,0x14
02f8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02f9 4800       |H   |		Short_Literal	0x0
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02fc 4805       |H   |		Short_Literal	0x5
02fd e20d       |    |		Load	0x1,0xd
02fe 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ff 4802       |H   |		Short_Literal	0x2
0300 00d9       |    |		Load_Top	At_Offset_1
0301 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0302 00d9       |    |		Load_Top	At_Offset_1
0303 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0304 4843       |HC  |		Short_Literal	0x43
0305 00da       |    |		Load_Top	At_Offset_2
0306 01d6       |    |		Execute	Vector,Field_Write
0307 4802       |H   |		Short_Literal	0x2
0308 e214       |    |		Load	0x1,0x14
0309 1c08       |    |		Execute_Immediate	Run_Utility,0x8
030a 4800       |H   |		Short_Literal	0x0
030b 00d9       |    |		Load_Top	At_Offset_1
030c 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
030d 4805       |H   |		Short_Literal	0x5
030e e20d       |    |		Load	0x1,0xd
030f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0310 4803       |H   |		Short_Literal	0x3
0311 00d9       |    |		Load_Top	At_Offset_1
0312 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0313 00d9       |    |		Load_Top	At_Offset_1
0314 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0315 4842       |HB  |		Short_Literal	0x42
0316 00da       |    |		Load_Top	At_Offset_2
0317 01d6       |    |		Execute	Vector,Field_Write
0318 4802       |H   |		Short_Literal	0x2
0319 e214       |    |		Load	0x1,0x14
031a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
031b 4800       |H   |		Short_Literal	0x0
031c 00d9       |    |		Load_Top	At_Offset_1
031d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
031e 4802       |H   |		Short_Literal	0x2
031f e20d       |    |		Load	0x1,0xd
0320 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0321 4822       |H"  |		Short_Literal	0x22
0322 00d9       |    |		Load_Top	At_Offset_1
0323 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0324 00d9       |    |		Load_Top	At_Offset_1
0325 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0326 487d       |H}  |		Short_Literal	0x7d
0327 00da       |    |		Load_Top	At_Offset_2
0328 01d6       |    |		Execute	Vector,Field_Write
0329 4802       |H   |		Short_Literal	0x2
032a e214       |    |		Load	0x1,0x14
032b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
032c 480c       |H   |		Short_Literal	0xc
032d 00d9       |    |		Load_Top	At_Offset_1
032e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
032f 4802       |H   |		Short_Literal	0x2
0330 e20d       |    |		Load	0x1,0xd
0331 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0332 4822       |H"  |		Short_Literal	0x22
0333 00d9       |    |		Load_Top	At_Offset_1
0334 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0335 00d9       |    |		Load_Top	At_Offset_1
0336 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0337 487e       |H~  |		Short_Literal	0x7e
0338 00da       |    |		Load_Top	At_Offset_2
0339 01d6       |    |		Execute	Vector,Field_Write
033a 4802       |H   |		Short_Literal	0x2
033b e214       |    |		Load	0x1,0x14
033c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
033d 480d       |H   |		Short_Literal	0xd
033e 00d9       |    |		Load_Top	At_Offset_1
033f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0340 4802       |H   |		Short_Literal	0x2
0341 e20d       |    |		Load	0x1,0xd
0342 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0343 4822       |H"  |		Short_Literal	0x22
0344 00d9       |    |		Load_Top	At_Offset_1
0345 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0346 00d9       |    |		Load_Top	At_Offset_1
0347 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0348 487f       |H   |		Short_Literal	0x7f
0349 00da       |    |		Load_Top	At_Offset_2
034a 01d6       |    |		Execute	Vector,Field_Write
034b e215       |    |		Load	0x1,0x15
034c 4849       |HI  |		Short_Literal	0x49
034d 00da       |    |		Load_Top	At_Offset_2
034e 01d6       |    |		Execute	Vector,Field_Write
034f e215       |    |		Load	0x1,0x15
0350 4800       |H   |		Short_Literal	0x0
0351 00da       |    |		Load_Top	At_Offset_2
0352 01d6       |    |		Execute	Vector,Field_Write
0353 e215       |    |		Load	0x1,0x15
0354 4801       |H   |		Short_Literal	0x1
0355 00da       |    |		Load_Top	At_Offset_2
0356 01d6       |    |		Execute	Vector,Field_Write
0357 4813       |H   |		Short_Literal	0x13
0358 4803       |H   |		Short_Literal	0x3
0359 e215       |    |		Load	0x1,0x15
035a 00d9       |    |		Load_Top	At_Offset_1
035b e21b       |    |		Load	0x1,0x1b
035c 01d6       |    |		Execute	Vector,Field_Write
035d 3ffb       |?   |		Loop_Increasing	0x359
035e e215       |    |		Load	0x1,0x15
035f 4814       |H   |		Short_Literal	0x14
0360 00da       |    |		Load_Top	At_Offset_2
0361 01d6       |    |		Execute	Vector,Field_Write
0362 e215       |    |		Load	0x1,0x15
0363 4815       |H   |		Short_Literal	0x15
0364 00da       |    |		Load_Top	At_Offset_2
0365 01d6       |    |		Execute	Vector,Field_Write
0366 4818       |H   |		Short_Literal	0x18
0367 4816       |H   |		Short_Literal	0x16
0368 e215       |    |		Load	0x1,0x15
0369 00d9       |    |		Load_Top	At_Offset_1
036a e21b       |    |		Load	0x1,0x1b
036b 01d6       |    |		Execute	Vector,Field_Write
036c 3ffb       |?   |		Loop_Increasing	0x368
036d 4831       |H1  |		Short_Literal	0x31
036e 4819       |H   |		Short_Literal	0x19
036f e215       |    |		Load	0x1,0x15
0370 00d9       |    |		Load_Top	At_Offset_1
0371 e21b       |    |		Load	0x1,0x1b
0372 01d6       |    |		Execute	Vector,Field_Write
0373 3ffb       |?   |		Loop_Increasing	0x36f
0374 4834       |H4  |		Short_Literal	0x34
0375 4832       |H2  |		Short_Literal	0x32
0376 e215       |    |		Load	0x1,0x15
0377 00d9       |    |		Load_Top	At_Offset_1
0378 e21b       |    |		Load	0x1,0x1b
0379 01d6       |    |		Execute	Vector,Field_Write
037a 3ffb       |?   |		Loop_Increasing	0x376
037b 4836       |H6  |		Short_Literal	0x36
037c 4835       |H5  |		Short_Literal	0x35
037d e217       |    |		Load	0x1,0x17
037e 00d9       |    |		Load_Top	At_Offset_1
037f e21b       |    |		Load	0x1,0x1b
0380 01d6       |    |		Execute	Vector,Field_Write
0381 3ffb       |?   |		Loop_Increasing	0x37d
0382 e215       |    |		Load	0x1,0x15
0383 4857       |HW  |		Short_Literal	0x57
0384 00da       |    |		Load_Top	At_Offset_2
0385 01d6       |    |		Execute	Vector,Field_Write
0386 e215       |    |		Load	0x1,0x15
0387 4858       |HX  |		Short_Literal	0x58
0388 00da       |    |		Load_Top	At_Offset_2
0389 01d6       |    |		Execute	Vector,Field_Write
038a e215       |    |		Load	0x1,0x15
038b 4859       |HY  |		Short_Literal	0x59
038c 00da       |    |		Load_Top	At_Offset_2
038d 01d6       |    |		Execute	Vector,Field_Write
038e e215       |    |		Load	0x1,0x15
038f 485f       |H_  |		Short_Literal	0x5f
0390 00da       |    |		Load_Top	At_Offset_2
0391 01d6       |    |		Execute	Vector,Field_Write
0392 e215       |    |		Load	0x1,0x15
0393 4861       |Ha  |		Short_Literal	0x61
0394 00da       |    |		Load_Top	At_Offset_2
0395 01d6       |    |		Execute	Vector,Field_Write
0396 4866       |Hf  |		Short_Literal	0x66
0397 4862       |Hb  |		Short_Literal	0x62
0398 e215       |    |		Load	0x1,0x15
0399 00d9       |    |		Load_Top	At_Offset_1
039a e21b       |    |		Load	0x1,0x1b
039b 01d6       |    |		Execute	Vector,Field_Write
039c 3ffb       |?   |		Loop_Increasing	0x398
039d 486a       |Hj  |		Short_Literal	0x6a
039e 4867       |Hg  |		Short_Literal	0x67
039f e215       |    |		Load	0x1,0x15
03a0 00d9       |    |		Load_Top	At_Offset_1
03a1 e21b       |    |		Load	0x1,0x1b
03a2 01d6       |    |		Execute	Vector,Field_Write
03a3 3ffb       |?   |		Loop_Increasing	0x39f
03a4 486f       |Ho  |		Short_Literal	0x6f
03a5 486b       |Hk  |		Short_Literal	0x6b
03a6 e215       |    |		Load	0x1,0x15
03a7 00d9       |    |		Load_Top	At_Offset_1
03a8 e21b       |    |		Load	0x1,0x1b
03a9 01d6       |    |		Execute	Vector,Field_Write
03aa 3ffb       |?   |		Loop_Increasing	0x3a6
03ab e215       |    |		Load	0x1,0x15
03ac 4870       |Hp  |		Short_Literal	0x70
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 01d6       |    |		Execute	Vector,Field_Write
03af e215       |    |		Load	0x1,0x15
03b0 4871       |Hq  |		Short_Literal	0x71
03b1 00da       |    |		Load_Top	At_Offset_2
03b2 01d6       |    |		Execute	Vector,Field_Write
03b3 e215       |    |		Load	0x1,0x15
03b4 4872       |Hr  |		Short_Literal	0x72
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 01d6       |    |		Execute	Vector,Field_Write
03b7 e215       |    |		Load	0x1,0x15
03b8 4873       |Hs  |		Short_Literal	0x73
03b9 00da       |    |		Load_Top	At_Offset_2
03ba 01d6       |    |		Execute	Vector,Field_Write
03bb 4876       |Hv  |		Short_Literal	0x76
03bc 4874       |Ht  |		Short_Literal	0x74
03bd e215       |    |		Load	0x1,0x15
03be 00d9       |    |		Load_Top	At_Offset_1
03bf e21b       |    |		Load	0x1,0x1b
03c0 01d6       |    |		Execute	Vector,Field_Write
03c1 3ffb       |?   |		Loop_Increasing	0x3bd
03c2 e217       |    |		Load	0x1,0x17
03c3 4877       |Hw  |		Short_Literal	0x77
03c4 00da       |    |		Load_Top	At_Offset_2
03c5 01d6       |    |		Execute	Vector,Field_Write
03c6 e217       |    |		Load	0x1,0x17
03c7 4878       |Hx  |		Short_Literal	0x78
03c8 00da       |    |		Load_Top	At_Offset_2
03c9 01d6       |    |		Execute	Vector,Field_Write
03ca 487c       |H|  |		Short_Literal	0x7c
03cb 4879       |Hy  |		Short_Literal	0x79
03cc e217       |    |		Load	0x1,0x17
03cd 00d9       |    |		Load_Top	At_Offset_1
03ce e21b       |    |		Load	0x1,0x1b
03cf 01d6       |    |		Execute	Vector,Field_Write
03d0 3ffb       |?   |		Loop_Increasing	0x3cc
03d1 4883       |H   |		Short_Literal	0x83
03d2 4880       |H   |		Short_Literal	0x80
03d3 e217       |    |		Load	0x1,0x17
03d4 00d9       |    |		Load_Top	At_Offset_1
03d5 e21b       |    |		Load	0x1,0x1b
03d6 01d6       |    |		Execute	Vector,Field_Write
03d7 3ffb       |?   |		Loop_Increasing	0x3d3
03d8 e215       |    |		Load	0x1,0x15
03d9 4884       |H   |		Short_Literal	0x84
03da 00da       |    |		Load_Top	At_Offset_2
03db 01d6       |    |		Execute	Vector,Field_Write
03dc 4888       |H   |		Short_Literal	0x88
03dd 4886       |H   |		Short_Literal	0x86
03de e215       |    |		Load	0x1,0x15
03df 00d9       |    |		Load_Top	At_Offset_1
03e0 e21b       |    |		Load	0x1,0x1b
03e1 01d6       |    |		Execute	Vector,Field_Write
03e2 3ffb       |?   |		Loop_Increasing	0x3de
03e3 4899       |H   |		Short_Literal	0x99
03e4 4889       |H   |		Short_Literal	0x89
03e5 e215       |    |		Load	0x1,0x15
03e6 00d9       |    |		Load_Top	At_Offset_1
03e7 e21b       |    |		Load	0x1,0x1b
03e8 01d6       |    |		Execute	Vector,Field_Write
03e9 3ffb       |?   |		Loop_Increasing	0x3e5
03ea 48a7       |H   |		Short_Literal	0xa7
03eb 489a       |H   |		Short_Literal	0x9a
03ec e215       |    |		Load	0x1,0x15
03ed 00d9       |    |		Load_Top	At_Offset_1
03ee e21b       |    |		Load	0x1,0x1b
03ef 01d6       |    |		Execute	Vector,Field_Write
03f0 3ffb       |?   |		Loop_Increasing	0x3ec
03f1 e215       |    |		Load	0x1,0x15
03f2 48a9       |H   |		Short_Literal	0xa9
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 01d6       |    |		Execute	Vector,Field_Write
03f5 48ad       |H   |		Short_Literal	0xad
03f6 48aa       |H   |		Short_Literal	0xaa
03f7 e217       |    |		Load	0x1,0x17
03f8 00d9       |    |		Load_Top	At_Offset_1
03f9 e21b       |    |		Load	0x1,0x1b
03fa 01d6       |    |		Execute	Vector,Field_Write
03fb 3ffb       |?   |		Loop_Increasing	0x3f7
03fc 00d9       |    |		Load_Top	At_Offset_1
03fd 01d4       |    |		Execute	Vector,Structure_Write
03fe 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x20 = 0x3fe,0xffdf
03ff 029d 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call			; Debug Table 0x1.0x21 = 0x3ff,0xffde
0401 029d 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call			; Debug Table 0x1.0x22 = 0x401,0xffdd
0403 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x23 = 0x403,0xffdc
0404 00c7       |    |		Action	Elaborate_Subprogram
0405 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x24 = 0x405,0xffdb
0406 00c7       |    |		Action	Elaborate_Subprogram
0407 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x25 = 0x407,0xffda
0408 00c7       |    |		Action	Elaborate_Subprogram
0409 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x26 = 0x409,0xffd9
040a 00c7       |    |		Action	Elaborate_Subprogram
040b			BODY_0008:
040b 00bc       |    |		Action	Signal_Activated
040c 00bb       |    |		Action	Signal_Completion
040d 0000 0000  |    |		.XXX[0x3]
040f 0000       |    |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 4608       |F   |		Jump_Case	0x9							; Debug Table 0x2 = .DEBUG	0x0413,0x07ce,0x0005,0x0000,0x0033,0xd324,0x0000,0x0010
0414 7808       |x   |		Jump	0x41d								; case 0x0
0415 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0416 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0417 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0418 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0419 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
041a 7818       |x   |		Jump	0x433								; case 0x6
041b 782e       |x.  |		Jump	0x44a								; case 0x7
041c 7847       |xG  |		Jump	0x464								; case 0x8
041d 00da       |    |		Load_Top	At_Offset_2
041e 016c       | l  |		Execute	Variant_Record,Is_Constrained
041f 7009       |p   |		Jump_Nonzero	0x429
0420 00cf       |    |		Action	Mark_Auxiliary
0421 4806       |H   |		Short_Literal	0x6
0422 e5ff       |    |		Load	0x2,-0x1
0423 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0424 00d8       |    |		Load_Top	At_Offset_0
0425 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0426 c5ff       |    |		Store	0x2,-0x1
0427 00ce       |    |		Action	Pop_Auxiliary
0428 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0429 00da       |    |		Load_Top	At_Offset_2
042a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
042b 4606       |F   |		Jump_Case	0x7
042c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
042d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
042e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
042f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0430 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0431 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0432 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0433 00db       |    |		Load_Top	At_Offset_3
0434 4606       |F   |		Jump_Case	0x7
0435 780a       |x   |		Jump	0x440								; case 0x0
0436 780b       |x   |		Jump	0x442								; case 0x1
0437 780c       |x   |		Jump	0x444								; case 0x2
0438 780d       |x   |		Jump	0x446								; case 0x3
0439 7804       |x   |		Jump	0x43e								; case 0x4
043a 780d       |x   |		Jump	0x448								; case 0x5
043b 7800       |x   |		Jump	0x43c								; case 0x6
043c 4801       |H   |		Short_Literal	0x1
043d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043e 48ff       |H   |		Short_Literal	0xff
043f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0440 48ff       |H   |		Short_Literal	0xff
0441 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0442 4802       |H   |		Short_Literal	0x2
0443 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0444 4803       |H   |		Short_Literal	0x3
0445 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0446 4804       |H   |		Short_Literal	0x4
0447 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0448 4805       |H   |		Short_Literal	0x5
0449 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044a 00db       |    |		Load_Top	At_Offset_3
044b e5fe       |    |		Load	0x2,-0x2
044c 4606       |F   |		Jump_Case	0x7
044d 780a       |x   |		Jump	0x458								; case 0x0
044e 780b       |x   |		Jump	0x45a								; case 0x1
044f 780c       |x   |		Jump	0x45c								; case 0x2
0450 780d       |x   |		Jump	0x45e								; case 0x3
0451 7804       |x   |		Jump	0x456								; case 0x4
0452 780d       |x   |		Jump	0x460								; case 0x5
0453 7800       |x   |		Jump	0x454								; case 0x6
0454 4801       |H   |		Short_Literal	0x1
0455 780b       |x   |		Jump	0x461
0456 48ff       |H   |		Short_Literal	0xff
0457 7809       |x   |		Jump	0x461
0458 48ff       |H   |		Short_Literal	0xff
0459 7807       |x   |		Jump	0x461
045a 4802       |H   |		Short_Literal	0x2
045b 7805       |x   |		Jump	0x461
045c 4803       |H   |		Short_Literal	0x3
045d 7803       |x   |		Jump	0x461
045e 4804       |H   |		Short_Literal	0x4
045f 7801       |x   |		Jump	0x461
0460 4805       |H   |		Short_Literal	0x5
0461 e5ff       |    |		Load	0x2,-0x1
0462 031b       |    |		Declare_Type	Variant_Record,Constrained
0463 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0464 00db       |    |		Load_Top	At_Offset_3
0465 e5fe       |    |		Load	0x2,-0x2
0466 e5ff       |    |		Load	0x2,-0x1
0467 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0468 e5ff       |    |		Load	0x2,-0x1
0469 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
046a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0477       | w  |		.CONST	0x0477								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0002       |    |		.CONST	0x0002								; Number of locals
0473			INIT_0470:
0473 e214       |    |		Load	0x1,0x14							; Debug Table 0x3 = .DEBUG	0x0473,0x07d0,0x0002,0x0000,0x0033,0xd324,0x0000,0x006d
													; Debug Table 0x3.0x0 = 0x473,0xffff
0474 02ff       |    |		Declare_Variable	Variant_Record
0475 00d8       |    |		Load_Top	At_Offset_0
0476 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0477			BODY_0470:
0477 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x1 = 0x477,0x1
0478 00eb       |    |		Load_Encached	Diana_Cache
0479 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
047a e21a       |    |		Load	0x1,0x1a
047b 01d5       |    |		Execute	Vector,Field_Reference
047c 00d9       |    |		Load_Top	At_Offset_1
047d 016d       | m  |		Execute	Variant_Record,Structure_Write
047e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0x47e,0x2
047f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0480 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0481 700a       |p   |		Jump_Nonzero	0x48c
0482 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0483 700a       |p   |		Jump_Nonzero	0x48e
0484 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0485 7008       |p   |		Jump_Nonzero	0x48e
0486 0b03       |    |		Execute_Immediate	Case_Compare,0x3
0487 7006       |p   |		Jump_Nonzero	0x48e
0488 0b04       |    |		Execute_Immediate	Case_Compare,0x4
0489 7006       |p   |		Jump_Nonzero	0x490
048a 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x3.0x3 = 0x48a,0x6
048b 0257       | W  |		Execute	Discrete,Raise
048c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x4 = 0x48c,0x3
048d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x5 = 0x48e,0x4
048f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0490 0092 070b  |    |		Action	Push_String_Extended,0x70b					; "_COMMENT"
													; Debug Table 0x3.0x6 = 0x490,0x5
0492 e5ff       |    |		Load	0x2,-0x1
0493 e006       |    |		Load	0x0,0x6
0494 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0495 01de       |    |		Execute	Vector,Not_Equal
0496 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0497 0000       |    |		.XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049f       |    |		.CONST	0x049f								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0002       |    |		.CONST	0x0002								; Number of locals
049b			INIT_0498:
049b e214       |    |		Load	0x1,0x14							; Debug Table 0x4 = .DEBUG	0x049b,0x07e0,0x0002,0x0000,0x0033,0xd324,0x0000,0x0078
													; Debug Table 0x4.0x0 = 0x49b,0xffff
049c 02ff       |    |		Declare_Variable	Variant_Record
049d 00d8       |    |		Load_Top	At_Offset_0
049e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
049f			BODY_0498:
049f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1 = 0x49f,0x1
04a0 00eb       |    |		Load_Encached	Diana_Cache
04a1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04a2 e21a       |    |		Load	0x1,0x1a
04a3 01d5       |    |		Execute	Vector,Field_Reference
04a4 00d9       |    |		Load_Top	At_Offset_1
04a5 016d       | m  |		Execute	Variant_Record,Structure_Write
04a6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0x4a6,0x2
04a7 e5ff       |    |		Load	0x2,-0x1
04a8 821c       |    |		Call	0x1,0x1c
04a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04aa 0000 0000  |    |		.BLANK	0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b7       |    |		.CONST	0x04b7								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0002       |    |		.CONST	0x0002								; Number of locals
04b3			INIT_04b0:
04b3 e214       |    |		Load	0x1,0x14							; Debug Table 0x5 = .DEBUG	0x04b3,0x07e8,0x0002,0x0000,0x0033,0xd324,0x0000,0x0083
													; Debug Table 0x5.0x0 = 0x4b3,0xffff
04b4 02ff       |    |		Declare_Variable	Variant_Record
04b5 00d8       |    |		Load_Top	At_Offset_0
04b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b7			BODY_04b0:
04b7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1 = 0x4b7,0x1
04b8 00eb       |    |		Load_Encached	Diana_Cache
04b9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04ba e21a       |    |		Load	0x1,0x1a
04bb 01d5       |    |		Execute	Vector,Field_Reference
04bc 00d9       |    |		Load_Top	At_Offset_1
04bd 016d       | m  |		Execute	Variant_Record,Structure_Write
04be 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x2 = 0x4be,0x2
04bf e5ff       |    |		Load	0x2,-0x1
04c0 821c       |    |		Call	0x1,0x1c
04c1 6804       |h   |		Jump_Zero	0x4c6
04c2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x3 = 0x4c2,0x3
04c3 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c6 4806       |H   |		Short_Literal	0x6							; Debug Table 0x5.0x4 = 0x4c6,0x4
04c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cf       |    |		.CONST	0x04cf								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb e214       |    |		Load	0x1,0x14							; Debug Table 0x6 = .DEBUG	0x04cb,0x07f4,0x0002,0x0000,0x0033,0xd324,0x0000,0x0090
													; Debug Table 0x6.0x0 = 0x4cb,0xffff
04cc 02ff       |    |		Declare_Variable	Variant_Record
04cd 00d8       |    |		Load_Top	At_Offset_0
04ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04cf			BODY_04c8:
04cf 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x1 = 0x4cf,0x1
04d0 00eb       |    |		Load_Encached	Diana_Cache
04d1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04d2 e21a       |    |		Load	0x1,0x1a
04d3 01d5       |    |		Execute	Vector,Field_Reference
04d4 00d9       |    |		Load_Top	At_Offset_1
04d5 016d       | m  |		Execute	Variant_Record,Structure_Write
04d6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x2 = 0x4d6,0x2
04d7 e5ff       |    |		Load	0x2,-0x1
04d8 821c       |    |		Call	0x1,0x1c
04d9 6988       |i   |		Jump_Zero	0x662
04da 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x3 = 0x4da,0x3
04db 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04dc 460f       |F   |		Jump_Case	0x10
04dd 7981       |y   |		Jump	0x65f								; case 0x0
04de 780e       |x   |		Jump	0x4ed								; case 0x1
04df 781b       |x   |		Jump	0x4fb								; case 0x2
04e0 782f       |x/  |		Jump	0x510								; case 0x3
04e1 7851       |xQ  |		Jump	0x533								; case 0x4
04e2 786a       |xj  |		Jump	0x54d								; case 0x5
04e3 7877       |xw  |		Jump	0x55b								; case 0x6
04e4 78da       |x   |		Jump	0x5bf								; case 0x7
04e5 790e       |y   |		Jump	0x5f4								; case 0x8
04e6 792f       |y/  |		Jump	0x616								; case 0x9
04e7 793c       |y<  |		Jump	0x624								; case 0xa
04e8 7949       |yI  |		Jump	0x632								; case 0xb
04e9 795f       |y_  |		Jump	0x649								; case 0xc
04ea 7968       |yh  |		Jump	0x653								; case 0xd
04eb 7971       |yq  |		Jump	0x65d								; case 0xe
04ec 7970       |yp  |		Jump	0x65d								; case 0xf
04ed 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x4 = 0x4ed,0x5
04ee 00eb       |    |		Load_Encached	Diana_Cache
04ef 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
04f0 00eb       |    |		Load_Encached	Diana_Cache
04f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04f2 0f80       |    |		Execute_Immediate	Equal,-0x80
04f3 696b       |ik  |		Jump_Zero	0x65f
04f4 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x5 = 0x4f4,0x6
04f5 e20d       |    |		Load	0x1,0xd
04f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04f7 4811       |H   |		Short_Literal	0x11
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						; Debug Table 0x6.0x6 = 0x4fb,0x7
04fc 00eb       |    |		Load_Encached	Diana_Cache
04fd 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
04fe 00eb       |    |		Load_Encached	Diana_Cache
04ff 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0500 00eb       |    |		Load_Encached	Diana_Cache
0501 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
0502 4902       |I   |		Short_Literal	0x102
0503 00eb       |    |		Load_Encached	Diana_Cache
0504 0096       |    |		Execute	Package,Entry
0505 00eb       |    |		Load_Encached	Diana_Cache
0506 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0507 0e74       | t  |		Execute_Immediate	Not_Equal,0x74
0508 6956       |iV  |		Jump_Zero	0x65f
0509 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x7 = 0x509,0x8
050a e20d       |    |		Load	0x1,0xd
050b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
050c 4804       |H   |		Short_Literal	0x4
050d 00d9       |    |		Load_Top	At_Offset_1
050e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
050f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0510 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x8 = 0x510,0x9
0511 00eb       |    |		Load_Encached	Diana_Cache
0512 18e8       |    |		Execute	Package,Field_Execute,Field_Number 0xe8
0513 00eb       |    |		Load_Encached	Diana_Cache
0514 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0515 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0516 700c       |p   |		Jump_Nonzero	0x523
0517 0b73       | s  |		Execute_Immediate	Case_Compare,0x73
0518 7011       |p   |		Jump_Nonzero	0x52a
0519 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x9 = 0x519,0xc
051a 821b       |    |		Call	0x1,0x1b
051b 6815       |h   |		Jump_Zero	0x531
051c 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0xa = 0x51c,0xd
051d e20d       |    |		Load	0x1,0xd
051e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
051f 4823       |H#  |		Short_Literal	0x23
0520 00d9       |    |		Load_Top	At_Offset_1
0521 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0522 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0523 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0xb = 0x523,0xa
0524 e20d       |    |		Load	0x1,0xd
0525 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0526 4806       |H   |		Short_Literal	0x6
0527 00d9       |    |		Load_Top	At_Offset_1
0528 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0529 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
052a 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0xc = 0x52a,0xb
052b e20d       |    |		Load	0x1,0xd
052c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
052d 481b       |H   |		Short_Literal	0x1b
052e 00d9       |    |		Load_Top	At_Offset_1
052f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0530 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0531 00d1       |    |		Pop_Control	Pop_Count_1
0532 792c       |y,  |		Jump	0x65f
0533 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0xd = 0x533,0xe
0534 00eb       |    |		Load_Encached	Diana_Cache
0535 18d8       |    |		Execute	Package,Field_Execute,Field_Number 0xd8
0536 00eb       |    |		Load_Encached	Diana_Cache
0537 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0538 0b80       |    |		Execute_Immediate	Case_Compare,0x80
0539 7003       |p   |		Jump_Nonzero	0x53d
053a 0b36       | 6  |		Execute_Immediate	Case_Compare,0x36
053b 7008       |p   |		Jump_Nonzero	0x544
053c 780e       |x   |		Jump	0x54b								; Debug Table 0x6.0xe = 0x53c,0x11
053d 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0xf = 0x53d,0xf
053e e20d       |    |		Load	0x1,0xd
053f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0540 480e       |H   |		Short_Literal	0xe
0541 00d9       |    |		Load_Top	At_Offset_1
0542 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0543 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0544 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x10 = 0x544,0x10
0545 e20d       |    |		Load	0x1,0xd
0546 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0547 4816       |H   |		Short_Literal	0x16
0548 00d9       |    |		Load_Top	At_Offset_1
0549 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
054a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
054b 00d1       |    |		Pop_Control	Pop_Count_1
054c 7912       |y   |		Jump	0x65f
054d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x11 = 0x54d,0x12
054e 00eb       |    |		Load_Encached	Diana_Cache
054f 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
0550 00eb       |    |		Load_Encached	Diana_Cache
0551 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0552 0f77       | w  |		Execute_Immediate	Equal,0x77
0553 690b       |i   |		Jump_Zero	0x65f
0554 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x12 = 0x554,0x13
0555 e20d       |    |		Load	0x1,0xd
0556 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0557 4820       |H   |		Short_Literal	0x20
0558 00d9       |    |		Load_Top	At_Offset_1
0559 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
055a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x13 = 0x55b,0x14
055c 00eb       |    |		Load_Encached	Diana_Cache
055d 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
055e 00eb       |    |		Load_Encached	Diana_Cache
055f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0560 0b79       | y  |		Execute_Immediate	Case_Compare,0x79
0561 7006       |p   |		Jump_Nonzero	0x568
0562 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0563 700b       |p   |		Jump_Nonzero	0x56f
0564 0b7a       | z  |		Execute_Immediate	Case_Compare,0x7a
0565 7031       |p1  |		Jump_Nonzero	0x597
0566 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x6.0x14 = 0x566,0x22
0567 0257       | W  |		Execute	Discrete,Raise
0568 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x15 = 0x568,0x15
0569 e20d       |    |		Load	0x1,0xd
056a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
056b 481c       |H   |		Short_Literal	0x1c
056c 00d9       |    |		Load_Top	At_Offset_1
056d 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
056e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
056f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x16 = 0x56f,0x16
0570 00eb       |    |		Load_Encached	Diana_Cache
0571 18e4       |    |		Execute	Package,Field_Execute,Field_Number 0xe4
0572 00eb       |    |		Load_Encached	Diana_Cache
0573 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0574 0b80       |    |		Execute_Immediate	Case_Compare,0x80
0575 7013       |p   |		Jump_Nonzero	0x589
0576 0b36       | 6  |		Execute_Immediate	Case_Compare,0x36
0577 7018       |p   |		Jump_Nonzero	0x590
0578 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x17 = 0x578,0x19
0579 821b       |    |		Call	0x1,0x1b
057a 6807       |h   |		Jump_Zero	0x582
057b 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x18 = 0x57b,0x1a
057c e20d       |    |		Load	0x1,0xd
057d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
057e 4823       |H#  |		Short_Literal	0x23
057f 00d9       |    |		Load_Top	At_Offset_1
0580 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0581 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0582 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x19 = 0x582,0x1b
0583 e20d       |    |		Load	0x1,0xd
0584 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0585 480a       |H   |		Short_Literal	0xa
0586 00d9       |    |		Load_Top	At_Offset_1
0587 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0588 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0589 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x1a = 0x589,0x17
058a e20d       |    |		Load	0x1,0xd
058b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
058c 480f       |H   |		Short_Literal	0xf
058d 00d9       |    |		Load_Top	At_Offset_1
058e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
058f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0590 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x1b = 0x590,0x18
0591 e20d       |    |		Load	0x1,0xd
0592 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0593 4817       |H   |		Short_Literal	0x17
0594 00d9       |    |		Load_Top	At_Offset_1
0595 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0596 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0597 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x1c = 0x597,0x1c
0598 00eb       |    |		Load_Encached	Diana_Cache
0599 18e4       |    |		Execute	Package,Field_Execute,Field_Number 0xe4
059a 00eb       |    |		Load_Encached	Diana_Cache
059b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
059c 0b80       |    |		Execute_Immediate	Case_Compare,0x80
059d 7013       |p   |		Jump_Nonzero	0x5b1
059e 0b36       | 6  |		Execute_Immediate	Case_Compare,0x36
059f 7018       |p   |		Jump_Nonzero	0x5b8
05a0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x1d = 0x5a0,0x1f
05a1 821b       |    |		Call	0x1,0x1b
05a2 6807       |h   |		Jump_Zero	0x5aa
05a3 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x1e = 0x5a3,0x20
05a4 e20d       |    |		Load	0x1,0xd
05a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05a6 4823       |H#  |		Short_Literal	0x23
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05aa 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x1f = 0x5aa,0x21
05ab e20d       |    |		Load	0x1,0xd
05ac 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05ad 480c       |H   |		Short_Literal	0xc
05ae 00d9       |    |		Load_Top	At_Offset_1
05af 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b1 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x20 = 0x5b1,0x1d
05b2 e20d       |    |		Load	0x1,0xd
05b3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05b4 4810       |H   |		Short_Literal	0x10
05b5 00d9       |    |		Load_Top	At_Offset_1
05b6 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b8 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x21 = 0x5b8,0x1e
05b9 e20d       |    |		Load	0x1,0xd
05ba 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05bb 4818       |H   |		Short_Literal	0x18
05bc 00d9       |    |		Load_Top	At_Offset_1
05bd 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05bf 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x22 = 0x5bf,0x23
05c0 00eb       |    |		Load_Encached	Diana_Cache
05c1 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
05c2 00eb       |    |		Load_Encached	Diana_Cache
05c3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05c4 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
05c5 7004       |p   |		Jump_Nonzero	0x5ca
05c6 0b7a       | z  |		Execute_Immediate	Case_Compare,0x7a
05c7 7017       |p   |		Jump_Nonzero	0x5df
05c8 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x6.0x23 = 0x5c8,0x2a
05c9 0257       | W  |		Execute	Discrete,Raise
05ca e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x24 = 0x5ca,0x24
05cb 00eb       |    |		Load_Encached	Diana_Cache
05cc 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
05cd 00eb       |    |		Load_Encached	Diana_Cache
05ce 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05cf 0f77       | w  |		Execute_Immediate	Equal,0x77
05d0 6807       |h   |		Jump_Zero	0x5d8
05d1 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x25 = 0x5d1,0x25
05d2 e20d       |    |		Load	0x1,0xd
05d3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05d4 481e       |H   |		Short_Literal	0x1e
05d5 00d9       |    |		Load_Top	At_Offset_1
05d6 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d8 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x26 = 0x5d8,0x26
05d9 e20d       |    |		Load	0x1,0xd
05da 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05db 480b       |H   |		Short_Literal	0xb
05dc 00d9       |    |		Load_Top	At_Offset_1
05dd 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05df e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x27 = 0x5df,0x27
05e0 00eb       |    |		Load_Encached	Diana_Cache
05e1 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
05e2 00eb       |    |		Load_Encached	Diana_Cache
05e3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05e4 0f77       | w  |		Execute_Immediate	Equal,0x77
05e5 6807       |h   |		Jump_Zero	0x5ed
05e6 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x28 = 0x5e6,0x28
05e7 e20d       |    |		Load	0x1,0xd
05e8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05e9 481f       |H   |		Short_Literal	0x1f
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 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x29 = 0x5ed,0x29
05ee e20d       |    |		Load	0x1,0xd
05ef 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05f0 480d       |H   |		Short_Literal	0xd
05f1 00d9       |    |		Load_Top	At_Offset_1
05f2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
05f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x2a = 0x5f4,0x2b
05f5 00eb       |    |		Load_Encached	Diana_Cache
05f6 18cc       |    |		Execute	Package,Field_Execute,Field_Number 0xcc
05f7 00eb       |    |		Load_Encached	Diana_Cache
05f8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05f9 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
05fa 7006       |p   |		Jump_Nonzero	0x601
05fb 0b7a       | z  |		Execute_Immediate	Case_Compare,0x7a
05fc 700b       |p   |		Jump_Nonzero	0x608
05fd 0b7c       | |  |		Execute_Immediate	Case_Compare,0x7c
05fe 7010       |p   |		Jump_Nonzero	0x60f
05ff 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x6.0x2b = 0x5ff,0x2f
0600 0257       | W  |		Execute	Discrete,Raise
0601 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x2c = 0x601,0x2c
0602 e20d       |    |		Load	0x1,0xd
0603 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0604 4814       |H   |		Short_Literal	0x14
0605 00d9       |    |		Load_Top	At_Offset_1
0606 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0607 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0608 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x2d = 0x608,0x2d
0609 e20d       |    |		Load	0x1,0xd
060a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
060b 4815       |H   |		Short_Literal	0x15
060c 00d9       |    |		Load_Top	At_Offset_1
060d 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
060e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060f 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x2e = 0x60f,0x2e
0610 e20d       |    |		Load	0x1,0xd
0611 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0612 4813       |H   |		Short_Literal	0x13
0613 00d9       |    |		Load_Top	At_Offset_1
0614 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0615 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0616 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x2f = 0x616,0x30
0617 00eb       |    |		Load_Encached	Diana_Cache
0618 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
0619 00eb       |    |		Load_Encached	Diana_Cache
061a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
061b 0f77       | w  |		Execute_Immediate	Equal,0x77
061c 6842       |hB  |		Jump_Zero	0x65f
061d 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x30 = 0x61d,0x31
061e e20d       |    |		Load	0x1,0xd
061f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0620 4821       |H!  |		Short_Literal	0x21
0621 00d9       |    |		Load_Top	At_Offset_1
0622 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0623 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0624 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x31 = 0x624,0x32
0625 00eb       |    |		Load_Encached	Diana_Cache
0626 18c4       |    |		Execute	Package,Field_Execute,Field_Number 0xc4
0627 00eb       |    |		Load_Encached	Diana_Cache
0628 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0629 0f80       |    |		Execute_Immediate	Equal,-0x80
062a 6834       |h4  |		Jump_Zero	0x65f
062b 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x32 = 0x62b,0x33
062c e20d       |    |		Load	0x1,0xd
062d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
062e 4812       |H   |		Short_Literal	0x12
062f 00d9       |    |		Load_Top	At_Offset_1
0630 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0631 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0632 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x33 = 0x632,0x34
0633 00eb       |    |		Load_Encached	Diana_Cache
0634 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0635 00eb       |    |		Load_Encached	Diana_Cache
0636 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0637 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
0638 7009       |p   |		Jump_Nonzero	0x642
0639 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
063a 7007       |p   |		Jump_Nonzero	0x642
063b 4805       |H   |		Short_Literal	0x5							; Debug Table 0x6.0x34 = 0x63b,0x36
063c e20d       |    |		Load	0x1,0xd
063d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
063e 4801       |H   |		Short_Literal	0x1
063f 00d9       |    |		Load_Top	At_Offset_1
0640 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0641 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0642 4805       |H   |		Short_Literal	0x5							; Debug Table 0x6.0x35 = 0x642,0x35
0643 e20d       |    |		Load	0x1,0xd
0644 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0645 4800       |H   |		Short_Literal	0x0
0646 00d9       |    |		Load_Top	At_Offset_1
0647 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0648 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0649 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x36 = 0x649,0x37
064a 821b       |    |		Call	0x1,0x1b
064b 6813       |h   |		Jump_Zero	0x65f
064c 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x37 = 0x64c,0x38
064d e20d       |    |		Load	0x1,0xd
064e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
064f 4823       |H#  |		Short_Literal	0x23
0650 00d9       |    |		Load_Top	At_Offset_1
0651 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0652 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0653 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x38 = 0x653,0x39
0654 821b       |    |		Call	0x1,0x1b
0655 6809       |h   |		Jump_Zero	0x65f
0656 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6.0x39 = 0x656,0x3a
0657 e20d       |    |		Load	0x1,0xd
0658 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0659 4823       |H#  |		Short_Literal	0x23
065a 00d9       |    |		Load_Top	At_Offset_1
065b 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
065c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
065d 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x6.0x3a = 0x65d,0x3b
065e 0257       | W  |		Execute	Discrete,Raise
065f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x3b = 0x65f,0x3c
0660 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0661 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0662 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x3c = 0x662,0x3d
0663 820e       |    |		Call	0x1,0xe
0664 6802       |h   |		Jump_Zero	0x667
0665 e216       |    |		Load	0x1,0x16							; Debug Table 0x6.0x3d = 0x665,0x3e
0666 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0667 e218       |    |		Load	0x1,0x18							; Debug Table 0x6.0x3e = 0x667,0x3f
0668 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0669 0000 0000  |    |		.BLANK	0000[0x7]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 4608       |F   |		Jump_Case	0x9							; Debug Table 0x7 = .DEBUG	0x0673,0x0874,0x0005,0x0000,0x0033,0xdda4,0x0000,0x00aa
0674 7808       |x   |		Jump	0x67d								; case 0x0
0675 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0676 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0677 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0678 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0679 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
067a 7819       |x   |		Jump	0x694								; case 0x6
067b 7823       |x#  |		Jump	0x69f								; case 0x7
067c 7830       |x0  |		Jump	0x6ad								; case 0x8
067d 00da       |    |		Load_Top	At_Offset_2
067e 016c       | l  |		Execute	Variant_Record,Is_Constrained
067f 7009       |p   |		Jump_Nonzero	0x689
0680 00cf       |    |		Action	Mark_Auxiliary
0681 4800       |H   |		Short_Literal	0x0
0682 e5ff       |    |		Load	0x2,-0x1
0683 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0684 00d8       |    |		Load_Top	At_Offset_0
0685 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0686 c5ff       |    |		Store	0x2,-0x1
0687 00ce       |    |		Action	Pop_Auxiliary
0688 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0689 00da       |    |		Load_Top	At_Offset_2
068a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
068b 0b00       |    |		Execute_Immediate	Case_Compare,0x0
068c 7005       |p   |		Jump_Nonzero	0x692
068d 0b01       |    |		Execute_Immediate	Case_Compare,0x1
068e 7003       |p   |		Jump_Nonzero	0x692
068f 00db       |    |		Load_Top	At_Offset_3
0690 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0691 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0692 00d1       |    |		Pop_Control	Pop_Count_1
0693 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0694 00db       |    |		Load_Top	At_Offset_3
0695 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0696 7004       |p   |		Jump_Nonzero	0x69b
0697 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0698 7002       |p   |		Jump_Nonzero	0x69b
0699 4801       |H   |		Short_Literal	0x1
069a 7801       |x   |		Jump	0x69c
069b 48ff       |H   |		Short_Literal	0xff
069c 00d0       |    |		Action	Swap_Control
069d 00d1       |    |		Pop_Control	Pop_Count_1
069e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069f 00db       |    |		Load_Top	At_Offset_3
06a0 e5fe       |    |		Load	0x2,-0x2
06a1 0b00       |    |		Execute_Immediate	Case_Compare,0x0
06a2 7005       |p   |		Jump_Nonzero	0x6a8
06a3 0b01       |    |		Execute_Immediate	Case_Compare,0x1
06a4 7003       |p   |		Jump_Nonzero	0x6a8
06a5 00d1       |    |		Pop_Control	Pop_Count_1
06a6 4801       |H   |		Short_Literal	0x1
06a7 7802       |x   |		Jump	0x6aa
06a8 00d1       |    |		Pop_Control	Pop_Count_1
06a9 48ff       |H   |		Short_Literal	0xff
06aa e5ff       |    |		Load	0x2,-0x1
06ab 031b       |    |		Declare_Type	Variant_Record,Constrained
06ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06ad 00db       |    |		Load_Top	At_Offset_3
06ae e5fe       |    |		Load	0x2,-0x2
06af e5ff       |    |		Load	0x2,-0x1
06b0 1c06       |    |		Execute_Immediate	Run_Utility,0x6
06b1 e5ff       |    |		Load	0x2,-0x1
06b2 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
06b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06b4 0000 0000  |    |		.BLANK	0000[0x4]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb       |    |		.CONST	0x06bb								; Address of begin
06b9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ba 0001       |    |		.CONST	0x0001								; Number of locals
06bb			BODY_06b8:
06bb			INIT_06b8:
06bb 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x8 = .DEBUG	0x06bb,0x0876,0x0005,0x0000,0x0033,0xdda4,0x0000,0x0111
06bc 00da       |    |		Load_Top	At_Offset_2
06bd 01d8       |    |		Execute	Vector,Element_Type
06be 02ff       |    |		Declare_Variable	Variant_Record
06bf 00d8       |    |		Load_Top	At_Offset_0
06c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06c1 00db       |    |		Load_Top	At_Offset_3
06c2 01dc       |    |		Execute	Vector,Last
06c3 e5ff       |    |		Load	0x2,-0x1
06c4 01dd       |    |		Execute	Vector,First
06c5 0263       | c  |		Execute	Discrete,Above_Bound
06c6 7006       |p   |		Jump_Nonzero	0x6cd
06c7 00da       |    |		Load_Top	At_Offset_2
06c8 00d9       |    |		Load_Top	At_Offset_1
06c9 e5ff       |    |		Load	0x2,-0x1
06ca 01d6       |    |		Execute	Vector,Field_Write
06cb 0a01       |    |		Execute_Immediate	Plus,0x1
06cc 7ff8       |    |		Jump	0x6c5
06cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ce 0000 0000  |    |		.XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x06d3,0x0878,0x0002,0x0000,0x0033,0xdda4,0x0000,0x0432
													; Debug Table 0x9.0x0 = 0x6d3,0x1
06d4 00eb       |    |		Load_Encached	Diana_Cache
06d5 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
06d6 00eb       |    |		Load_Encached	Diana_Cache
06d7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06d8 0f8f       |    |		Execute_Immediate	Equal,-0x71
06d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06da 0000 0000  |    |		.BLANK	0000[0x6]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa = .DEBUG	0x06e3,0x087c,0x0002,0x0000,0x0033,0xdda4,0x0000,0x0453
													; Debug Table 0xa.0x0 = 0x6e3,0x1
06e4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06e5 0b00       |    |		Execute_Immediate	Case_Compare,0x0
06e6 700a       |p   |		Jump_Nonzero	0x6f1
06e7 0b01       |    |		Execute_Immediate	Case_Compare,0x1
06e8 7008       |p   |		Jump_Nonzero	0x6f1
06e9 0b02       |    |		Execute_Immediate	Case_Compare,0x2
06ea 7008       |p   |		Jump_Nonzero	0x6f3
06eb 0b03       |    |		Execute_Immediate	Case_Compare,0x3
06ec 7008       |p   |		Jump_Nonzero	0x6f5
06ed 0b04       |    |		Execute_Immediate	Case_Compare,0x4
06ee 7015       |p   |		Jump_Nonzero	0x704
06ef 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0xa.0x1 = 0x6ef,0x8
06f0 0257       | W  |		Execute	Discrete,Raise
06f1 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x2 = 0x6f1,0x2
06f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06f3 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x3 = 0x6f3,0x3
06f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06f5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x4 = 0x6f5,0x4
06f6 00eb       |    |		Load_Encached	Diana_Cache
06f7 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
06f8 00eb       |    |		Load_Encached	Diana_Cache
06f9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06fa 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
06fb 7006       |p   |		Jump_Nonzero	0x702
06fc 0b47       | G  |		Execute_Immediate	Case_Compare,0x47
06fd 7004       |p   |		Jump_Nonzero	0x702
06fe 0b46       | F  |		Execute_Immediate	Case_Compare,0x46
06ff 7002       |p   |		Jump_Nonzero	0x702
0700 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x5 = 0x700,0x6
0701 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0702 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x6 = 0x702,0x5
0703 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0704 0092 070b  |    |		Action	Push_String_Extended,0x70b					; "_COMMENT"
													; Debug Table 0xa.0x7 = 0x704,0x7
0706 e5ff       |    |		Load	0x2,-0x1
0707 e006       |    |		Load	0x0,0x6
0708 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0709 01de       |    |		Execute	Vector,Not_Equal
070a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
070b ; --------------------------------------------------------------------------------------
070b ; STRING TABLE
070b ; --------------------------------------------------------------------------------------
070b 0004       |    |		.STRTAB	0x0004->0x070d							; "_COMMENT"
070c 000a       |    |		.STREND 0x000a->0x0711
070d 5f43 4f4d  |_COM|		.STRTAB_STRINGS
0711 0000 0000  |    |		.BLANK	0000[0x7]
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug Table
0718 ; --------------------------------------------------------------------------------------
0718 0003 000b  |    |		.CONST	0x0003,0x000b
071a 000b 0772  |   r|		.DEBUG	0x000b,0x0772,0x8000,0x0000,0x0033,0xd324,0x0000,0x000f
0722 002c 077e  | , ~|		.DEBUG	0x002c,0x077e,0x8000,0x0000,0x0033,0xdda4,0x0000,0x0011
072a 0413 07ce  |    |		.DEBUG	0x0413,0x07ce,0x0005,0x0000,0x0033,0xd324,0x0000,0x0010
0732 0473 07d0  | s  |		.DEBUG	0x0473,0x07d0,0x0002,0x0000,0x0033,0xd324,0x0000,0x006d
073a 049b 07e0  |    |		.DEBUG	0x049b,0x07e0,0x0002,0x0000,0x0033,0xd324,0x0000,0x0078
0742 04b3 07e8  |    |		.DEBUG	0x04b3,0x07e8,0x0002,0x0000,0x0033,0xd324,0x0000,0x0083
074a 04cb 07f4  |    |		.DEBUG	0x04cb,0x07f4,0x0002,0x0000,0x0033,0xd324,0x0000,0x0090
0752 0673 0874  | s t|		.DEBUG	0x0673,0x0874,0x0005,0x0000,0x0033,0xdda4,0x0000,0x00aa
075a 06bb 0876  |   v|		.DEBUG	0x06bb,0x0876,0x0005,0x0000,0x0033,0xdda4,0x0000,0x0111
0762 06d3 0878  |   x|		.DEBUG	0x06d3,0x0878,0x0002,0x0000,0x0033,0xdda4,0x0000,0x0432
076a 06e3 087c  |   ||		.DEBUG	0x06e3,0x087c,0x0002,0x0000,0x0033,0xdda4,0x0000,0x0453
0772 ; --------------------------------------------------------------------------------------
0772 ; Debug3 Subtable 0x0
0772 ; --------------------------------------------------------------------------------------
0772 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
0774 000b ffff  |    |		.CONST	0x000b,0xffff
0776 0023 fffe  | #  |		.CONST	0x0023,0xfffe
0778 0025 fffd  | %  |		.CONST	0x0025,0xfffd
077a 0027 fffc  | '  |		.CONST	0x0027,0xfffc
077c 0029 fffb  | )  |		.CONST	0x0029,0xfffb
077e ; --------------------------------------------------------------------------------------
077e ; Debug3 Subtable 0x1
077e ; --------------------------------------------------------------------------------------
077e 0027 0000  | '  |		.DBG3TAB	0x0027,0x0000
0780 002c ffff  | ,  |		.CONST	0x002c,0xffff
0782 002d fffe  | -  |		.CONST	0x002d,0xfffe
0784 002e fffd  | .  |		.CONST	0x002e,0xfffd
0786 002f fffc  | /  |		.CONST	0x002f,0xfffc
0788 0030 fffb  | 0  |		.CONST	0x0030,0xfffb
078a 0031 fffa  | 1  |		.CONST	0x0031,0xfffa
078c 0035 fff9  | 5  |		.CONST	0x0035,0xfff9
078e 0036 fff8  | 6  |		.CONST	0x0036,0xfff8
0790 0037 fff7  | 7  |		.CONST	0x0037,0xfff7
0792 0038 fff6  | 8  |		.CONST	0x0038,0xfff6
0794 0039 fff5  | 9  |		.CONST	0x0039,0xfff5
0796 003a fff4  | :  |		.CONST	0x003a,0xfff4
0798 003e fff3  | >  |		.CONST	0x003e,0xfff3
079a 003f fff2  | ?  |		.CONST	0x003f,0xfff2
079c 0040 fff1  | @  |		.CONST	0x0040,0xfff1
079e 0041 fff0  | A  |		.CONST	0x0041,0xfff0
07a0 0042 ffef  | B  |		.CONST	0x0042,0xffef
07a2 0043 ffee  | C  |		.CONST	0x0043,0xffee
07a4 0044 ffed  | D  |		.CONST	0x0044,0xffed
07a6 0045 ffec  | E  |		.CONST	0x0045,0xffec
07a8 0046 ffeb  | F  |		.CONST	0x0046,0xffeb
07aa 0047 ffea  | G  |		.CONST	0x0047,0xffea
07ac 0048 ffe9  | H  |		.CONST	0x0048,0xffe9
07ae 0049 ffe8  | I  |		.CONST	0x0049,0xffe8
07b0 004a ffe7  | J  |		.CONST	0x004a,0xffe7
07b2 004b ffe6  | K  |		.CONST	0x004b,0xffe6
07b4 004c ffe5  | L  |		.CONST	0x004c,0xffe5
07b6 0058 ffe4  | X  |		.CONST	0x0058,0xffe4
07b8 005b ffe3  | [  |		.CONST	0x005b,0xffe3
07ba 0061 ffe2  | a  |		.CONST	0x0061,0xffe2
07bc 0064 ffe1  | d  |		.CONST	0x0064,0xffe1
07be 006a ffe0  | j  |		.CONST	0x006a,0xffe0
07c0 03fe ffdf  |    |		.CONST	0x03fe,0xffdf
07c2 03ff ffde  |    |		.CONST	0x03ff,0xffde
07c4 0401 ffdd  |    |		.CONST	0x0401,0xffdd
07c6 0403 ffdc  |    |		.CONST	0x0403,0xffdc
07c8 0405 ffdb  |    |		.CONST	0x0405,0xffdb
07ca 0407 ffda  |    |		.CONST	0x0407,0xffda
07cc 0409 ffd9  |    |		.CONST	0x0409,0xffd9
07ce ; --------------------------------------------------------------------------------------
07ce ; Debug3 Subtable 0x2
07ce ; --------------------------------------------------------------------------------------
07ce 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
07d0 ; --------------------------------------------------------------------------------------
07d0 ; Debug3 Subtable 0x3
07d0 ; --------------------------------------------------------------------------------------
07d0 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
07d2 0473 ffff  | s  |		.CONST	0x0473,0xffff
07d4 0477 0001  | w  |		.CONST	0x0477,0x0001
07d6 047e 0002  | ~  |		.CONST	0x047e,0x0002
07d8 048a 0006  |    |		.CONST	0x048a,0x0006
07da 048c 0003  |    |		.CONST	0x048c,0x0003
07dc 048e 0004  |    |		.CONST	0x048e,0x0004
07de 0490 0005  |    |		.CONST	0x0490,0x0005
07e0 ; --------------------------------------------------------------------------------------
07e0 ; Debug3 Subtable 0x4
07e0 ; --------------------------------------------------------------------------------------
07e0 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
07e2 049b ffff  |    |		.CONST	0x049b,0xffff
07e4 049f 0001  |    |		.CONST	0x049f,0x0001
07e6 04a6 0002  |    |		.CONST	0x04a6,0x0002
07e8 ; --------------------------------------------------------------------------------------
07e8 ; Debug3 Subtable 0x5
07e8 ; --------------------------------------------------------------------------------------
07e8 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
07ea 04b3 ffff  |    |		.CONST	0x04b3,0xffff
07ec 04b7 0001  |    |		.CONST	0x04b7,0x0001
07ee 04be 0002  |    |		.CONST	0x04be,0x0002
07f0 04c2 0003  |    |		.CONST	0x04c2,0x0003
07f2 04c6 0004  |    |		.CONST	0x04c6,0x0004
07f4 ; --------------------------------------------------------------------------------------
07f4 ; Debug3 Subtable 0x6
07f4 ; --------------------------------------------------------------------------------------
07f4 0001 003e  |   >|		.DBG3TAB	0x0001,0x003e
07f6 04cb ffff  |    |		.CONST	0x04cb,0xffff
07f8 04cf 0001  |    |		.CONST	0x04cf,0x0001
07fa 04d6 0002  |    |		.CONST	0x04d6,0x0002
07fc 04da 0003  |    |		.CONST	0x04da,0x0003
07fe 04ed 0005  |    |		.CONST	0x04ed,0x0005
0800 04f4 0006  |    |		.CONST	0x04f4,0x0006
0802 04fb 0007  |    |		.CONST	0x04fb,0x0007
0804 0509 0008  |    |		.CONST	0x0509,0x0008
0806 0510 0009  |    |		.CONST	0x0510,0x0009
0808 0519 000c  |    |		.CONST	0x0519,0x000c
080a 051c 000d  |    |		.CONST	0x051c,0x000d
080c 0523 000a  | #  |		.CONST	0x0523,0x000a
080e 052a 000b  | *  |		.CONST	0x052a,0x000b
0810 0533 000e  | 3  |		.CONST	0x0533,0x000e
0812 053c 0011  | <  |		.CONST	0x053c,0x0011
0814 053d 000f  | =  |		.CONST	0x053d,0x000f
0816 0544 0010  | D  |		.CONST	0x0544,0x0010
0818 054d 0012  | M  |		.CONST	0x054d,0x0012
081a 0554 0013  | T  |		.CONST	0x0554,0x0013
081c 055b 0014  | [  |		.CONST	0x055b,0x0014
081e 0566 0022  | f "|		.CONST	0x0566,0x0022
0820 0568 0015  | h  |		.CONST	0x0568,0x0015
0822 056f 0016  | o  |		.CONST	0x056f,0x0016
0824 0578 0019  | x  |		.CONST	0x0578,0x0019
0826 057b 001a  | {  |		.CONST	0x057b,0x001a
0828 0582 001b  |    |		.CONST	0x0582,0x001b
082a 0589 0017  |    |		.CONST	0x0589,0x0017
082c 0590 0018  |    |		.CONST	0x0590,0x0018
082e 0597 001c  |    |		.CONST	0x0597,0x001c
0830 05a0 001f  |    |		.CONST	0x05a0,0x001f
0832 05a3 0020  |    |		.CONST	0x05a3,0x0020
0834 05aa 0021  |   !|		.CONST	0x05aa,0x0021
0836 05b1 001d  |    |		.CONST	0x05b1,0x001d
0838 05b8 001e  |    |		.CONST	0x05b8,0x001e
083a 05bf 0023  |   #|		.CONST	0x05bf,0x0023
083c 05c8 002a  |   *|		.CONST	0x05c8,0x002a
083e 05ca 0024  |   $|		.CONST	0x05ca,0x0024
0840 05d1 0025  |   %|		.CONST	0x05d1,0x0025
0842 05d8 0026  |   &|		.CONST	0x05d8,0x0026
0844 05df 0027  |   '|		.CONST	0x05df,0x0027
0846 05e6 0028  |   (|		.CONST	0x05e6,0x0028
0848 05ed 0029  |   )|		.CONST	0x05ed,0x0029
084a 05f4 002b  |   +|		.CONST	0x05f4,0x002b
084c 05ff 002f  |   /|		.CONST	0x05ff,0x002f
084e 0601 002c  |   ,|		.CONST	0x0601,0x002c
0850 0608 002d  |   -|		.CONST	0x0608,0x002d
0852 060f 002e  |   .|		.CONST	0x060f,0x002e
0854 0616 0030  |   0|		.CONST	0x0616,0x0030
0856 061d 0031  |   1|		.CONST	0x061d,0x0031
0858 0624 0032  | $ 2|		.CONST	0x0624,0x0032
085a 062b 0033  | + 3|		.CONST	0x062b,0x0033
085c 0632 0034  | 2 4|		.CONST	0x0632,0x0034
085e 063b 0036  | ; 6|		.CONST	0x063b,0x0036
0860 0642 0035  | B 5|		.CONST	0x0642,0x0035
0862 0649 0037  | I 7|		.CONST	0x0649,0x0037
0864 064c 0038  | L 8|		.CONST	0x064c,0x0038
0866 0653 0039  | S 9|		.CONST	0x0653,0x0039
0868 0656 003a  | V :|		.CONST	0x0656,0x003a
086a 065d 003b  | ] ;|		.CONST	0x065d,0x003b
086c 065f 003c  | _ <|		.CONST	0x065f,0x003c
086e 0662 003d  | b =|		.CONST	0x0662,0x003d
0870 0665 003e  | e >|		.CONST	0x0665,0x003e
0872 0667 003f  | g ?|		.CONST	0x0667,0x003f
0874 ; --------------------------------------------------------------------------------------
0874 ; Debug3 Subtable 0x7
0874 ; --------------------------------------------------------------------------------------
0874 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0876 ; --------------------------------------------------------------------------------------
0876 ; Debug3 Subtable 0x8
0876 ; --------------------------------------------------------------------------------------
0876 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0878 ; --------------------------------------------------------------------------------------
0878 ; Debug3 Subtable 0x9
0878 ; --------------------------------------------------------------------------------------
0878 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
087a 06d3 0001  |    |		.CONST	0x06d3,0x0001
087c ; --------------------------------------------------------------------------------------
087c ; Debug3 Subtable 0xa
087c ; --------------------------------------------------------------------------------------
087c 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
087e 06e3 0001  |    |		.CONST	0x06e3,0x0001
0880 06ef 0008  |    |		.CONST	0x06ef,0x0008
0882 06f1 0002  |    |		.CONST	0x06f1,0x0002
0884 06f3 0003  |    |		.CONST	0x06f3,0x0003
0886 06f5 0004  |    |		.CONST	0x06f5,0x0004
0888 0700 0006  |    |		.CONST	0x0700,0x0006
088a 0702 0005  |    |		.CONST	0x0702,0x0005
088c 0704 0007  |    |		.CONST	0x0704,0x0007
088e 0000 0000  |    |		.BLANK	0000[0x172]