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

⟦8d879a2be⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0658       | X  |		.CONST	0x0658								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0209       |    |		.CONST	0x0209								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0054       | T  |		.CONST	0x0054								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 4818       |H   |		Short_Literal	0x18
000d 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000e e009       |    |		Load	0x0,0x9
000f 0266       | f  |		Execute	Discrete,Bounds
0010 00da       |    |		Load_Top	At_Offset_2
0011 02a0       |    |		Declare_Subprogram	Null_Subprogram
0012 4801       |H   |		Short_Literal	0x1
0013 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0014 00d8       |    |		Load_Top	At_Offset_0
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4818       |H   |		Short_Literal	0x18
0017 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0018 e00a       |    |		Load	0x0,0xa
0019 e00b       |    |		Load	0x0,0xb
001a 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
001c 4802       |H   |		Short_Literal	0x2
001d 032e       | .  |		Declare_Type	Record,Defined,Visible
001e 00d8       |    |		Load_Top	At_Offset_0
001f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0020 4818       |H   |		Short_Literal	0x18
0021 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0022 00d8       |    |		Load_Top	At_Offset_0
0023 0221       | !  |		Execute	Access,Allow_Deallocate
0024 e00a       |    |		Load	0x0,0xa
0025 0266       | f  |		Execute	Discrete,Bounds
0026 00db       |    |		Load_Top	At_Offset_3
0027 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0029 4801       |H   |		Short_Literal	0x1
002a 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002b 00d8       |    |		Load_Top	At_Offset_0
002c 02a0       |    |		Declare_Subprogram	Null_Subprogram
002d 4818       |H   |		Short_Literal	0x18
002e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
002f 00d8       |    |		Load_Top	At_Offset_0
0030 0221       | !  |		Execute	Access,Allow_Deallocate
0031 0007       |    |		Action	Break_Optional
0032 0007       |    |		Action	Break_Optional
0033 0007       |    |		Action	Break_Optional
0034 0007       |    |		Action	Break_Optional
0035 a00c       |    |		Store_Unchecked	0x0,0xc
0036 00c6       |    |		Action	Check_Subprogram_Elaborated
0037 00db       |    |		Load_Top	At_Offset_3
0038 0129       | )  |		Execute	Any,Make_Visible
0039 00db       |    |		Load_Top	At_Offset_3
003a 0129       | )  |		Execute	Any,Make_Visible
003b e00d       |    |		Load	0x0,0xd
003c 0129       | )  |		Execute	Any,Make_Visible
003d e00e       |    |		Load	0x0,0xe
003e 0129       | )  |		Execute	Any,Make_Visible
003f 4800       |H   |		Short_Literal	0x0
0040 0129       | )  |		Execute	Any,Make_Visible
0041 a00c       |    |		Store_Unchecked	0x0,0xc
0042 00c6       |    |		Action	Check_Subprogram_Elaborated
0043 e212       |    |		Load	0x1,0x12
0044 0129       | )  |		Execute	Any,Make_Visible
0045 e213       |    |		Load	0x1,0x13
0046 0129       | )  |		Execute	Any,Make_Visible
0047 e00f       |    |		Load	0x0,0xf
0048 0129       | )  |		Execute	Any,Make_Visible
0049 e010       |    |		Load	0x0,0x10
004a 0129       | )  |		Execute	Any,Make_Visible
004b 4800       |H   |		Short_Literal	0x0
004c 0129       | )  |		Execute	Any,Make_Visible
004d e011       |    |		Load	0x0,0x11
004e 00d8       |    |		Load_Top	At_Offset_0
004f e011       |    |		Load	0x0,0x11
0050 00d8       |    |		Load_Top	At_Offset_0
0051 e011       |    |		Load	0x0,0x11
0052 00d8       |    |		Load_Top	At_Offset_0
0053 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
0055 4806       |H   |		Short_Literal	0x6
0056 032e       | .  |		Declare_Type	Record,Defined,Visible
0057 4800       |H   |		Short_Literal	0x0
0058 4801       |H   |		Short_Literal	0x1
0059 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
005b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
005c 00d8       |    |		Load_Top	At_Offset_0
005d 0266       | f  |		Execute	Discrete,Bounds
005e 00e1       |    |		Load_Encached	Boolean_Cache
005f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0060 4801       |H   |		Short_Literal	0x1
0061 035e       | ^  |		Declare_Type	Array,Defined,Visible
0062 00d8       |    |		Load_Top	At_Offset_0
0063 0336       | 6  |		Declare_Variable	Array,Visible
0064 00d8       |    |		Load_Top	At_Offset_0
0065 0335       | 5  |		Declare_Variable	Array,Duplicate
0066 00cd       |    |		Action	Spare6_Action
0067 4800       |H   |		Short_Literal	0x0
0068 4800       |H   |		Short_Literal	0x0
0069 00da       |    |		Load_Top	At_Offset_2
006a 01d6       |    |		Execute	Vector,Field_Write
006b 4800       |H   |		Short_Literal	0x0
006c 4801       |H   |		Short_Literal	0x1
006d 00da       |    |		Load_Top	At_Offset_2
006e 01d6       |    |		Execute	Vector,Field_Write
006f 00d9       |    |		Load_Top	At_Offset_1
0070 01d4       |    |		Execute	Vector,Structure_Write
0071 4801       |H   |		Short_Literal	0x1
0072 4880       |H   |		Short_Literal	0x80
0073 e012       |    |		Load	0x0,0x12
0074 035c       | \  |		Declare_Type	Array,Constrained,Visible
0075 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call
0077 4801       |H   |		Short_Literal	0x1
0078 032e       | .  |		Declare_Type	Record,Defined,Visible
0079 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
007b 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
007d e013       |    |		Load	0x0,0x13
007e e20d       |    |		Load	0x1,0xd
007f e014       |    |		Load	0x0,0x14
0080 00e1       |    |		Load_Encached	Boolean_Cache
0081 e015       |    |		Load	0x0,0x15
0082 4801       |H   |		Short_Literal	0x1
0083 e016       |    |		Load	0x0,0x16
0084 4801       |H   |		Short_Literal	0x1
0085 e017       |    |		Load	0x0,0x17
0086 4801       |H   |		Short_Literal	0x1
0087 e018       |    |		Load	0x0,0x18
0088 4801       |H   |		Short_Literal	0x1
0089 e019       |    |		Load	0x0,0x19
008a 4801       |H   |		Short_Literal	0x1
008b e01a       |    |		Load	0x0,0x1a
008c 4801       |H   |		Short_Literal	0x1
008d e01b       |    |		Load	0x0,0x1b
008e 4801       |H   |		Short_Literal	0x1
008f e01c       |    |		Load	0x0,0x1c
0090 4801       |H   |		Short_Literal	0x1
0091 e01d       |    |		Load	0x0,0x1d
0092 4801       |H   |		Short_Literal	0x1
0093 e01e       |    |		Load	0x0,0x1e
0094 4801       |H   |		Short_Literal	0x1
0095 e01f       |    |		Load	0x0,0x1f
0096 4801       |H   |		Short_Literal	0x1
0097 e020       |    |		Load	0x0,0x20
0098 4801       |H   |		Short_Literal	0x1
0099 e021       | !  |		Load	0x0,0x21
009a 4801       |H   |		Short_Literal	0x1
009b e022       | "  |		Load	0x0,0x22
009c 4801       |H   |		Short_Literal	0x1
009d e023       | #  |		Load	0x0,0x23
009e 4801       |H   |		Short_Literal	0x1
009f e024       | $  |		Load	0x0,0x24
00a0 4801       |H   |		Short_Literal	0x1
00a1 e025       | %  |		Load	0x0,0x25
00a2 4801       |H   |		Short_Literal	0x1
00a3 e026       | &  |		Load	0x0,0x26
00a4 4801       |H   |		Short_Literal	0x1
00a5 e027       | '  |		Load	0x0,0x27
00a6 4801       |H   |		Short_Literal	0x1
00a7 e028       | (  |		Load	0x0,0x28
00a8 4801       |H   |		Short_Literal	0x1
00a9 e029       | )  |		Load	0x0,0x29
00aa 4801       |H   |		Short_Literal	0x1
00ab e02a       | *  |		Load	0x0,0x2a
00ac 4801       |H   |		Short_Literal	0x1
00ad e02b       | +  |		Load	0x0,0x2b
00ae 4801       |H   |		Short_Literal	0x1
00af e02c       | ,  |		Load	0x0,0x2c
00b0 4801       |H   |		Short_Literal	0x1
00b1 e02d       | -  |		Load	0x0,0x2d
00b2 4801       |H   |		Short_Literal	0x1
00b3 e02e       | .  |		Load	0x0,0x2e
00b4 4801       |H   |		Short_Literal	0x1
00b5 e02f       | /  |		Load	0x0,0x2f
00b6 4801       |H   |		Short_Literal	0x1
00b7 e030       | 0  |		Load	0x0,0x30
00b8 4801       |H   |		Short_Literal	0x1
00b9 e031       | 1  |		Load	0x0,0x31
00ba 4801       |H   |		Short_Literal	0x1
00bb e032       | 2  |		Load	0x0,0x32
00bc 4801       |H   |		Short_Literal	0x1
00bd e033       | 3  |		Load	0x0,0x33
00be 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
00c0 481e       |H   |		Short_Literal	0x1e
00c1 4804       |H   |		Short_Literal	0x4
00c2 481e       |H   |		Short_Literal	0x1e
00c3 4800       |H   |		Short_Literal	0x0
00c4 4801       |H   |		Short_Literal	0x1
00c5 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00c6 4800       |H   |		Short_Literal	0x0
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c9 e20d       |    |		Load	0x1,0xd
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cc 4800       |H   |		Short_Literal	0x0
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00cf 4800       |H   |		Short_Literal	0x0
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00d2 e003       |    |		Load	0x0,0x3
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
00d5 481d       |H   |		Short_Literal	0x1d
00d6 e033       | 3  |		Load	0x0,0x33
00d7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 261f       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1f
00da 4800       |H   |		Short_Literal	0x0
00db 00d9       |    |		Load_Top	At_Offset_1
00dc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00dd 4800       |H   |		Short_Literal	0x0
00de 00d9       |    |		Load_Top	At_Offset_1
00df 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e0 4800       |H   |		Short_Literal	0x0
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e3 e034       | 4  |		Load	0x0,0x34
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00e6 e035       | 5  |		Load	0x0,0x35
00e7 00d0       |    |		Action	Swap_Control
00e8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea 2a23       |*#  |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x23
00eb 0129       | )  |		Execute	Any,Make_Visible
00ec 4800       |H   |		Short_Literal	0x0
00ed 487f       |H   |		Short_Literal	0x7f
00ee e035       | 5  |		Load	0x0,0x35
00ef 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f0 4801       |H   |		Short_Literal	0x1
00f1 035e       | ^  |		Declare_Type	Array,Defined,Visible
00f2 4800       |H   |		Short_Literal	0x0
00f3 487f       |H   |		Short_Literal	0x7f
00f4 e035       | 5  |		Load	0x0,0x35
00f5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f6 4801       |H   |		Short_Literal	0x1
00f7 035e       | ^  |		Declare_Type	Array,Defined,Visible
00f8 4800       |H   |		Short_Literal	0x0
00f9 487f       |H   |		Short_Literal	0x7f
00fa 00e3       |    |		Load_Encached	Natural_Cache
00fb 02a0       |    |		Declare_Subprogram	Null_Subprogram
00fc 4801       |H   |		Short_Literal	0x1
00fd 035e       | ^  |		Declare_Type	Array,Defined,Visible
00fe e036       | 6  |		Load	0x0,0x36
00ff 00e3       |    |		Load_Encached	Natural_Cache
0100 e009       |    |		Load	0x0,0x9
0101 e037       | 7  |		Load	0x0,0x37
0102 e038       | 8  |		Load	0x0,0x38
0103 e039       | 9  |		Load	0x0,0x39
0104 e03a       | :  |		Load	0x0,0x3a
0105 e03b       | ;  |		Load	0x0,0x3b
0106 e03c       | <  |		Load	0x0,0x3c
0107 e03d       | =  |		Load	0x0,0x3d
0108 e034       | 4  |		Load	0x0,0x34
0109 e035       | 5  |		Load	0x0,0x35
010a 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
010c 480c       |H   |		Short_Literal	0xc
010d 032e       | .  |		Declare_Type	Record,Defined,Visible
010e e014       |    |		Load	0x0,0x14
010f e035       | 5  |		Load	0x0,0x35
0110 00e1       |    |		Load_Encached	Boolean_Cache
0111 029f 055b  |   [|		Declare_Subprogram	INIT_0558,For_Call
0113 4803       |H   |		Short_Literal	0x3
0114 032e       | .  |		Declare_Type	Record,Defined,Visible
0115 0007       |    |		Action	Break_Optional
0116 4818       |H   |		Short_Literal	0x18
0117 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0118 00d8       |    |		Load_Top	At_Offset_0
0119 e225       | %  |		Load	0x1,0x25
011a 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
011c 4802       |H   |		Short_Literal	0x2
011d 032e       | .  |		Declare_Type	Record,Defined,Visible
011e 00d8       |    |		Load_Top	At_Offset_0
011f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0120 00db       |    |		Load_Top	At_Offset_3
0121 03c7       |    |		Complete_Type	Access,By_Defining
0122 0007       |    |		Action	Break_Optional
0123 0007       |    |		Action	Break_Optional
0124 a00c       |    |		Store_Unchecked	0x0,0xc
0125 00c6       |    |		Action	Check_Subprogram_Elaborated
0126 00d8       |    |		Load_Top	At_Offset_0
0127 0129       | )  |		Execute	Any,Make_Visible
0128 00da       |    |		Load_Top	At_Offset_2
0129 0129       | )  |		Execute	Any,Make_Visible
012a e03e       | >  |		Load	0x0,0x3e
012b 0129       | )  |		Execute	Any,Make_Visible
012c e03f       | ?  |		Load	0x0,0x3f
012d 0129       | )  |		Execute	Any,Make_Visible
012e 4800       |H   |		Short_Literal	0x0
012f 0129       | )  |		Execute	Any,Make_Visible
0130 e20d       |    |		Load	0x1,0xd
0131 e040       | @  |		Load	0x0,0x40
0132 e015       |    |		Load	0x0,0x15
0133 e041       | A  |		Load	0x0,0x41
0134 00d8       |    |		Load_Top	At_Offset_0
0135 e041       | A  |		Load	0x0,0x41
0136 00d8       |    |		Load_Top	At_Offset_0
0137 e213       |    |		Load	0x1,0x13
0138 e00a       |    |		Load	0x0,0xa
0139 e042       | B  |		Load	0x0,0x42
013a e043       | C  |		Load	0x0,0x43
013b e044       | D  |		Load	0x0,0x44
013c e014       |    |		Load	0x0,0x14
013d 00d8       |    |		Load_Top	At_Offset_0
013e e041       | A  |		Load	0x0,0x41
013f 00d8       |    |		Load_Top	At_Offset_0
0140 e045       | E  |		Load	0x0,0x45
0141 00e1       |    |		Load_Encached	Boolean_Cache
0142 e046       | F  |		Load	0x0,0x46
0143 029f 057b  |   {|		Declare_Subprogram	INIT_0578,For_Call
0145 4813       |H   |		Short_Literal	0x13
0146 032e       | .  |		Declare_Type	Record,Defined,Visible
0147 00d8       |    |		Load_Top	At_Offset_0
0148 02a0       |    |		Declare_Subprogram	Null_Subprogram
0149 4818       |H   |		Short_Literal	0x18
014a 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
014b e00a       |    |		Load	0x0,0xa
014c 0266       | f  |		Execute	Discrete,Bounds
014d 00da       |    |		Load_Top	At_Offset_2
014e 02a0       |    |		Declare_Subprogram	Null_Subprogram
014f 4801       |H   |		Short_Literal	0x1
0150 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0151 00d8       |    |		Load_Top	At_Offset_0
0152 02a0       |    |		Declare_Subprogram	Null_Subprogram
0153 4818       |H   |		Short_Literal	0x18
0154 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0155 0007       |    |		Action	Break_Optional
0156 0007       |    |		Action	Break_Optional
0157 0007       |    |		Action	Break_Optional
0158 0007       |    |		Action	Break_Optional
0159 a00c       |    |		Store_Unchecked	0x0,0xc
015a 00c6       |    |		Action	Check_Subprogram_Elaborated
015b 00db       |    |		Load_Top	At_Offset_3
015c 0129       | )  |		Execute	Any,Make_Visible
015d 00db       |    |		Load_Top	At_Offset_3
015e 0129       | )  |		Execute	Any,Make_Visible
015f e047       | G  |		Load	0x0,0x47
0160 0129       | )  |		Execute	Any,Make_Visible
0161 e048       | H  |		Load	0x0,0x48
0162 0129       | )  |		Execute	Any,Make_Visible
0163 4800       |H   |		Short_Literal	0x0
0164 0129       | )  |		Execute	Any,Make_Visible
0165 a00c       |    |		Store_Unchecked	0x0,0xc
0166 00c6       |    |		Action	Check_Subprogram_Elaborated
0167 e235       | 5  |		Load	0x1,0x35
0168 0129       | )  |		Execute	Any,Make_Visible
0169 e236       | 6  |		Load	0x1,0x36
016a 0129       | )  |		Execute	Any,Make_Visible
016b e049       | I  |		Load	0x0,0x49
016c 0129       | )  |		Execute	Any,Make_Visible
016d e04a       | J  |		Load	0x0,0x4a
016e 0129       | )  |		Execute	Any,Make_Visible
016f 4800       |H   |		Short_Literal	0x0
0170 0129       | )  |		Execute	Any,Make_Visible
0171 e040       | @  |		Load	0x0,0x40
0172 e00a       |    |		Load	0x0,0xa
0173 00d8       |    |		Load_Top	At_Offset_0
0174 e00a       |    |		Load	0x0,0xa
0175 02a0       |    |		Declare_Subprogram	Null_Subprogram
0176 4804       |H   |		Short_Literal	0x4
0177 032e       | .  |		Declare_Type	Record,Defined,Visible
0178 00d8       |    |		Load_Top	At_Offset_0
0179 02a0       |    |		Declare_Subprogram	Null_Subprogram
017a 4818       |H   |		Short_Literal	0x18
017b 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
017c 00d8       |    |		Load_Top	At_Offset_0
017d 0221       | !  |		Execute	Access,Allow_Deallocate
017e e00a       |    |		Load	0x0,0xa
017f 0266       | f  |		Execute	Discrete,Bounds
0180 00da       |    |		Load_Top	At_Offset_2
0181 02a0       |    |		Declare_Subprogram	Null_Subprogram
0182 4801       |H   |		Short_Literal	0x1
0183 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0184 00d8       |    |		Load_Top	At_Offset_0
0185 02a0       |    |		Declare_Subprogram	Null_Subprogram
0186 4818       |H   |		Short_Literal	0x18
0187 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0188 00d8       |    |		Load_Top	At_Offset_0
0189 0221       | !  |		Execute	Access,Allow_Deallocate
018a 0007       |    |		Action	Break_Optional
018b 0007       |    |		Action	Break_Optional
018c 0007       |    |		Action	Break_Optional
018d 0007       |    |		Action	Break_Optional
018e a00c       |    |		Store_Unchecked	0x0,0xc
018f 00c6       |    |		Action	Check_Subprogram_Elaborated
0190 00db       |    |		Load_Top	At_Offset_3
0191 0129       | )  |		Execute	Any,Make_Visible
0192 00db       |    |		Load_Top	At_Offset_3
0193 0129       | )  |		Execute	Any,Make_Visible
0194 e04b       | K  |		Load	0x0,0x4b
0195 0129       | )  |		Execute	Any,Make_Visible
0196 e04c       | L  |		Load	0x0,0x4c
0197 0129       | )  |		Execute	Any,Make_Visible
0198 4800       |H   |		Short_Literal	0x0
0199 0129       | )  |		Execute	Any,Make_Visible
019a a00c       |    |		Store_Unchecked	0x0,0xc
019b 00c6       |    |		Action	Check_Subprogram_Elaborated
019c e243       | C  |		Load	0x1,0x43
019d 0129       | )  |		Execute	Any,Make_Visible
019e e244       | D  |		Load	0x1,0x44
019f 0129       | )  |		Execute	Any,Make_Visible
01a0 e04d       | M  |		Load	0x0,0x4d
01a1 0129       | )  |		Execute	Any,Make_Visible
01a2 e04e       | N  |		Load	0x0,0x4e
01a3 0129       | )  |		Execute	Any,Make_Visible
01a4 4800       |H   |		Short_Literal	0x0
01a5 0129       | )  |		Execute	Any,Make_Visible
01a6 e21e       |    |		Load	0x1,0x1e
01a7 e00a       |    |		Load	0x0,0xa
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 e04f       | O  |		Load	0x0,0x4f
01aa 00d8       |    |		Load_Top	At_Offset_0
01ab e050       | P  |		Load	0x0,0x50
01ac e00a       |    |		Load	0x0,0xa
01ad e014       |    |		Load	0x0,0x14
01ae e244       | D  |		Load	0x1,0x44
01af e041       | A  |		Load	0x0,0x41
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 e22b       | +  |		Load	0x1,0x2b
01b2 e014       |    |		Load	0x0,0x14
01b3 e051       | Q  |		Load	0x0,0x51
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 e051       | Q  |		Load	0x0,0x51
01b6 e014       |    |		Load	0x0,0x14
01b7 e035       | 5  |		Load	0x0,0x35
01b8 e236       | 6  |		Load	0x1,0x36
01b9 e009       |    |		Load	0x0,0x9
01ba e052       | R  |		Load	0x0,0x52
01bb e014       |    |		Load	0x0,0x14
01bc e035       | 5  |		Load	0x0,0x35
01bd 00d8       |    |		Load_Top	At_Offset_0
01be e035       | 5  |		Load	0x0,0x35
01bf e015       |    |		Load	0x0,0x15
01c0 e053       | S  |		Load	0x0,0x53
01c1 e054       | T  |		Load	0x0,0x54
01c2 e014       |    |		Load	0x0,0x14
01c3 e055       | U  |		Load	0x0,0x55
01c4 e00a       |    |		Load	0x0,0xa
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 e056       | V  |		Load	0x0,0x56
01c7 e034       | 4  |		Load	0x0,0x34
01c8 e052       | R  |		Load	0x0,0x52
01c9 e040       | @  |		Load	0x0,0x40
01ca e014       |    |		Load	0x0,0x14
01cb e057       | W  |		Load	0x0,0x57
01cc e22c       | ,  |		Load	0x1,0x2c
01cd 00d8       |    |		Load_Top	At_Offset_0
01ce e014       |    |		Load	0x0,0x14
01cf e22c       | ,  |		Load	0x1,0x2c
01d0 e014       |    |		Load	0x0,0x14
01d1 00d8       |    |		Load_Top	At_Offset_0
01d2 e014       |    |		Load	0x0,0x14
01d3 e22a       | *  |		Load	0x1,0x2a
01d4 e009       |    |		Load	0x0,0x9
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 e009       |    |		Load	0x0,0x9
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 e041       | A  |		Load	0x0,0x41
01d9 e222       | "  |		Load	0x1,0x22
01da 6051       |`Q  |		Indirect_Literal	Discrete,0x22c,{0x00000000, 0x00001000}
01db e058       | X  |		Load	0x0,0x58
01dc 1c07       |    |		Execute_Immediate	Run_Utility,0x7
01dd 0129       | )  |		Execute	Any,Make_Visible
01de 6049       |`I  |		Indirect_Literal	Discrete,0x228,{0x00000000, 0x00004000}
01df e058       | X  |		Load	0x0,0x58
01e0 1c07       |    |		Execute_Immediate	Run_Utility,0x7
01e1 0129       | )  |		Execute	Any,Make_Visible
01e2 e052       | R  |		Load	0x0,0x52
01e3 e059       | Y  |		Load	0x0,0x59
01e4 e05a       | Z  |		Load	0x0,0x5a
01e5 e220       |    |		Load	0x1,0x20
01e6 e035       | 5  |		Load	0x0,0x35
01e7 e228       | (  |		Load	0x1,0x28
01e8 e227       | '  |		Load	0x1,0x27
01e9 e229       | )  |		Load	0x1,0x29
01ea e05b       | [  |		Load	0x0,0x5b
01eb e20d       |    |		Load	0x1,0xd
01ec 029f 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Call
01ee 4840       |H@  |		Short_Literal	0x40
01ef 032e       | .  |		Declare_Type	Record,Defined,Visible
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 02a0       |    |		Declare_Subprogram	Null_Subprogram
01f2 e20d       |    |		Load	0x1,0xd
01f3 03c7       |    |		Complete_Type	Access,By_Defining
01f4 0007       |    |		Action	Break_Optional
01f5 0007       |    |		Action	Break_Optional
01f6 0007       |    |		Action	Break_Optional
01f7 0007       |    |		Action	Break_Optional
01f8 a00c       |    |		Store_Unchecked	0x0,0xc
01f9 00c6       |    |		Action	Check_Subprogram_Elaborated
01fa e20e       |    |		Load	0x1,0xe
01fb 0129       | )  |		Execute	Any,Make_Visible
01fc e20f       |    |		Load	0x1,0xf
01fd 0129       | )  |		Execute	Any,Make_Visible
01fe e05c       | \  |		Load	0x0,0x5c
01ff 0129       | )  |		Execute	Any,Make_Visible
0200 e05d       | ]  |		Load	0x0,0x5d
0201 0129       | )  |		Execute	Any,Make_Visible
0202 4800       |H   |		Short_Literal	0x0
0203 0129       | )  |		Execute	Any,Make_Visible
0204 00bf       |    |		Action	Accept_Activation
0205 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0206 00c7       |    |		Action	Elaborate_Subprogram
0207 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0208 00c7       |    |		Action	Elaborate_Subprogram
0209			BODY_0008:
0209 00bc       |    |		Action	Signal_Activated
020a 00bb       |    |		Action	Signal_Completion
020b 0000 0000  |    |		.BLANK	0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00d1       |    |		Pop_Control	Pop_Count_1
0214 00da       |    |		Load_Top	At_Offset_2
0215 01d8       |    |		Execute	Vector,Element_Type
0216 0322       | "  |		Declare_Variable	Record
0217 00d8       |    |		Load_Top	At_Offset_0
0218 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0219 00db       |    |		Load_Top	At_Offset_3
021a 01dc       |    |		Execute	Vector,Last
021b e5ff       |    |		Load	0x2,-0x1
021c 01dd       |    |		Execute	Vector,First
021d 0263       | c  |		Execute	Discrete,Above_Bound
021e 7006       |p   |		Jump_Nonzero	0x225
021f 00da       |    |		Load_Top	At_Offset_2
0220 00d9       |    |		Load_Top	At_Offset_1
0221 e5ff       |    |		Load	0x2,-0x1
0222 01d6       |    |		Execute	Vector,Field_Write
0223 0a01       |    |		Execute_Immediate	Plus,0x1
0224 7ff8       |    |		Jump	0x21d
0225 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0226 0000 0000  |    |		.XXX[0x2]
0228 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
022c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001000}
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4607       |F   |		Jump_Case	0x8
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0235 7807       |x   |		Jump	0x23d								; case 0x1
0236 780a       |x   |		Jump	0x241								; case 0x2
0237 780e       |x   |		Jump	0x246								; case 0x3
0238 7811       |x   |		Jump	0x24a								; case 0x4
0239 7812       |x   |		Jump	0x24c								; case 0x5
023a 7813       |x   |		Jump	0x24e								; case 0x6
023b 7816       |x   |		Jump	0x252								; case 0x7
023c 4302       |C   |		.XXX[0x1]
023d 00da       |    |		Load_Top	At_Offset_2
023e 0091 063a  |   :|		Action	Push_String_Extended_Indexed,0x63a				; "XLIB_DISPLAY_IO_ERROR"
0240 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0241 00db       |    |		Load_Top	At_Offset_3
0242 00db       |    |		Load_Top	At_Offset_3
0243 00e0       |    |		Load_Encached	Standard_Cache
0244 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0245 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0246 00da       |    |		Load_Top	At_Offset_2
0247 00e0       |    |		Load_Encached	Standard_Cache
0248 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0249 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
024a 00db       |    |		Load_Top	At_Offset_3
024b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024c 00db       |    |		Load_Top	At_Offset_3
024d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024e e21f       |    |		Load	0x1,0x1f
024f 00dc       |    |		Load_Top	At_Offset_4
0250 0267       | g  |		Execute	Discrete,Predecessor
0251 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0252 e21f       |    |		Load	0x1,0x1f
0253 00dc       |    |		Load_Top	At_Offset_4
0254 0268       | h  |		Execute	Discrete,Successor
0255 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 01db       |    |		Execute	Vector,Length
025d 0c81       |    |		Execute_Immediate	Greater_Equal,-0x7f
025e 680c       |h   |		Jump_Zero	0x26b
025f 00da       |    |		Load_Top	At_Offset_2
0260 01dd       |    |		Execute	Vector,First
0261 00db       |    |		Load_Top	At_Offset_3
0262 01dd       |    |		Execute	Vector,First
0263 4880       |H   |		Short_Literal	0x80
0264 0273       | s  |		Execute	Discrete,Plus
0265 0aff       |    |		Execute_Immediate	Plus,-0x1
0266 e5ff       |    |		Load	0x2,-0x1
0267 01cf       |    |		Execute	Vector,Slice_Read
0268 e5fe       |    |		Load	0x2,-0x2
0269 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
026a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
026b 00da       |    |		Load_Top	At_Offset_2
026c 01da       |    |		Execute	Vector,Bounds
026d e5ff       |    |		Load	0x2,-0x1
026e 01cf       |    |		Execute	Vector,Slice_Read
026f 4801       |H   |		Short_Literal	0x1
0270 e5ff       |    |		Load	0x2,-0x1
0271 01db       |    |		Execute	Vector,Length
0272 e5fe       |    |		Load	0x2,-0x2
0273 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0274 01ce       |    |		Execute	Vector,Slice_Write
0275 00db       |    |		Load_Top	At_Offset_3
0276 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0277 00db       |    |		Load_Top	At_Offset_3
0278 01db       |    |		Execute	Vector,Length
0279 0a01       |    |		Execute_Immediate	Plus,0x1
027a 4880       |H   |		Short_Literal	0x80
027b 00d9       |    |		Load_Top	At_Offset_1
027c 00d9       |    |		Load_Top	At_Offset_1
027d e402       |    |		Load	0x2,0x2
027e 035b       | [  |		Declare_Type	Array,Constrained
027f 00db       |    |		Load_Top	At_Offset_3
0280 01cd       |    |		Execute	Vector,Slice_Reference
0281 00d8       |    |		Load_Top	At_Offset_0
0282 0335       | 5  |		Declare_Variable	Array,Duplicate
0283 00cd       |    |		Action	Spare6_Action
0284 00d9       |    |		Load_Top	At_Offset_1
0285 01d9       |    |		Execute	Vector,Reverse_Bounds
0286 0263       | c  |		Execute	Discrete,Above_Bound
0287 7005       |p   |		Jump_Nonzero	0x28d
0288 4800       |H   |		Short_Literal	0x0
0289 00d9       |    |		Load_Top	At_Offset_1
028a e406       |    |		Load	0x2,0x6
028b 01d6       |    |		Execute	Vector,Field_Write
028c 3ffb       |?   |		Loop_Increasing	0x288
028d 00cd       |    |		Action	Spare6_Action
028e 00da       |    |		Load_Top	At_Offset_2
028f 00da       |    |		Load_Top	At_Offset_2
0290 e402       |    |		Load	0x2,0x2
0291 01ce       |    |		Execute	Vector,Slice_Write
0292 00d3       |    |		Pop_Control	Pop_Count_3
0293 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00cf       |    |		Action	Mark_Auxiliary
029c 00db       |    |		Load_Top	At_Offset_3
029d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
029e 01d9       |    |		Execute	Vector,Reverse_Bounds
029f 0007       |    |		Action	Break_Optional
02a0 00d8       |    |		Load_Top	At_Offset_0
02a1 e5ff       |    |		Load	0x2,-0x1
02a2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a3 01d7       |    |		Execute	Vector,Field_Read
02a4 7009       |p   |		Jump_Nonzero	0x2ae
02a5 4801       |H   |		Short_Literal	0x1
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 0aff       |    |		Execute_Immediate	Plus,-0x1
02a8 e5ff       |    |		Load	0x2,-0x1
02a9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02aa 01cf       |    |		Execute	Vector,Slice_Read
02ab 0335       | 5  |		Declare_Variable	Array,Duplicate
02ac 00cd       |    |		Action	Spare6_Action
02ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ae 00c8       |    |		Action	Pop_Auxiliary_Range
02af 3ff0       |?   |		Loop_Increasing	0x2a0
02b0 00ce       |    |		Action	Pop_Auxiliary
02b1 00da       |    |		Load_Top	At_Offset_2
02b2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02b3 0335       | 5  |		Declare_Variable	Array,Duplicate
02b4 00cd       |    |		Action	Spare6_Action
02b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b6 0000 0000  |    |		.XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 4601       |F   |		Jump_Case	0x2
02bc 7801       |x   |		Jump	0x2be								; case 0x0
02bd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02be 4800       |H   |		Short_Literal	0x0
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4601       |F   |		Jump_Case	0x2
02cc 7801       |x   |		Jump	0x2ce								; case 0x0
02cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02ce e002       |    |		Load	0x0,0x2
02cf 00db       |    |		Load_Top	At_Offset_3
02d0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d1 e002       |    |		Load	0x0,0x2
02d2 00db       |    |		Load_Top	At_Offset_3
02d3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d4 e002       |    |		Load	0x0,0x2
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02d7 e002       |    |		Load	0x0,0x2
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02da e002       |    |		Load	0x0,0x2
02db 00db       |    |		Load_Top	At_Offset_3
02dc 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02dd e002       |    |		Load	0x0,0x2
02de 00db       |    |		Load_Top	At_Offset_3
02df 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e1 0000 0000  |    |		.BLANK	0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 4601       |F   |		Jump_Case	0x2
02ec 7801       |x   |		Jump	0x2ee								; case 0x0
02ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02ee e222       | "  |		Load	0x1,0x22
02ef 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02f0 0337       | 7  |		Declare_Variable	Array
02f1 4880       |H   |		Short_Literal	0x80
02f2 4801       |H   |		Short_Literal	0x1
02f3 4800       |H   |		Short_Literal	0x0
02f4 00d9       |    |		Load_Top	At_Offset_1
02f5 e402       |    |		Load	0x2,0x2
02f6 01d6       |    |		Execute	Vector,Field_Write
02f7 3ffb       |?   |		Loop_Increasing	0x2f3
02f8 00db       |    |		Load_Top	At_Offset_3
02f9 00d9       |    |		Load_Top	At_Offset_1
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02fc 0119       |    |		Execute	Any,Check_In_Formal_Type
02fd 00d1       |    |		Pop_Control	Pop_Count_1
02fe 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ff 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 7806       |x   |		Jump	0x30a
0304 00a7 0545  |   E|		Action	Jump_Extended,0x545
0306 00a7 053a  |   :|		Action	Jump_Extended,0x53a
0308 00a7 0541  |   A|		Action	Jump_Extended,0x541
030a 4609       |F   |		Jump_Case	0xa
030b 7809       |x   |		Jump	0x315								; case 0x0
030c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
030d 78a3       |x   |		Jump	0x3b1								; case 0x2
030e 78a6       |x   |		Jump	0x3b5								; case 0x3
030f 7ff4       |    |		Jump	0x304								; case 0x4
0310 7ff3       |    |		Jump	0x304								; case 0x5
0311 78a9       |x   |		Jump	0x3bb								; case 0x6
0312 7966       |yf  |		Jump	0x479								; case 0x7
0313 7ff2       |    |		Jump	0x306								; case 0x8
0314 7ff3       |    |		Jump	0x308								; case 0x9
0315 00da       |    |		Load_Top	At_Offset_2
0316 016c       | l  |		Execute	Variant_Record,Is_Constrained
0317 7009       |p   |		Jump_Nonzero	0x321
0318 00cf       |    |		Action	Mark_Auxiliary
0319 4800       |H   |		Short_Literal	0x0
031a e5ff       |    |		Load	0x2,-0x1
031b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
031c 00d8       |    |		Load_Top	At_Offset_0
031d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
031e c5ff       |    |		Store	0x2,-0x1
031f 00ce       |    |		Action	Pop_Auxiliary
0320 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0321 4800       |H   |		Short_Literal	0x0
0322 00db       |    |		Load_Top	At_Offset_3
0323 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0324 4800       |H   |		Short_Literal	0x0
0325 00db       |    |		Load_Top	At_Offset_3
0326 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0327 e003       |    |		Load	0x0,0x3
0328 00db       |    |		Load_Top	At_Offset_3
0329 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
032a 00da       |    |		Load_Top	At_Offset_2
032b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
032c 467f       |F   |		Jump_Case	0x80
032d 787f       |x   |		Jump	0x3ad								; case 0x0
032e 787e       |x~  |		Jump	0x3ad								; case 0x1
032f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0330 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0331 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0332 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0333 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0334 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0335 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0336 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
0337 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xa
0338 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xb
0339 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xc
033a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xd
033b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xe
033c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xf
033d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x10
033e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x11
033f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x12
0340 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x13
0341 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x14
0342 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x15
0343 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x16
0344 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x17
0345 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x18
0346 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x19
0347 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1a
0348 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1b
0349 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1c
034a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1d
034b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1e
034c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1f
034d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x20
034e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x21
034f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x22
0350 785c       |x\  |		Jump	0x3ad								; case 0x23
0351 785b       |x[  |		Jump	0x3ad								; case 0x24
0352 785a       |xZ  |		Jump	0x3ad								; case 0x25
0353 7859       |xY  |		Jump	0x3ad								; case 0x26
0354 7858       |xX  |		Jump	0x3ad								; case 0x27
0355 7857       |xW  |		Jump	0x3ad								; case 0x28
0356 7856       |xV  |		Jump	0x3ad								; case 0x29
0357 7855       |xU  |		Jump	0x3ad								; case 0x2a
0358 7854       |xT  |		Jump	0x3ad								; case 0x2b
0359 7853       |xS  |		Jump	0x3ad								; case 0x2c
035a 7852       |xR  |		Jump	0x3ad								; case 0x2d
035b 7851       |xQ  |		Jump	0x3ad								; case 0x2e
035c 7850       |xP  |		Jump	0x3ad								; case 0x2f
035d 784f       |xO  |		Jump	0x3ad								; case 0x30
035e 784e       |xN  |		Jump	0x3ad								; case 0x31
035f 784d       |xM  |		Jump	0x3ad								; case 0x32
0360 784c       |xL  |		Jump	0x3ad								; case 0x33
0361 784b       |xK  |		Jump	0x3ad								; case 0x34
0362 784a       |xJ  |		Jump	0x3ad								; case 0x35
0363 7849       |xI  |		Jump	0x3ad								; case 0x36
0364 7848       |xH  |		Jump	0x3ad								; case 0x37
0365 7847       |xG  |		Jump	0x3ad								; case 0x38
0366 7846       |xF  |		Jump	0x3ad								; case 0x39
0367 7845       |xE  |		Jump	0x3ad								; case 0x3a
0368 7844       |xD  |		Jump	0x3ad								; case 0x3b
0369 7843       |xC  |		Jump	0x3ad								; case 0x3c
036a 7842       |xB  |		Jump	0x3ad								; case 0x3d
036b 7841       |xA  |		Jump	0x3ad								; case 0x3e
036c 7840       |x@  |		Jump	0x3ad								; case 0x3f
036d 783f       |x?  |		Jump	0x3ad								; case 0x40
036e 783e       |x>  |		Jump	0x3ad								; case 0x41
036f 783d       |x=  |		Jump	0x3ad								; case 0x42
0370 783c       |x<  |		Jump	0x3ad								; case 0x43
0371 783b       |x;  |		Jump	0x3ad								; case 0x44
0372 783a       |x:  |		Jump	0x3ad								; case 0x45
0373 7839       |x9  |		Jump	0x3ad								; case 0x46
0374 7838       |x8  |		Jump	0x3ad								; case 0x47
0375 7837       |x7  |		Jump	0x3ad								; case 0x48
0376 7836       |x6  |		Jump	0x3ad								; case 0x49
0377 7835       |x5  |		Jump	0x3ad								; case 0x4a
0378 7834       |x4  |		Jump	0x3ad								; case 0x4b
0379 7833       |x3  |		Jump	0x3ad								; case 0x4c
037a 7832       |x2  |		Jump	0x3ad								; case 0x4d
037b 7831       |x1  |		Jump	0x3ad								; case 0x4e
037c 7830       |x0  |		Jump	0x3ad								; case 0x4f
037d 782f       |x/  |		Jump	0x3ad								; case 0x50
037e 782e       |x.  |		Jump	0x3ad								; case 0x51
037f 782d       |x-  |		Jump	0x3ad								; case 0x52
0380 782c       |x,  |		Jump	0x3ad								; case 0x53
0381 782b       |x+  |		Jump	0x3ad								; case 0x54
0382 782a       |x*  |		Jump	0x3ad								; case 0x55
0383 7829       |x)  |		Jump	0x3ad								; case 0x56
0384 7828       |x(  |		Jump	0x3ad								; case 0x57
0385 7827       |x'  |		Jump	0x3ad								; case 0x58
0386 7826       |x&  |		Jump	0x3ad								; case 0x59
0387 7825       |x%  |		Jump	0x3ad								; case 0x5a
0388 7824       |x$  |		Jump	0x3ad								; case 0x5b
0389 7823       |x#  |		Jump	0x3ad								; case 0x5c
038a 7822       |x"  |		Jump	0x3ad								; case 0x5d
038b 7821       |x!  |		Jump	0x3ad								; case 0x5e
038c 7820       |x   |		Jump	0x3ad								; case 0x5f
038d 781f       |x   |		Jump	0x3ad								; case 0x60
038e 781e       |x   |		Jump	0x3ad								; case 0x61
038f 781d       |x   |		Jump	0x3ad								; case 0x62
0390 781c       |x   |		Jump	0x3ad								; case 0x63
0391 781b       |x   |		Jump	0x3ad								; case 0x64
0392 781a       |x   |		Jump	0x3ad								; case 0x65
0393 7819       |x   |		Jump	0x3ad								; case 0x66
0394 7818       |x   |		Jump	0x3ad								; case 0x67
0395 7817       |x   |		Jump	0x3ad								; case 0x68
0396 7816       |x   |		Jump	0x3ad								; case 0x69
0397 7815       |x   |		Jump	0x3ad								; case 0x6a
0398 7814       |x   |		Jump	0x3ad								; case 0x6b
0399 7813       |x   |		Jump	0x3ad								; case 0x6c
039a 7812       |x   |		Jump	0x3ad								; case 0x6d
039b 7811       |x   |		Jump	0x3ad								; case 0x6e
039c 7810       |x   |		Jump	0x3ad								; case 0x6f
039d 780f       |x   |		Jump	0x3ad								; case 0x70
039e 780e       |x   |		Jump	0x3ad								; case 0x71
039f 780d       |x   |		Jump	0x3ad								; case 0x72
03a0 780c       |x   |		Jump	0x3ad								; case 0x73
03a1 780b       |x   |		Jump	0x3ad								; case 0x74
03a2 780a       |x   |		Jump	0x3ad								; case 0x75
03a3 7809       |x   |		Jump	0x3ad								; case 0x76
03a4 7808       |x   |		Jump	0x3ad								; case 0x77
03a5 7807       |x   |		Jump	0x3ad								; case 0x78
03a6 7806       |x   |		Jump	0x3ad								; case 0x79
03a7 7805       |x   |		Jump	0x3ad								; case 0x7a
03a8 7804       |x   |		Jump	0x3ad								; case 0x7b
03a9 7803       |x   |		Jump	0x3ad								; case 0x7c
03aa 7802       |x   |		Jump	0x3ad								; case 0x7d
03ab 7801       |x   |		Jump	0x3ad								; case 0x7e
03ac 7800       |x   |		Jump	0x3ad								; case 0x7f
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 2623       |&#  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23
03af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03b1 4801       |H   |		Short_Literal	0x1
03b2 4823       |H#  |		Short_Literal	0x23
03b3 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
03b4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b5 e5fd       |    |		Load	0x2,-0x3
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 1c07       |    |		Execute_Immediate	Run_Utility,0x7
03b8 e5fe       |    |		Load	0x2,-0x2
03b9 0306       |    |		Complete_Type	Variant_Record,By_Renaming
03ba 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
03bb 00db       |    |		Load_Top	At_Offset_3
03bc 467f       |F   |		Jump_Case	0x80
03bd 787f       |x   |		Jump	0x43d								; case 0x0
03be 787e       |x~  |		Jump	0x43d								; case 0x1
03bf 787f       |x   |		Jump	0x43f								; case 0x2
03c0 787e       |x~  |		Jump	0x43f								; case 0x3
03c1 787f       |x   |		Jump	0x441								; case 0x4
03c2 787e       |x~  |		Jump	0x441								; case 0x5
03c3 787f       |x   |		Jump	0x443								; case 0x6
03c4 7880       |x   |		Jump	0x445								; case 0x7
03c5 787f       |x   |		Jump	0x445								; case 0x8
03c6 7880       |x   |		Jump	0x447								; case 0x9
03c7 787f       |x   |		Jump	0x447								; case 0xa
03c8 7880       |x   |		Jump	0x449								; case 0xb
03c9 7881       |x   |		Jump	0x44b								; case 0xc
03ca 7882       |x   |		Jump	0x44d								; case 0xd
03cb 7883       |x   |		Jump	0x44f								; case 0xe
03cc 7884       |x   |		Jump	0x451								; case 0xf
03cd 7885       |x   |		Jump	0x453								; case 0x10
03ce 7886       |x   |		Jump	0x455								; case 0x11
03cf 7887       |x   |		Jump	0x457								; case 0x12
03d0 7888       |x   |		Jump	0x459								; case 0x13
03d1 7889       |x   |		Jump	0x45b								; case 0x14
03d2 788a       |x   |		Jump	0x45d								; case 0x15
03d3 788b       |x   |		Jump	0x45f								; case 0x16
03d4 788c       |x   |		Jump	0x461								; case 0x17
03d5 788d       |x   |		Jump	0x463								; case 0x18
03d6 788e       |x   |		Jump	0x465								; case 0x19
03d7 788f       |x   |		Jump	0x467								; case 0x1a
03d8 7890       |x   |		Jump	0x469								; case 0x1b
03d9 7891       |x   |		Jump	0x46b								; case 0x1c
03da 7892       |x   |		Jump	0x46d								; case 0x1d
03db 7895       |x   |		Jump	0x471								; case 0x1e
03dc 7892       |x   |		Jump	0x46f								; case 0x1f
03dd 7895       |x   |		Jump	0x473								; case 0x20
03de 7896       |x   |		Jump	0x475								; case 0x21
03df 7897       |x   |		Jump	0x477								; case 0x22
03e0 785c       |x\  |		Jump	0x43d								; case 0x23
03e1 785b       |x[  |		Jump	0x43d								; case 0x24
03e2 785a       |xZ  |		Jump	0x43d								; case 0x25
03e3 7859       |xY  |		Jump	0x43d								; case 0x26
03e4 7858       |xX  |		Jump	0x43d								; case 0x27
03e5 7857       |xW  |		Jump	0x43d								; case 0x28
03e6 7856       |xV  |		Jump	0x43d								; case 0x29
03e7 7855       |xU  |		Jump	0x43d								; case 0x2a
03e8 7854       |xT  |		Jump	0x43d								; case 0x2b
03e9 7853       |xS  |		Jump	0x43d								; case 0x2c
03ea 7852       |xR  |		Jump	0x43d								; case 0x2d
03eb 7851       |xQ  |		Jump	0x43d								; case 0x2e
03ec 7850       |xP  |		Jump	0x43d								; case 0x2f
03ed 784f       |xO  |		Jump	0x43d								; case 0x30
03ee 784e       |xN  |		Jump	0x43d								; case 0x31
03ef 784d       |xM  |		Jump	0x43d								; case 0x32
03f0 784c       |xL  |		Jump	0x43d								; case 0x33
03f1 784b       |xK  |		Jump	0x43d								; case 0x34
03f2 784a       |xJ  |		Jump	0x43d								; case 0x35
03f3 7849       |xI  |		Jump	0x43d								; case 0x36
03f4 7848       |xH  |		Jump	0x43d								; case 0x37
03f5 7847       |xG  |		Jump	0x43d								; case 0x38
03f6 7846       |xF  |		Jump	0x43d								; case 0x39
03f7 7845       |xE  |		Jump	0x43d								; case 0x3a
03f8 7844       |xD  |		Jump	0x43d								; case 0x3b
03f9 7843       |xC  |		Jump	0x43d								; case 0x3c
03fa 7842       |xB  |		Jump	0x43d								; case 0x3d
03fb 7841       |xA  |		Jump	0x43d								; case 0x3e
03fc 7840       |x@  |		Jump	0x43d								; case 0x3f
03fd 783f       |x?  |		Jump	0x43d								; case 0x40
03fe 783e       |x>  |		Jump	0x43d								; case 0x41
03ff 783d       |x=  |		Jump	0x43d								; case 0x42
0400 783c       |x<  |		Jump	0x43d								; case 0x43
0401 783b       |x;  |		Jump	0x43d								; case 0x44
0402 783a       |x:  |		Jump	0x43d								; case 0x45
0403 7839       |x9  |		Jump	0x43d								; case 0x46
0404 7838       |x8  |		Jump	0x43d								; case 0x47
0405 7837       |x7  |		Jump	0x43d								; case 0x48
0406 7836       |x6  |		Jump	0x43d								; case 0x49
0407 7835       |x5  |		Jump	0x43d								; case 0x4a
0408 7834       |x4  |		Jump	0x43d								; case 0x4b
0409 7833       |x3  |		Jump	0x43d								; case 0x4c
040a 7832       |x2  |		Jump	0x43d								; case 0x4d
040b 7831       |x1  |		Jump	0x43d								; case 0x4e
040c 7830       |x0  |		Jump	0x43d								; case 0x4f
040d 782f       |x/  |		Jump	0x43d								; case 0x50
040e 782e       |x.  |		Jump	0x43d								; case 0x51
040f 782d       |x-  |		Jump	0x43d								; case 0x52
0410 782c       |x,  |		Jump	0x43d								; case 0x53
0411 782b       |x+  |		Jump	0x43d								; case 0x54
0412 782a       |x*  |		Jump	0x43d								; case 0x55
0413 7829       |x)  |		Jump	0x43d								; case 0x56
0414 7828       |x(  |		Jump	0x43d								; case 0x57
0415 7827       |x'  |		Jump	0x43d								; case 0x58
0416 7826       |x&  |		Jump	0x43d								; case 0x59
0417 7825       |x%  |		Jump	0x43d								; case 0x5a
0418 7824       |x$  |		Jump	0x43d								; case 0x5b
0419 7823       |x#  |		Jump	0x43d								; case 0x5c
041a 7822       |x"  |		Jump	0x43d								; case 0x5d
041b 7821       |x!  |		Jump	0x43d								; case 0x5e
041c 7820       |x   |		Jump	0x43d								; case 0x5f
041d 781f       |x   |		Jump	0x43d								; case 0x60
041e 781e       |x   |		Jump	0x43d								; case 0x61
041f 781d       |x   |		Jump	0x43d								; case 0x62
0420 781c       |x   |		Jump	0x43d								; case 0x63
0421 781b       |x   |		Jump	0x43d								; case 0x64
0422 781a       |x   |		Jump	0x43d								; case 0x65
0423 7819       |x   |		Jump	0x43d								; case 0x66
0424 7818       |x   |		Jump	0x43d								; case 0x67
0425 7817       |x   |		Jump	0x43d								; case 0x68
0426 7816       |x   |		Jump	0x43d								; case 0x69
0427 7815       |x   |		Jump	0x43d								; case 0x6a
0428 7814       |x   |		Jump	0x43d								; case 0x6b
0429 7813       |x   |		Jump	0x43d								; case 0x6c
042a 7812       |x   |		Jump	0x43d								; case 0x6d
042b 7811       |x   |		Jump	0x43d								; case 0x6e
042c 7810       |x   |		Jump	0x43d								; case 0x6f
042d 780f       |x   |		Jump	0x43d								; case 0x70
042e 780e       |x   |		Jump	0x43d								; case 0x71
042f 780d       |x   |		Jump	0x43d								; case 0x72
0430 780c       |x   |		Jump	0x43d								; case 0x73
0431 780b       |x   |		Jump	0x43d								; case 0x74
0432 780a       |x   |		Jump	0x43d								; case 0x75
0433 7809       |x   |		Jump	0x43d								; case 0x76
0434 7808       |x   |		Jump	0x43d								; case 0x77
0435 7807       |x   |		Jump	0x43d								; case 0x78
0436 7806       |x   |		Jump	0x43d								; case 0x79
0437 7805       |x   |		Jump	0x43d								; case 0x7a
0438 7804       |x   |		Jump	0x43d								; case 0x7b
0439 7803       |x   |		Jump	0x43d								; case 0x7c
043a 7802       |x   |		Jump	0x43d								; case 0x7d
043b 7801       |x   |		Jump	0x43d								; case 0x7e
043c 7800       |x   |		Jump	0x43d								; case 0x7f
043d 481e       |H   |		Short_Literal	0x1e
043e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043f 4801       |H   |		Short_Literal	0x1
0440 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0441 4802       |H   |		Short_Literal	0x2
0442 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0443 4803       |H   |		Short_Literal	0x3
0444 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0445 4804       |H   |		Short_Literal	0x4
0446 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0447 4805       |H   |		Short_Literal	0x5
0448 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0449 4806       |H   |		Short_Literal	0x6
044a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044b 4807       |H   |		Short_Literal	0x7
044c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044d 4808       |H   |		Short_Literal	0x8
044e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044f 4809       |H   |		Short_Literal	0x9
0450 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0451 480a       |H   |		Short_Literal	0xa
0452 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0453 480b       |H   |		Short_Literal	0xb
0454 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0455 480c       |H   |		Short_Literal	0xc
0456 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0457 480d       |H   |		Short_Literal	0xd
0458 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0459 480e       |H   |		Short_Literal	0xe
045a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045b 480f       |H   |		Short_Literal	0xf
045c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045d 4810       |H   |		Short_Literal	0x10
045e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045f 4811       |H   |		Short_Literal	0x11
0460 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0461 4812       |H   |		Short_Literal	0x12
0462 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0463 4813       |H   |		Short_Literal	0x13
0464 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0465 4814       |H   |		Short_Literal	0x14
0466 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0467 4815       |H   |		Short_Literal	0x15
0468 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0469 4816       |H   |		Short_Literal	0x16
046a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046b 4817       |H   |		Short_Literal	0x17
046c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046d 4818       |H   |		Short_Literal	0x18
046e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046f 4819       |H   |		Short_Literal	0x19
0470 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0471 481a       |H   |		Short_Literal	0x1a
0472 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0473 481b       |H   |		Short_Literal	0x1b
0474 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0475 481c       |H   |		Short_Literal	0x1c
0476 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0477 481d       |H   |		Short_Literal	0x1d
0478 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0479 00db       |    |		Load_Top	At_Offset_3
047a e5fe       |    |		Load	0x2,-0x2
047b 467f       |F   |		Jump_Case	0x80
047c 787f       |x   |		Jump	0x4fc								; case 0x0
047d 787e       |x~  |		Jump	0x4fc								; case 0x1
047e 787f       |x   |		Jump	0x4fe								; case 0x2
047f 787e       |x~  |		Jump	0x4fe								; case 0x3
0480 787f       |x   |		Jump	0x500								; case 0x4
0481 787e       |x~  |		Jump	0x500								; case 0x5
0482 787f       |x   |		Jump	0x502								; case 0x6
0483 7880       |x   |		Jump	0x504								; case 0x7
0484 787f       |x   |		Jump	0x504								; case 0x8
0485 7880       |x   |		Jump	0x506								; case 0x9
0486 787f       |x   |		Jump	0x506								; case 0xa
0487 7880       |x   |		Jump	0x508								; case 0xb
0488 7881       |x   |		Jump	0x50a								; case 0xc
0489 7882       |x   |		Jump	0x50c								; case 0xd
048a 7883       |x   |		Jump	0x50e								; case 0xe
048b 7884       |x   |		Jump	0x510								; case 0xf
048c 7885       |x   |		Jump	0x512								; case 0x10
048d 7886       |x   |		Jump	0x514								; case 0x11
048e 7887       |x   |		Jump	0x516								; case 0x12
048f 7888       |x   |		Jump	0x518								; case 0x13
0490 7889       |x   |		Jump	0x51a								; case 0x14
0491 788a       |x   |		Jump	0x51c								; case 0x15
0492 788b       |x   |		Jump	0x51e								; case 0x16
0493 788c       |x   |		Jump	0x520								; case 0x17
0494 788d       |x   |		Jump	0x522								; case 0x18
0495 788e       |x   |		Jump	0x524								; case 0x19
0496 788f       |x   |		Jump	0x526								; case 0x1a
0497 7890       |x   |		Jump	0x528								; case 0x1b
0498 7891       |x   |		Jump	0x52a								; case 0x1c
0499 7892       |x   |		Jump	0x52c								; case 0x1d
049a 7895       |x   |		Jump	0x530								; case 0x1e
049b 7892       |x   |		Jump	0x52e								; case 0x1f
049c 7895       |x   |		Jump	0x532								; case 0x20
049d 7896       |x   |		Jump	0x534								; case 0x21
049e 7897       |x   |		Jump	0x536								; case 0x22
049f 785c       |x\  |		Jump	0x4fc								; case 0x23
04a0 785b       |x[  |		Jump	0x4fc								; case 0x24
04a1 785a       |xZ  |		Jump	0x4fc								; case 0x25
04a2 7859       |xY  |		Jump	0x4fc								; case 0x26
04a3 7858       |xX  |		Jump	0x4fc								; case 0x27
04a4 7857       |xW  |		Jump	0x4fc								; case 0x28
04a5 7856       |xV  |		Jump	0x4fc								; case 0x29
04a6 7855       |xU  |		Jump	0x4fc								; case 0x2a
04a7 7854       |xT  |		Jump	0x4fc								; case 0x2b
04a8 7853       |xS  |		Jump	0x4fc								; case 0x2c
04a9 7852       |xR  |		Jump	0x4fc								; case 0x2d
04aa 7851       |xQ  |		Jump	0x4fc								; case 0x2e
04ab 7850       |xP  |		Jump	0x4fc								; case 0x2f
04ac 784f       |xO  |		Jump	0x4fc								; case 0x30
04ad 784e       |xN  |		Jump	0x4fc								; case 0x31
04ae 784d       |xM  |		Jump	0x4fc								; case 0x32
04af 784c       |xL  |		Jump	0x4fc								; case 0x33
04b0 784b       |xK  |		Jump	0x4fc								; case 0x34
04b1 784a       |xJ  |		Jump	0x4fc								; case 0x35
04b2 7849       |xI  |		Jump	0x4fc								; case 0x36
04b3 7848       |xH  |		Jump	0x4fc								; case 0x37
04b4 7847       |xG  |		Jump	0x4fc								; case 0x38
04b5 7846       |xF  |		Jump	0x4fc								; case 0x39
04b6 7845       |xE  |		Jump	0x4fc								; case 0x3a
04b7 7844       |xD  |		Jump	0x4fc								; case 0x3b
04b8 7843       |xC  |		Jump	0x4fc								; case 0x3c
04b9 7842       |xB  |		Jump	0x4fc								; case 0x3d
04ba 7841       |xA  |		Jump	0x4fc								; case 0x3e
04bb 7840       |x@  |		Jump	0x4fc								; case 0x3f
04bc 783f       |x?  |		Jump	0x4fc								; case 0x40
04bd 783e       |x>  |		Jump	0x4fc								; case 0x41
04be 783d       |x=  |		Jump	0x4fc								; case 0x42
04bf 783c       |x<  |		Jump	0x4fc								; case 0x43
04c0 783b       |x;  |		Jump	0x4fc								; case 0x44
04c1 783a       |x:  |		Jump	0x4fc								; case 0x45
04c2 7839       |x9  |		Jump	0x4fc								; case 0x46
04c3 7838       |x8  |		Jump	0x4fc								; case 0x47
04c4 7837       |x7  |		Jump	0x4fc								; case 0x48
04c5 7836       |x6  |		Jump	0x4fc								; case 0x49
04c6 7835       |x5  |		Jump	0x4fc								; case 0x4a
04c7 7834       |x4  |		Jump	0x4fc								; case 0x4b
04c8 7833       |x3  |		Jump	0x4fc								; case 0x4c
04c9 7832       |x2  |		Jump	0x4fc								; case 0x4d
04ca 7831       |x1  |		Jump	0x4fc								; case 0x4e
04cb 7830       |x0  |		Jump	0x4fc								; case 0x4f
04cc 782f       |x/  |		Jump	0x4fc								; case 0x50
04cd 782e       |x.  |		Jump	0x4fc								; case 0x51
04ce 782d       |x-  |		Jump	0x4fc								; case 0x52
04cf 782c       |x,  |		Jump	0x4fc								; case 0x53
04d0 782b       |x+  |		Jump	0x4fc								; case 0x54
04d1 782a       |x*  |		Jump	0x4fc								; case 0x55
04d2 7829       |x)  |		Jump	0x4fc								; case 0x56
04d3 7828       |x(  |		Jump	0x4fc								; case 0x57
04d4 7827       |x'  |		Jump	0x4fc								; case 0x58
04d5 7826       |x&  |		Jump	0x4fc								; case 0x59
04d6 7825       |x%  |		Jump	0x4fc								; case 0x5a
04d7 7824       |x$  |		Jump	0x4fc								; case 0x5b
04d8 7823       |x#  |		Jump	0x4fc								; case 0x5c
04d9 7822       |x"  |		Jump	0x4fc								; case 0x5d
04da 7821       |x!  |		Jump	0x4fc								; case 0x5e
04db 7820       |x   |		Jump	0x4fc								; case 0x5f
04dc 781f       |x   |		Jump	0x4fc								; case 0x60
04dd 781e       |x   |		Jump	0x4fc								; case 0x61
04de 781d       |x   |		Jump	0x4fc								; case 0x62
04df 781c       |x   |		Jump	0x4fc								; case 0x63
04e0 781b       |x   |		Jump	0x4fc								; case 0x64
04e1 781a       |x   |		Jump	0x4fc								; case 0x65
04e2 7819       |x   |		Jump	0x4fc								; case 0x66
04e3 7818       |x   |		Jump	0x4fc								; case 0x67
04e4 7817       |x   |		Jump	0x4fc								; case 0x68
04e5 7816       |x   |		Jump	0x4fc								; case 0x69
04e6 7815       |x   |		Jump	0x4fc								; case 0x6a
04e7 7814       |x   |		Jump	0x4fc								; case 0x6b
04e8 7813       |x   |		Jump	0x4fc								; case 0x6c
04e9 7812       |x   |		Jump	0x4fc								; case 0x6d
04ea 7811       |x   |		Jump	0x4fc								; case 0x6e
04eb 7810       |x   |		Jump	0x4fc								; case 0x6f
04ec 780f       |x   |		Jump	0x4fc								; case 0x70
04ed 780e       |x   |		Jump	0x4fc								; case 0x71
04ee 780d       |x   |		Jump	0x4fc								; case 0x72
04ef 780c       |x   |		Jump	0x4fc								; case 0x73
04f0 780b       |x   |		Jump	0x4fc								; case 0x74
04f1 780a       |x   |		Jump	0x4fc								; case 0x75
04f2 7809       |x   |		Jump	0x4fc								; case 0x76
04f3 7808       |x   |		Jump	0x4fc								; case 0x77
04f4 7807       |x   |		Jump	0x4fc								; case 0x78
04f5 7806       |x   |		Jump	0x4fc								; case 0x79
04f6 7805       |x   |		Jump	0x4fc								; case 0x7a
04f7 7804       |x   |		Jump	0x4fc								; case 0x7b
04f8 7803       |x   |		Jump	0x4fc								; case 0x7c
04f9 7802       |x   |		Jump	0x4fc								; case 0x7d
04fa 7801       |x   |		Jump	0x4fc								; case 0x7e
04fb 7800       |x   |		Jump	0x4fc								; case 0x7f
04fc 481e       |H   |		Short_Literal	0x1e
04fd 7839       |x9  |		Jump	0x537
04fe 4801       |H   |		Short_Literal	0x1
04ff 7837       |x7  |		Jump	0x537
0500 4802       |H   |		Short_Literal	0x2
0501 7835       |x5  |		Jump	0x537
0502 4803       |H   |		Short_Literal	0x3
0503 7833       |x3  |		Jump	0x537
0504 4804       |H   |		Short_Literal	0x4
0505 7831       |x1  |		Jump	0x537
0506 4805       |H   |		Short_Literal	0x5
0507 782f       |x/  |		Jump	0x537
0508 4806       |H   |		Short_Literal	0x6
0509 782d       |x-  |		Jump	0x537
050a 4807       |H   |		Short_Literal	0x7
050b 782b       |x+  |		Jump	0x537
050c 4808       |H   |		Short_Literal	0x8
050d 7829       |x)  |		Jump	0x537
050e 4809       |H   |		Short_Literal	0x9
050f 7827       |x'  |		Jump	0x537
0510 480a       |H   |		Short_Literal	0xa
0511 7825       |x%  |		Jump	0x537
0512 480b       |H   |		Short_Literal	0xb
0513 7823       |x#  |		Jump	0x537
0514 480c       |H   |		Short_Literal	0xc
0515 7821       |x!  |		Jump	0x537
0516 480d       |H   |		Short_Literal	0xd
0517 781f       |x   |		Jump	0x537
0518 480e       |H   |		Short_Literal	0xe
0519 781d       |x   |		Jump	0x537
051a 480f       |H   |		Short_Literal	0xf
051b 781b       |x   |		Jump	0x537
051c 4810       |H   |		Short_Literal	0x10
051d 7819       |x   |		Jump	0x537
051e 4811       |H   |		Short_Literal	0x11
051f 7817       |x   |		Jump	0x537
0520 4812       |H   |		Short_Literal	0x12
0521 7815       |x   |		Jump	0x537
0522 4813       |H   |		Short_Literal	0x13
0523 7813       |x   |		Jump	0x537
0524 4814       |H   |		Short_Literal	0x14
0525 7811       |x   |		Jump	0x537
0526 4815       |H   |		Short_Literal	0x15
0527 780f       |x   |		Jump	0x537
0528 4816       |H   |		Short_Literal	0x16
0529 780d       |x   |		Jump	0x537
052a 4817       |H   |		Short_Literal	0x17
052b 780b       |x   |		Jump	0x537
052c 4818       |H   |		Short_Literal	0x18
052d 7809       |x   |		Jump	0x537
052e 4819       |H   |		Short_Literal	0x19
052f 7807       |x   |		Jump	0x537
0530 481a       |H   |		Short_Literal	0x1a
0531 7805       |x   |		Jump	0x537
0532 481b       |H   |		Short_Literal	0x1b
0533 7803       |x   |		Jump	0x537
0534 481c       |H   |		Short_Literal	0x1c
0535 7801       |x   |		Jump	0x537
0536 481d       |H   |		Short_Literal	0x1d
0537 e5ff       |    |		Load	0x2,-0x1
0538 031b       |    |		Declare_Type	Variant_Record,Constrained
0539 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
053a 00db       |    |		Load_Top	At_Offset_3
053b e5fe       |    |		Load	0x2,-0x2
053c e5ff       |    |		Load	0x2,-0x1
053d 1c06       |    |		Execute_Immediate	Run_Utility,0x6
053e e5ff       |    |		Load	0x2,-0x1
053f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0540 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0541 4800       |H   |		Short_Literal	0x0
0542 00db       |    |		Load_Top	At_Offset_3
0543 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0544 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0545 0869       | i  |		Execute_Immediate	Raise,0x69
0546 0000 0000  |    |		.XXX[0x2]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 4601       |F   |		Jump_Case	0x2
054c 7801       |x   |		Jump	0x54e								; case 0x0
054d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
054e 4800       |H   |		Short_Literal	0x0
054f 00db       |    |		Load_Top	At_Offset_3
0550 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0551 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0552 0000 0000  |    |		.BLANK	0000[0x6]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 4601       |F   |		Jump_Case	0x2
055c 7801       |x   |		Jump	0x55e								; case 0x0
055d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
055e 4800       |H   |		Short_Literal	0x0
055f 00db       |    |		Load_Top	At_Offset_3
0560 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0561 4800       |H   |		Short_Literal	0x0
0562 00db       |    |		Load_Top	At_Offset_3
0563 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0564 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0565 0000 0000  |    |		.XXX[0x3]
0567 0000       |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 4601       |F   |		Jump_Case	0x2
056c 7801       |x   |		Jump	0x56e								; case 0x0
056d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
056e 00da       |    |		Load_Top	At_Offset_2
056f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0570 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0571 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0572 0000 0000  |    |		.BLANK	0000[0x6]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b 4601       |F   |		Jump_Case	0x2
057c 7801       |x   |		Jump	0x57e								; case 0x0
057d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
057e e003       |    |		Load	0x0,0x3
057f 00db       |    |		Load_Top	At_Offset_3
0580 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0581 4800       |H   |		Short_Literal	0x0
0582 00db       |    |		Load_Top	At_Offset_3
0583 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0584 4800       |H   |		Short_Literal	0x0
0585 00db       |    |		Load_Top	At_Offset_3
0586 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0587 4800       |H   |		Short_Literal	0x0
0588 00db       |    |		Load_Top	At_Offset_3
0589 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
058a 4800       |H   |		Short_Literal	0x0
058b 00db       |    |		Load_Top	At_Offset_3
058c 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
058d 4800       |H   |		Short_Literal	0x0
058e 00db       |    |		Load_Top	At_Offset_3
058f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0590 e004       |    |		Load	0x0,0x4
0591 00db       |    |		Load_Top	At_Offset_3
0592 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0593 4800       |H   |		Short_Literal	0x0
0594 00db       |    |		Load_Top	At_Offset_3
0595 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0596 4800       |H   |		Short_Literal	0x0
0597 00db       |    |		Load_Top	At_Offset_3
0598 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0599 4800       |H   |		Short_Literal	0x0
059a 00db       |    |		Load_Top	At_Offset_3
059b 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
059c 4800       |H   |		Short_Literal	0x0
059d 00db       |    |		Load_Top	At_Offset_3
059e 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
059f 4800       |H   |		Short_Literal	0x0
05a0 00db       |    |		Load_Top	At_Offset_3
05a1 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
05a2 4800       |H   |		Short_Literal	0x0
05a3 00db       |    |		Load_Top	At_Offset_3
05a4 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
05a5 e005       |    |		Load	0x0,0x5
05a6 00db       |    |		Load_Top	At_Offset_3
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 00d9       |    |		Load_Top	At_Offset_1
05a9 3012       |0   |		Execute	Record,Field_Type,Field_Number 0x12
05aa 0119       |    |		Execute	Any,Check_In_Formal_Type
05ab 00d1       |    |		Pop_Control	Pop_Count_1
05ac 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
05ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05ae 0000 0000  |    |		.XXX[0x2]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 4601       |F   |		Jump_Case	0x2
05b4 7801       |x   |		Jump	0x5b6								; case 0x0
05b5 787d       |x}  |		Jump	0x633								; case 0x1
05b6 00da       |    |		Load_Top	At_Offset_2
05b7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b9 4800       |H   |		Short_Literal	0x0
05ba 00db       |    |		Load_Top	At_Offset_3
05bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05bc 4800       |H   |		Short_Literal	0x0
05bd 00db       |    |		Load_Top	At_Offset_3
05be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05bf 4800       |H   |		Short_Literal	0x0
05c0 00db       |    |		Load_Top	At_Offset_3
05c1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05c2 4800       |H   |		Short_Literal	0x0
05c3 00db       |    |		Load_Top	At_Offset_3
05c4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05c5 e006       |    |		Load	0x0,0x6
05c6 00db       |    |		Load_Top	At_Offset_3
05c7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
05c8 4800       |H   |		Short_Literal	0x0
05c9 00db       |    |		Load_Top	At_Offset_3
05ca 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
05cb 4800       |H   |		Short_Literal	0x0
05cc 00db       |    |		Load_Top	At_Offset_3
05cd 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
05ce 4800       |H   |		Short_Literal	0x0
05cf 00db       |    |		Load_Top	At_Offset_3
05d0 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
05d1 4800       |H   |		Short_Literal	0x0
05d2 00db       |    |		Load_Top	At_Offset_3
05d3 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
05d4 00da       |    |		Load_Top	At_Offset_2
05d5 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
05d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d7 4800       |H   |		Short_Literal	0x0
05d8 00db       |    |		Load_Top	At_Offset_3
05d9 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
05da e007       |    |		Load	0x0,0x7
05db 00db       |    |		Load_Top	At_Offset_3
05dc 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
05dd e007       |    |		Load	0x0,0x7
05de 00db       |    |		Load_Top	At_Offset_3
05df 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
05e0 e007       |    |		Load	0x0,0x7
05e1 00db       |    |		Load_Top	At_Offset_3
05e2 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
05e3 4800       |H   |		Short_Literal	0x0
05e4 00db       |    |		Load_Top	At_Offset_3
05e5 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
05e6 4800       |H   |		Short_Literal	0x0
05e7 00db       |    |		Load_Top	At_Offset_3
05e8 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
05e9 4800       |H   |		Short_Literal	0x0
05ea 00db       |    |		Load_Top	At_Offset_3
05eb 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
05ec e003       |    |		Load	0x0,0x3
05ed 00db       |    |		Load_Top	At_Offset_3
05ee 3819       |8   |		Execute	Record,Field_Write,Field_Number 0x19
05ef 4800       |H   |		Short_Literal	0x0
05f0 00db       |    |		Load_Top	At_Offset_3
05f1 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
05f2 e008       |    |		Load	0x0,0x8
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 00d9       |    |		Load_Top	At_Offset_1
05f5 00d9       |    |		Load_Top	At_Offset_1
05f6 301d       |0   |		Execute	Record,Field_Type,Field_Number 0x1d
05f7 0119       |    |		Execute	Any,Check_In_Formal_Type
05f8 00d1       |    |		Pop_Control	Pop_Count_1
05f9 381d       |8   |		Execute	Record,Field_Write,Field_Number 0x1d
05fa 4800       |H   |		Short_Literal	0x0
05fb 00db       |    |		Load_Top	At_Offset_3
05fc 381e       |8   |		Execute	Record,Field_Write,Field_Number 0x1e
05fd 4800       |H   |		Short_Literal	0x0
05fe 00db       |    |		Load_Top	At_Offset_3
05ff 381f       |8   |		Execute	Record,Field_Write,Field_Number 0x1f
0600 4800       |H   |		Short_Literal	0x0
0601 00db       |    |		Load_Top	At_Offset_3
0602 3824       |8$  |		Execute	Record,Field_Write,Field_Number 0x24
0603 4800       |H   |		Short_Literal	0x0
0604 00db       |    |		Load_Top	At_Offset_3
0605 3828       |8(  |		Execute	Record,Field_Write,Field_Number 0x28
0606 4800       |H   |		Short_Literal	0x0
0607 00db       |    |		Load_Top	At_Offset_3
0608 382a       |8*  |		Execute	Record,Field_Write,Field_Number 0x2a
0609 4800       |H   |		Short_Literal	0x0
060a 00db       |    |		Load_Top	At_Offset_3
060b 382b       |8+  |		Execute	Record,Field_Write,Field_Number 0x2b
060c 4800       |H   |		Short_Literal	0x0
060d 00db       |    |		Load_Top	At_Offset_3
060e 382c       |8,  |		Execute	Record,Field_Write,Field_Number 0x2c
060f 00da       |    |		Load_Top	At_Offset_2
0610 342d       |4-  |		Execute	Record,Field_Reference,Field_Number 0x2d
0611 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0612 4800       |H   |		Short_Literal	0x0
0613 00db       |    |		Load_Top	At_Offset_3
0614 3832       |82  |		Execute	Record,Field_Write,Field_Number 0x32
0615 00da       |    |		Load_Top	At_Offset_2
0616 3433       |43  |		Execute	Record,Field_Reference,Field_Number 0x33
0617 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0618 00da       |    |		Load_Top	At_Offset_2
0619 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
061a 0125       | %  |		Execute	Any,Set_Constraint
061b 00da       |    |		Load_Top	At_Offset_2
061c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
061d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
061e 00da       |    |		Load_Top	At_Offset_2
061f 3435       |45  |		Execute	Record,Field_Reference,Field_Number 0x35
0620 0125       | %  |		Execute	Any,Set_Constraint
0621 00da       |    |		Load_Top	At_Offset_2
0622 3435       |45  |		Execute	Record,Field_Reference,Field_Number 0x35
0623 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0624 00da       |    |		Load_Top	At_Offset_2
0625 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0626 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0627 e221       | !  |		Load	0x1,0x21
0628 00db       |    |		Load_Top	At_Offset_3
0629 00d9       |    |		Load_Top	At_Offset_1
062a 00d9       |    |		Load_Top	At_Offset_1
062b 3039       |09  |		Execute	Record,Field_Type,Field_Number 0x39
062c 0119       |    |		Execute	Any,Check_In_Formal_Type
062d 00d1       |    |		Pop_Control	Pop_Count_1
062e 3839       |89  |		Execute	Record,Field_Write,Field_Number 0x39
062f 4800       |H   |		Short_Literal	0x0
0630 00db       |    |		Load_Top	At_Offset_3
0631 383e       |8>  |		Execute	Record,Field_Write,Field_Number 0x3e
0632 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0633 00da       |    |		Load_Top	At_Offset_2
0634 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0635 0125       | %  |		Execute	Any,Set_Constraint
0636 00da       |    |		Load_Top	At_Offset_2
0637 3435       |45  |		Execute	Record,Field_Reference,Field_Number 0x35
0638 0125       | %  |		Execute	Any,Set_Constraint
0639 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
063a ; --------------------------------------------------------------------------------------
063a ; STRING TABLE
063a ; --------------------------------------------------------------------------------------
063a 0006       |    |		.STRTAB	0x0006->0x063d							; "XLIB_DISPLAY_IO_ERROR"
063b 0019       |    |		.STRTAB	0x0019->0x0647							; "XLIB_DISPLAY_CLOSING"
063c 002b       | +  |		.STREND 0x002b->0x0651
063d 584c 4942  |XLIB|		.STRTAB_STRINGS
0652 0000 0000  |    |		.BLANK	0000[0x6]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x689a,0x0000,0x0001,0x000f
065e 000b 069a  |    |		.DBG4T	0x000b,0x069a,0x8000,0x0000
0662 0205 06d8  |    |		.DBG4T	0x0205,0x06d8,0x8000,0x0000
0666 0213 0000  |    |		.DBG4T	0x0213,0x0000,0x0005,0x0000
066a 0233 0000  | 3  |		.DBG4T	0x0233,0x0000,0x0005,0x0000
066e 025b 06dc  | [  |		.DBG4T	0x025b,0x06dc,0x0001,0x0000
0672 029b 06e2  |    |		.DBG4T	0x029b,0x06e2,0x0002,0x0000
0676 02bb 0000  |    |		.DBG4T	0x02bb,0x0000,0x0005,0x0000
067a 02cb 0000  |    |		.DBG4T	0x02cb,0x0000,0x0005,0x0000
067e 02eb 0000  |    |		.DBG4T	0x02eb,0x0000,0x0005,0x0000
0682 0303 0000  |    |		.DBG4T	0x0303,0x0000,0x0005,0x0000
0686 054b 0000  | K  |		.DBG4T	0x054b,0x0000,0x0005,0x0000
068a 055b 0000  | [  |		.DBG4T	0x055b,0x0000,0x0005,0x0000
068e 056b 0000  | k  |		.DBG4T	0x056b,0x0000,0x0005,0x0000
0692 057b 0000  | {  |		.DBG4T	0x057b,0x0000,0x0005,0x0000
0696 05b3 0000  |    |		.DBG4T	0x05b3,0x0000,0x0005,0x0000
069a ; --------------------------------------------------------------------------------------
069a ; Debug chain
069a ; --------------------------------------------------------------------------------------
069a 003c 0000  | <  |		.DBGLEN	0x003c,0x0000
069c 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000e,0x0014,0x0018,0x001e,0x0024,0x002b,0x0031,0x0032,0x0033,0x0034,0x0035,0x0041,0x004d,0x0057,0x005c,0x0062,0x0071,0x0079,0x007b,0x007d,0x00c6,0x00ec,0x00f2,0x00f8,0x00fe,0x010e,0x0115,0x0116,0x0118,0x0122,0x0123,0x0124,0x0130,0x0147,0x014b,0x0151,0x0155,0x0156,0x0157,0x0158,0x0159,0x0165,0x0171,0x0178,0x017e,0x0184,0x018a,0x018b,0x018c,0x018d,0x018e,0x019a,0x01a6,0x01f4,0x01f5,0x01f6,0x01f7,0x01f8
06d8 ; --------------------------------------------------------------------------------------
06d8 ; Debug chain
06d8 ; --------------------------------------------------------------------------------------
06d8 0002 0000  |    |		.DBGLEN	0x0002,0x0000
06da 0205 0207  |    |		.DBGLNO	0x0205,0x0207
06dc ; --------------------------------------------------------------------------------------
06dc ; Debug chain
06dc ; --------------------------------------------------------------------------------------
06dc 0000 0004  |    |		.DBGLEN	0x0000,0x0004
06de 025b 025f  | [ _|		.DBGLNO	0x025b,0x025f,0x026b,0x0275
06e2 ; --------------------------------------------------------------------------------------
06e2 ; Debug chain
06e2 ; --------------------------------------------------------------------------------------
06e2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
06e4 029c 02a0  |    |		.DBGLNO	0x029c,0x02a0,0x02a5,0x02b1
06e8 0000 0000  |    |		.BLANK	0000[0x118]