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

⟦443e85ba2⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 05a8       |    |		.CONST	0x05a8								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0151       | Q  |		.CONST	0x0151								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0038       | 8  |		.CONST	0x0038								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4807       |H   |		Short_Literal	0x7
000d 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0012 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0014 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0016 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0018 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
001a 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
001c 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
001e 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0020 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0022 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0024 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0026 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0028 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
002a 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
002c 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
002e 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0030 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0032 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0034 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0036 e20d       |    |		Load	0x1,0xd
0037 0266       | f  |		Execute	Discrete,Bounds
0038 e003       |    |		Load	0x0,0x3
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 4801       |H   |		Short_Literal	0x1
003b 035e       | ^  |		Declare_Type	Array,Defined,Visible
003c e20d       |    |		Load	0x1,0xd
003d 0266       | f  |		Execute	Discrete,Bounds
003e e002       |    |		Load	0x0,0x2
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
0042 4801       |H   |		Short_Literal	0x1
0043 035e       | ^  |		Declare_Type	Array,Defined,Visible
0044 e002       |    |		Load	0x0,0x2
0045 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0046 e002       |    |		Load	0x0,0x2
0047 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0048 e004       |    |		Load	0x0,0x4
0049 e221       | !  |		Load	0x1,0x21
004a e222       | "  |		Load	0x1,0x22
004b 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
004d 4805       |H   |		Short_Literal	0x5
004e 032e       | .  |		Declare_Type	Record,Defined,Visible
004f 00d8       |    |		Load_Top	At_Offset_0
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0052 4800       |H   |		Short_Literal	0x0
0053 4805       |H   |		Short_Literal	0x5
0054 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
0056 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0057 00d9       |    |		Load_Top	At_Offset_1
0058 00e1       |    |		Load_Encached	Boolean_Cache
0059 00da       |    |		Load_Top	At_Offset_2
005a 00e1       |    |		Load_Encached	Boolean_Cache
005b e20d       |    |		Load	0x1,0xd
005c 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
005e 4805       |H   |		Short_Literal	0x5
005f 032e       | .  |		Declare_Type	Record,Defined,Visible
0060 00bf       |    |		Action	Accept_Activation
0061 00d9       |    |		Load_Top	At_Offset_1
0062 0266       | f  |		Execute	Discrete,Bounds
0063 00e1       |    |		Load_Encached	Boolean_Cache
0064 02a0       |    |		Declare_Subprogram	Null_Subprogram
0065 4801       |H   |		Short_Literal	0x1
0066 035d       | ]  |		Declare_Type	Array,Defined
0067 00d8       |    |		Load_Top	At_Offset_0
0068 0337       | 7  |		Declare_Variable	Array
0069 00d8       |    |		Load_Top	At_Offset_0
006a 0335       | 5  |		Declare_Variable	Array,Duplicate
006b 00cd       |    |		Action	Spare6_Action
006c 4801       |H   |		Short_Literal	0x1
006d 4801       |H   |		Short_Literal	0x1
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 4801       |H   |		Short_Literal	0x1
0071 4802       |H   |		Short_Literal	0x2
0072 00da       |    |		Load_Top	At_Offset_2
0073 01d6       |    |		Execute	Vector,Field_Write
0074 4800       |H   |		Short_Literal	0x0
0075 4800       |H   |		Short_Literal	0x0
0076 00da       |    |		Load_Top	At_Offset_2
0077 01d6       |    |		Execute	Vector,Field_Write
0078 4800       |H   |		Short_Literal	0x0
0079 4803       |H   |		Short_Literal	0x3
007a 00da       |    |		Load_Top	At_Offset_2
007b 01d6       |    |		Execute	Vector,Field_Write
007c 4800       |H   |		Short_Literal	0x0
007d 4804       |H   |		Short_Literal	0x4
007e 00da       |    |		Load_Top	At_Offset_2
007f 01d6       |    |		Execute	Vector,Field_Write
0080 4800       |H   |		Short_Literal	0x0
0081 4805       |H   |		Short_Literal	0x5
0082 00da       |    |		Load_Top	At_Offset_2
0083 01d6       |    |		Execute	Vector,Field_Write
0084 00d9       |    |		Load_Top	At_Offset_1
0085 01d4       |    |		Execute	Vector,Structure_Write
0086 4801       |H   |		Short_Literal	0x1
0087 4807       |H   |		Short_Literal	0x7
0088 e20d       |    |		Load	0x1,0xd
0089 03f8       |    |		Declare_Type	Discrete,Constrained
008a 4803       |H   |		Short_Literal	0x3
008b 4805       |H   |		Short_Literal	0x5
008c e225       | %  |		Load	0x1,0x25
008d 03f8       |    |		Declare_Type	Discrete,Constrained
008e 4800       |H   |		Short_Literal	0x0
008f 4807       |H   |		Short_Literal	0x7
0090 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
0092 03fd       |    |		Declare_Type	Discrete,Defined
0093 4801       |H   |		Short_Literal	0x1
0094 4807       |H   |		Short_Literal	0x7
0095 00da       |    |		Load_Top	At_Offset_2
0096 03f8       |    |		Declare_Type	Discrete,Constrained
0097 e005       |    |		Load	0x0,0x5
0098 e006       |    |		Load	0x0,0x6
0099 e225       | %  |		Load	0x1,0x25
009a 4800       |H   |		Short_Literal	0x0
009b 4801       |H   |		Short_Literal	0x1
009c 4805       |H   |		Short_Literal	0x5
009d 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "others => Unspecified"
009f 00ea       |    |		Load_Encached	Null_String_Cache
00a0 00ea       |    |		Load_Encached	Null_String_Cache
00a1 4801       |H   |		Short_Literal	0x1
00a2 4805       |H   |		Short_Literal	0x5
00a3 e007       |    |		Load	0x0,0x7
00a4 0387       |    |		Declare_Variable	Package
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 020f       |    |		Execute	Module,Activate
00a7 e008       |    |		Load	0x0,0x8
00a8 e009       |    |		Load	0x0,0x9
00a9 e20d       |    |		Load	0x1,0xd
00aa 4800       |H   |		Short_Literal	0x0
00ab 4801       |H   |		Short_Literal	0x1
00ac 4807       |H   |		Short_Literal	0x7
00ad 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "others => Unspecified"
00af 00ea       |    |		Load_Encached	Null_String_Cache
00b0 00ea       |    |		Load_Encached	Null_String_Cache
00b1 4801       |H   |		Short_Literal	0x1
00b2 4807       |H   |		Short_Literal	0x7
00b3 e007       |    |		Load	0x0,0x7
00b4 0387       |    |		Declare_Variable	Package
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 020f       |    |		Execute	Module,Activate
00b7 e00a       |    |		Load	0x0,0xa
00b8 e00b       |    |		Load	0x0,0xb
00b9 e22b       | +  |		Load	0x1,0x2b
00ba 4800       |H   |		Short_Literal	0x0
00bb 4801       |H   |		Short_Literal	0x1
00bc 4807       |H   |		Short_Literal	0x7
00bd 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "others => Unspecified"
00bf 00ea       |    |		Load_Encached	Null_String_Cache
00c0 00ea       |    |		Load_Encached	Null_String_Cache
00c1 4801       |H   |		Short_Literal	0x1
00c2 4807       |H   |		Short_Literal	0x7
00c3 e007       |    |		Load	0x0,0x7
00c4 0387       |    |		Declare_Variable	Package
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 020f       |    |		Execute	Module,Activate
00c7 e22b       | +  |		Load	0x1,0x2b
00c8 0266       | f  |		Execute	Discrete,Bounds
00c9 e20d       |    |		Load	0x1,0xd
00ca 02a0       |    |		Declare_Subprogram	Null_Subprogram
00cb 4801       |H   |		Short_Literal	0x1
00cc 035d       | ]  |		Declare_Type	Array,Defined
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce 0337       | 7  |		Declare_Variable	Array
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 0335       | 5  |		Declare_Variable	Array,Duplicate
00d1 00cd       |    |		Action	Spare6_Action
00d2 4800       |H   |		Short_Literal	0x0
00d3 4800       |H   |		Short_Literal	0x0
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 01d6       |    |		Execute	Vector,Field_Write
00d6 4801       |H   |		Short_Literal	0x1
00d7 4801       |H   |		Short_Literal	0x1
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 01d6       |    |		Execute	Vector,Field_Write
00da 4802       |H   |		Short_Literal	0x2
00db 4802       |H   |		Short_Literal	0x2
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 4803       |H   |		Short_Literal	0x3
00df 4803       |H   |		Short_Literal	0x3
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 01d6       |    |		Execute	Vector,Field_Write
00e2 4804       |H   |		Short_Literal	0x4
00e3 4804       |H   |		Short_Literal	0x4
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 01d6       |    |		Execute	Vector,Field_Write
00e6 4805       |H   |		Short_Literal	0x5
00e7 4805       |H   |		Short_Literal	0x5
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 01d6       |    |		Execute	Vector,Field_Write
00ea 4806       |H   |		Short_Literal	0x6
00eb 4806       |H   |		Short_Literal	0x6
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 4807       |H   |		Short_Literal	0x7
00ef 4807       |H   |		Short_Literal	0x7
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 01d6       |    |		Execute	Vector,Field_Write
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 01d4       |    |		Execute	Vector,Structure_Write
00f4 e20d       |    |		Load	0x1,0xd
00f5 0266       | f  |		Execute	Discrete,Bounds
00f6 e22b       | +  |		Load	0x1,0x2b
00f7 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f8 4801       |H   |		Short_Literal	0x1
00f9 035d       | ]  |		Declare_Type	Array,Defined
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 0337       | 7  |		Declare_Variable	Array
00fc 00d8       |    |		Load_Top	At_Offset_0
00fd 0335       | 5  |		Declare_Variable	Array,Duplicate
00fe 00cd       |    |		Action	Spare6_Action
00ff 4800       |H   |		Short_Literal	0x0
0100 4800       |H   |		Short_Literal	0x0
0101 00da       |    |		Load_Top	At_Offset_2
0102 01d6       |    |		Execute	Vector,Field_Write
0103 4801       |H   |		Short_Literal	0x1
0104 4801       |H   |		Short_Literal	0x1
0105 00da       |    |		Load_Top	At_Offset_2
0106 01d6       |    |		Execute	Vector,Field_Write
0107 4802       |H   |		Short_Literal	0x2
0108 4802       |H   |		Short_Literal	0x2
0109 00da       |    |		Load_Top	At_Offset_2
010a 01d6       |    |		Execute	Vector,Field_Write
010b 4803       |H   |		Short_Literal	0x3
010c 4803       |H   |		Short_Literal	0x3
010d 00da       |    |		Load_Top	At_Offset_2
010e 01d6       |    |		Execute	Vector,Field_Write
010f 4804       |H   |		Short_Literal	0x4
0110 4804       |H   |		Short_Literal	0x4
0111 00da       |    |		Load_Top	At_Offset_2
0112 01d6       |    |		Execute	Vector,Field_Write
0113 4805       |H   |		Short_Literal	0x5
0114 4805       |H   |		Short_Literal	0x5
0115 00da       |    |		Load_Top	At_Offset_2
0116 01d6       |    |		Execute	Vector,Field_Write
0117 4806       |H   |		Short_Literal	0x6
0118 4806       |H   |		Short_Literal	0x6
0119 00da       |    |		Load_Top	At_Offset_2
011a 01d6       |    |		Execute	Vector,Field_Write
011b 4807       |H   |		Short_Literal	0x7
011c 4807       |H   |		Short_Literal	0x7
011d 00da       |    |		Load_Top	At_Offset_2
011e 01d6       |    |		Execute	Vector,Field_Write
011f 00d9       |    |		Load_Top	At_Offset_1
0120 01d4       |    |		Execute	Vector,Structure_Write
0121 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0122 00c7       |    |		Action	Elaborate_Subprogram
0123 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0124 00c7       |    |		Action	Elaborate_Subprogram
0125 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0126 00c7       |    |		Action	Elaborate_Subprogram
0127 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0128 00c7       |    |		Action	Elaborate_Subprogram
0129 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
012a 00c7       |    |		Action	Elaborate_Subprogram
012b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
012c 00c7       |    |		Action	Elaborate_Subprogram
012d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
012e 00c7       |    |		Action	Elaborate_Subprogram
012f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0130 00c7       |    |		Action	Elaborate_Subprogram
0131 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0132 00c7       |    |		Action	Elaborate_Subprogram
0133 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0134 00c7       |    |		Action	Elaborate_Subprogram
0135 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0136 00c7       |    |		Action	Elaborate_Subprogram
0137 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0138 00c7       |    |		Action	Elaborate_Subprogram
0139 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
013a 00c7       |    |		Action	Elaborate_Subprogram
013b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
013c 00c7       |    |		Action	Elaborate_Subprogram
013d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
013e 00c7       |    |		Action	Elaborate_Subprogram
013f 029d 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call
0141 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
0143 029d 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call
0145 029d 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call
0147 029d 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call
0149 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
014a 00c7       |    |		Action	Elaborate_Subprogram
014b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
014c 00c7       |    |		Action	Elaborate_Subprogram
014d 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
014e 00c7       |    |		Action	Elaborate_Subprogram
014f 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0150 00c7       |    |		Action	Elaborate_Subprogram
0151			BODY_0008:
0151 00bc       |    |		Action	Signal_Activated
0152 00bb       |    |		Action	Signal_Completion
0153 0000 0000  |    |		.BLANK	0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4607       |F   |		Jump_Case	0x8
015c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
015d 7807       |x   |		Jump	0x165								; case 0x1
015e 780a       |x   |		Jump	0x169								; case 0x2
015f 780e       |x   |		Jump	0x16e								; case 0x3
0160 7811       |x   |		Jump	0x172								; case 0x4
0161 7812       |x   |		Jump	0x174								; case 0x5
0162 7813       |x   |		Jump	0x176								; case 0x6
0163 7816       |x   |		Jump	0x17a								; case 0x7
0164 4302       |C   |		.XXX[0x1]
0165 00da       |    |		Load_Top	At_Offset_2
0166 0091 04d8  |    |		Action	Push_String_Extended_Indexed,0x4d8				; "NO_ELEMENT"
0168 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0169 00db       |    |		Load_Top	At_Offset_3
016a 00db       |    |		Load_Top	At_Offset_3
016b 00e0       |    |		Load_Encached	Standard_Cache
016c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e 00da       |    |		Load_Top	At_Offset_2
016f 00e0       |    |		Load_Encached	Standard_Cache
0170 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0171 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0172 00db       |    |		Load_Top	At_Offset_3
0173 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0174 00db       |    |		Load_Top	At_Offset_3
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 e20d       |    |		Load	0x1,0xd
0177 00dc       |    |		Load_Top	At_Offset_4
0178 0267       | g  |		Execute	Discrete,Predecessor
0179 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017a e20d       |    |		Load	0x1,0xd
017b 00dc       |    |		Load_Top	At_Offset_4
017c 0268       | h  |		Execute	Discrete,Successor
017d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0190       |    |		.CONST	0x0190								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0006       |    |		.CONST	0x0006								; Number of locals
0183			INIT_0180:
0183 e223       | #  |		Load	0x1,0x23
0184 0322       | "  |		Declare_Variable	Record
0185 00d8       |    |		Load_Top	At_Offset_0
0186 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0187 00db       |    |		Load_Top	At_Offset_3
0188 e22d       | -  |		Load	0x1,0x2d
0189 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
018a e22e       | .  |		Load	0x1,0x2e
018b 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
018c e22f       | /  |		Load	0x1,0x2f
018d 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
018e e224       | $  |		Load	0x1,0x24
018f 0007       |    |		Action	Break_Optional
0190			BODY_0180:
0190 e5ff       |    |		Load	0x2,-0x1
0191 e22e       | .  |		Load	0x1,0x2e
0192 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0193 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0194 e5ff       |    |		Load	0x2,-0x1
0195 e22f       | /  |		Load	0x1,0x2f
0196 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0197 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0198 00cf       |    |		Action	Mark_Auxiliary
0199 4807       |H   |		Short_Literal	0x7
019a 4801       |H   |		Short_Literal	0x1
019b 0007       |    |		Action	Break_Optional
019c 00d8       |    |		Load_Top	At_Offset_0
019d e404       |    |		Load	0x2,0x4
019e e22e       | .  |		Load	0x1,0x2e
019f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01a0 6811       |h   |		Jump_Zero	0x1b2
01a1 e402       |    |		Load	0x2,0x2
01a2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 01d7       |    |		Execute	Vector,Field_Read
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 00ea       |    |		Load_Encached	Null_String_Cache
01a9 e409       |    |		Load	0x2,0x9
01aa e404       |    |		Load	0x2,0x4
01ab e22e       | .  |		Load	0x1,0x2e
01ac 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01ad 800c       |    |		Call	0x0,0xc
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 00db       |    |		Load_Top	At_Offset_3
01b0 01d6       |    |		Execute	Vector,Field_Write
01b1 00d2       |    |		Pop_Control	Pop_Count_2
01b2 00c8       |    |		Action	Pop_Auxiliary_Range
01b3 3fe8       |?   |		Loop_Increasing	0x19c
01b4 00c9       |    |		Action	Pop_Auxiliary_Loop
01b5 4807       |H   |		Short_Literal	0x7
01b6 4801       |H   |		Short_Literal	0x1
01b7 0007       |    |		Action	Break_Optional
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 e405       |    |		Load	0x2,0x5
01ba e22f       | /  |		Load	0x1,0x2f
01bb 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01bc 680c       |h   |		Jump_Zero	0x1c9
01bd 00ea       |    |		Load_Encached	Null_String_Cache
01be 00d9       |    |		Load_Top	At_Offset_1
01bf e405       |    |		Load	0x2,0x5
01c0 e22f       | /  |		Load	0x1,0x2f
01c1 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01c2 800d       |    |		Call	0x0,0xd
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 e231       | 1  |		Load	0x1,0x31
01c5 01d7       |    |		Execute	Vector,Field_Read
01c6 e402       |    |		Load	0x2,0x2
01c7 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01c8 01d6       |    |		Execute	Vector,Field_Write
01c9 00c8       |    |		Action	Pop_Auxiliary_Range
01ca 3fed       |?   |		Loop_Increasing	0x1b8
01cb 00ce       |    |		Action	Pop_Auxiliary
01cc 00ea       |    |		Load_Encached	Null_String_Cache
01cd 4803       |H   |		Short_Literal	0x3
01ce e403       |    |		Load	0x2,0x3
01cf e22d       | -  |		Load	0x1,0x2d
01d0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01d1 800d       |    |		Call	0x0,0xd
01d2 e402       |    |		Load	0x2,0x2
01d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d4 00ea       |    |		Load_Encached	Null_String_Cache
01d5 4804       |H   |		Short_Literal	0x4
01d6 e403       |    |		Load	0x2,0x3
01d7 e22d       | -  |		Load	0x1,0x2d
01d8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01d9 800d       |    |		Call	0x0,0xd
01da e402       |    |		Load	0x2,0x2
01db 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01dc 00ea       |    |		Load_Encached	Null_String_Cache
01dd 4805       |H   |		Short_Literal	0x5
01de e403       |    |		Load	0x2,0x3
01df e22d       | -  |		Load	0x1,0x2d
01e0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01e1 e004       |    |		Load	0x0,0x4
01e2 1c02       |    |		Execute_Immediate	Run_Utility,0x2
01e3 e402       |    |		Load	0x2,0x2
01e4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01e5 e402       |    |		Load	0x2,0x2
01e6 e224       | $  |		Load	0x1,0x24
01e7 e5fe       |    |		Load	0x2,-0x2
01e8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01e9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f9       |    |		.CONST	0x01f9								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0003       |    |		.CONST	0x0003								; Number of locals
01f3			INIT_01f0:
01f3 e223       | #  |		Load	0x1,0x23
01f4 0322       | "  |		Declare_Variable	Record
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f7 e224       | $  |		Load	0x1,0x24
01f8 0007       |    |		Action	Break_Optional
01f9			BODY_01f0:
01f9 e002       |    |		Load	0x0,0x2
01fa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01fd 00d9       |    |		Load_Top	At_Offset_1
01fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ff 00da       |    |		Load_Top	At_Offset_2
0200 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0201 00d9       |    |		Load_Top	At_Offset_1
0202 e224       | $  |		Load	0x1,0x24
0203 e5ff       |    |		Load	0x2,-0x1
0204 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0205 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0206 00d8       |    |		Load_Top	At_Offset_0
0207 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0219       |    |		.CONST	0x0219								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0003       |    |		.CONST	0x0003								; Number of locals
0213			INIT_0210:
0213 e223       | #  |		Load	0x1,0x23
0214 0322       | "  |		Declare_Variable	Record
0215 00d8       |    |		Load_Top	At_Offset_0
0216 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0217 e224       | $  |		Load	0x1,0x24
0218 0007       |    |		Action	Break_Optional
0219			BODY_0210:
0219 e5ff       |    |		Load	0x2,-0x1
021a 4801       |H   |		Short_Literal	0x1
021b 00db       |    |		Load_Top	At_Offset_3
021c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
021d 01d6       |    |		Execute	Vector,Field_Write
021e 00d9       |    |		Load_Top	At_Offset_1
021f e224       | $  |		Load	0x1,0x24
0220 e5fe       |    |		Load	0x2,-0x2
0221 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0222 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0223 00d8       |    |		Load_Top	At_Offset_0
0224 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 0833       | 3  |		Execute_Immediate	Raise,0x33
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e5fd       |    |		Load	0x2,-0x3
0234 7003       |p   |		Jump_Nonzero	0x238
0235 00db       |    |		Load_Top	At_Offset_3
0236 820f       |    |		Call	0x1,0xf
0237 a5fd       |    |		Store_Unchecked	0x2,-0x3
0238 00da       |    |		Load_Top	At_Offset_2
0239 0217       |    |		Execute	Heap_Access,All_Reference
023a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
023b e5fd       |    |		Load	0x2,-0x3
023c 0217       |    |		Execute	Heap_Access,All_Reference
023d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
023e 00da       |    |		Load_Top	At_Offset_2
023f 0217       |    |		Execute	Heap_Access,All_Reference
0240 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0241 e5fd       |    |		Load	0x2,-0x3
0242 0217       |    |		Execute	Heap_Access,All_Reference
0243 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0244 00da       |    |		Load_Top	At_Offset_2
0245 0217       |    |		Execute	Heap_Access,All_Reference
0246 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0247 e5fd       |    |		Load	0x2,-0x3
0248 0217       |    |		Execute	Heap_Access,All_Reference
0249 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
024a 00cf       |    |		Action	Mark_Auxiliary
024b 4807       |H   |		Short_Literal	0x7
024c 4800       |H   |		Short_Literal	0x0
024d 0007       |    |		Action	Break_Optional
024e 00d8       |    |		Load_Top	At_Offset_0
024f e5ff       |    |		Load	0x2,-0x1
0250 0217       |    |		Execute	Heap_Access,All_Reference
0251 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0252 01d7       |    |		Execute	Vector,Field_Read
0253 00d9       |    |		Load_Top	At_Offset_1
0254 e5fd       |    |		Load	0x2,-0x3
0255 0217       |    |		Execute	Heap_Access,All_Reference
0256 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0257 01d6       |    |		Execute	Vector,Field_Write
0258 00c8       |    |		Action	Pop_Auxiliary_Range
0259 3ff4       |?   |		Loop_Increasing	0x24e
025a 00c9       |    |		Action	Pop_Auxiliary_Loop
025b 4807       |H   |		Short_Literal	0x7
025c 4800       |H   |		Short_Literal	0x0
025d 0007       |    |		Action	Break_Optional
025e 00d8       |    |		Load_Top	At_Offset_0
025f e5ff       |    |		Load	0x2,-0x1
0260 0217       |    |		Execute	Heap_Access,All_Reference
0261 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0262 01d7       |    |		Execute	Vector,Field_Read
0263 00d9       |    |		Load_Top	At_Offset_1
0264 e5fd       |    |		Load	0x2,-0x3
0265 0217       |    |		Execute	Heap_Access,All_Reference
0266 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0267 01d6       |    |		Execute	Vector,Field_Write
0268 00c8       |    |		Action	Pop_Auxiliary_Range
0269 3ff4       |?   |		Loop_Increasing	0x25e
026a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
026b 0000 0000  |    |		.BLANK	0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e002       |    |		Load	0x0,0x2
0274 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0275 00db       |    |		Load_Top	At_Offset_3
0276 0217       |    |		Execute	Heap_Access,All_Reference
0277 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0278 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0279 0000 0000  |    |		.BLANK	0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e002       |    |		Load	0x0,0x2
0284 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0285 00db       |    |		Load_Top	At_Offset_3
0286 0217       |    |		Execute	Heap_Access,All_Reference
0287 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0288 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0289 0000 0000  |    |		.BLANK	0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 e5fe       |    |		Load	0x2,-0x2
0295 0217       |    |		Execute	Heap_Access,All_Reference
0296 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0297 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 0e01       |    |		Execute_Immediate	Not_Equal,0x1
029d 6806       |h   |		Jump_Zero	0x2a4
029e 00db       |    |		Load_Top	At_Offset_3
029f 00db       |    |		Load_Top	At_Offset_3
02a0 e5fd       |    |		Load	0x2,-0x3
02a1 0217       |    |		Execute	Heap_Access,All_Reference
02a2 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02a3 01d6       |    |		Execute	Vector,Field_Write
02a4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a5 0000 0000  |    |		.XXX[0x3]
02a7 0000       |    |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00db       |    |		Load_Top	At_Offset_3
02ac 00db       |    |		Load_Top	At_Offset_3
02ad e5fd       |    |		Load	0x2,-0x3
02ae 0217       |    |		Execute	Heap_Access,All_Reference
02af 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
02b0 01d6       |    |		Execute	Vector,Field_Write
02b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b2 0000 0000  |    |		.BLANK	0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 0217       |    |		Execute	Heap_Access,All_Reference
02bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02be 00db       |    |		Load_Top	At_Offset_3
02bf 0217       |    |		Execute	Heap_Access,All_Reference
02c0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c1 e002       |    |		Load	0x0,0x2
02c2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 0217       |    |		Execute	Heap_Access,All_Reference
02cd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cf 0000       |    |		.XXX[0x1]
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 e5fe       |    |		Load	0x2,-0x2
02d5 0217       |    |		Execute	Heap_Access,All_Reference
02d6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02d7 01d7       |    |		Execute	Vector,Field_Read
02d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d9 0000 0000  |    |		.BLANK	0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 e5fe       |    |		Load	0x2,-0x2
02e5 0217       |    |		Execute	Heap_Access,All_Reference
02e6 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
02e7 01d7       |    |		Execute	Vector,Field_Read
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 0120       |    |		Execute	Any,Is_Value
02ea 7002       |p   |		Jump_Nonzero	0x2ed
02eb 00d8       |    |		Load_Top	At_Offset_0
02ec 011e       |    |		Execute	Any,Convert
02ed 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f7       |    |		.CONST	0x02f7								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 e226       | &  |		Load	0x1,0x26
02f4 0322       | "  |		Declare_Variable	Record
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f7			BODY_02f0:
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 00d9       |    |		Load_Top	At_Offset_1
02f9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02fa 4801       |H   |		Short_Literal	0x1
02fb 00d9       |    |		Load_Top	At_Offset_1
02fc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0300 8234       | 4  |		Call	0x1,0x34
0301 00d1       |    |		Pop_Control	Pop_Count_1
0302 00d8       |    |		Load_Top	At_Offset_0
0303 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0304 0000 0000  |    |		.BLANK	0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030e 0000 0000  |    |		.XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031d       |    |		.CONST	0x031d								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0003       |    |		.CONST	0x0003								; Number of locals
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0315 e225       | %  |		Load	0x1,0x25
0316 011c       |    |		Execute	Any,Convert_Unchecked
0317 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0318 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "=>"
031a 01cc       |    |		Execute	Vector,Catenate
031b 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
031d			BODY_0310:
031d e5ff       |    |		Load	0x2,-0x1
031e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031f e228       | (  |		Load	0x1,0x28
0320 01d7       |    |		Execute	Vector,Field_Read
0321 6802       |h   |		Jump_Zero	0x324
0322 8403       |    |		Call	0x2,0x3
0323 7807       |x   |		Jump	0x32b
0324 00d9       |    |		Load_Top	At_Offset_1
0325 e5ff       |    |		Load	0x2,-0x1
0326 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0327 e5ff       |    |		Load	0x2,-0x1
0328 8237       | 7  |		Call	0x1,0x37
0329 01cc       |    |		Execute	Vector,Catenate
032a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032b 0831       | 1  |		Execute_Immediate	Raise,0x31
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0335 7023       |p#  |		Jump_Nonzero	0x359
0336 00da       |    |		Load_Top	At_Offset_2
0337 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0338 e228       | (  |		Load	0x1,0x28
0339 01d7       |    |		Execute	Vector,Field_Read
033a 680b       |h   |		Jump_Zero	0x346
033b 00da       |    |		Load_Top	At_Offset_2
033c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
033d 00db       |    |		Load_Top	At_Offset_3
033e 8236       | 6  |		Call	0x1,0x36
033f 7006       |p   |		Jump_Nonzero	0x346
0340 00da       |    |		Load_Top	At_Offset_2
0341 00db       |    |		Load_Top	At_Offset_3
0342 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0343 8235       | 5  |		Call	0x1,0x35
0344 00d1       |    |		Pop_Control	Pop_Count_1
0345 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0346 00da       |    |		Load_Top	At_Offset_2
0347 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0348 0f05       |    |		Execute_Immediate	Equal,0x5
0349 6804       |h   |		Jump_Zero	0x34e
034a 4801       |H   |		Short_Literal	0x1
034b 00db       |    |		Load_Top	At_Offset_3
034c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
034d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034e e225       | %  |		Load	0x1,0x25
034f 00db       |    |		Load_Top	At_Offset_3
0350 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0351 0268       | h  |		Execute	Discrete,Successor
0352 00db       |    |		Load_Top	At_Offset_3
0353 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0354 00da       |    |		Load_Top	At_Offset_2
0355 00db       |    |		Load_Top	At_Offset_3
0356 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0357 8234       | 4  |		Call	0x1,0x34
0358 00d1       |    |		Pop_Control	Pop_Count_1
0359 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
035a 0000 0000  |    |		.BLANK	0000[0x6]
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 00d1       |    |		Pop_Control	Pop_Count_1
0364 00da       |    |		Load_Top	At_Offset_2
0365 01dc       |    |		Execute	Vector,Last
0366 00db       |    |		Load_Top	At_Offset_3
0367 01dd       |    |		Execute	Vector,First
0368 0263       | c  |		Execute	Discrete,Above_Bound
0369 700a       |p   |		Jump_Nonzero	0x374
036a 00d8       |    |		Load_Top	At_Offset_0
036b e5ff       |    |		Load	0x2,-0x1
036c 01d5       |    |		Execute	Vector,Field_Reference
036d 0125       | %  |		Execute	Any,Set_Constraint
036e 00d8       |    |		Load_Top	At_Offset_0
036f e5ff       |    |		Load	0x2,-0x1
0370 01d5       |    |		Execute	Vector,Field_Reference
0371 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0372 0a01       |    |		Execute_Immediate	Plus,0x1
0373 7ff4       |    |		Jump	0x368
0374 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 4607       |F   |		Jump_Case	0x8
037c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
037d 7807       |x   |		Jump	0x385								; case 0x1
037e 780a       |x   |		Jump	0x389								; case 0x2
037f 780e       |x   |		Jump	0x38e								; case 0x3
0380 7811       |x   |		Jump	0x392								; case 0x4
0381 7812       |x   |		Jump	0x394								; case 0x5
0382 7813       |x   |		Jump	0x396								; case 0x6
0383 7816       |x   |		Jump	0x39a								; case 0x7
0384 4302       |C   |		.XXX[0x1]
0385 00da       |    |		Load_Top	At_Offset_2
0386 0091 04e0  |    |		Action	Push_String_Extended_Indexed,0x4e0				; "NONE"
0388 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0389 00db       |    |		Load_Top	At_Offset_3
038a 00db       |    |		Load_Top	At_Offset_3
038b 00e0       |    |		Load_Encached	Standard_Cache
038c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
038d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
038e 00da       |    |		Load_Top	At_Offset_2
038f 00e0       |    |		Load_Encached	Standard_Cache
0390 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0391 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0392 00db       |    |		Load_Top	At_Offset_3
0393 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0394 00db       |    |		Load_Top	At_Offset_3
0395 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0396 e225       | %  |		Load	0x1,0x25
0397 00dc       |    |		Load_Top	At_Offset_4
0398 0267       | g  |		Execute	Discrete,Predecessor
0399 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039a e225       | %  |		Load	0x1,0x25
039b 00dc       |    |		Load_Top	At_Offset_4
039c 0268       | h  |		Execute	Discrete,Successor
039d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 4607       |F   |		Jump_Case	0x8
03a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03a5 7807       |x   |		Jump	0x3ad								; case 0x1
03a6 780a       |x   |		Jump	0x3b1								; case 0x2
03a7 780e       |x   |		Jump	0x3b6								; case 0x3
03a8 7811       |x   |		Jump	0x3ba								; case 0x4
03a9 7812       |x   |		Jump	0x3bc								; case 0x5
03aa 7813       |x   |		Jump	0x3be								; case 0x6
03ab 7816       |x   |		Jump	0x3c2								; case 0x7
03ac 4302       |C   |		.XXX[0x1]
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 0091 04e6  |    |		Action	Push_String_Extended_Indexed,0x4e6				; "NO_ELEMENT_TIME"
03b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 00db       |    |		Load_Top	At_Offset_3
03b3 00e0       |    |		Load_Encached	Standard_Cache
03b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 00e0       |    |		Load_Encached	Standard_Cache
03b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03be e22b       | +  |		Load	0x1,0x2b
03bf 00dc       |    |		Load_Top	At_Offset_4
03c0 0267       | g  |		Execute	Discrete,Predecessor
03c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c2 e22b       | +  |		Load	0x1,0x2b
03c3 00dc       |    |		Load_Top	At_Offset_4
03c4 0268       | h  |		Execute	Discrete,Successor
03c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c6 0000 0000  |    |		.XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 4801       |H   |		Short_Literal	0x1
03cd 4802       |H   |		Short_Literal	0x2
03ce 0262       | b  |		Execute	Discrete,In_Range
03cf 7001       |p   |		Jump_Nonzero	0x3d1
03d0 7803       |x   |		Jump	0x3d4
03d1 4801       |H   |		Short_Literal	0x1
03d2 e5fe       |    |		Load	0x2,-0x2
03d3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03d4 4801       |H   |		Short_Literal	0x1
03d5 e5fe       |    |		Load	0x2,-0x2
03d6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 4801       |H   |		Short_Literal	0x1
03dd 4802       |H   |		Short_Literal	0x2
03de 0262       | b  |		Execute	Discrete,In_Range
03df 7001       |p   |		Jump_Nonzero	0x3e1
03e0 780e       |x   |		Jump	0x3ef
03e1 00db       |    |		Load_Top	At_Offset_3
03e2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03e3 0f07       |    |		Execute_Immediate	Equal,0x7
03e4 6804       |h   |		Jump_Zero	0x3e9
03e5 4800       |H   |		Short_Literal	0x0
03e6 e5fe       |    |		Load	0x2,-0x2
03e7 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03e8 7806       |x   |		Jump	0x3ef
03e9 e20d       |    |		Load	0x1,0xd
03ea e5fe       |    |		Load	0x2,-0x2
03eb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03ec 0268       | h  |		Execute	Discrete,Successor
03ed e5fe       |    |		Load	0x2,-0x2
03ee 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03ef 4800       |H   |		Short_Literal	0x0
03f0 e5fe       |    |		Load	0x2,-0x2
03f1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03f3 0000 0000  |    |		.BLANK	0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00db       |    |		Load_Top	At_Offset_3
03fc 4801       |H   |		Short_Literal	0x1
03fd 4802       |H   |		Short_Literal	0x2
03fe 0262       | b  |		Execute	Discrete,In_Range
03ff 7003       |p   |		Jump_Nonzero	0x403
0400 7800       |x   |		Jump	0x401
0401 4801       |H   |		Short_Literal	0x1
0402 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0403 00da       |    |		Load_Top	At_Offset_2
0404 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0405 0f00       |    |		Execute_Immediate	Equal,0x0
0406 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00db       |    |		Load_Top	At_Offset_3
040c 4605       |F   |		Jump_Case	0x6
040d 780d       |x   |		Jump	0x41b								; case 0x0
040e 780c       |x   |		Jump	0x41b								; case 0x1
040f 780b       |x   |		Jump	0x41b								; case 0x2
0410 780c       |x   |		Jump	0x41d								; case 0x3
0411 7812       |x   |		Jump	0x424								; case 0x4
0412 7800       |x   |		Jump	0x413								; case 0x5
0413 00da       |    |		Load_Top	At_Offset_2
0414 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0415 0217       |    |		Execute	Heap_Access,All_Reference
0416 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0417 e004       |    |		Load	0x0,0x4
0418 011c       |    |		Execute	Any,Convert_Unchecked
0419 1c01       |    |		Execute_Immediate	Run_Utility,0x1
041a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
041b 00ea       |    |		Load_Encached	Null_String_Cache
041c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
041d 4801       |H   |		Short_Literal	0x1
041e 00db       |    |		Load_Top	At_Offset_3
041f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0420 0217       |    |		Execute	Heap_Access,All_Reference
0421 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0422 800e       |    |		Call	0x0,0xe
0423 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0424 4801       |H   |		Short_Literal	0x1
0425 00db       |    |		Load_Top	At_Offset_3
0426 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0427 0217       |    |		Execute	Heap_Access,All_Reference
0428 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0429 800e       |    |		Call	0x0,0xe
042a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
042b 0000 0000  |    |		.BLANK	0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0437       | 7  |		.CONST	0x0437								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0003       |    |		.CONST	0x0003								; Number of locals
0433			INIT_0430:
0433 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0435 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
0437			BODY_0430:
0437 e5fe       |    |		Load	0x2,-0x2
0438 e5ff       |    |		Load	0x2,-0x1
0439 8236       | 6  |		Call	0x1,0x36
043a 6802       |h   |		Jump_Zero	0x43d
043b 00ea       |    |		Load_Encached	Null_String_Cache
043c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
043d e5fe       |    |		Load	0x2,-0x2
043e 4605       |F   |		Jump_Case	0x6
043f 7805       |x   |		Jump	0x445								; case 0x0
0440 7806       |x   |		Jump	0x447								; case 0x1
0441 7807       |x   |		Jump	0x449								; case 0x2
0442 7802       |x   |		Jump	0x445								; case 0x3
0443 7801       |x   |		Jump	0x445								; case 0x4
0444 7800       |x   |		Jump	0x445								; case 0x5
0445 00ea       |    |		Load_Encached	Null_String_Cache
0446 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0447 8402       |    |		Call	0x2,0x2
0448 7801       |x   |		Jump	0x44a
0449 8403       |    |		Call	0x2,0x3
044a 0831       | 1  |		Execute_Immediate	Raise,0x31
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0457       | W  |		.CONST	0x0457								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e5ff       |    |		Load	0x2,-0x1
0454 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0455 e5ff       |    |		Load	0x2,-0x1
0456 8238       | 8  |		Call	0x1,0x38
0457			BODY_0450:
0457 00d8       |    |		Load_Top	At_Offset_0
0458 00cb       |    |		Action	Pop_Block_With_Result
0459 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
045a 0000 0000  |    |		.BLANK	0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046b       | k  |		.CONST	0x046b								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0002       |    |		.CONST	0x0002								; Number of locals
0463			INIT_0460:
0463 e5ff       |    |		Load	0x2,-0x1
0464 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0465 e5ff       |    |		Load	0x2,-0x1
0466 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0467 0217       |    |		Execute	Heap_Access,All_Reference
0468 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0469 01d7       |    |		Execute	Vector,Field_Read
046a 800f       |    |		Call	0x0,0xf
046b			BODY_0460:
046b 00d8       |    |		Load_Top	At_Offset_0
046c 01db       |    |		Execute	Vector,Length
046d 680c       |h   |		Jump_Zero	0x47a
046e e5ff       |    |		Load	0x2,-0x1
046f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0470 e20d       |    |		Load	0x1,0xd
0471 011c       |    |		Execute	Any,Convert_Unchecked
0472 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0473 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "=>"
0475 01cc       |    |		Execute	Vector,Catenate
0476 00d9       |    |		Load_Top	At_Offset_1
0477 01cc       |    |		Execute	Vector,Catenate
0478 00cb       |    |		Action	Pop_Block_With_Result
0479 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
047a 00ea       |    |		Load_Encached	Null_String_Cache
047b 00cb       |    |		Action	Pop_Block_With_Result
047c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
047d 0000 0000  |    |		.XXX[0x3]
047f 0000       |    |
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048c       |    |		.CONST	0x048c								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0002       |    |		.CONST	0x0002								; Number of locals
0483			INIT_0480:
0483 4801       |H   |		Short_Literal	0x1
0484 e5ff       |    |		Load	0x2,-0x1
0485 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0486 e5ff       |    |		Load	0x2,-0x1
0487 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0488 0217       |    |		Execute	Heap_Access,All_Reference
0489 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
048a 01d7       |    |		Execute	Vector,Field_Read
048b 800e       |    |		Call	0x0,0xe
048c			BODY_0480:
048c 00d8       |    |		Load_Top	At_Offset_0
048d 01db       |    |		Execute	Vector,Length
048e 680e       |h   |		Jump_Zero	0x49d
048f e5ff       |    |		Load	0x2,-0x1
0490 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0491 e233       | 3  |		Load	0x1,0x33
0492 01d7       |    |		Execute	Vector,Field_Read
0493 e22b       | +  |		Load	0x1,0x2b
0494 011c       |    |		Execute	Any,Convert_Unchecked
0495 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0496 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "=>"
0498 01cc       |    |		Execute	Vector,Catenate
0499 00d9       |    |		Load_Top	At_Offset_1
049a 01cc       |    |		Execute	Vector,Catenate
049b 00cb       |    |		Action	Pop_Block_With_Result
049c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049d 00ea       |    |		Load_Encached	Null_String_Cache
049e 00cb       |    |		Action	Pop_Block_With_Result
049f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 4601       |F   |		Jump_Case	0x2
04a4 7801       |x   |		Jump	0x4a6								; case 0x0
04a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04a6 00da       |    |		Load_Top	At_Offset_2
04a7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04a8 0125       | %  |		Execute	Any,Set_Constraint
04a9 e002       |    |		Load	0x0,0x2
04aa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04ab 00db       |    |		Load_Top	At_Offset_3
04ac 00d9       |    |		Load_Top	At_Offset_1
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
04af 0119       |    |		Execute	Any,Check_In_Formal_Type
04b0 00d1       |    |		Pop_Control	Pop_Count_1
04b1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04b2 00da       |    |		Load_Top	At_Offset_2
04b3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04b4 0125       | %  |		Execute	Any,Set_Constraint
04b5 e002       |    |		Load	0x0,0x2
04b6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04b7 00db       |    |		Load_Top	At_Offset_3
04b8 00d9       |    |		Load_Top	At_Offset_1
04b9 00d9       |    |		Load_Top	At_Offset_1
04ba 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
04bb 0119       |    |		Execute	Any,Check_In_Formal_Type
04bc 00d1       |    |		Pop_Control	Pop_Count_1
04bd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04be 00da       |    |		Load_Top	At_Offset_2
04bf 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04c2 0000 0000  |    |		.BLANK	0000[0x6]
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 4601       |F   |		Jump_Case	0x2
04cc 7801       |x   |		Jump	0x4ce								; case 0x0
04cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04ce 4800       |H   |		Short_Literal	0x0
04cf 00db       |    |		Load_Top	At_Offset_3
04d0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04d1 4800       |H   |		Short_Literal	0x0
04d2 00db       |    |		Load_Top	At_Offset_3
04d3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04d4 4801       |H   |		Short_Literal	0x1
04d5 00db       |    |		Load_Top	At_Offset_3
04d6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04d7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04d8 ; --------------------------------------------------------------------------------------
04d8 ; STRING TABLE
04d8 ; --------------------------------------------------------------------------------------
04d8 0032       | 2  |		.STRTAB	0x0032->0x04f1							; "NO_ELEMENT"
04d9 003a       | :  |		.STRTAB	0x003a->0x04f6							; "TEST_CASE_HANDLE"
04da 0048       | H  |		.STRTAB	0x0048->0x04fe							; "SUBJECT_PROGRAM_HANDLE"
04db 005c       | \  |		.STRTAB	0x005c->0x0509							; "TEST_DRIVER_HANDLE"
04dc 006c       | l  |		.STRTAB	0x006c->0x0512							; "INPUT_DATA_HANDLE"
04dd 007b       | {  |		.STRTAB	0x007b->0x051a							; "OUTPUT_DATA_HANDLE"
04de 008b       |    |		.STRTAB	0x008b->0x0523							; "EXPECTED_OUTPUT_HANDLE"
04df 009f       |    |		.STRTAB	0x009f->0x052e							; "ERROR_OUTPUT_HANDLE"
04e0 00b0       |    |		.STRTAB	0x00b0->0x0538							; "NONE"
04e1 00b2       |    |		.STRTAB	0x00b2->0x053a							; "THE_HANDLES"
04e2 00bb       |    |		.STRTAB	0x00bb->0x053f							; "THE_TIMESTAMPS"
04e3 00c7       |    |		.STRTAB	0x00c7->0x0546							; "START_TIME"
04e4 00cf       |    |		.STRTAB	0x00cf->0x054b							; "STOP_TIME"
04e5 00d6       |    |		.STRTAB	0x00d6->0x0550							; "EVAL_STATUS"
04e6 00df       |    |		.STRTAB	0x00df->0x0555							; "NO_ELEMENT_TIME"
04e7 00ec       |    |		.STRTAB	0x00ec->0x055d							; "TEST_CASE_TIME"
04e8 00f8       |    |		.STRTAB	0x00f8->0x0564							; "SUBJECT_PROGRAM_TIME"
04e9 010a       |    |		.STRTAB	0x010a->0x056e							; "TEST_DRIVER_TIME"
04ea 0118       |    |		.STRTAB	0x0118->0x0576							; "INPUT_DATA_TIME"
04eb 0125       | %  |		.STRTAB	0x0125->0x057d							; "OUTPUT_DATA_TIME"
04ec 0133       | 3  |		.STRTAB	0x0133->0x0585							; "EXPECTED_OUTPUT_TIME"
04ed 0145       | E  |		.STRTAB	0x0145->0x058f							; "ERROR_OUTPUT_TIME"
04ee 0154       | T  |		.STRTAB	0x0154->0x0598							; "others => Unspecified"
04ef 0167       | g  |		.STRTAB	0x0167->0x05a2							; "=>"
04f0 0167       | g  |		.STREND 0x0167->0x05a3
04f1 4e4f 5f45  |NO_E|		.STRTAB_STRINGS
05a4 0000 0000  |    |		.BLANK	0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; Debug Table
05a8 ; --------------------------------------------------------------------------------------
05a8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x4ef0,0x0000,0x0001,0x0000
05ae 0000 0000  |    |		.BLANK	0000[0x52]