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

⟦bbed9790c⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 0ac8       |    |		.CONST	0x0ac8								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01f9       |    |		.CONST	0x01f9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003b       | ;  |		.CONST	0x003b								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
000e 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0010 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0012 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0014 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0016 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0018 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
001a 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
001c 480f       |H   |		Short_Literal	0xf
001d 032a       | *  |		Declare_Type	Record,Incomplete
001e 00d8       |    |		Load_Top	At_Offset_0
001f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0020 e216       |    |		Load	0x1,0x16
0021 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0022 00bf       |    |		Action	Accept_Activation
0023 4800       |H   |		Short_Literal	0x0
0024 4807       |H   |		Short_Literal	0x7
0025 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0027 03fd       |    |		Declare_Type	Discrete,Defined
0028 4800       |H   |		Short_Literal	0x0
0029 4803       |H   |		Short_Literal	0x3
002a 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
002c 03fd       |    |		Declare_Type	Discrete,Defined
002d 4800       |H   |		Short_Literal	0x0
002e 480c       |H   |		Short_Literal	0xc
002f 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
0031 03fd       |    |		Declare_Type	Discrete,Defined
0032 00d8       |    |		Load_Top	At_Offset_0
0033 00da       |    |		Load_Top	At_Offset_2
0034 02a0       |    |		Declare_Subprogram	Null_Subprogram
0035 4802       |H   |		Short_Literal	0x2
0036 032d       | -  |		Declare_Type	Record,Defined
0037 00db       |    |		Load_Top	At_Offset_3
0038 0266       | f  |		Execute	Discrete,Bounds
0039 00da       |    |		Load_Top	At_Offset_2
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b 4801       |H   |		Short_Literal	0x1
003c 035d       | ]  |		Declare_Type	Array,Defined
003d 00db       |    |		Load_Top	At_Offset_3
003e 0266       | f  |		Execute	Discrete,Bounds
003f 00da       |    |		Load_Top	At_Offset_2
0040 02a0       |    |		Declare_Subprogram	Null_Subprogram
0041 4801       |H   |		Short_Literal	0x1
0042 035d       | ]  |		Declare_Type	Array,Defined
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0337       | 7  |		Declare_Variable	Array
0045 00d8       |    |		Load_Top	At_Offset_0
0046 0335       | 5  |		Declare_Variable	Array,Duplicate
0047 00cd       |    |		Action	Spare6_Action
0048 00db       |    |		Load_Top	At_Offset_3
0049 0337       | 7  |		Declare_Variable	Array
004a e223       | #  |		Load	0x1,0x23
004b 0322       | "  |		Declare_Variable	Record
004c 4801       |H   |		Short_Literal	0x1
004d 00d9       |    |		Load_Top	At_Offset_1
004e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
004f 4803       |H   |		Short_Literal	0x3
0050 00d9       |    |		Load_Top	At_Offset_1
0051 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0052 4800       |H   |		Short_Literal	0x0
0053 00da       |    |		Load_Top	At_Offset_2
0054 01d6       |    |		Execute	Vector,Field_Write
0055 e223       | #  |		Load	0x1,0x23
0056 0322       | "  |		Declare_Variable	Record
0057 4801       |H   |		Short_Literal	0x1
0058 00d9       |    |		Load_Top	At_Offset_1
0059 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
005a 4803       |H   |		Short_Literal	0x3
005b 00d9       |    |		Load_Top	At_Offset_1
005c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005d 4801       |H   |		Short_Literal	0x1
005e 00da       |    |		Load_Top	At_Offset_2
005f 01d6       |    |		Execute	Vector,Field_Write
0060 e223       | #  |		Load	0x1,0x23
0061 0322       | "  |		Declare_Variable	Record
0062 4800       |H   |		Short_Literal	0x0
0063 00d9       |    |		Load_Top	At_Offset_1
0064 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0065 4800       |H   |		Short_Literal	0x0
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0068 4802       |H   |		Short_Literal	0x2
0069 00da       |    |		Load_Top	At_Offset_2
006a 01d6       |    |		Execute	Vector,Field_Write
006b e223       | #  |		Load	0x1,0x23
006c 0322       | "  |		Declare_Variable	Record
006d 4802       |H   |		Short_Literal	0x2
006e 00d9       |    |		Load_Top	At_Offset_1
006f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0070 4801       |H   |		Short_Literal	0x1
0071 00d9       |    |		Load_Top	At_Offset_1
0072 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0073 4803       |H   |		Short_Literal	0x3
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 e223       | #  |		Load	0x1,0x23
0077 0322       | "  |		Declare_Variable	Record
0078 4803       |H   |		Short_Literal	0x3
0079 00d9       |    |		Load_Top	At_Offset_1
007a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007b 4802       |H   |		Short_Literal	0x2
007c 00d9       |    |		Load_Top	At_Offset_1
007d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007e 4804       |H   |		Short_Literal	0x4
007f 00da       |    |		Load_Top	At_Offset_2
0080 01d6       |    |		Execute	Vector,Field_Write
0081 e223       | #  |		Load	0x1,0x23
0082 0322       | "  |		Declare_Variable	Record
0083 4809       |H   |		Short_Literal	0x9
0084 00d9       |    |		Load_Top	At_Offset_1
0085 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0086 4800       |H   |		Short_Literal	0x0
0087 00d9       |    |		Load_Top	At_Offset_1
0088 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0089 4805       |H   |		Short_Literal	0x5
008a 00da       |    |		Load_Top	At_Offset_2
008b 01d6       |    |		Execute	Vector,Field_Write
008c e223       | #  |		Load	0x1,0x23
008d 0322       | "  |		Declare_Variable	Record
008e 480c       |H   |		Short_Literal	0xc
008f 00d9       |    |		Load_Top	At_Offset_1
0090 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0091 4800       |H   |		Short_Literal	0x0
0092 00d9       |    |		Load_Top	At_Offset_1
0093 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0094 4806       |H   |		Short_Literal	0x6
0095 00da       |    |		Load_Top	At_Offset_2
0096 01d6       |    |		Execute	Vector,Field_Write
0097 e223       | #  |		Load	0x1,0x23
0098 0322       | "  |		Declare_Variable	Record
0099 4800       |H   |		Short_Literal	0x0
009a 00d9       |    |		Load_Top	At_Offset_1
009b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009c 4800       |H   |		Short_Literal	0x0
009d 00d9       |    |		Load_Top	At_Offset_1
009e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009f 4807       |H   |		Short_Literal	0x7
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 e224       | $  |		Load	0x1,0x24
00a3 01c3       |    |		Execute	Vector,Check_In_Type
00a4 e224       | $  |		Load	0x1,0x24
00a5 0119       |    |		Execute	Any,Check_In_Formal_Type
00a6 4800       |H   |		Short_Literal	0x0
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 01d6       |    |		Execute	Vector,Field_Write
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 0337       | 7  |		Declare_Variable	Array
00ab e223       | #  |		Load	0x1,0x23
00ac 0322       | "  |		Declare_Variable	Record
00ad 4800       |H   |		Short_Literal	0x0
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 4801       |H   |		Short_Literal	0x1
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b3 4807       |H   |		Short_Literal	0x7
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 e223       | #  |		Load	0x1,0x23
00b7 0322       | "  |		Declare_Variable	Record
00b8 4805       |H   |		Short_Literal	0x5
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bb 4800       |H   |		Short_Literal	0x0
00bc 00d9       |    |		Load_Top	At_Offset_1
00bd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00be 4805       |H   |		Short_Literal	0x5
00bf 00da       |    |		Load_Top	At_Offset_2
00c0 01d6       |    |		Execute	Vector,Field_Write
00c1 4804       |H   |		Short_Literal	0x4
00c2 4800       |H   |		Short_Literal	0x0
00c3 e223       | #  |		Load	0x1,0x23
00c4 0322       | "  |		Declare_Variable	Record
00c5 4807       |H   |		Short_Literal	0x7
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c8 4800       |H   |		Short_Literal	0x0
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc e228       | (  |		Load	0x1,0x28
00cd 01d6       |    |		Execute	Vector,Field_Write
00ce 3ff4       |?   |		Loop_Increasing	0xc3
00cf 4806       |H   |		Short_Literal	0x6
00d0 4806       |H   |		Short_Literal	0x6
00d1 e223       | #  |		Load	0x1,0x23
00d2 0322       | "  |		Declare_Variable	Record
00d3 4807       |H   |		Short_Literal	0x7
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d6 4800       |H   |		Short_Literal	0x0
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d9 00d9       |    |		Load_Top	At_Offset_1
00da e228       | (  |		Load	0x1,0x28
00db 01d6       |    |		Execute	Vector,Field_Write
00dc 3ff4       |?   |		Loop_Increasing	0xd1
00dd e224       | $  |		Load	0x1,0x24
00de 01c3       |    |		Execute	Vector,Check_In_Type
00df e224       | $  |		Load	0x1,0x24
00e0 0119       |    |		Execute	Any,Check_In_Formal_Type
00e1 4801       |H   |		Short_Literal	0x1
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 01d6       |    |		Execute	Vector,Field_Write
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 0337       | 7  |		Declare_Variable	Array
00e6 e223       | #  |		Load	0x1,0x23
00e7 0322       | "  |		Declare_Variable	Record
00e8 480b       |H   |		Short_Literal	0xb
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00eb 4802       |H   |		Short_Literal	0x2
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00ee 4807       |H   |		Short_Literal	0x7
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 e223       | #  |		Load	0x1,0x23
00f2 0322       | "  |		Declare_Variable	Record
00f3 4806       |H   |		Short_Literal	0x6
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f6 4800       |H   |		Short_Literal	0x0
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f9 4805       |H   |		Short_Literal	0x5
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 4804       |H   |		Short_Literal	0x4
00fd 4800       |H   |		Short_Literal	0x0
00fe e223       | #  |		Load	0x1,0x23
00ff 0322       | "  |		Declare_Variable	Record
0100 4808       |H   |		Short_Literal	0x8
0101 00d9       |    |		Load_Top	At_Offset_1
0102 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0103 4800       |H   |		Short_Literal	0x0
0104 00d9       |    |		Load_Top	At_Offset_1
0105 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0106 00d9       |    |		Load_Top	At_Offset_1
0107 e228       | (  |		Load	0x1,0x28
0108 01d6       |    |		Execute	Vector,Field_Write
0109 3ff4       |?   |		Loop_Increasing	0xfe
010a 4806       |H   |		Short_Literal	0x6
010b 4806       |H   |		Short_Literal	0x6
010c e223       | #  |		Load	0x1,0x23
010d 0322       | "  |		Declare_Variable	Record
010e 4808       |H   |		Short_Literal	0x8
010f 00d9       |    |		Load_Top	At_Offset_1
0110 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0111 4800       |H   |		Short_Literal	0x0
0112 00d9       |    |		Load_Top	At_Offset_1
0113 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0114 00d9       |    |		Load_Top	At_Offset_1
0115 e228       | (  |		Load	0x1,0x28
0116 01d6       |    |		Execute	Vector,Field_Write
0117 3ff4       |?   |		Loop_Increasing	0x10c
0118 e224       | $  |		Load	0x1,0x24
0119 01c3       |    |		Execute	Vector,Check_In_Type
011a e224       | $  |		Load	0x1,0x24
011b 0119       |    |		Execute	Any,Check_In_Formal_Type
011c 4802       |H   |		Short_Literal	0x2
011d 00da       |    |		Load_Top	At_Offset_2
011e 01d6       |    |		Execute	Vector,Field_Write
011f 00db       |    |		Load_Top	At_Offset_3
0120 0337       | 7  |		Declare_Variable	Array
0121 e223       | #  |		Load	0x1,0x23
0122 0322       | "  |		Declare_Variable	Record
0123 480a       |H   |		Short_Literal	0xa
0124 00d9       |    |		Load_Top	At_Offset_1
0125 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0126 4803       |H   |		Short_Literal	0x3
0127 00d9       |    |		Load_Top	At_Offset_1
0128 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0129 4800       |H   |		Short_Literal	0x0
012a 00da       |    |		Load_Top	At_Offset_2
012b 01d6       |    |		Execute	Vector,Field_Write
012c e223       | #  |		Load	0x1,0x23
012d 0322       | "  |		Declare_Variable	Record
012e 4809       |H   |		Short_Literal	0x9
012f 00d9       |    |		Load_Top	At_Offset_1
0130 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0131 4803       |H   |		Short_Literal	0x3
0132 00d9       |    |		Load_Top	At_Offset_1
0133 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0134 4805       |H   |		Short_Literal	0x5
0135 00da       |    |		Load_Top	At_Offset_2
0136 01d6       |    |		Execute	Vector,Field_Write
0137 4804       |H   |		Short_Literal	0x4
0138 4801       |H   |		Short_Literal	0x1
0139 e223       | #  |		Load	0x1,0x23
013a 0322       | "  |		Declare_Variable	Record
013b 4804       |H   |		Short_Literal	0x4
013c 00d9       |    |		Load_Top	At_Offset_1
013d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
013e 4800       |H   |		Short_Literal	0x0
013f 00d9       |    |		Load_Top	At_Offset_1
0140 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0141 00d9       |    |		Load_Top	At_Offset_1
0142 e228       | (  |		Load	0x1,0x28
0143 01d6       |    |		Execute	Vector,Field_Write
0144 3ff4       |?   |		Loop_Increasing	0x139
0145 4807       |H   |		Short_Literal	0x7
0146 4806       |H   |		Short_Literal	0x6
0147 e223       | #  |		Load	0x1,0x23
0148 0322       | "  |		Declare_Variable	Record
0149 4804       |H   |		Short_Literal	0x4
014a 00d9       |    |		Load_Top	At_Offset_1
014b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014c 4800       |H   |		Short_Literal	0x0
014d 00d9       |    |		Load_Top	At_Offset_1
014e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014f 00d9       |    |		Load_Top	At_Offset_1
0150 e228       | (  |		Load	0x1,0x28
0151 01d6       |    |		Execute	Vector,Field_Write
0152 3ff4       |?   |		Loop_Increasing	0x147
0153 e224       | $  |		Load	0x1,0x24
0154 01c3       |    |		Execute	Vector,Check_In_Type
0155 e224       | $  |		Load	0x1,0x24
0156 0119       |    |		Execute	Any,Check_In_Formal_Type
0157 4803       |H   |		Short_Literal	0x3
0158 00da       |    |		Load_Top	At_Offset_2
0159 01d6       |    |		Execute	Vector,Field_Write
015a 00d9       |    |		Load_Top	At_Offset_1
015b 01d4       |    |		Execute	Vector,Structure_Write
015c 00e1       |    |		Load_Encached	Boolean_Cache
015d 00e2       |    |		Load_Encached	Integer_Cache
015e 4801       |H   |		Short_Literal	0x1
015f 4a00       |J   |		Short_Literal	0x200
0160 00e9       |    |		Load_Encached	String_Cache
0161 035b       | [  |		Declare_Type	Array,Constrained
0162 02a0       |    |		Declare_Subprogram	Null_Subprogram
0163 4803       |H   |		Short_Literal	0x3
0164 032d       | -  |		Declare_Type	Record,Defined
0165 e20f       |    |		Load	0x1,0xf
0166 00e2       |    |		Load_Encached	Integer_Cache
0167 e221       | !  |		Load	0x1,0x21
0168 00e1       |    |		Load_Encached	Boolean_Cache
0169 00e2       |    |		Load_Encached	Integer_Cache
016a 00e2       |    |		Load_Encached	Integer_Cache
016b 00e2       |    |		Load_Encached	Integer_Cache
016c 00e2       |    |		Load_Encached	Integer_Cache
016d e227       | '  |		Load	0x1,0x27
016e 00d8       |    |		Load_Top	At_Offset_0
016f e227       | '  |		Load	0x1,0x27
0170 00d8       |    |		Load_Top	At_Offset_0
0171 e227       | '  |		Load	0x1,0x27
0172 00d8       |    |		Load_Top	At_Offset_0
0173 e227       | '  |		Load	0x1,0x27
0174 029f 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Call
0176 e21f       |    |		Load	0x1,0x1f
0177 0326       | &  |		Complete_Type	Record,By_Defining
0178 00e8       |    |		Load_Encached	Character_Cache
0179 0266       | f  |		Execute	Discrete,Bounds
017a 00e1       |    |		Load_Encached	Boolean_Cache
017b 02a0       |    |		Declare_Subprogram	Null_Subprogram
017c 4801       |H   |		Short_Literal	0x1
017d 035d       | ]  |		Declare_Type	Array,Defined
017e 00d8       |    |		Load_Top	At_Offset_0
017f 0337       | 7  |		Declare_Variable	Array
0180 487a       |Hz  |		Short_Literal	0x7a
0181 4861       |Ha  |		Short_Literal	0x61
0182 4801       |H   |		Short_Literal	0x1
0183 00d9       |    |		Load_Top	At_Offset_1
0184 e229       | )  |		Load	0x1,0x29
0185 01d6       |    |		Execute	Vector,Field_Write
0186 3ffb       |?   |		Loop_Increasing	0x182
0187 485a       |HZ  |		Short_Literal	0x5a
0188 4841       |HA  |		Short_Literal	0x41
0189 4801       |H   |		Short_Literal	0x1
018a 00d9       |    |		Load_Top	At_Offset_1
018b e229       | )  |		Load	0x1,0x29
018c 01d6       |    |		Execute	Vector,Field_Write
018d 3ffb       |?   |		Loop_Increasing	0x189
018e 4801       |H   |		Short_Literal	0x1
018f 485f       |H_  |		Short_Literal	0x5f
0190 00da       |    |		Load_Top	At_Offset_2
0191 01d6       |    |		Execute	Vector,Field_Write
0192 4839       |H9  |		Short_Literal	0x39
0193 4830       |H0  |		Short_Literal	0x30
0194 4801       |H   |		Short_Literal	0x1
0195 00d9       |    |		Load_Top	At_Offset_1
0196 e229       | )  |		Load	0x1,0x29
0197 01d6       |    |		Execute	Vector,Field_Write
0198 3ffb       |?   |		Loop_Increasing	0x194
0199 482f       |H/  |		Short_Literal	0x2f
019a 4800       |H   |		Short_Literal	0x0
019b 4800       |H   |		Short_Literal	0x0
019c 00d9       |    |		Load_Top	At_Offset_1
019d e229       | )  |		Load	0x1,0x29
019e 01d6       |    |		Execute	Vector,Field_Write
019f 3ffb       |?   |		Loop_Increasing	0x19b
01a0 4840       |H@  |		Short_Literal	0x40
01a1 483a       |H:  |		Short_Literal	0x3a
01a2 4800       |H   |		Short_Literal	0x0
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 e229       | )  |		Load	0x1,0x29
01a5 01d6       |    |		Execute	Vector,Field_Write
01a6 3ffb       |?   |		Loop_Increasing	0x1a2
01a7 485e       |H^  |		Short_Literal	0x5e
01a8 485b       |H[  |		Short_Literal	0x5b
01a9 4800       |H   |		Short_Literal	0x0
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab e229       | )  |		Load	0x1,0x29
01ac 01d6       |    |		Execute	Vector,Field_Write
01ad 3ffb       |?   |		Loop_Increasing	0x1a9
01ae 4800       |H   |		Short_Literal	0x0
01af 4860       |H`  |		Short_Literal	0x60
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 01d6       |    |		Execute	Vector,Field_Write
01b2 487f       |H   |		Short_Literal	0x7f
01b3 487b       |H{  |		Short_Literal	0x7b
01b4 4800       |H   |		Short_Literal	0x0
01b5 00d9       |    |		Load_Top	At_Offset_1
01b6 e229       | )  |		Load	0x1,0x29
01b7 01d6       |    |		Execute	Vector,Field_Write
01b8 3ffb       |?   |		Loop_Increasing	0x1b4
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 01c3       |    |		Execute	Vector,Check_In_Type
01bb 0007       |    |		Action	Break_Optional
01bc 4801       |H   |		Short_Literal	0x1
01bd 4a00       |J   |		Short_Literal	0x200
01be 00e9       |    |		Load_Encached	String_Cache
01bf 0334       | 4  |		Declare_Variable	Array,With_Constraint
01c0 4a00       |J   |		Short_Literal	0x200
01c1 4801       |H   |		Short_Literal	0x1
01c2 4820       |H   |		Short_Literal	0x20
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 e22a       | *  |		Load	0x1,0x2a
01c5 01d6       |    |		Execute	Vector,Field_Write
01c6 3ffb       |?   |		Loop_Increasing	0x1c2
01c7 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call
01c9 029d 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call
01cb 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call
01cd 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
01cf 029d 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call
01d1 029d 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call
01d3 029d 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call
01d5 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call
01d7 029d 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call
01d9 029d 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call
01db 029d 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call
01dd 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
01df 029d 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call
01e1 029d 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call
01e3 029d 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call
01e5 029d 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call
01e7 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
01e8 00c7       |    |		Action	Elaborate_Subprogram
01e9 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
01ea 00c7       |    |		Action	Elaborate_Subprogram
01eb 029d 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call
01ed 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
01ee 00c7       |    |		Action	Elaborate_Subprogram
01ef 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
01f0 00c7       |    |		Action	Elaborate_Subprogram
01f1 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
01f2 00c7       |    |		Action	Elaborate_Subprogram
01f3 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
01f4 00c7       |    |		Action	Elaborate_Subprogram
01f5 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
01f6 00c7       |    |		Action	Elaborate_Subprogram
01f7 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
01f8 00c7       |    |		Action	Elaborate_Subprogram
01f9			BODY_0008:
01f9 00bc       |    |		Action	Signal_Activated
01fa 00bb       |    |		Action	Signal_Completion
01fb 0000 0000  |    |		.BLANK	0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0214       |    |		.CONST	0x0214								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0005       |    |		.CONST	0x0005								; Number of locals
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 01dd       |    |		Execute	Vector,First
0205 00e3       |    |		Load_Encached	Natural_Cache
0206 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0207 e5fe       |    |		Load	0x2,-0x2
0208 01dc       |    |		Execute	Vector,Last
0209 00e3       |    |		Load_Encached	Natural_Cache
020a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
020b e216       |    |		Load	0x1,0x16
020c e001       |    |		Load	0x0,0x1
020d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
020e 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
020f 00d8       |    |		Load_Top	At_Offset_0
0210 0217       |    |		Execute	Heap_Access,All_Reference
0211 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0212 029f 088b  |    |		Declare_Subprogram	INIT_0888,For_Call
0214			BODY_0200:
0214 e5ff       |    |		Load	0x2,-0x1
0215 00da       |    |		Load_Top	At_Offset_2
0216 0217       |    |		Execute	Heap_Access,All_Reference
0217 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0218 4801       |H   |		Short_Literal	0x1
0219 00da       |    |		Load_Top	At_Offset_2
021a 0217       |    |		Execute	Heap_Access,All_Reference
021b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
021c 4800       |H   |		Short_Literal	0x0
021d 00da       |    |		Load_Top	At_Offset_2
021e 0217       |    |		Execute	Heap_Access,All_Reference
021f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0220 4800       |H   |		Short_Literal	0x0
0221 00da       |    |		Load_Top	At_Offset_2
0222 0217       |    |		Execute	Heap_Access,All_Reference
0223 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0224 4800       |H   |		Short_Literal	0x0
0225 00da       |    |		Load_Top	At_Offset_2
0226 0217       |    |		Execute	Heap_Access,All_Reference
0227 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0228 4801       |H   |		Short_Literal	0x1
0229 00da       |    |		Load_Top	At_Offset_2
022a 0217       |    |		Execute	Heap_Access,All_Reference
022b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
022c 4800       |H   |		Short_Literal	0x0
022d 00da       |    |		Load_Top	At_Offset_2
022e 0217       |    |		Execute	Heap_Access,All_Reference
022f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0230 4801       |H   |		Short_Literal	0x1
0231 00da       |    |		Load_Top	At_Offset_2
0232 0217       |    |		Execute	Heap_Access,All_Reference
0233 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0234 00d9       |    |		Load_Top	At_Offset_1
0235 0219       |    |		Execute	Heap_Access,All_Read
0236 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0237 00d8       |    |		Load_Top	At_Offset_0
0238 8230       | 0  |		Call	0x1,0x30
0239 00d2       |    |		Pop_Control	Pop_Count_2
023a 00d9       |    |		Load_Top	At_Offset_1
023b 0219       |    |		Execute	Heap_Access,All_Read
023c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
023d 00d8       |    |		Load_Top	At_Offset_0
023e 8230       | 0  |		Call	0x1,0x30
023f 00d2       |    |		Pop_Control	Pop_Count_2
0240 00d9       |    |		Load_Top	At_Offset_1
0241 0219       |    |		Execute	Heap_Access,All_Read
0242 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0243 00d8       |    |		Load_Top	At_Offset_0
0244 8230       | 0  |		Call	0x1,0x30
0245 00d2       |    |		Pop_Control	Pop_Count_2
0246 00d9       |    |		Load_Top	At_Offset_1
0247 0219       |    |		Execute	Heap_Access,All_Read
0248 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0249 00d8       |    |		Load_Top	At_Offset_0
024a 0092 09c5  |    |		Action	Push_String_Extended,0x9c5					; ","
024c 822e       | .  |		Call	0x1,0x2e
024d 00d2       |    |		Pop_Control	Pop_Count_2
024e 00d9       |    |		Load_Top	At_Offset_1
024f 0219       |    |		Execute	Heap_Access,All_Read
0250 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0251 00d8       |    |		Load_Top	At_Offset_0
0252 0092 09c5  |    |		Action	Push_String_Extended,0x9c5					; ","
0254 822e       | .  |		Call	0x1,0x2e
0255 00d2       |    |		Pop_Control	Pop_Count_2
0256 00d9       |    |		Load_Top	At_Offset_1
0257 0219       |    |		Execute	Heap_Access,All_Read
0258 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0259 00d8       |    |		Load_Top	At_Offset_0
025a e215       |    |		Load	0x1,0x15
025b 822e       | .  |		Call	0x1,0x2e
025c 00d2       |    |		Pop_Control	Pop_Count_2
025d 00d9       |    |		Load_Top	At_Offset_1
025e 0219       |    |		Execute	Heap_Access,All_Read
025f 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0260 00d8       |    |		Load_Top	At_Offset_0
0261 8230       | 0  |		Call	0x1,0x30
0262 00d2       |    |		Pop_Control	Pop_Count_2
0263 e5fe       |    |		Load	0x2,-0x2
0264 01db       |    |		Execute	Vector,Length
0265 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
0266 6851       |hQ  |		Jump_Zero	0x2b8
0267 4800       |H   |		Short_Literal	0x0
0268 0092 09c6  |    |		Action	Push_String_Extended,0x9c6					; "--"
026a e402       |    |		Load	0x2,0x2
026b 00d8       |    |		Load_Top	At_Offset_0
026c 0a01       |    |		Execute_Immediate	Plus,0x1
026d 00d8       |    |		Load_Top	At_Offset_0
026e 00e2       |    |		Load_Encached	Integer_Cache
026f 0260       | `  |		Execute	Discrete,In_Type
0270 7001       |p   |		Jump_Nonzero	0x272
0271 0801       |    |		Execute_Immediate	Raise,0x1
0272 e5fe       |    |		Load	0x2,-0x2
0273 01cf       |    |		Execute	Vector,Slice_Read
0274 e002       |    |		Load	0x0,0x2
0275 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0276 6841       |hA  |		Jump_Zero	0x2b8
0277 00cf       |    |		Action	Mark_Auxiliary
0278 00db       |    |		Load_Top	At_Offset_3
0279 e402       |    |		Load	0x2,0x2
027a 0a02       |    |		Execute_Immediate	Plus,0x2
027b 00d8       |    |		Load_Top	At_Offset_0
027c 00e2       |    |		Load_Encached	Integer_Cache
027d 0260       | `  |		Execute	Discrete,In_Type
027e 7001       |p   |		Jump_Nonzero	0x280
027f 0801       |    |		Execute_Immediate	Raise,0x1
0280 0263       | c  |		Execute	Discrete,Above_Bound
0281 7012       |p   |		Jump_Nonzero	0x294
0282 00d8       |    |		Load_Top	At_Offset_0
0283 e5fe       |    |		Load	0x2,-0x2
0284 01d7       |    |		Execute	Vector,Field_Read
0285 e229       | )  |		Load	0x1,0x29
0286 01d7       |    |		Execute	Vector,Field_Read
0287 7005       |p   |		Jump_Nonzero	0x28d
0288 00d8       |    |		Load_Top	At_Offset_0
0289 e5fe       |    |		Load	0x2,-0x2
028a 01d7       |    |		Execute	Vector,Field_Read
028b 0f20       |    |		Execute_Immediate	Equal,0x20
028c 6805       |h   |		Jump_Zero	0x292
028d 00d8       |    |		Load_Top	At_Offset_0
028e 0aff       |    |		Execute_Immediate	Plus,-0x1
028f c403       |    |		Store	0x2,0x3
0290 00d2       |    |		Pop_Control	Pop_Count_2
0291 7802       |x   |		Jump	0x294
0292 00c8       |    |		Action	Pop_Auxiliary_Range
0293 3fee       |?   |		Loop_Increasing	0x282
0294 00ce       |    |		Action	Pop_Auxiliary
0295 00da       |    |		Load_Top	At_Offset_2
0296 e402       |    |		Load	0x2,0x2
0297 0a01       |    |		Execute_Immediate	Plus,0x1
0298 027d       | }  |		Execute	Discrete,Greater
0299 680e       |h   |		Jump_Zero	0x2a8
029a 00d9       |    |		Load_Top	At_Offset_1
029b 0219       |    |		Execute	Heap_Access,All_Read
029c 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
029d 00d8       |    |		Load_Top	At_Offset_0
029e e402       |    |		Load	0x2,0x2
029f e403       |    |		Load	0x2,0x3
02a0 e5fe       |    |		Load	0x2,-0x2
02a1 01cf       |    |		Execute	Vector,Slice_Read
02a2 822e       | .  |		Call	0x1,0x2e
02a3 00d2       |    |		Pop_Control	Pop_Count_2
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 0a01       |    |		Execute_Immediate	Plus,0x1
02a6 c402       |    |		Store	0x2,0x2
02a7 7810       |x   |		Jump	0x2b8
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 0217       |    |		Execute	Heap_Access,All_Reference
02aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ab 0092 09c7  |    |		Action	Push_String_Extended,0x9c7					; "Configuration \x22"
02ad e5fe       |    |		Load	0x2,-0x2
02ae 01cc       |    |		Execute	Vector,Catenate
02af 0092 09c8  |    |		Action	Push_String_Extended,0x9c8					; "\x22 starts with an invalid tag."
02b1 01cc       |    |		Execute	Vector,Catenate
02b2 00db       |    |		Load_Top	At_Offset_3
02b3 0217       |    |		Execute	Heap_Access,All_Reference
02b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b5 e20f       |    |		Load	0x1,0xf
02b6 0119       |    |		Execute	Any,Check_In_Formal_Type
02b7 8213       |    |		Call	0x1,0x13
02b8 8405       |    |		Call	0x2,0x5
02b9 00d9       |    |		Load_Top	At_Offset_1
02ba a5fd       |    |		Store_Unchecked	0x2,-0x3
02bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 0217       |    |		Execute	Heap_Access,All_Reference
02c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c6 c5fe       |    |		Store	0x2,-0x2
02c7 e216       |    |		Load	0x1,0x16
02c8 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
02c9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ca 0000 0000  |    |		.BLANK	0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 0217       |    |		Execute	Heap_Access,All_Reference
02d5 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02d6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d7 7002       |p   |		Jump_Nonzero	0x2da
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 823b       | ;  |		Call	0x1,0x3b
02da 4800       |H   |		Short_Literal	0x0
02db 00db       |    |		Load_Top	At_Offset_3
02dc 0217       |    |		Execute	Heap_Access,All_Reference
02dd 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02de 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02df 4801       |H   |		Short_Literal	0x1
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 0217       |    |		Execute	Heap_Access,All_Reference
02e2 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 0217       |    |		Execute	Heap_Access,All_Reference
02e6 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02e7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02e8 01cf       |    |		Execute	Vector,Slice_Read
02e9 0335       | 5  |		Declare_Variable	Array,Duplicate
02ea 00cd       |    |		Action	Spare6_Action
02eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f4       |    |		.CONST	0x02f4								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 00e2       |    |		Load_Encached	Integer_Cache
02f4			BODY_02f0:
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 0217       |    |		Execute	Heap_Access,All_Reference
02f6 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f8 7002       |p   |		Jump_Nonzero	0x2fb
02f9 00db       |    |		Load_Top	At_Offset_3
02fa 823b       | ;  |		Call	0x1,0x3b
02fb 00db       |    |		Load_Top	At_Offset_3
02fc 0217       |    |		Execute	Heap_Access,All_Reference
02fd 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ff 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0300 00d8       |    |		Load_Top	At_Offset_0
0301 e5fe       |    |		Load	0x2,-0x2
0302 01db       |    |		Execute	Vector,Length
0303 027a       | z  |		Execute	Discrete,Less_Equal
0304 681f       |h   |		Jump_Zero	0x324
0305 4801       |H   |		Short_Literal	0x1
0306 00d9       |    |		Load_Top	At_Offset_1
0307 e5ff       |    |		Load	0x2,-0x1
0308 0217       |    |		Execute	Heap_Access,All_Reference
0309 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
030a 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
030b 01cf       |    |		Execute	Vector,Slice_Read
030c e5fe       |    |		Load	0x2,-0x2
030d 01dd       |    |		Execute	Vector,First
030e e5fe       |    |		Load	0x2,-0x2
030f 01dd       |    |		Execute	Vector,First
0310 00db       |    |		Load_Top	At_Offset_3
0311 0273       | s  |		Execute	Discrete,Plus
0312 0aff       |    |		Execute_Immediate	Plus,-0x1
0313 00d8       |    |		Load_Top	At_Offset_0
0314 00e2       |    |		Load_Encached	Integer_Cache
0315 0260       | `  |		Execute	Discrete,In_Type
0316 7001       |p   |		Jump_Nonzero	0x318
0317 0801       |    |		Execute_Immediate	Raise,0x1
0318 e5fe       |    |		Load	0x2,-0x2
0319 01ce       |    |		Execute	Vector,Slice_Write
031a 00d8       |    |		Load_Top	At_Offset_0
031b a5fd       |    |		Store_Unchecked	0x2,-0x3
031c 4801       |H   |		Short_Literal	0x1
031d a5fc       |    |		Store_Unchecked	0x2,-0x4
031e 4800       |H   |		Short_Literal	0x0
031f e5ff       |    |		Load	0x2,-0x1
0320 0217       |    |		Execute	Heap_Access,All_Reference
0321 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0322 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0323 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0324 4801       |H   |		Short_Literal	0x1
0325 e5fe       |    |		Load	0x2,-0x2
0326 01db       |    |		Execute	Vector,Length
0327 00d8       |    |		Load_Top	At_Offset_0
0328 00e2       |    |		Load_Encached	Integer_Cache
0329 0260       | `  |		Execute	Discrete,In_Type
032a 7001       |p   |		Jump_Nonzero	0x32c
032b 0801       |    |		Execute_Immediate	Raise,0x1
032c e5ff       |    |		Load	0x2,-0x1
032d 0217       |    |		Execute	Heap_Access,All_Reference
032e 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
032f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0330 01cf       |    |		Execute	Vector,Slice_Read
0331 e5fe       |    |		Load	0x2,-0x2
0332 01d4       |    |		Execute	Vector,Structure_Write
0333 00d8       |    |		Load_Top	At_Offset_0
0334 e5fe       |    |		Load	0x2,-0x2
0335 01db       |    |		Execute	Vector,Length
0336 0272       | r  |		Execute	Discrete,Minus
0337 e5ff       |    |		Load	0x2,-0x1
0338 0217       |    |		Execute	Heap_Access,All_Reference
0339 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
033a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
033b e5fe       |    |		Load	0x2,-0x2
033c 01db       |    |		Execute	Vector,Length
033d 0a01       |    |		Execute_Immediate	Plus,0x1
033e 00d8       |    |		Load_Top	At_Offset_0
033f 00e2       |    |		Load_Encached	Integer_Cache
0340 0260       | `  |		Execute	Discrete,In_Type
0341 7001       |p   |		Jump_Nonzero	0x343
0342 0801       |    |		Execute_Immediate	Raise,0x1
0343 00d9       |    |		Load_Top	At_Offset_1
0344 e5ff       |    |		Load	0x2,-0x1
0345 0217       |    |		Execute	Heap_Access,All_Reference
0346 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0347 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0348 01cf       |    |		Execute	Vector,Slice_Read
0349 4801       |H   |		Short_Literal	0x1
034a e5ff       |    |		Load	0x2,-0x1
034b 0217       |    |		Execute	Heap_Access,All_Reference
034c 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
034d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034e e5ff       |    |		Load	0x2,-0x1
034f 0219       |    |		Execute	Heap_Access,All_Read
0350 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0351 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0352 01ce       |    |		Execute	Vector,Slice_Write
0353 e5fe       |    |		Load	0x2,-0x2
0354 01db       |    |		Execute	Vector,Length
0355 c5fd       |    |		Store	0x2,-0x3
0356 4800       |H   |		Short_Literal	0x0
0357 a5fc       |    |		Store_Unchecked	0x2,-0x4
0358 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 0219       |    |		Execute	Heap_Access,All_Read
0365 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0366 00d8       |    |		Load_Top	At_Offset_0
0367 e5fe       |    |		Load	0x2,-0x2
0368 822e       | .  |		Call	0x1,0x2e
0369 00d2       |    |		Pop_Control	Pop_Count_2
036a 00cf       |    |		Action	Mark_Auxiliary
036b 7840       |x@  |		Jump	0x3ac
036c 00db       |    |		Load_Top	At_Offset_3
036d 823a       | :  |		Call	0x1,0x3a
036e 00db       |    |		Load_Top	At_Offset_3
036f 0217       |    |		Execute	Heap_Access,All_Reference
0370 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0371 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0372 6838       |h8  |		Jump_Zero	0x3ab
0373 00db       |    |		Load_Top	At_Offset_3
0374 0217       |    |		Execute	Heap_Access,All_Reference
0375 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0376 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0377 7021       |p!  |		Jump_Nonzero	0x399
0378 00db       |    |		Load_Top	At_Offset_3
0379 0217       |    |		Execute	Heap_Access,All_Reference
037a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
037b e5ff       |    |		Load	0x2,-0x1
037c 0217       |    |		Execute	Heap_Access,All_Reference
037d 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
037e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037f 027d       | }  |		Execute	Discrete,Greater
0380 6818       |h   |		Jump_Zero	0x399
0381 00db       |    |		Load_Top	At_Offset_3
0382 0217       |    |		Execute	Heap_Access,All_Reference
0383 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0384 e20f       |    |		Load	0x1,0xf
0385 0119       |    |		Execute	Any,Check_In_Formal_Type
0386 8212       |    |		Call	0x1,0x12
0387 6811       |h   |		Jump_Zero	0x399
0388 4801       |H   |		Short_Literal	0x1
0389 e5ff       |    |		Load	0x2,-0x1
038a 0217       |    |		Execute	Heap_Access,All_Reference
038b 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
038c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
038d e5ff       |    |		Load	0x2,-0x1
038e 0217       |    |		Execute	Heap_Access,All_Reference
038f 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0390 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0391 01cf       |    |		Execute	Vector,Slice_Read
0392 e5ff       |    |		Load	0x2,-0x1
0393 0217       |    |		Execute	Heap_Access,All_Reference
0394 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0395 e20f       |    |		Load	0x1,0xf
0396 0119       |    |		Execute	Any,Check_In_Formal_Type
0397 8211       |    |		Call	0x1,0x11
0398 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0399 480a       |H   |		Short_Literal	0xa
039a 4801       |H   |		Short_Literal	0x1
039b e5ff       |    |		Load	0x2,-0x1
039c 0217       |    |		Execute	Heap_Access,All_Reference
039d 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
039e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039f e5ff       |    |		Load	0x2,-0x1
03a0 0217       |    |		Execute	Heap_Access,All_Reference
03a1 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
03a2 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
03a3 01cf       |    |		Execute	Vector,Slice_Read
03a4 01cb       |    |		Execute	Vector,Append
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 0217       |    |		Execute	Heap_Access,All_Reference
03a7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a8 e20f       |    |		Load	0x1,0xf
03a9 0119       |    |		Execute	Any,Check_In_Formal_Type
03aa 8211       |    |		Call	0x1,0x11
03ab 00c9       |    |		Action	Pop_Auxiliary_Loop
03ac 00db       |    |		Load_Top	At_Offset_3
03ad 0217       |    |		Execute	Heap_Access,All_Reference
03ae 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
03af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b0 77bb       |w   |		Jump_Nonzero	0x36c
03b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b2 0000 0000  |    |		.BLANK	0000[0x6]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 0217       |    |		Execute	Heap_Access,All_Reference
03bd 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
03be 00db       |    |		Load_Top	At_Offset_3
03bf 0217       |    |		Execute	Heap_Access,All_Reference
03c0 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
03c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c2 027d       | }  |		Execute	Discrete,Greater
03c3 6815       |h   |		Jump_Zero	0x3d9
03c4 00da       |    |		Load_Top	At_Offset_2
03c5 0217       |    |		Execute	Heap_Access,All_Reference
03c6 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
03c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c8 700e       |p   |		Jump_Nonzero	0x3d7
03c9 00da       |    |		Load_Top	At_Offset_2
03ca 0217       |    |		Execute	Heap_Access,All_Reference
03cb 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
03cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03cd 7007       |p   |		Jump_Nonzero	0x3d5
03ce 00da       |    |		Load_Top	At_Offset_2
03cf 0217       |    |		Execute	Heap_Access,All_Reference
03d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d1 e20f       |    |		Load	0x1,0xf
03d2 0119       |    |		Execute	Any,Check_In_Formal_Type
03d3 8212       |    |		Call	0x1,0x12
03d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d5 4800       |H   |		Short_Literal	0x0
03d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d7 4800       |H   |		Short_Literal	0x0
03d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d9 4800       |H   |		Short_Literal	0x0
03da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03db 0000 0000  |    |		.BLANK	0000[0x5]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e5       |    |		.CONST	0x03e5								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0002       |    |		.CONST	0x0002								; Number of locals
03e3			INIT_03e0:
03e3 029f 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Call
03e5			BODY_03e0:
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 0219       |    |		Execute	Heap_Access,All_Read
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e9 00d8       |    |		Load_Top	At_Offset_0
03ea 0120       |    |		Execute	Any,Is_Value
03eb 6803       |h   |		Jump_Zero	0x3ef
03ec e20f       |    |		Load	0x1,0xf
03ed 011e       |    |		Execute	Any,Convert
03ee 7802       |x   |		Jump	0x3f1
03ef e20f       |    |		Load	0x1,0xf
03f0 0119       |    |		Execute	Any,Check_In_Formal_Type
03f1 e5ff       |    |		Load	0x2,-0x1
03f2 8214       |    |		Call	0x1,0x14
03f3 00d9       |    |		Load_Top	At_Offset_1
03f4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03f5 00d1       |    |		Pop_Control	Pop_Count_1
03f6 4801       |H   |		Short_Literal	0x1
03f7 e5fe       |    |		Load	0x2,-0x2
03f8 0217       |    |		Execute	Heap_Access,All_Reference
03f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03fa 4800       |H   |		Short_Literal	0x0
03fb e5fe       |    |		Load	0x2,-0x2
03fc 0217       |    |		Execute	Heap_Access,All_Reference
03fd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03fe 4800       |H   |		Short_Literal	0x0
03ff e5fe       |    |		Load	0x2,-0x2
0400 0217       |    |		Execute	Heap_Access,All_Reference
0401 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0402 4800       |H   |		Short_Literal	0x0
0403 e5fe       |    |		Load	0x2,-0x2
0404 0217       |    |		Execute	Heap_Access,All_Reference
0405 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0406 4801       |H   |		Short_Literal	0x1
0407 e5fe       |    |		Load	0x2,-0x2
0408 0217       |    |		Execute	Heap_Access,All_Reference
0409 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
040a 4800       |H   |		Short_Literal	0x0
040b e5fe       |    |		Load	0x2,-0x2
040c 0217       |    |		Execute	Heap_Access,All_Reference
040d 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
040e 4801       |H   |		Short_Literal	0x1
040f e5fe       |    |		Load	0x2,-0x2
0410 0217       |    |		Execute	Heap_Access,All_Reference
0411 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0412 e5fe       |    |		Load	0x2,-0x2
0413 0219       |    |		Execute	Heap_Access,All_Read
0414 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0415 00d8       |    |		Load_Top	At_Offset_0
0416 8230       | 0  |		Call	0x1,0x30
0417 00d2       |    |		Pop_Control	Pop_Count_2
0418 e5fe       |    |		Load	0x2,-0x2
0419 0219       |    |		Execute	Heap_Access,All_Read
041a 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
041b 00d8       |    |		Load_Top	At_Offset_0
041c 8230       | 0  |		Call	0x1,0x30
041d 00d2       |    |		Pop_Control	Pop_Count_2
041e e5fe       |    |		Load	0x2,-0x2
041f 0219       |    |		Execute	Heap_Access,All_Read
0420 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0421 00d8       |    |		Load_Top	At_Offset_0
0422 8230       | 0  |		Call	0x1,0x30
0423 00d2       |    |		Pop_Control	Pop_Count_2
0424 e5fe       |    |		Load	0x2,-0x2
0425 0219       |    |		Execute	Heap_Access,All_Read
0426 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0427 00d8       |    |		Load_Top	At_Offset_0
0428 8230       | 0  |		Call	0x1,0x30
0429 00d2       |    |		Pop_Control	Pop_Count_2
042a 8402       |    |		Call	0x2,0x2
042b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 0217       |    |		Execute	Heap_Access,All_Reference
0435 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0436 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0437 0000       |    |		.XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 4607       |F   |		Jump_Case	0x8
043c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
043d 7806       |x   |		Jump	0x444								; case 0x1
043e 7809       |x   |		Jump	0x448								; case 0x2
043f 780d       |x   |		Jump	0x44d								; case 0x3
0440 7810       |x   |		Jump	0x451								; case 0x4
0441 7811       |x   |		Jump	0x453								; case 0x5
0442 7812       |x   |		Jump	0x455								; case 0x6
0443 7815       |x   |		Jump	0x459								; case 0x7
0444 00da       |    |		Load_Top	At_Offset_2
0445 0091 09ac  |    |		Action	Push_String_Extended_Indexed,0x9ac				; "CONTINUE"
0447 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0448 00db       |    |		Load_Top	At_Offset_3
0449 00db       |    |		Load_Top	At_Offset_3
044a 00e0       |    |		Load_Encached	Standard_Cache
044b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
044c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044d 00da       |    |		Load_Top	At_Offset_2
044e 00e0       |    |		Load_Encached	Standard_Cache
044f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0450 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0451 00db       |    |		Load_Top	At_Offset_3
0452 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0453 00db       |    |		Load_Top	At_Offset_3
0454 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0455 e220       |    |		Load	0x1,0x20
0456 00dc       |    |		Load_Top	At_Offset_4
0457 0267       | g  |		Execute	Discrete,Predecessor
0458 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0459 e220       |    |		Load	0x1,0x20
045a 00dc       |    |		Load_Top	At_Offset_4
045b 0268       | h  |		Execute	Discrete,Successor
045c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 4607       |F   |		Jump_Case	0x8
0464 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0465 7806       |x   |		Jump	0x46c								; case 0x1
0466 7809       |x   |		Jump	0x470								; case 0x2
0467 780d       |x   |		Jump	0x475								; case 0x3
0468 7810       |x   |		Jump	0x479								; case 0x4
0469 7811       |x   |		Jump	0x47b								; case 0x5
046a 7812       |x   |		Jump	0x47d								; case 0x6
046b 7815       |x   |		Jump	0x481								; case 0x7
046c 00da       |    |		Load_Top	At_Offset_2
046d 0091 09b4  |    |		Action	Push_String_Extended_Indexed,0x9b4				; "NIL"
046f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0470 00db       |    |		Load_Top	At_Offset_3
0471 00db       |    |		Load_Top	At_Offset_3
0472 00e0       |    |		Load_Encached	Standard_Cache
0473 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0474 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0475 00da       |    |		Load_Top	At_Offset_2
0476 00e0       |    |		Load_Encached	Standard_Cache
0477 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0478 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0479 00db       |    |		Load_Top	At_Offset_3
047a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
047b 00db       |    |		Load_Top	At_Offset_3
047c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
047d e221       | !  |		Load	0x1,0x21
047e 00dc       |    |		Load_Top	At_Offset_4
047f 0267       | g  |		Execute	Discrete,Predecessor
0480 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0481 e221       | !  |		Load	0x1,0x21
0482 00dc       |    |		Load_Top	At_Offset_4
0483 0268       | h  |		Execute	Discrete,Successor
0484 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0485 0000 0000  |    |		.XXX[0x3]
0487 0000       |    |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 4607       |F   |		Jump_Case	0x8
048c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
048d 7806       |x   |		Jump	0x494								; case 0x1
048e 7809       |x   |		Jump	0x498								; case 0x2
048f 780d       |x   |		Jump	0x49d								; case 0x3
0490 7810       |x   |		Jump	0x4a1								; case 0x4
0491 7811       |x   |		Jump	0x4a3								; case 0x5
0492 7812       |x   |		Jump	0x4a5								; case 0x6
0493 7815       |x   |		Jump	0x4a9								; case 0x7
0494 00da       |    |		Load_Top	At_Offset_2
0495 0091 09b8  |    |		Action	Push_String_Extended_Indexed,0x9b8				; "PASS"
0497 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0498 00db       |    |		Load_Top	At_Offset_3
0499 00db       |    |		Load_Top	At_Offset_3
049a 00e0       |    |		Load_Encached	Standard_Cache
049b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
049c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
049d 00da       |    |		Load_Top	At_Offset_2
049e 00e0       |    |		Load_Encached	Standard_Cache
049f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04a1 00db       |    |		Load_Top	At_Offset_3
04a2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a5 e222       | "  |		Load	0x1,0x22
04a6 00dc       |    |		Load_Top	At_Offset_4
04a7 0267       | g  |		Execute	Discrete,Predecessor
04a8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a9 e222       | "  |		Load	0x1,0x22
04aa 00dc       |    |		Load_Top	At_Offset_4
04ab 0268       | h  |		Execute	Discrete,Successor
04ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04ad 0000 0000  |    |		.XXX[0x3]
04af 0000       |    |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 4608       |F   |		Jump_Case	0x9
04b4 7808       |x   |		Jump	0x4bd								; case 0x0
04b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04b6 780d       |x   |		Jump	0x4c4								; case 0x2
04b7 780c       |x   |		Jump	0x4c4								; case 0x3
04b8 780b       |x   |		Jump	0x4c4								; case 0x4
04b9 780a       |x   |		Jump	0x4c4								; case 0x5
04ba 7809       |x   |		Jump	0x4c4								; case 0x6
04bb 7808       |x   |		Jump	0x4c4								; case 0x7
04bc 7807       |x   |		Jump	0x4c4								; case 0x8
04bd 00da       |    |		Load_Top	At_Offset_2
04be 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04bf 0125       | %  |		Execute	Any,Set_Constraint
04c0 00da       |    |		Load_Top	At_Offset_2
04c1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04c4 0869       | i  |		Execute_Immediate	Raise,0x69
04c5 0000 0000  |    |		.XXX[0x3]
04c7 0000       |    |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 4801       |H   |		Short_Literal	0x1
04cc 00db       |    |		Load_Top	At_Offset_3
04cd 0217       |    |		Execute	Heap_Access,All_Reference
04ce 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04cf e22a       | *  |		Load	0x1,0x2a
04d0 01cf       |    |		Execute	Vector,Slice_Read
04d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d2 0000 0000  |    |		.BLANK	0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 4801       |H   |		Short_Literal	0x1
04dc 00db       |    |		Load_Top	At_Offset_3
04dd 0217       |    |		Execute	Heap_Access,All_Reference
04de 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
04df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e0 e5ff       |    |		Load	0x2,-0x1
04e1 0217       |    |		Execute	Heap_Access,All_Reference
04e2 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
04e3 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
04e4 01cf       |    |		Execute	Vector,Slice_Read
04e5 0335       | 5  |		Declare_Variable	Array,Duplicate
04e6 00cd       |    |		Action	Spare6_Action
04e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 0217       |    |		Execute	Heap_Access,All_Reference
04ed 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
04ee 00db       |    |		Load_Top	At_Offset_3
04ef 0217       |    |		Execute	Heap_Access,All_Reference
04f0 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
04f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f2 e5ff       |    |		Load	0x2,-0x1
04f3 0217       |    |		Execute	Heap_Access,All_Reference
04f4 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
04f5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
04f6 01cf       |    |		Execute	Vector,Slice_Read
04f7 0335       | 5  |		Declare_Variable	Array,Duplicate
04f8 00cd       |    |		Action	Spare6_Action
04f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04fa 0000 0000  |    |		.BLANK	0000[0x6]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 4801       |H   |		Short_Literal	0x1
0504 e5fe       |    |		Load	0x2,-0x2
0505 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0506 00da       |    |		Load_Top	At_Offset_2
0507 01db       |    |		Execute	Vector,Length
0508 e5fe       |    |		Load	0x2,-0x2
0509 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
050a 00da       |    |		Load_Top	At_Offset_2
050b 4801       |H   |		Short_Literal	0x1
050c e5fe       |    |		Load	0x2,-0x2
050d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
050e e5fe       |    |		Load	0x2,-0x2
050f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0510 01ce       |    |		Execute	Vector,Slice_Write
0511 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0512 0000 0000  |    |		.BLANK	0000[0x6]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0520       |    |		.CONST	0x0520								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0002       |    |		.CONST	0x0002								; Number of locals
051b			INIT_0518:
051b 00db       |    |		Load_Top	At_Offset_3
051c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
051d 0a01       |    |		Execute_Immediate	Plus,0x1
051e 00e2       |    |		Load_Encached	Integer_Cache
051f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0520			BODY_0518:
0520 e5fe       |    |		Load	0x2,-0x2
0521 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0522 e5ff       |    |		Load	0x2,-0x1
0523 01db       |    |		Execute	Vector,Length
0524 0273       | s  |		Execute	Discrete,Plus
0525 e5fe       |    |		Load	0x2,-0x2
0526 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0527 00db       |    |		Load_Top	At_Offset_3
0528 00d9       |    |		Load_Top	At_Offset_1
0529 e5fe       |    |		Load	0x2,-0x2
052a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
052b e5fe       |    |		Load	0x2,-0x2
052c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
052d 01ce       |    |		Execute	Vector,Slice_Write
052e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
052f 0000       |    |		.XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 4800       |H   |		Short_Literal	0x0
0534 00db       |    |		Load_Top	At_Offset_3
0535 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0536 4800       |H   |		Short_Literal	0x0
0537 00db       |    |		Load_Top	At_Offset_3
0538 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0539 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
053a 0000 0000  |    |		.BLANK	0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 00da       |    |		Load_Top	At_Offset_2
0544 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0545 680b       |h   |		Jump_Zero	0x551
0546 4822       |H"  |		Short_Literal	0x22
0547 4822       |H"  |		Short_Literal	0x22
0548 4801       |H   |		Short_Literal	0x1
0549 e5ff       |    |		Load	0x2,-0x1
054a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
054b e5ff       |    |		Load	0x2,-0x1
054c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
054d 01cf       |    |		Execute	Vector,Slice_Read
054e 01ca       |    |		Execute	Vector,Prepend
054f 01cb       |    |		Execute	Vector,Append
0550 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0551 4822       |H"  |		Short_Literal	0x22
0552 0092 09c9  |    |		Action	Push_String_Extended,0x9c9					; "<INVALID>\x22"
0554 4801       |H   |		Short_Literal	0x1
0555 e5ff       |    |		Load	0x2,-0x1
0556 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0557 e5ff       |    |		Load	0x2,-0x1
0558 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0559 01cf       |    |		Execute	Vector,Slice_Read
055a 01cc       |    |		Execute	Vector,Catenate
055b 01cb       |    |		Execute	Vector,Append
055c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055d 0000 0000  |    |		.XXX[0x3]
055f 0000       |    |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 e5fd       |    |		Load	0x2,-0x3
0564 482c       |H,  |		Short_Literal	0x2c
0565 483a       |H:  |		Short_Literal	0x3a
0566 e5ff       |    |		Load	0x2,-0x1
0567 01cb       |    |		Execute	Vector,Append
0568 e5fe       |    |		Load	0x2,-0x2
0569 01cc       |    |		Execute	Vector,Catenate
056a 01cb       |    |		Execute	Vector,Append
056b 822f       | /  |		Call	0x1,0x2f
056c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
056d 0000 0000  |    |		.XXX[0x3]
056f 0000       |    |
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057d       | }  |		.CONST	0x057d								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0006       |    |		.CONST	0x0006								; Number of locals
0573			INIT_0570:
0573 482c       |H,  |		Short_Literal	0x2c
0574 483a       |H:  |		Short_Literal	0x3a
0575 e5ff       |    |		Load	0x2,-0x1
0576 01ca       |    |		Execute	Vector,Prepend
0577 01cb       |    |		Execute	Vector,Append
0578 0007       |    |		Action	Break_Optional
0579 00e2       |    |		Load_Encached	Integer_Cache
057a 00e2       |    |		Load_Encached	Integer_Cache
057b 00e2       |    |		Load_Encached	Integer_Cache
057c 00e2       |    |		Load_Encached	Integer_Cache
057d			BODY_0570:
057d 00cf       |    |		Action	Mark_Auxiliary
057e 4800       |H   |		Short_Literal	0x0
057f 4801       |H   |		Short_Literal	0x1
0580 e5fe       |    |		Load	0x2,-0x2
0581 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0582 e5fe       |    |		Load	0x2,-0x2
0583 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0584 01cf       |    |		Execute	Vector,Slice_Read
0585 e402       |    |		Load	0x2,0x2
0586 e002       |    |		Load	0x0,0x2
0587 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0588 a403       |    |		Store_Unchecked	0x2,0x3
0589 e403       |    |		Load	0x2,0x3
058a 682f       |h/  |		Jump_Zero	0x5ba
058b 4800       |H   |		Short_Literal	0x0
058c 4801       |H   |		Short_Literal	0x1
058d e403       |    |		Load	0x2,0x3
058e e5fe       |    |		Load	0x2,-0x2
058f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0590 01cf       |    |		Execute	Vector,Slice_Read
0591 482c       |H,  |		Short_Literal	0x2c
0592 e002       |    |		Load	0x0,0x2
0593 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0594 a404       |    |		Store_Unchecked	0x2,0x4
0595 e403       |    |		Load	0x2,0x3
0596 e404       |    |		Load	0x2,0x4
0597 0272       | r  |		Execute	Discrete,Minus
0598 0aff       |    |		Execute_Immediate	Plus,-0x1
0599 e402       |    |		Load	0x2,0x2
059a 01db       |    |		Execute	Vector,Length
059b 0273       | s  |		Execute	Discrete,Plus
059c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
059d e5fe       |    |		Load	0x2,-0x2
059e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
059f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
05a0 e5fe       |    |		Load	0x2,-0x2
05a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05a2 00da       |    |		Load_Top	At_Offset_2
05a3 0272       | r  |		Execute	Discrete,Minus
05a4 e5fe       |    |		Load	0x2,-0x2
05a5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a6 00db       |    |		Load_Top	At_Offset_3
05a7 00da       |    |		Load_Top	At_Offset_2
05a8 0273       | s  |		Execute	Discrete,Plus
05a9 00d8       |    |		Load_Top	At_Offset_0
05aa 00e2       |    |		Load_Encached	Integer_Cache
05ab 0260       | `  |		Execute	Discrete,In_Type
05ac 7001       |p   |		Jump_Nonzero	0x5ae
05ad 0801       |    |		Execute_Immediate	Raise,0x1
05ae 00db       |    |		Load_Top	At_Offset_3
05af e5fe       |    |		Load	0x2,-0x2
05b0 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05b1 01cf       |    |		Execute	Vector,Slice_Read
05b2 e404       |    |		Load	0x2,0x4
05b3 e5fe       |    |		Load	0x2,-0x2
05b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05b5 e5fe       |    |		Load	0x2,-0x2
05b6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05b7 01ce       |    |		Execute	Vector,Slice_Write
05b8 00c9       |    |		Action	Pop_Auxiliary_Loop
05b9 7fc4       |    |		Jump	0x57e
05ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05bb 0000 0000  |    |		.BLANK	0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4800       |H   |		Short_Literal	0x0
05c4 4801       |H   |		Short_Literal	0x1
05c5 e5ff       |    |		Load	0x2,-0x1
05c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05c7 e5ff       |    |		Load	0x2,-0x1
05c8 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05c9 01cf       |    |		Execute	Vector,Slice_Read
05ca 483a       |H:  |		Short_Literal	0x3a
05cb 482c       |H,  |		Short_Literal	0x2c
05cc e5fe       |    |		Load	0x2,-0x2
05cd 01ca       |    |		Execute	Vector,Prepend
05ce 01cb       |    |		Execute	Vector,Append
05cf e002       |    |		Load	0x0,0x2
05d0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d2 0000 0000  |    |		.BLANK	0000[0x6]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 00db       |    |		Load_Top	At_Offset_3
05dc 7002       |p   |		Jump_Nonzero	0x5df
05dd 00ea       |    |		Load_Encached	Null_String_Cache
05de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05df 00db       |    |		Load_Top	At_Offset_3
05e0 0a01       |    |		Execute_Immediate	Plus,0x1
05e1 00d8       |    |		Load_Top	At_Offset_0
05e2 00e2       |    |		Load_Encached	Integer_Cache
05e3 0260       | `  |		Execute	Discrete,In_Type
05e4 7001       |p   |		Jump_Nonzero	0x5e6
05e5 0801       |    |		Execute_Immediate	Raise,0x1
05e6 4800       |H   |		Short_Literal	0x0
05e7 e5fe       |    |		Load	0x2,-0x2
05e8 e5ff       |    |		Load	0x2,-0x1
05e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05ea e5ff       |    |		Load	0x2,-0x1
05eb 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05ec 01cf       |    |		Execute	Vector,Slice_Read
05ed 483a       |H:  |		Short_Literal	0x3a
05ee e002       |    |		Load	0x0,0x2
05ef 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
05f0 e5ff       |    |		Load	0x2,-0x1
05f1 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05f2 01cf       |    |		Execute	Vector,Slice_Read
05f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f4 0000 0000  |    |		.BLANK	0000[0x4]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4801       |H   |		Short_Literal	0x1
05fc 00db       |    |		Load_Top	At_Offset_3
05fd 0217       |    |		Execute	Heap_Access,All_Reference
05fe 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
05ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0600 e5ff       |    |		Load	0x2,-0x1
0601 0217       |    |		Execute	Heap_Access,All_Reference
0602 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0603 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0604 01cf       |    |		Execute	Vector,Slice_Read
0605 0335       | 5  |		Declare_Variable	Array,Duplicate
0606 00cd       |    |		Action	Spare6_Action
0607 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0610       |    |		.CONST	0x0610								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 00e2       |    |		Load_Encached	Integer_Cache
060c 00db       |    |		Load_Top	At_Offset_3
060d 01dd       |    |		Execute	Vector,First
060e 00e2       |    |		Load_Encached	Integer_Cache
060f 03f1       |    |		Declare_Variable	Discrete,With_Value
0610			BODY_0608:
0610 00cf       |    |		Action	Mark_Auxiliary
0611 e5fe       |    |		Load	0x2,-0x2
0612 4801       |H   |		Short_Literal	0x1
0613 0263       | c  |		Execute	Discrete,Above_Bound
0614 702c       |p,  |		Jump_Nonzero	0x641
0615 00db       |    |		Load_Top	At_Offset_3
0616 a402       |    |		Store_Unchecked	0x2,0x2
0617 00cf       |    |		Action	Mark_Auxiliary
0618 e402       |    |		Load	0x2,0x2
0619 e5ff       |    |		Load	0x2,-0x1
061a 01dc       |    |		Execute	Vector,Last
061b 027d       | }  |		Execute	Discrete,Greater
061c 6802       |h   |		Jump_Zero	0x61f
061d 00ea       |    |		Load_Encached	Null_String_Cache
061e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
061f e402       |    |		Load	0x2,0x2
0620 e5ff       |    |		Load	0x2,-0x1
0621 01d7       |    |		Execute	Vector,Field_Read
0622 e229       | )  |		Load	0x1,0x29
0623 01d7       |    |		Execute	Vector,Field_Read
0624 7005       |p   |		Jump_Nonzero	0x62a
0625 e402       |    |		Load	0x2,0x2
0626 0a01       |    |		Execute_Immediate	Plus,0x1
0627 c402       |    |		Store	0x2,0x2
0628 00c9       |    |		Action	Pop_Auxiliary_Loop
0629 7fee       |    |		Jump	0x618
062a 00ce       |    |		Action	Pop_Auxiliary
062b e402       |    |		Load	0x2,0x2
062c a403       |    |		Store_Unchecked	0x2,0x3
062d 00cf       |    |		Action	Mark_Auxiliary
062e e403       |    |		Load	0x2,0x3
062f 0a01       |    |		Execute_Immediate	Plus,0x1
0630 c403       |    |		Store	0x2,0x3
0631 e403       |    |		Load	0x2,0x3
0632 e5ff       |    |		Load	0x2,-0x1
0633 01dc       |    |		Execute	Vector,Last
0634 027d       | }  |		Execute	Discrete,Greater
0635 7008       |p   |		Jump_Nonzero	0x63e
0636 e403       |    |		Load	0x2,0x3
0637 e5ff       |    |		Load	0x2,-0x1
0638 01d7       |    |		Execute	Vector,Field_Read
0639 e229       | )  |		Load	0x1,0x29
063a 01d7       |    |		Execute	Vector,Field_Read
063b 6802       |h   |		Jump_Zero	0x63e
063c 00c9       |    |		Action	Pop_Auxiliary_Loop
063d 7ff0       |    |		Jump	0x62e
063e 00ce       |    |		Action	Pop_Auxiliary
063f 00c8       |    |		Action	Pop_Auxiliary_Range
0640 3fd4       |?   |		Loop_Increasing	0x615
0641 00ce       |    |		Action	Pop_Auxiliary
0642 00d9       |    |		Load_Top	At_Offset_1
0643 00d9       |    |		Load_Top	At_Offset_1
0644 0aff       |    |		Execute_Immediate	Plus,-0x1
0645 00d8       |    |		Load_Top	At_Offset_0
0646 00e2       |    |		Load_Encached	Integer_Cache
0647 0260       | `  |		Execute	Discrete,In_Type
0648 7001       |p   |		Jump_Nonzero	0x64a
0649 0801       |    |		Execute_Immediate	Raise,0x1
064a e5ff       |    |		Load	0x2,-0x1
064b 01cf       |    |		Execute	Vector,Slice_Read
064c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
064d 0000 0000  |    |		.XXX[0x3]
064f 0000       |    |
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0678       | x  |		.CONST	0x0678								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0005       |    |		.CONST	0x0005								; Number of locals
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2
0654 0217       |    |		Execute	Heap_Access,All_Reference
0655 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0656 00db       |    |		Load_Top	At_Offset_3
0657 0217       |    |		Execute	Heap_Access,All_Reference
0658 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
0659 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
065a 0273       | s  |		Execute	Discrete,Plus
065b 0a01       |    |		Execute_Immediate	Plus,0x1
065c 00d8       |    |		Load_Top	At_Offset_0
065d 00e2       |    |		Load_Encached	Integer_Cache
065e 0260       | `  |		Execute	Discrete,In_Type
065f 7001       |p   |		Jump_Nonzero	0x661
0660 0801       |    |		Execute_Immediate	Raise,0x1
0661 00db       |    |		Load_Top	At_Offset_3
0662 0217       |    |		Execute	Heap_Access,All_Reference
0663 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0664 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0665 e5ff       |    |		Load	0x2,-0x1
0666 0217       |    |		Execute	Heap_Access,All_Reference
0667 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0668 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0669 01cf       |    |		Execute	Vector,Slice_Read
066a e002       |    |		Load	0x0,0x2
066b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
066c 4802       |H   |		Short_Literal	0x2
066d 00d9       |    |		Load_Top	At_Offset_1
066e 8237       | 7  |		Call	0x1,0x37
066f 00d8       |    |		Load_Top	At_Offset_0
0670 e5ff       |    |		Load	0x2,-0x1
0671 0217       |    |		Execute	Heap_Access,All_Reference
0672 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0673 8234       | 4  |		Call	0x1,0x34
0674 00e2       |    |		Load_Encached	Integer_Cache
0675 03f1       |    |		Declare_Variable	Discrete,With_Value
0676 029f 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Call
0678			BODY_0650:
0678 00d9       |    |		Load_Top	At_Offset_1
0679 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
067a 6813       |h   |		Jump_Zero	0x68e
067b 4800       |H   |		Short_Literal	0x0
067c e5ff       |    |		Load	0x2,-0x1
067d 0217       |    |		Execute	Heap_Access,All_Reference
067e 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
067f e5ff       |    |		Load	0x2,-0x1
0680 0219       |    |		Execute	Heap_Access,All_Read
0681 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0682 00d8       |    |		Load_Top	At_Offset_0
0683 e403       |    |		Load	0x2,0x3
0684 8233       | 3  |		Call	0x1,0x33
0685 00d2       |    |		Pop_Control	Pop_Count_2
0686 00cf       |    |		Action	Mark_Auxiliary
0687 6008       |`   |		Indirect_Literal	Discrete,0x690,{0x00000000, 0x7fffffff}
0688 4803       |H   |		Short_Literal	0x3
0689 0007       |    |		Action	Break_Optional
068a 8405       |    |		Call	0x2,0x5
068b 00c8       |    |		Action	Pop_Auxiliary_Range
068c 3ffd       |?   |		Loop_Increasing	0x68a
068d 00ce       |    |		Action	Pop_Auxiliary
068e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
068f 0000       |    |		.XXX[0x1]
0690 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0694 0000 0000  |    |		.BLANK	0000[0x4]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06b6       |    |		.CONST	0x06b6								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0005       |    |		.CONST	0x0005								; Number of locals
069b			INIT_0698:
069b 4801       |H   |		Short_Literal	0x1
069c 00db       |    |		Load_Top	At_Offset_3
069d 0217       |    |		Execute	Heap_Access,All_Reference
069e 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
069f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06a0 00e9       |    |		Load_Encached	String_Cache
06a1 035b       | [  |		Declare_Type	Array,Constrained
06a2 00db       |    |		Load_Top	At_Offset_3
06a3 0217       |    |		Execute	Heap_Access,All_Reference
06a4 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
06a5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06a6 01cd       |    |		Execute	Vector,Slice_Reference
06a7 4800       |H   |		Short_Literal	0x0
06a8 00d9       |    |		Load_Top	At_Offset_1
06a9 e5ff       |    |		Load	0x2,-0x1
06aa 822c       | ,  |		Call	0x1,0x2c
06ab e002       |    |		Load	0x0,0x2
06ac 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06ad 00e2       |    |		Load_Encached	Integer_Cache
06ae 03f1       |    |		Declare_Variable	Discrete,With_Value
06af e5ff       |    |		Load	0x2,-0x1
06b0 0217       |    |		Execute	Heap_Access,All_Reference
06b1 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
06b2 00e2       |    |		Load_Encached	Integer_Cache
06b3 03f1       |    |		Declare_Variable	Discrete,With_Value
06b4 029f 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Call
06b6			BODY_0698:
06b6 00da       |    |		Load_Top	At_Offset_2
06b7 6816       |h   |		Jump_Zero	0x6ce
06b8 4801       |H   |		Short_Literal	0x1
06b9 00db       |    |		Load_Top	At_Offset_3
06ba 0aff       |    |		Execute_Immediate	Plus,-0x1
06bb 00d8       |    |		Load_Top	At_Offset_0
06bc 00e2       |    |		Load_Encached	Integer_Cache
06bd 0260       | `  |		Execute	Discrete,In_Type
06be 7001       |p   |		Jump_Nonzero	0x6c0
06bf 0801       |    |		Execute_Immediate	Raise,0x1
06c0 e22a       | *  |		Load	0x1,0x2a
06c1 01cf       |    |		Execute	Vector,Slice_Read
06c2 4801       |H   |		Short_Literal	0x1
06c3 e403       |    |		Load	0x2,0x3
06c4 0aff       |    |		Execute_Immediate	Plus,-0x1
06c5 00d8       |    |		Load_Top	At_Offset_0
06c6 00e2       |    |		Load_Encached	Integer_Cache
06c7 0260       | `  |		Execute	Discrete,In_Type
06c8 7001       |p   |		Jump_Nonzero	0x6ca
06c9 0801       |    |		Execute_Immediate	Raise,0x1
06ca e402       |    |		Load	0x2,0x2
06cb 01cf       |    |		Execute	Vector,Slice_Read
06cc 01de       |    |		Execute	Vector,Not_Equal
06cd 6821       |h!  |		Jump_Zero	0x6ef
06ce 4800       |H   |		Short_Literal	0x0
06cf 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
06d0 00cf       |    |		Action	Mark_Auxiliary
06d1 00db       |    |		Load_Top	At_Offset_3
06d2 0a01       |    |		Execute_Immediate	Plus,0x1
06d3 c403       |    |		Store	0x2,0x3
06d4 00db       |    |		Load_Top	At_Offset_3
06d5 e5ff       |    |		Load	0x2,-0x1
06d6 0217       |    |		Execute	Heap_Access,All_Reference
06d7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06d8 027d       | }  |		Execute	Discrete,Greater
06d9 700e       |p   |		Jump_Nonzero	0x6e8
06da 00db       |    |		Load_Top	At_Offset_3
06db e5ff       |    |		Load	0x2,-0x1
06dc 0217       |    |		Execute	Heap_Access,All_Reference
06dd 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
06de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06df 027d       | }  |		Execute	Discrete,Greater
06e0 7007       |p   |		Jump_Nonzero	0x6e8
06e1 00db       |    |		Load_Top	At_Offset_3
06e2 e402       |    |		Load	0x2,0x2
06e3 01d7       |    |		Execute	Vector,Field_Read
06e4 0e20       |    |		Execute_Immediate	Not_Equal,0x20
06e5 7002       |p   |		Jump_Nonzero	0x6e8
06e6 00c9       |    |		Action	Pop_Auxiliary_Loop
06e7 7fe9       |    |		Jump	0x6d1
06e8 00ce       |    |		Action	Pop_Auxiliary
06e9 00da       |    |		Load_Top	At_Offset_2
06ea e5ff       |    |		Load	0x2,-0x1
06eb 0217       |    |		Execute	Heap_Access,All_Reference
06ec 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
06ed 4807       |H   |		Short_Literal	0x7
06ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ef 00da       |    |		Load_Top	At_Offset_2
06f0 0aff       |    |		Execute_Immediate	Plus,-0x1
06f1 e5ff       |    |		Load	0x2,-0x1
06f2 0217       |    |		Execute	Heap_Access,All_Reference
06f3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06f4 4801       |H   |		Short_Literal	0x1
06f5 e5ff       |    |		Load	0x2,-0x1
06f6 0217       |    |		Execute	Heap_Access,All_Reference
06f7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06f8 8405       |    |		Call	0x2,0x5
06f9 0831       | 1  |		Execute_Immediate	Raise,0x31
06fa 0000 0000  |    |		.BLANK	0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 070b       |    |		.CONST	0x070b								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0005       |    |		.CONST	0x0005								; Number of locals
0703			INIT_0700:
0703 00e1       |    |		Load_Encached	Boolean_Cache
0704 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0705 e223       | #  |		Load	0x1,0x23
0706 0322       | "  |		Declare_Variable	Record
0707 e5ff       |    |		Load	0x2,-0x1
0708 8236       | 6  |		Call	0x1,0x36
0709 e5ff       |    |		Load	0x2,-0x1
070a 822c       | ,  |		Call	0x1,0x2c
070b			BODY_0700:
070b 4800       |H   |		Short_Literal	0x0
070c e5ff       |    |		Load	0x2,-0x1
070d 0217       |    |		Execute	Heap_Access,All_Reference
070e 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
070f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0710 e5ff       |    |		Load	0x2,-0x1
0711 8239       | 9  |		Call	0x1,0x39
0712 e5ff       |    |		Load	0x2,-0x1
0713 0217       |    |		Execute	Heap_Access,All_Reference
0714 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0715 e226       | &  |		Load	0x1,0x26
0716 01d5       |    |		Execute	Vector,Field_Reference
0717 01d5       |    |		Execute	Vector,Field_Reference
0718 00db       |    |		Load_Top	At_Offset_3
0719 017d       | }  |		Execute	Record,Structure_Write
071a 00da       |    |		Load_Top	At_Offset_2
071b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
071c e5ff       |    |		Load	0x2,-0x1
071d 0217       |    |		Execute	Heap_Access,All_Reference
071e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
071f 00da       |    |		Load_Top	At_Offset_2
0720 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0721 460c       |F   |		Jump_Case	0xd
0722 7828       |x(  |		Jump	0x74b								; case 0x0
0723 7814       |x   |		Jump	0x738								; case 0x1
0724 7826       |x&  |		Jump	0x74b								; case 0x2
0725 7893       |x   |		Jump	0x7b9								; case 0x3
0726 782b       |x+  |		Jump	0x752								; case 0x4
0727 7823       |x#  |		Jump	0x74b								; case 0x5
0728 7890       |x   |		Jump	0x7b9								; case 0x6
0729 783a       |x:  |		Jump	0x764								; case 0x7
072a 7856       |xV  |		Jump	0x781								; case 0x8
072b 7863       |xc  |		Jump	0x78f								; case 0x9
072c 786e       |xn  |		Jump	0x79b								; case 0xa
072d 7879       |xy  |		Jump	0x7a7								; case 0xb
072e 7800       |x   |		Jump	0x72f								; case 0xc
072f e5ff       |    |		Load	0x2,-0x1
0730 8238       | 8  |		Call	0x1,0x38
0731 e5ff       |    |		Load	0x2,-0x1
0732 0217       |    |		Execute	Heap_Access,All_Reference
0733 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0734 e5ff       |    |		Load	0x2,-0x1
0735 0217       |    |		Execute	Heap_Access,All_Reference
0736 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0737 7881       |x   |		Jump	0x7b9
0738 e5ff       |    |		Load	0x2,-0x1
0739 0219       |    |		Execute	Heap_Access,All_Read
073a 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
073b 00d8       |    |		Load_Top	At_Offset_0
073c e5ff       |    |		Load	0x2,-0x1
073d 822b       | +  |		Call	0x1,0x2b
073e 00db       |    |		Load_Top	At_Offset_3
073f 01cc       |    |		Execute	Vector,Catenate
0740 0092 09ca  |    |		Action	Push_String_Extended,0x9ca					; "begin "
0742 01cc       |    |		Execute	Vector,Catenate
0743 e5ff       |    |		Load	0x2,-0x1
0744 8236       | 6  |		Call	0x1,0x36
0745 01cc       |    |		Execute	Vector,Catenate
0746 822e       | .  |		Call	0x1,0x2e
0747 00d2       |    |		Pop_Control	Pop_Count_2
0748 4801       |H   |		Short_Literal	0x1
0749 a402       |    |		Store_Unchecked	0x2,0x2
074a 786e       |xn  |		Jump	0x7b9
074b e5ff       |    |		Load	0x2,-0x1
074c 0217       |    |		Execute	Heap_Access,All_Reference
074d 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
074e e5ff       |    |		Load	0x2,-0x1
074f 0217       |    |		Execute	Heap_Access,All_Reference
0750 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0751 7867       |xg  |		Jump	0x7b9
0752 e5ff       |    |		Load	0x2,-0x1
0753 0219       |    |		Execute	Heap_Access,All_Read
0754 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0755 00d8       |    |		Load_Top	At_Offset_0
0756 e5ff       |    |		Load	0x2,-0x1
0757 822b       | +  |		Call	0x1,0x2b
0758 00db       |    |		Load_Top	At_Offset_3
0759 01cc       |    |		Execute	Vector,Catenate
075a 0092 09cb  |    |		Action	Push_String_Extended,0x9cb					; "end "
075c 01cc       |    |		Execute	Vector,Catenate
075d e404       |    |		Load	0x2,0x4
075e 01cc       |    |		Execute	Vector,Catenate
075f 822e       | .  |		Call	0x1,0x2e
0760 00d2       |    |		Pop_Control	Pop_Count_2
0761 4801       |H   |		Short_Literal	0x1
0762 a402       |    |		Store_Unchecked	0x2,0x2
0763 7855       |xU  |		Jump	0x7b9
0764 e5ff       |    |		Load	0x2,-0x1
0765 0219       |    |		Execute	Heap_Access,All_Read
0766 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0767 00d8       |    |		Load_Top	At_Offset_0
0768 e5ff       |    |		Load	0x2,-0x1
0769 822b       | +  |		Call	0x1,0x2b
076a 00db       |    |		Load_Top	At_Offset_3
076b 01cc       |    |		Execute	Vector,Catenate
076c 0092 09cb  |    |		Action	Push_String_Extended,0x9cb					; "end "
076e 01cc       |    |		Execute	Vector,Catenate
076f e404       |    |		Load	0x2,0x4
0770 01cc       |    |		Execute	Vector,Catenate
0771 822e       | .  |		Call	0x1,0x2e
0772 00d2       |    |		Pop_Control	Pop_Count_2
0773 e5ff       |    |		Load	0x2,-0x1
0774 0217       |    |		Execute	Heap_Access,All_Reference
0775 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0776 0092 09cc  |    |		Action	Push_String_Extended,0x9cc					; "End-of-configuration expected after Ada-text block"
0778 e5ff       |    |		Load	0x2,-0x1
0779 0217       |    |		Execute	Heap_Access,All_Reference
077a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
077b e20f       |    |		Load	0x1,0xf
077c 0119       |    |		Execute	Any,Check_In_Formal_Type
077d 8213       |    |		Call	0x1,0x13
077e 4801       |H   |		Short_Literal	0x1
077f a402       |    |		Store_Unchecked	0x2,0x2
0780 7838       |x8  |		Jump	0x7b9
0781 e5ff       |    |		Load	0x2,-0x1
0782 0217       |    |		Execute	Heap_Access,All_Reference
0783 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0784 0092 09cd  |    |		Action	Push_String_Extended,0x9cd					; "End-of-configuration expected after commented-out block"
0786 e5ff       |    |		Load	0x2,-0x1
0787 0217       |    |		Execute	Heap_Access,All_Reference
0788 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0789 e20f       |    |		Load	0x1,0xf
078a 0119       |    |		Execute	Any,Check_In_Formal_Type
078b 8213       |    |		Call	0x1,0x13
078c 4801       |H   |		Short_Literal	0x1
078d a402       |    |		Store_Unchecked	0x2,0x2
078e 782a       |x*  |		Jump	0x7b9
078f e5ff       |    |		Load	0x2,-0x1
0790 0217       |    |		Execute	Heap_Access,All_Reference
0791 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0792 0092 09ce  |    |		Action	Push_String_Extended,0x9ce					; "Unexpected end-of-configuration within block being uncommented"
0794 e5ff       |    |		Load	0x2,-0x1
0795 0217       |    |		Execute	Heap_Access,All_Reference
0796 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0797 e20f       |    |		Load	0x1,0xf
0798 0119       |    |		Execute	Any,Check_In_Formal_Type
0799 8213       |    |		Call	0x1,0x13
079a 781e       |x   |		Jump	0x7b9
079b e5ff       |    |		Load	0x2,-0x1
079c 0219       |    |		Execute	Heap_Access,All_Read
079d 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
079e 00d8       |    |		Load_Top	At_Offset_0
079f e5ff       |    |		Load	0x2,-0x1
07a0 822b       | +  |		Call	0x1,0x2b
07a1 e5ff       |    |		Load	0x2,-0x1
07a2 822d       | -  |		Call	0x1,0x2d
07a3 01cc       |    |		Execute	Vector,Catenate
07a4 822e       | .  |		Call	0x1,0x2e
07a5 00d2       |    |		Pop_Control	Pop_Count_2
07a6 7812       |x   |		Jump	0x7b9
07a7 e5ff       |    |		Load	0x2,-0x1
07a8 0219       |    |		Execute	Heap_Access,All_Read
07a9 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
07aa 00d8       |    |		Load_Top	At_Offset_0
07ab 4820       |H   |		Short_Literal	0x20
07ac e5ff       |    |		Load	0x2,-0x1
07ad 822b       | +  |		Call	0x1,0x2b
07ae e405       |    |		Load	0x2,0x5
07af 01cc       |    |		Execute	Vector,Catenate
07b0 e5ff       |    |		Load	0x2,-0x1
07b1 8236       | 6  |		Call	0x1,0x36
07b2 01cc       |    |		Execute	Vector,Catenate
07b3 01cb       |    |		Execute	Vector,Append
07b4 e5ff       |    |		Load	0x2,-0x1
07b5 822d       | -  |		Call	0x1,0x2d
07b6 01cc       |    |		Execute	Vector,Catenate
07b7 822e       | .  |		Call	0x1,0x2e
07b8 00d2       |    |		Pop_Control	Pop_Count_2
07b9 00db       |    |		Load_Top	At_Offset_3
07ba 700c       |p   |		Jump_Nonzero	0x7c7
07bb 4800       |H   |		Short_Literal	0x0
07bc e5ff       |    |		Load	0x2,-0x1
07bd 0217       |    |		Execute	Heap_Access,All_Reference
07be 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
07bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07c0 e5ff       |    |		Load	0x2,-0x1
07c1 0217       |    |		Execute	Heap_Access,All_Reference
07c2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07c3 0a01       |    |		Execute_Immediate	Plus,0x1
07c4 e5ff       |    |		Load	0x2,-0x1
07c5 0217       |    |		Execute	Heap_Access,All_Reference
07c6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cd       |    |		.CONST	0x07cd								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0003       |    |		.CONST	0x0003								; Number of locals
07cb			INIT_07c8:
07cb 00e3       |    |		Load_Encached	Natural_Cache
07cc 00e3       |    |		Load_Encached	Natural_Cache
07cd			BODY_07c8:
07cd 00cf       |    |		Action	Mark_Auxiliary
07ce e5ff       |    |		Load	0x2,-0x1
07cf 0217       |    |		Execute	Heap_Access,All_Reference
07d0 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
07d1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d2 70a7       |p   |		Jump_Nonzero	0x87a
07d3 4800       |H   |		Short_Literal	0x0
07d4 e5ff       |    |		Load	0x2,-0x1
07d5 0217       |    |		Execute	Heap_Access,All_Reference
07d6 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
07d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07d8 4801       |H   |		Short_Literal	0x1
07d9 e5ff       |    |		Load	0x2,-0x1
07da 0217       |    |		Execute	Heap_Access,All_Reference
07db 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
07dc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07dd 00cf       |    |		Action	Mark_Auxiliary
07de 00cf       |    |		Action	Mark_Auxiliary
07df 7821       |x!  |		Jump	0x801
07e0 e5ff       |    |		Load	0x2,-0x1
07e1 0217       |    |		Execute	Heap_Access,All_Reference
07e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07e3 e20f       |    |		Load	0x1,0xf
07e4 0119       |    |		Execute	Any,Check_In_Formal_Type
07e5 8212       |    |		Call	0x1,0x12
07e6 6802       |h   |		Jump_Zero	0x7e9
07e7 00ce       |    |		Action	Pop_Auxiliary
07e8 7890       |x   |		Jump	0x879
07e9 e5ff       |    |		Load	0x2,-0x1
07ea 0219       |    |		Execute	Heap_Access,All_Read
07eb 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
07ec e5ff       |    |		Load	0x2,-0x1
07ed 0219       |    |		Execute	Heap_Access,All_Read
07ee 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
07ef 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07f0 00e3       |    |		Load_Encached	Natural_Cache
07f1 00d9       |    |		Load_Top	At_Offset_1
07f2 e5ff       |    |		Load	0x2,-0x1
07f3 0217       |    |		Execute	Heap_Access,All_Reference
07f4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07f5 e20f       |    |		Load	0x1,0xf
07f6 0119       |    |		Execute	Any,Check_In_Formal_Type
07f7 8210       |    |		Call	0x1,0x10
07f8 00d1       |    |		Pop_Control	Pop_Count_1
07f9 00da       |    |		Load_Top	At_Offset_2
07fa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07fb 00d2       |    |		Pop_Control	Pop_Count_2
07fc 4801       |H   |		Short_Literal	0x1
07fd e5ff       |    |		Load	0x2,-0x1
07fe 0217       |    |		Execute	Heap_Access,All_Reference
07ff 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0800 00c9       |    |		Action	Pop_Auxiliary_Loop
0801 e5ff       |    |		Load	0x2,-0x1
0802 0217       |    |		Execute	Heap_Access,All_Reference
0803 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0804 e5ff       |    |		Load	0x2,-0x1
0805 0217       |    |		Execute	Heap_Access,All_Reference
0806 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0807 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0808 027d       | }  |		Execute	Discrete,Greater
0809 77d6       |w   |		Jump_Nonzero	0x7e0
080a 00ce       |    |		Action	Pop_Auxiliary
080b e5ff       |    |		Load	0x2,-0x1
080c 0217       |    |		Execute	Heap_Access,All_Reference
080d 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
080e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
080f 0a01       |    |		Execute_Immediate	Plus,0x1
0810 005b       | [  |		Store_Top	Discrete,At_Offset_3
0811 4800       |H   |		Short_Literal	0x0
0812 e5ff       |    |		Load	0x2,-0x1
0813 0217       |    |		Execute	Heap_Access,All_Reference
0814 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0815 e5ff       |    |		Load	0x2,-0x1
0816 0217       |    |		Execute	Heap_Access,All_Reference
0817 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0818 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0819 e5ff       |    |		Load	0x2,-0x1
081a 0217       |    |		Execute	Heap_Access,All_Reference
081b 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
081c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
081d 01cf       |    |		Execute	Vector,Slice_Read
081e 480a       |H   |		Short_Literal	0xa
081f e002       |    |		Load	0x0,0x2
0820 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0821 a402       |    |		Store_Unchecked	0x2,0x2
0822 00db       |    |		Load_Top	At_Offset_3
0823 702d       |p-  |		Jump_Nonzero	0x851
0824 00da       |    |		Load_Top	At_Offset_2
0825 e5ff       |    |		Load	0x2,-0x1
0826 0217       |    |		Execute	Heap_Access,All_Reference
0827 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0828 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0829 0273       | s  |		Execute	Discrete,Plus
082a e5ff       |    |		Load	0x2,-0x1
082b 0217       |    |		Execute	Heap_Access,All_Reference
082c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
082d 0272       | r  |		Execute	Discrete,Minus
082e e5ff       |    |		Load	0x2,-0x1
082f 0217       |    |		Execute	Heap_Access,All_Reference
0830 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0831 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0832 e5ff       |    |		Load	0x2,-0x1
0833 0217       |    |		Execute	Heap_Access,All_Reference
0834 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0835 e5ff       |    |		Load	0x2,-0x1
0836 0217       |    |		Execute	Heap_Access,All_Reference
0837 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0838 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0839 e5ff       |    |		Load	0x2,-0x1
083a 0217       |    |		Execute	Heap_Access,All_Reference
083b 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
083c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
083d 01cf       |    |		Execute	Vector,Slice_Read
083e 00db       |    |		Load_Top	At_Offset_3
083f e5ff       |    |		Load	0x2,-0x1
0840 0217       |    |		Execute	Heap_Access,All_Reference
0841 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0842 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0843 e5ff       |    |		Load	0x2,-0x1
0844 0219       |    |		Execute	Heap_Access,All_Read
0845 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0846 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0847 01ce       |    |		Execute	Vector,Slice_Write
0848 e5ff       |    |		Load	0x2,-0x1
0849 0217       |    |		Execute	Heap_Access,All_Reference
084a 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
084b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
084c 0a01       |    |		Execute_Immediate	Plus,0x1
084d e5ff       |    |		Load	0x2,-0x1
084e 0217       |    |		Execute	Heap_Access,All_Reference
084f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0850 7826       |x&  |		Jump	0x877
0851 00da       |    |		Load_Top	At_Offset_2
0852 e402       |    |		Load	0x2,0x2
0853 0273       | s  |		Execute	Discrete,Plus
0854 0aff       |    |		Execute_Immediate	Plus,-0x1
0855 e5ff       |    |		Load	0x2,-0x1
0856 0217       |    |		Execute	Heap_Access,All_Reference
0857 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0858 0272       | r  |		Execute	Discrete,Minus
0859 e5ff       |    |		Load	0x2,-0x1
085a 0217       |    |		Execute	Heap_Access,All_Reference
085b 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
085c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
085d e5ff       |    |		Load	0x2,-0x1
085e 0217       |    |		Execute	Heap_Access,All_Reference
085f 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0860 e402       |    |		Load	0x2,0x2
0861 0aff       |    |		Execute_Immediate	Plus,-0x1
0862 e5ff       |    |		Load	0x2,-0x1
0863 0217       |    |		Execute	Heap_Access,All_Reference
0864 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0865 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0866 01cf       |    |		Execute	Vector,Slice_Read
0867 00db       |    |		Load_Top	At_Offset_3
0868 e5ff       |    |		Load	0x2,-0x1
0869 0217       |    |		Execute	Heap_Access,All_Reference
086a 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
086b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
086c e5ff       |    |		Load	0x2,-0x1
086d 0219       |    |		Execute	Heap_Access,All_Read
086e 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
086f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0870 01ce       |    |		Execute	Vector,Slice_Write
0871 00db       |    |		Load_Top	At_Offset_3
0872 0a01       |    |		Execute_Immediate	Plus,0x1
0873 e5ff       |    |		Load	0x2,-0x1
0874 0217       |    |		Execute	Heap_Access,All_Reference
0875 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0876 7802       |x   |		Jump	0x879
0877 00c9       |    |		Action	Pop_Auxiliary_Loop
0878 7f65       | e  |		Jump	0x7de
0879 00ce       |    |		Action	Pop_Auxiliary
087a e5ff       |    |		Load	0x2,-0x1
087b 823a       | :  |		Call	0x1,0x3a
087c e5ff       |    |		Load	0x2,-0x1
087d 0217       |    |		Execute	Heap_Access,All_Reference
087e 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
087f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0880 7002       |p   |		Jump_Nonzero	0x883
0881 00c9       |    |		Action	Pop_Auxiliary_Loop
0882 7f4b       | K  |		Jump	0x7ce
0883 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0884 0000 0000  |    |		.BLANK	0000[0x4]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 0894       |    |		.CONST	0x0894								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0003       |    |		.CONST	0x0003								; Number of locals
088b			INIT_0888:
088b e402       |    |		Load	0x2,0x2
088c e5fe       |    |		Load	0x2,-0x2
088d 01dc       |    |		Execute	Vector,Last
088e e5fe       |    |		Load	0x2,-0x2
088f 01cf       |    |		Execute	Vector,Slice_Read
0890 e002       |    |		Load	0x0,0x2
0891 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0892 029f 097b  |   {|		Declare_Subprogram	INIT_0978,For_Call
0894			BODY_0888:
0894 00cf       |    |		Action	Mark_Auxiliary
0895 6006       |`   |		Indirect_Literal	Discrete,0x89c,{0x00000000, 0x7fffffff}
0896 4801       |H   |		Short_Literal	0x1
0897 0007       |    |		Action	Break_Optional
0898 8603       |    |		Call	0x3,0x3
0899 00c8       |    |		Action	Pop_Auxiliary_Range
089a 3ffd       |?   |		Loop_Increasing	0x898
089b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
089c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08b1       |    |		.CONST	0x08b1								; Address of begin
08a1 0004       |    |		.CONST	0x0004								; Address of exception handler
08a2 0003       |    |		.CONST	0x0003								; Number of locals
08a3			INIT_08a0:
08a3 4802       |H   |		Short_Literal	0x2
08a4 e5fe       |    |		Load	0x2,-0x2
08a5 0217       |    |		Execute	Heap_Access,All_Reference
08a6 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
08a7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08a8 e5fe       |    |		Load	0x2,-0x2
08a9 0217       |    |		Execute	Heap_Access,All_Reference
08aa 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
08ab 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08ac 01cf       |    |		Execute	Vector,Slice_Read
08ad 0335       | 5  |		Declare_Variable	Array,Duplicate
08ae 00cd       |    |		Action	Spare6_Action
08af 029f 099b  |    |		Declare_Subprogram	INIT_0998,For_Call
08b1			BODY_08a0:
08b1 e5fe       |    |		Load	0x2,-0x2
08b2 0219       |    |		Execute	Heap_Access,All_Read
08b3 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
08b4 00d8       |    |		Load_Top	At_Offset_0
08b5 0092 09c5  |    |		Action	Push_String_Extended,0x9c5					; ","
08b7 822e       | .  |		Call	0x1,0x2e
08b8 00d2       |    |		Pop_Control	Pop_Count_2
08b9 00cf       |    |		Action	Mark_Auxiliary
08ba 67e1       |g   |		Indirect_Literal	Discrete,0x89c,{0x00000000, 0x7fffffff}
08bb 4801       |H   |		Short_Literal	0x1
08bc 0007       |    |		Action	Break_Optional
08bd 8603       |    |		Call	0x3,0x3
08be 00c8       |    |		Action	Pop_Auxiliary_Range
08bf 3ffd       |?   |		Loop_Increasing	0x8bd
08c0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08c1 0000 0000  |    |		.BLANK	0000[0x7]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08ce       |    |		.CONST	0x08ce								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0002       |    |		.CONST	0x0002								; Number of locals
08cb			INIT_08c8:
08cb e408       |    |		Load	0x2,0x8
08cc e402       |    |		Load	0x2,0x2
08cd 8237       | 7  |		Call	0x1,0x37
08ce			BODY_08c8:
08ce 00d8       |    |		Load_Top	At_Offset_0
08cf 01db       |    |		Execute	Vector,Length
08d0 7003       |p   |		Jump_Nonzero	0x8d4
08d1 00cc       |    |		Action	Pop_Block
08d2 00d2       |    |		Pop_Control	Pop_Count_2
08d3 7db9       |}   |		Jump	0x68d
08d4 e5ff       |    |		Load	0x2,-0x1
08d5 0219       |    |		Execute	Heap_Access,All_Read
08d6 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
08d7 00d8       |    |		Load_Top	At_Offset_0
08d8 e403       |    |		Load	0x2,0x3
08d9 00db       |    |		Load_Top	At_Offset_3
08da 8232       | 2  |		Call	0x1,0x32
08db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08dc 0000 0000  |    |		.BLANK	0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08f9       |    |		.CONST	0x08f9								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0003       |    |		.CONST	0x0003								; Number of locals
08e3			INIT_08e0:
08e3 e403       |    |		Load	0x2,0x3
08e4 e5ff       |    |		Load	0x2,-0x1
08e5 0217       |    |		Execute	Heap_Access,All_Reference
08e6 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
08e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08e8 0273       | s  |		Execute	Discrete,Plus
08e9 00d8       |    |		Load_Top	At_Offset_0
08ea 00e2       |    |		Load_Encached	Integer_Cache
08eb 0260       | `  |		Execute	Discrete,In_Type
08ec 7001       |p   |		Jump_Nonzero	0x8ee
08ed 0801       |    |		Execute_Immediate	Raise,0x1
08ee e402       |    |		Load	0x2,0x2
08ef 01dc       |    |		Execute	Vector,Last
08f0 00e9       |    |		Load_Encached	String_Cache
08f1 035b       | [  |		Declare_Type	Array,Constrained
08f2 e402       |    |		Load	0x2,0x2
08f3 01cd       |    |		Execute	Vector,Slice_Reference
08f4 4801       |H   |		Short_Literal	0x1
08f5 00d9       |    |		Load_Top	At_Offset_1
08f6 8237       | 7  |		Call	0x1,0x37
08f7 e002       |    |		Load	0x0,0x2
08f8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08f9			BODY_08e0:
08f9 00d8       |    |		Load_Top	At_Offset_0
08fa 0092 09cf  |    |		Action	Push_String_Extended,0x9cf					; "begin"
08fc 01df       |    |		Execute	Vector,Equal
08fd 681e       |h   |		Jump_Zero	0x91c
08fe e5ff       |    |		Load	0x2,-0x1
08ff 0219       |    |		Execute	Heap_Access,All_Read
0900 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0901 00d8       |    |		Load_Top	At_Offset_0
0902 4802       |H   |		Short_Literal	0x2
0903 e602       |    |		Load	0x3,0x2
0904 8237       | 7  |		Call	0x1,0x37
0905 e002       |    |		Load	0x0,0x2
0906 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0907 822e       | .  |		Call	0x1,0x2e
0908 00d2       |    |		Pop_Control	Pop_Count_2
0909 e5ff       |    |		Load	0x2,-0x1
090a 8236       | 6  |		Call	0x1,0x36
090b e5ff       |    |		Load	0x2,-0x1
090c 0217       |    |		Execute	Heap_Access,All_Reference
090d 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
090e 8234       | 4  |		Call	0x1,0x34
090f e5ff       |    |		Load	0x2,-0x1
0910 0217       |    |		Execute	Heap_Access,All_Reference
0911 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0912 e5ff       |    |		Load	0x2,-0x1
0913 0217       |    |		Execute	Heap_Access,All_Reference
0914 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0915 7003       |p   |		Jump_Nonzero	0x919
0916 4804       |H   |		Short_Literal	0x4
0917 00cb       |    |		Action	Pop_Block_With_Result
0918 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0919 4803       |H   |		Short_Literal	0x3
091a 00cb       |    |		Action	Pop_Block_With_Result
091b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091c 00d8       |    |		Load_Top	At_Offset_0
091d 0092 09d0  |    |		Action	Push_String_Extended,0x9d0					; "end"
091f 01df       |    |		Execute	Vector,Equal
0920 681d       |h   |		Jump_Zero	0x93e
0921 4802       |H   |		Short_Literal	0x2
0922 00da       |    |		Load_Top	At_Offset_2
0923 8237       | 7  |		Call	0x1,0x37
0924 e002       |    |		Load	0x0,0x2
0925 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0926 e5ff       |    |		Load	0x2,-0x1
0927 8236       | 6  |		Call	0x1,0x36
0928 01de       |    |		Execute	Vector,Not_Equal
0929 6811       |h   |		Jump_Zero	0x93b
092a e5ff       |    |		Load	0x2,-0x1
092b 0217       |    |		Execute	Heap_Access,All_Reference
092c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
092d 0092 09d1  |    |		Action	Push_String_Extended,0x9d1					; "Name for "
092f e5ff       |    |		Load	0x2,-0x1
0930 822c       | ,  |		Call	0x1,0x2c
0931 01cc       |    |		Execute	Vector,Catenate
0932 0092 09d2  |    |		Action	Push_String_Extended,0x9d2					; "end does not match begin"
0934 01cc       |    |		Execute	Vector,Catenate
0935 e5ff       |    |		Load	0x2,-0x1
0936 0217       |    |		Execute	Heap_Access,All_Reference
0937 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0938 e20f       |    |		Load	0x1,0xf
0939 0119       |    |		Execute	Any,Check_In_Formal_Type
093a 8213       |    |		Call	0x1,0x13
093b 4805       |H   |		Short_Literal	0x5
093c 00cb       |    |		Action	Pop_Block_With_Result
093d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
093e 00d8       |    |		Load_Top	At_Offset_0
093f 0092 09d3  |    |		Action	Push_String_Extended,0x9d3					; "declare"
0941 01df       |    |		Execute	Vector,Equal
0942 6803       |h   |		Jump_Zero	0x946
0943 4806       |H   |		Short_Literal	0x6
0944 00cb       |    |		Action	Pop_Block_With_Result
0945 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0946 e5ff       |    |		Load	0x2,-0x1
0947 0219       |    |		Execute	Heap_Access,All_Read
0948 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0949 00d8       |    |		Load_Top	At_Offset_0
094a 00da       |    |		Load_Top	At_Offset_2
094b 822e       | .  |		Call	0x1,0x2e
094c 00d2       |    |		Pop_Control	Pop_Count_2
094d 00d8       |    |		Load_Top	At_Offset_0
094e e5ff       |    |		Load	0x2,-0x1
094f 0217       |    |		Execute	Heap_Access,All_Reference
0950 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
0951 8234       | 4  |		Call	0x1,0x34
0952 e5ff       |    |		Load	0x2,-0x1
0953 0217       |    |		Execute	Heap_Access,All_Reference
0954 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0955 00d9       |    |		Load_Top	At_Offset_1
0956 01dd       |    |		Execute	Vector,First
0957 00d9       |    |		Load_Top	At_Offset_1
0958 01db       |    |		Execute	Vector,Length
0959 0273       | s  |		Execute	Discrete,Plus
095a 0a01       |    |		Execute_Immediate	Plus,0x1
095b e5ff       |    |		Load	0x2,-0x1
095c 0217       |    |		Execute	Heap_Access,All_Reference
095d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
095e e5ff       |    |		Load	0x2,-0x1
095f 0217       |    |		Execute	Heap_Access,All_Reference
0960 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0961 7003       |p   |		Jump_Nonzero	0x965
0962 4802       |H   |		Short_Literal	0x2
0963 00cb       |    |		Action	Pop_Block_With_Result
0964 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0965 e404       |    |		Load	0x2,0x4
0966 e5ff       |    |		Load	0x2,-0x1
0967 0217       |    |		Execute	Heap_Access,All_Reference
0968 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0969 027f       |    |		Execute	Discrete,Equal
096a 6803       |h   |		Jump_Zero	0x96e
096b 4800       |H   |		Short_Literal	0x0
096c 00cb       |    |		Action	Pop_Block_With_Result
096d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096e 4801       |H   |		Short_Literal	0x1
096f 00cb       |    |		Action	Pop_Block_With_Result
0970 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0971 0000 0000  |    |		.BLANK	0000[0x7]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097e       | ~  |		.CONST	0x097e								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0002       |    |		.CONST	0x0002								; Number of locals
097b			INIT_0978:
097b e606       |    |		Load	0x3,0x6
097c e602       |    |		Load	0x3,0x2
097d 8237       | 7  |		Call	0x1,0x37
097e			BODY_0978:
097e 00d8       |    |		Load_Top	At_Offset_0
097f 01db       |    |		Execute	Vector,Length
0980 7003       |p   |		Jump_Nonzero	0x984
0981 00cc       |    |		Action	Pop_Block
0982 00d2       |    |		Pop_Control	Pop_Count_2
0983 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0984 e404       |    |		Load	0x2,0x4
0985 0219       |    |		Execute	Heap_Access,All_Read
0986 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0987 00d8       |    |		Load_Top	At_Offset_0
0988 00ea       |    |		Load_Encached	Null_String_Cache
0989 00db       |    |		Load_Top	At_Offset_3
098a 8232       | 2  |		Call	0x1,0x32
098b 00d2       |    |		Pop_Control	Pop_Count_2
098c e404       |    |		Load	0x2,0x4
098d 0219       |    |		Execute	Heap_Access,All_Read
098e 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
098f 00d8       |    |		Load_Top	At_Offset_0
0990 00da       |    |		Load_Top	At_Offset_2
0991 00db       |    |		Load_Top	At_Offset_3
0992 8232       | 2  |		Call	0x1,0x32
0993 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0994 0000 0000  |    |		.BLANK	0000[0x4]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099e       |    |		.CONST	0x099e								; Address of begin
0999 0004       |    |		.CONST	0x0004								; Address of exception handler
099a 0002       |    |		.CONST	0x0002								; Number of locals
099b			INIT_0998:
099b e606       |    |		Load	0x3,0x6
099c e602       |    |		Load	0x3,0x2
099d 8237       | 7  |		Call	0x1,0x37
099e			BODY_0998:
099e 00d8       |    |		Load_Top	At_Offset_0
099f 01db       |    |		Execute	Vector,Length
09a0 7003       |p   |		Jump_Nonzero	0x9a4
09a1 00cc       |    |		Action	Pop_Block
09a2 00d2       |    |		Pop_Control	Pop_Count_2
09a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09a4 e5fe       |    |		Load	0x2,-0x2
09a5 0219       |    |		Execute	Heap_Access,All_Read
09a6 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
09a7 00d8       |    |		Load_Top	At_Offset_0
09a8 00da       |    |		Load_Top	At_Offset_2
09a9 00db       |    |		Load_Top	At_Offset_3
09aa 8232       | 2  |		Call	0x1,0x32
09ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09ac ; --------------------------------------------------------------------------------------
09ac ; STRING TABLE
09ac ; --------------------------------------------------------------------------------------
09ac 0052       | R  |		.STRTAB	0x0052->0x09d5							; "CONTINUE"
09ad 0058       | X  |		.STRTAB	0x0058->0x09d9							; "TEXT"
09ae 005a       | Z  |		.STRTAB	0x005a->0x09db							; "COMMENT"
09af 005f       | _  |		.STRTAB	0x005f->0x09de							; "TEXT_BLOCK"
09b0 0067       | g  |		.STRTAB	0x0067->0x09e3							; "COMMENT_BLOCK"
09b1 0072       | r  |		.STRTAB	0x0072->0x09ea							; "END_BLOCK"
09b2 0079       | y  |		.STRTAB	0x0079->0x09ee							; "DECL"
09b3 007b       | {  |		.STRTAB	0x007b->0x09f0							; "PLAIN_TEXT"
09b4 0083       |    |		.STRTAB	0x0083->0x09f5							; "NIL"
09b5 0084       |    |		.STRTAB	0x0084->0x09f7							; "COPY"
09b6 0086       |    |		.STRTAB	0x0086->0x09f9							; "COMMENT"
09b7 008b       |    |		.STRTAB	0x008b->0x09fc							; "UNCOMMENT"
09b8 0092       |    |		.STRTAB	0x0092->0x0a01							; "PASS"
09b9 0094       |    |		.STRTAB	0x0094->0x0a03							; "INSERT_BEGIN"
09ba 009e       |    |		.STRTAB	0x009e->0x0a09							; "KEEP_BEGIN"
09bb 00a6       |    |		.STRTAB	0x00a6->0x0a0e							; "DELETE_BEGIN"
09bc 00b0       |    |		.STRTAB	0x00b0->0x0a14							; "INSERT_END"
09bd 00b8       |    |		.STRTAB	0x00b8->0x0a19							; "KEEP_END"
09be 00be       |    |		.STRTAB	0x00be->0x0a1d							; "DELETE_END"
09bf 00c6       |    |		.STRTAB	0x00c6->0x0a22							; "NO_END0"
09c0 00cb       |    |		.STRTAB	0x00cb->0x0a25							; "NO_END1"
09c1 00d0       |    |		.STRTAB	0x00d0->0x0a29							; "BAD_END"
09c2 00d5       |    |		.STRTAB	0x00d5->0x0a2c							; "UNCOMMENT"
09c3 00dc       |    |		.STRTAB	0x00dc->0x0a31							; "COMMENT"
09c4 00e1       |    |		.STRTAB	0x00e1->0x0a34							; "DO_DECLARE"
09c5 00e9       |    |		.STRTAB	0x00e9->0x0a39							; ","
09c6 00e8       |    |		.STRTAB	0x00e8->0x0a3a							; "--"
09c7 00e8       |    |		.STRTAB	0x00e8->0x0a3b							; "Configuration \x22"
09c8 00f5       |    |		.STRTAB	0x00f5->0x0a42							; "\x22 starts with an invalid tag."
09c9 0110       |    |		.STRTAB	0x0110->0x0a51							; "<INVALID>\x22"
09ca 0118       |    |		.STRTAB	0x0118->0x0a56							; "begin "
09cb 011c       |    |		.STRTAB	0x011c->0x0a59							; "end "
09cc 011e       |    |		.STRTAB	0x011e->0x0a5b							; "End-of-configuration expected after Ada-text block"
09cd 014e       | N  |		.STRTAB	0x014e->0x0a74							; "End-of-configuration expected after commented-out block"
09ce 0183       |    |		.STRTAB	0x0183->0x0a8f							; "Unexpected end-of-configuration within block being uncommented"
09cf 01bf       |    |		.STRTAB	0x01bf->0x0aae							; "begin"
09d0 01c2       |    |		.STRTAB	0x01c2->0x0ab1							; "end"
09d1 01c3       |    |		.STRTAB	0x01c3->0x0ab2							; "Name for "
09d2 01ca       |    |		.STRTAB	0x01ca->0x0ab7							; "end does not match begin"
09d3 01e0       |    |		.STRTAB	0x01e0->0x0ac3							; "declare"
09d4 01e5       |    |		.STREND 0x01e5->0x0ac6
09d5 434f 4e54  |CONT|		.STRTAB_STRINGS
0ac7 0000       |    |		.XXX[0x1]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; Debug Table
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0xeb38,0x0000,0x0001,0x0000
0ace 0000 0000  |    |		.BLANK	0000[0x6]
0ad4 0107 0800  |    |		.XXX[0x2]
0ad6 0000 0000  |    |		.BLANK	0000[0x7]
0add 0002 0000  |    |		.XXX[0x9]
0adf 0000 0000  |    |
0ae1 0002 0002  |    |
0ae3 45e0 008d  |E   |
0ae5 141c       |    |
0ae6 0000 0000  |    |		.BLANK	0000[0x4]
0aea 0046 8ee3  | F  |		.XXX[0xe]
0aec 0000 0299  |    |
0aee e7b6 a4f7  |    |
0af0 e000 0000  |    |
0af2 0014 0f53  |   S|
0af4 6e07 1c50  |n  P|
0af6 0000 9100  |    |
0af8 0000 0000  |    |		.BLANK	0000[0xb]
0b03 0004 0000  |    |		.XXX[0x12]
0b05 0000 0234  |   4|
0b07 4400 0000  |D   |
0b09 0200 f6d4  |    |
0b0b 9efd 0000  |    |
0b0d 0000 0200  |    |
0b0f 0000 1200  |    |
0b11 0002 b400  |    |
0b13 0000 0400  |    |
0b15 0000 0000  |    |		.BLANK	0000[0x8]
0b1d 0041 c200  | A  |		.XXX[0x2]
0b1f 0000 0000  |    |		.BLANK	0000[0x8]
0b27 8000 0000  |    |		.XXX[0x8]
0b29 0000 0000  |    |
0b2b 8000 019c  |    |
0b2d 0023 4750  | #GP|
0b2f 0000 0000  |    |		.BLANK	0000[0x4]
0b33 0011 a4dd  |    |		.XXX[0xe]
0b35 4000 0ee1  |@   |
0b37 e206 6006  |  ` |
0b39 9a49 8800  | I  |
0b3b 0015 0330  |   0|
0b3d 034d 812c  | M ,|
0b3f 0000 0a00  |    |
0b41 0000 0000  |    |		.BLANK	0000[0x4]
0b45 0dae 4858  |  HX|		.XXX[0x19]
0b47 0000 0400  |    |
0b49 0dae 6858  |  hX|
0b4b 0000 0400  |    |
0b4d 8000 0000  |    |
0b4f 01b5 cd0b  |    |
0b51 0000 0080  |    |
0b53 40cc 00d3  |@   |
0b55 604b 0000  |`K  |
0b57 0280 0000  |    |
0b59 0480 002e  |   .|
0b5b 6400 0000  |d   |
0b5d 0100       |    |
0b5e 0000 0000  |    |		.BLANK	0000[0x8]
0b66 0010 7080  |  p |		.XXX[0x2]
0b68 0000 0000  |    |		.BLANK	0000[0x8]
0b70 2000 0000  |    |		.XXX[0x1a]
0b72 0000 0000  |    |
0b74 2000 09c3  |    |
0b76 6008 d266  |`  f|
0b78 4008 d252  |@  R|
0b7a 2008 d408  |    |
0b7c f004 6980  |  i |
0b7e 7000 06b9  |p   |
0b80 b481 bf80  |    |
0b82 44c4 7600  |D v |
0b84 0023 40e1  | #@ |
0b86 a4b4 e7ea  |    |
0b88 0000 0900  |    |
0b8a 0000 0000  |    |		.BLANK	0000[0x4]
0b8e 04fb 0a14  |    |		.XXX[0x45]
0b90 0000 0100  |    |
0b92 04fb 2a14  |  * |
0b94 0000 0100  |    |
0b96 0000 18de  |    |
0b98 409f 6542  |@ eB|
0b9a 8000 0020  |    |
0b9c 1037 f008  | 7  |
0b9e c920 e000  |    |
0ba0 0460 0000  | `  |
0ba2 0120 000f  |    |
0ba4 1a40 0000  | @  |
0ba6 0040 0000  | @  |
0ba8 0040 0003  | @  |
0baa 1bc8 0000  |    |
0bac 0000 0000  |    |
0bae 0002 06fe  |    |
0bb0 0117 dd88  |    |
0bb2 0000 8c00  |    |
0bb4 0000 2400  |  $ |
0bb6 01e3 4800  |  H |
0bb8 0000 0800  |    |
0bba 0000 0800  |    |
0bbc 0000 0800  |    |
0bbe 032e 0802  | .  |
0bc0 34be 2000  |4   |
0bc2 0000 0000  |    |
0bc4 0000 0001  |    |
0bc6 1a72 6400  | rd |
0bc8 01cd 66a0  |  f |
0bca 6fe7 118f  |o   |
0bcc bb80 0008  |    |
0bce d038 6941  | 8iA|
0bd0 b328 4000  | (@ |
0bd2 0240       | @  |
0bd3 0000 0000  |    |		.BLANK	0000[0x4]
0bd7 0151 a085  | Q  |		.XXX[0x19]
0bd9 0000 0040  |   @|
0bdb 0151 a485  | Q  |
0bdd 0000 0040  |   @|
0bdf 1000 0000  |    |
0be1 002a 3490  | *4 |
0be3 a000 0008  |    |
0be5 040d fce2  |    |
0be7 89cd 0800  |    |
0be9 0118 0000  |    |
0beb 0048 0003  | H  |
0bed 0f40 0000  | @  |
0bef 0010       |    |
0bf0 0000 0000  |    |		.BLANK	0000[0x8]
0bf8 0001 0708  |    |		.XXX[0x2]
0bfa 0000 0000  |    |		.BLANK	0000[0x6]