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

⟦272e73280⟧

    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 0580       |    |		.CONST	0x0580								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00da       |    |		.CONST	0x00da								; Address of begin
0019 00e7       |    |		.CONST	0x00e7								; Address of exception handler
001a 002f       | /  |		.CONST	0x002f								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 0322       | "  |		Declare_Variable	Record
001d 8003       |    |		Call	0x0,0x3
001e 00d9       |    |		Load_Top	At_Offset_1
001f 017d       | }  |		Execute	Record,Structure_Write
0020 8004       |    |		Call	0x0,0x4
0021 0217       |    |		Execute	Heap_Access,All_Reference
0022 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0023 0007       |    |		Action	Break_Optional
0024 8004       |    |		Call	0x0,0x4
0025 0217       |    |		Execute	Heap_Access,All_Reference
0026 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0027 8005       |    |		Call	0x0,0x5
0028 e006       |    |		Load	0x0,0x6
0029 02ff       |    |		Declare_Variable	Variant_Record
002a 00d8       |    |		Load_Top	At_Offset_0
002b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002c 0093 0000  |    |		push_full_address	0x0
002e 60dd       |`   |		Indirect_Literal	Discrete,0x10c,{0x80000000, 0x00010000}
002f 0273       | s  |		Execute	Discrete,Plus
0030 e5ff       |    |		Load	0x2,-0x1
0031 60d6       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
0032 0279       | y  |		Execute	Discrete,And
0033 0273       | s  |		Execute	Discrete,Plus
0034 0007       |    |		Action	Break_Optional
0035 00e1       |    |		Load_Encached	Boolean_Cache
0036 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0037 0093 0000  |    |		push_full_address	0x0
0039 60ca       |`   |		Indirect_Literal	Discrete,0x104,{0x80000000, 0x00020000}
003a 0273       | s  |		Execute	Discrete,Plus
003b e5ff       |    |		Load	0x2,-0x1
003c 60cb       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
003d 0279       | y  |		Execute	Discrete,And
003e 0273       | s  |		Execute	Discrete,Plus
003f 0007       |    |		Action	Break_Optional
0040 e007       |    |		Load	0x0,0x7
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 e008       |    |		Load	0x0,0x8
0043 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0044 e403       |    |		Load	0x2,0x3
0045 8009       |    |		Call	0x0,0x9
0046 e00a       |    |		Load	0x0,0xa
0047 03f1       |    |		Declare_Variable	Discrete,With_Value
0048 e5fe       |    |		Load	0x2,-0x2
0049 00e1       |    |		Load_Encached	Boolean_Cache
004a 03f1       |    |		Declare_Variable	Discrete,With_Value
004b 4800       |H   |		Short_Literal	0x0
004c 4803       |H   |		Short_Literal	0x3
004d 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
004f 03fd       |    |		Declare_Type	Discrete,Defined
0050 4800       |H   |		Short_Literal	0x0
0051 4802       |H   |		Short_Literal	0x2
0052 00da       |    |		Load_Top	At_Offset_2
0053 03f8       |    |		Declare_Type	Discrete,Constrained
0054 00d9       |    |		Load_Top	At_Offset_1
0055 0266       | f  |		Execute	Discrete,Bounds
0056 00e1       |    |		Load_Encached	Boolean_Cache
0057 02a0       |    |		Declare_Subprogram	Null_Subprogram
0058 4801       |H   |		Short_Literal	0x1
0059 035d       | ]  |		Declare_Type	Array,Defined
005a 00d8       |    |		Load_Top	At_Offset_0
005b 0337       | 7  |		Declare_Variable	Array
005c 00d8       |    |		Load_Top	At_Offset_0
005d 0335       | 5  |		Declare_Variable	Array,Duplicate
005e 00cd       |    |		Action	Spare6_Action
005f 4803       |H   |		Short_Literal	0x3
0060 4800       |H   |		Short_Literal	0x0
0061 4800       |H   |		Short_Literal	0x0
0062 00d9       |    |		Load_Top	At_Offset_1
0063 e411       |    |		Load	0x2,0x11
0064 01d6       |    |		Execute	Vector,Field_Write
0065 3ffb       |?   |		Loop_Increasing	0x61
0066 00d9       |    |		Load_Top	At_Offset_1
0067 01d4       |    |		Execute	Vector,Structure_Write
0068 e00b       |    |		Load	0x0,0xb
0069 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006b 02c7       |    |		Declare_Variable	Any
006c 00d8       |    |		Load_Top	At_Offset_0
006d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006e e00b       |    |		Load	0x0,0xb
006f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0070 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0071 02c7       |    |		Declare_Variable	Any
0072 00d8       |    |		Load_Top	At_Offset_0
0073 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0074 4801       |H   |		Short_Literal	0x1
0075 4801       |H   |		Short_Literal	0x1
0076 e403       |    |		Load	0x2,0x3
0077 4801       |H   |		Short_Literal	0x1
0078 800c       |    |		Call	0x0,0xc
0079 8005       |    |		Call	0x0,0x5
007a 4801       |H   |		Short_Literal	0x1
007b 4801       |H   |		Short_Literal	0x1
007c e403       |    |		Load	0x2,0x3
007d 4802       |H   |		Short_Literal	0x2
007e 800c       |    |		Call	0x0,0xc
007f 8005       |    |		Call	0x0,0x5
0080 4801       |H   |		Short_Literal	0x1
0081 4801       |H   |		Short_Literal	0x1
0082 e403       |    |		Load	0x2,0x3
0083 4806       |H   |		Short_Literal	0x6
0084 800c       |    |		Call	0x0,0xc
0085 8005       |    |		Call	0x0,0x5
0086 4801       |H   |		Short_Literal	0x1
0087 4801       |H   |		Short_Literal	0x1
0088 e403       |    |		Load	0x2,0x3
0089 4807       |H   |		Short_Literal	0x7
008a 800c       |    |		Call	0x0,0xc
008b 8005       |    |		Call	0x0,0x5
008c 4801       |H   |		Short_Literal	0x1
008d 4801       |H   |		Short_Literal	0x1
008e e403       |    |		Load	0x2,0x3
008f 4809       |H   |		Short_Literal	0x9
0090 800c       |    |		Call	0x0,0xc
0091 8005       |    |		Call	0x0,0x5
0092 4800       |H   |		Short_Literal	0x0
0093 4801       |H   |		Short_Literal	0x1
0094 e403       |    |		Load	0x2,0x3
0095 4803       |H   |		Short_Literal	0x3
0096 800c       |    |		Call	0x0,0xc
0097 8005       |    |		Call	0x0,0x5
0098 e403       |    |		Load	0x2,0x3
0099 4804       |H   |		Short_Literal	0x4
009a 800d       |    |		Call	0x0,0xd
009b 800e       |    |		Call	0x0,0xe
009c e006       |    |		Load	0x0,0x6
009d 02ff       |    |		Declare_Variable	Variant_Record
009e e403       |    |		Load	0x2,0x3
009f 800f       |    |		Call	0x0,0xf
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 016d       | m  |		Execute	Variant_Record,Structure_Write
00a2 4805       |H   |		Short_Literal	0x5
00a3 e414       |    |		Load	0x2,0x14
00a4 8010       |    |		Call	0x0,0x10
00a5 4804       |H   |		Short_Literal	0x4
00a6 e413       |    |		Load	0x2,0x13
00a7 8010       |    |		Call	0x0,0x10
00a8 4806       |H   |		Short_Literal	0x6
00a9 e415       |    |		Load	0x2,0x15
00aa 8010       |    |		Call	0x0,0x10
00ab 4808       |H   |		Short_Literal	0x8
00ac e416       |    |		Load	0x2,0x16
00ad 8010       |    |		Call	0x0,0x10
00ae 4808       |H   |		Short_Literal	0x8
00af e417       |    |		Load	0x2,0x17
00b0 8010       |    |		Call	0x0,0x10
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 e41b       |    |		Load	0x2,0x1b
00b3 8011       |    |		Call	0x0,0x11
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 8012       |    |		Call	0x0,0x12
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 8013       |    |		Call	0x0,0x13
00b8 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
00ba 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
00bc 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
00be 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
00c0 029e 019b  |    |		Declare_Subprogram	INIT_0198,For_Call,Unelaborated
00c2 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
00c4 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
00c6 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
00c8 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
00ca 4827       |H'  |		Short_Literal	0x27
00cb 4802       |H   |		Short_Literal	0x2
00cc 0099       |    |		Action	Reference_Dynamic
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
00d0 029e 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call,Unelaborated
00d2 482d       |H-  |		Short_Literal	0x2d
00d3 4802       |H   |		Short_Literal	0x2
00d4 0099       |    |		Action	Reference_Dynamic
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
00d8 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
00da			BODY_0018:
00da e5fe       |    |		Load	0x2,-0x2
00db 6805       |h   |		Jump_Zero	0xe1
00dc e403       |    |		Load	0x2,0x3
00dd 8014       |    |		Call	0x0,0x14
00de 7002       |p   |		Jump_Nonzero	0xe1
00df 4800       |H   |		Short_Literal	0x0
00e0 a40c       |    |		Store_Unchecked	0x2,0xc
00e1 842f       | /  |		Call	0x2,0x2f
00e2 e402       |    |		Load	0x2,0x2
00e3 0092 04a0  |    |		Action	Push_String_Extended,0x4a0					; "Test Case Invoke"
00e5 8015       |    |		Call	0x0,0x15
00e6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00e7			TRAP_0018:
00e7 e406       |    |		Load	0x2,0x6
00e8 010f       |    |		Execute	Exception,Equal
00e9 7003       |p   |		Jump_Nonzero	0xed
00ea e408       |    |		Load	0x2,0x8
00eb 010f       |    |		Execute	Exception,Equal
00ec 6801       |h   |		Jump_Zero	0xee
00ed 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00ee e016       |    |		Load	0x0,0x16
00ef 010f       |    |		Execute	Exception,Equal
00f0 7006       |p   |		Jump_Nonzero	0xf7
00f1 e017       |    |		Load	0x0,0x17
00f2 010f       |    |		Execute	Exception,Equal
00f3 7003       |p   |		Jump_Nonzero	0xf7
00f4 e018       |    |		Load	0x0,0x18
00f5 010f       |    |		Execute	Exception,Equal
00f6 6802       |h   |		Jump_Zero	0xf9
00f7 00d8       |    |		Load_Top	At_Offset_0
00f8 0101       |    |		Execute	Exception,Reraise
00f9 e019       |    |		Load	0x0,0x19
00fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00fb 4805       |H   |		Short_Literal	0x5
00fc 0092 04a1  |    |		Action	Push_String_Extended,0x4a1					; "Driver invocation exception, check prior error messages"
00fe e01a       |    |		Load	0x0,0x1a
00ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0100 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0101 0000 0000  |    |		.XXX[0x3]
0103 0000       |    |
0104 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
010c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4607       |F   |		Jump_Case	0x8
0114 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0115 7807       |x   |		Jump	0x11d								; case 0x1
0116 780a       |x   |		Jump	0x121								; case 0x2
0117 780e       |x   |		Jump	0x126								; case 0x3
0118 7811       |x   |		Jump	0x12a								; case 0x4
0119 7812       |x   |		Jump	0x12c								; case 0x5
011a 7813       |x   |		Jump	0x12e								; case 0x6
011b 7816       |x   |		Jump	0x132								; case 0x7
011c 4302       |C   |		.XXX[0x1]
011d 00da       |    |		Load_Top	At_Offset_2
011e 0091 049c  |    |		Action	Push_String_Extended_Indexed,0x49c				; "ECC_INPUT"
0120 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0121 00db       |    |		Load_Top	At_Offset_3
0122 00db       |    |		Load_Top	At_Offset_3
0123 00e0       |    |		Load_Encached	Standard_Cache
0124 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 00da       |    |		Load_Top	At_Offset_2
0127 00e0       |    |		Load_Encached	Standard_Cache
0128 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0129 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
012a 00db       |    |		Load_Top	At_Offset_3
012b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012c 00db       |    |		Load_Top	At_Offset_3
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e e40d       |    |		Load	0x2,0xd
012f 00dc       |    |		Load_Top	At_Offset_4
0130 0267       | g  |		Execute	Discrete,Predecessor
0131 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0132 e40d       |    |		Load	0x2,0xd
0133 00dc       |    |		Load_Top	At_Offset_4
0134 0268       | h  |		Execute	Discrete,Successor
0135 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013f       | ?  |		.CONST	0x013f								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b e403       |    |		Load	0x2,0x3
013c 480a       |H   |		Short_Literal	0xa
013d 800d       |    |		Call	0x0,0xd
013e 800e       |    |		Call	0x0,0xe
013f			BODY_0138:
013f 00d8       |    |		Load_Top	At_Offset_0
0140 01db       |    |		Execute	Vector,Length
0141 6802       |h   |		Jump_Zero	0x144
0142 00d8       |    |		Load_Top	At_Offset_0
0143 00ca       |    |		Action	Exit_Nullary_Function
0144 8004       |    |		Call	0x0,0x4
0145 0217       |    |		Execute	Heap_Access,All_Reference
0146 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0147 801b       |    |		Call	0x0,0x1b
0148 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0149 800e       |    |		Call	0x0,0xe
014a 00ca       |    |		Action	Exit_Nullary_Function
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e418       |    |		Load	0x2,0x18
0154 01db       |    |		Execute	Vector,Length
0155 6802       |h   |		Jump_Zero	0x158
0156 e418       |    |		Load	0x2,0x18
0157 00ca       |    |		Action	Exit_Nullary_Function
0158 e422       | "  |		Load	0x2,0x22
0159 00ca       |    |		Action	Exit_Nullary_Function
015a 0000 0000  |    |		.BLANK	0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168       | h  |		.CONST	0x0168								; Address of begin
0161 017a       | z  |		.CONST	0x017a								; Address of exception handler
0162 0003       |    |		.CONST	0x0003								; Number of locals
0163			INIT_0160:
0163 e40a       |    |		Load	0x2,0xa
0164 0007       |    |		Action	Break_Optional
0165 601a       |`   |		Indirect_Literal	Discrete,0x180,{0x00000000, 0x00004000}
0166 00e7       |    |		Load_Encached	Duration_Cache
0167 03f1       |    |		Declare_Variable	Discrete,With_Value
0168			BODY_0160:
0168 00cf       |    |		Action	Mark_Auxiliary
0169 780b       |x   |		Jump	0x175
016a 00d9       |    |		Load_Top	At_Offset_1
016b 00ba       |    |		Action	Initiate_Delay
016c 00d9       |    |		Load_Top	At_Offset_1
016d 600e       |`   |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x00050000}
016e 027c       | |  |		Execute	Discrete,Less
016f 6804       |h   |		Jump_Zero	0x174
0170 00d9       |    |		Load_Top	At_Offset_1
0171 600e       |`   |		Indirect_Literal	Discrete,0x180,{0x00000000, 0x00004000}
0172 0273       | s  |		Execute	Discrete,Plus
0173 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0174 00c9       |    |		Action	Pop_Auxiliary_Loop
0175 00da       |    |		Load_Top	At_Offset_2
0176 e008       |    |		Load	0x0,0x8
0177 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0178 77f1       |w   |		Jump_Nonzero	0x16a
0179 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017a			TRAP_0160:
017a 0007       |    |		Action	Break_Optional
017b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
0180 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e7fd       |    |		Load	0x3,-0x3
018c e7fe       |    |		Load	0x3,-0x2
018d e7ff       |    |		Load	0x3,-0x1
018e 801c       |    |		Call	0x0,0x1c
018f 0f00       |    |		Execute_Immediate	Equal,0x0
0190 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b e41d       |    |		Load	0x2,0x1d
019c 01db       |    |		Execute	Vector,Length
019d 6807       |h   |		Jump_Zero	0x1a5
019e e41d       |    |		Load	0x2,0x1d
019f e01d       |    |		Load	0x0,0x1d
01a0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01a1 4801       |H   |		Short_Literal	0x1
01a2 4800       |H   |		Short_Literal	0x0
01a3 e410       |    |		Load	0x2,0x10
01a4 01d6       |    |		Execute	Vector,Field_Write
01a5 e41e       |    |		Load	0x2,0x1e
01a6 01db       |    |		Execute	Vector,Length
01a7 6807       |h   |		Jump_Zero	0x1af
01a8 e41e       |    |		Load	0x2,0x1e
01a9 e01d       |    |		Load	0x0,0x1d
01aa 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01ab 4801       |H   |		Short_Literal	0x1
01ac 4801       |H   |		Short_Literal	0x1
01ad e410       |    |		Load	0x2,0x10
01ae 01d6       |    |		Execute	Vector,Field_Write
01af e41f       |    |		Load	0x2,0x1f
01b0 01db       |    |		Execute	Vector,Length
01b1 6810       |h   |		Jump_Zero	0x1c2
01b2 e41e       |    |		Load	0x2,0x1e
01b3 e41f       |    |		Load	0x2,0x1f
01b4 01df       |    |		Execute	Vector,Equal
01b5 6805       |h   |		Jump_Zero	0x1bb
01b6 e01d       |    |		Load	0x0,0x1d
01b7 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01b8 e01d       |    |		Load	0x0,0x1d
01b9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01ba 7803       |x   |		Jump	0x1be
01bb e41f       |    |		Load	0x2,0x1f
01bc e01d       |    |		Load	0x0,0x1d
01bd 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01be 4801       |H   |		Short_Literal	0x1
01bf 4802       |H   |		Short_Literal	0x2
01c0 e410       |    |		Load	0x2,0x10
01c1 01d6       |    |		Execute	Vector,Field_Write
01c2 e418       |    |		Load	0x2,0x18
01c3 01db       |    |		Execute	Vector,Length
01c4 6815       |h   |		Jump_Zero	0x1da
01c5 4801       |H   |		Short_Literal	0x1
01c6 4803       |H   |		Short_Literal	0x3
01c7 e410       |    |		Load	0x2,0x10
01c8 01d6       |    |		Execute	Vector,Field_Write
01c9 e00b       |    |		Load	0x0,0xb
01ca 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01cc c411       |    |		Store	0x2,0x11
01cd e412       |    |		Load	0x2,0x12
01ce 0120       |    |		Execute	Any,Is_Value
01cf 6804       |h   |		Jump_Zero	0x1d4
01d0 e00b       |    |		Load	0x0,0xb
01d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d2 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
01d3 7801       |x   |		Jump	0x1d5
01d4 e412       |    |		Load	0x2,0x12
01d5 e418       |    |		Load	0x2,0x18
01d6 e00b       |    |		Load	0x0,0xb
01d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d9 c412       |    |		Store	0x2,0x12
01da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5       |    |		.CONST	0x01e5								; Address of begin
01e1 01fe       |    |		.CONST	0x01fe								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
01e5			BODY_01e0:
01e5 e40c       |    |		Load	0x2,0xc
01e6 6805       |h   |		Jump_Zero	0x1ec
01e7 4800       |H   |		Short_Literal	0x0
01e8 8423       | #  |		Call	0x2,0x23
01e9 e41c       |    |		Load	0x2,0x1c
01ea e404       |    |		Load	0x2,0x4
01eb 801e       |    |		Call	0x0,0x1e
01ec 8427       | '  |		Call	0x2,0x27
01ed 801f       |    |		Call	0x0,0x1f
01ee 7005       |p   |		Jump_Nonzero	0x1f4
01ef e40c       |    |		Load	0x2,0xc
01f0 6801       |h   |		Jump_Zero	0x1f2
01f1 8020       |    |		Call	0x0,0x20
01f2 8602       |    |		Call	0x3,0x2
01f3 7806       |x   |		Jump	0x1fa
01f4 0092 04a2  |    |		Action	Push_String_Extended,0x4a2					; "ready to run next test case"
01f6 e01d       |    |		Load	0x0,0x1d
01f7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01f8 e01d       |    |		Load	0x0,0x1d
01f9 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
01fa e40c       |    |		Load	0x2,0xc
01fb 6801       |h   |		Jump_Zero	0x1fd
01fc 8021       | !  |		Call	0x0,0x21
01fd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01fe			TRAP_01e0:
01fe 0007       |    |		Action	Break_Optional
01ff e40c       |    |		Load	0x2,0xc
0200 6801       |h   |		Jump_Zero	0x202
0201 8021       | !  |		Call	0x0,0x21
0202 00d8       |    |		Load_Top	At_Offset_0
0203 0101       |    |		Execute	Exception,Reraise
0204 0000 0000  |    |		.BLANK	0000[0x4]
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 00ea       |    |		Load_Encached	Null_String_Cache
020c e409       |    |		Load	0x2,0x9
020d e022       | "  |		Load	0x0,0x22
020e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0220       |    |		.CONST	0x0220								; Address of begin
0211 026f       | o  |		.CONST	0x026f								; Address of exception handler
0212 0004       |    |		.CONST	0x0004								; Number of locals
0213			INIT_0210:
0213 e007       |    |		Load	0x0,0x7
0214 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0215 02c7       |    |		Declare_Variable	Any
0216 00d8       |    |		Load_Top	At_Offset_0
0217 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0218 e40c       |    |		Load	0x2,0xc
0219 e404       |    |		Load	0x2,0x4
021a e419       |    |		Load	0x2,0x19
021b e422       | "  |		Load	0x2,0x22
021c e421       | !  |		Load	0x2,0x21
021d 8023       | #  |		Call	0x0,0x23
021e 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0220			BODY_0210:
0220 e40c       |    |		Load	0x2,0xc
0221 6805       |h   |		Jump_Zero	0x227
0222 4800       |H   |		Short_Literal	0x0
0223 8423       | #  |		Call	0x2,0x23
0224 e41c       |    |		Load	0x2,0x1c
0225 e404       |    |		Load	0x2,0x4
0226 801e       |    |		Call	0x0,0x1e
0227 00da       |    |		Load_Top	At_Offset_2
0228 e007       |    |		Load	0x0,0x7
0229 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022a 0092 04a3  |    |		Action	Push_String_Extended,0x4a3					; "<PROFILE>"
022c 0092 04a4  |    |		Action	Push_String_Extended,0x4a4					; "input=>"
022e e41d       |    |		Load	0x2,0x1d
022f 01cc       |    |		Execute	Vector,Catenate
0230 0092 04a5  |    |		Action	Push_String_Extended,0x4a5					; ",output=>"
0232 01cc       |    |		Execute	Vector,Catenate
0233 e41e       |    |		Load	0x2,0x1e
0234 01cc       |    |		Execute	Vector,Catenate
0235 0092 04a6  |    |		Action	Push_String_Extended,0x4a6					; ",error=>"
0237 01cc       |    |		Execute	Vector,Catenate
0238 e41f       |    |		Load	0x2,0x1f
0239 01cc       |    |		Execute	Vector,Catenate
023a 0092 04a7  |    |		Action	Push_String_Extended,0x4a7					; ",name=>"
023c 01cc       |    |		Execute	Vector,Catenate
023d e413       |    |		Load	0x2,0x13
023e 01cc       |    |		Execute	Vector,Catenate
023f 4800       |H   |		Short_Literal	0x0
0240 8424       | $  |		Call	0x2,0x24
0241 4800       |H   |		Short_Literal	0x0
0242 e603       |    |		Load	0x3,0x3
0243 e007       |    |		Load	0x0,0x7
0244 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0245 c409       |    |		Store	0x2,0x9
0246 c602       |    |		Store	0x3,0x2
0247 00da       |    |		Load_Top	At_Offset_2
0248 e024       | $  |		Load	0x0,0x24
0249 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
024a 6816       |h   |		Jump_Zero	0x261
024b e019       |    |		Load	0x0,0x19
024c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
024d 4807       |H   |		Short_Literal	0x7
024e 0092 04a8  |    |		Action	Push_String_Extended,0x4a8					; "Test driver and parameters can not be executed at the present time - execution status is "
0250 e602       |    |		Load	0x3,0x2
0251 e024       | $  |		Load	0x0,0x24
0252 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0253 01cc       |    |		Execute	Vector,Catenate
0254 e01a       |    |		Load	0x0,0x1a
0255 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0256 e019       |    |		Load	0x0,0x19
0257 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0258 4800       |H   |		Short_Literal	0x0
0259 0092 04a9  |    |		Action	Push_String_Extended,0x4a9					; "Failed command = "
025b e603       |    |		Load	0x3,0x3
025c 01cc       |    |		Execute	Vector,Catenate
025d e01a       |    |		Load	0x0,0x1a
025e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
025f e406       |    |		Load	0x2,0x6
0260 0257       | W  |		Execute	Discrete,Raise
0261 e409       |    |		Load	0x2,0x9
0262 e025       | %  |		Load	0x0,0x25
0263 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0264 a40a       |    |		Store_Unchecked	0x2,0xa
0265 e41a       |    |		Load	0x2,0x1a
0266 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0267 7002       |p   |		Jump_Nonzero	0x26a
0268 8425       | %  |		Call	0x2,0x25
0269 7801       |x   |		Jump	0x26b
026a 8604       |    |		Call	0x3,0x4
026b e40c       |    |		Load	0x2,0xc
026c 6801       |h   |		Jump_Zero	0x26e
026d 8021       | !  |		Call	0x0,0x21
026e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026f			TRAP_0210:
026f 0007       |    |		Action	Break_Optional
0270 e40c       |    |		Load	0x2,0xc
0271 6801       |h   |		Jump_Zero	0x273
0272 8021       | !  |		Call	0x0,0x21
0273 00d8       |    |		Load_Top	At_Offset_0
0274 0101       |    |		Execute	Exception,Reraise
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0281       |    |		.CONST	0x0281								; Address of begin
0279 0293       |    |		.CONST	0x0293								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e40c       |    |		Load	0x2,0xc
027c e404       |    |		Load	0x2,0x4
027d e419       |    |		Load	0x2,0x19
027e e422       | "  |		Load	0x2,0x22
027f e421       | !  |		Load	0x2,0x21
0280 8023       | #  |		Call	0x0,0x23
0281			BODY_0278:
0281 e40c       |    |		Load	0x2,0xc
0282 6805       |h   |		Jump_Zero	0x288
0283 4800       |H   |		Short_Literal	0x0
0284 8423       | #  |		Call	0x2,0x23
0285 e41c       |    |		Load	0x2,0x1c
0286 e404       |    |		Load	0x2,0x4
0287 801e       |    |		Call	0x0,0x1e
0288 8427       | '  |		Call	0x2,0x27
0289 0092 04a3  |    |		Action	Push_String_Extended,0x4a3					; "<PROFILE>"
028b 8424       | $  |		Call	0x2,0x24
028c 00da       |    |		Load_Top	At_Offset_2
028d e007       |    |		Load	0x0,0x7
028e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
028f e40c       |    |		Load	0x2,0xc
0290 6801       |h   |		Jump_Zero	0x292
0291 8021       | !  |		Call	0x0,0x21
0292 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0293			TRAP_0278:
0293 0007       |    |		Action	Break_Optional
0294 e40c       |    |		Load	0x2,0xc
0295 6801       |h   |		Jump_Zero	0x297
0296 8021       | !  |		Call	0x0,0x21
0297 00d8       |    |		Load_Top	At_Offset_0
0298 0101       |    |		Execute	Exception,Reraise
0299 0000 0000  |    |		.BLANK	0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 029f 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Call
02a5			BODY_02a0:
02a5 4800       |H   |		Short_Literal	0x0
02a6 e410       |    |		Load	0x2,0x10
02a7 01d7       |    |		Execute	Vector,Field_Read
02a8 6802       |h   |		Jump_Zero	0x2ab
02a9 e01d       |    |		Load	0x0,0x1d
02aa 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
02ab 4801       |H   |		Short_Literal	0x1
02ac e410       |    |		Load	0x2,0x10
02ad 01d7       |    |		Execute	Vector,Field_Read
02ae 6802       |h   |		Jump_Zero	0x2b1
02af e01d       |    |		Load	0x0,0x1d
02b0 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
02b1 4802       |H   |		Short_Literal	0x2
02b2 e410       |    |		Load	0x2,0x10
02b3 01d7       |    |		Execute	Vector,Field_Read
02b4 6801       |h   |		Jump_Zero	0x2b6
02b5 8602       |    |		Call	0x3,0x2
02b6 4803       |H   |		Short_Literal	0x3
02b7 e410       |    |		Load	0x2,0x10
02b8 01d7       |    |		Execute	Vector,Field_Read
02b9 680d       |h   |		Jump_Zero	0x2c7
02ba e412       |    |		Load	0x2,0x12
02bb 0120       |    |		Execute	Any,Is_Value
02bc 6804       |h   |		Jump_Zero	0x2c1
02bd e00b       |    |		Load	0x0,0xb
02be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02bf 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
02c0 7801       |x   |		Jump	0x2c2
02c1 e412       |    |		Load	0x2,0x12
02c2 e411       |    |		Load	0x2,0x11
02c3 e00b       |    |		Load	0x0,0xb
02c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02c6 c412       |    |		Store	0x2,0x12
02c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd       |    |		.CONST	0x02cd								; Address of begin
02c9 02d5       |    |		.CONST	0x02d5								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
02cd			BODY_02c8:
02cd e41a       |    |		Load	0x2,0x1a
02ce 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02cf 7002       |p   |		Jump_Nonzero	0x2d2
02d0 87fe       |    |		Call	0x3,-0x2
02d1 7801       |x   |		Jump	0x2d3
02d2 8602       |    |		Call	0x3,0x2
02d3 842c       | ,  |		Call	0x2,0x2c
02d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d5			TRAP_02c8:
02d5 e016       |    |		Load	0x0,0x16
02d6 010f       |    |		Execute	Exception,Equal
02d7 7006       |p   |		Jump_Nonzero	0x2de
02d8 e017       |    |		Load	0x0,0x17
02d9 010f       |    |		Execute	Exception,Equal
02da 7003       |p   |		Jump_Nonzero	0x2de
02db e018       |    |		Load	0x0,0x18
02dc 010f       |    |		Execute	Exception,Equal
02dd 6803       |h   |		Jump_Zero	0x2e1
02de 842c       | ,  |		Call	0x2,0x2c
02df 00d8       |    |		Load_Top	At_Offset_0
02e0 0101       |    |		Execute	Exception,Reraise
02e1 842c       | ,  |		Call	0x2,0x2c
02e2 e019       |    |		Load	0x0,0x19
02e3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02e4 4807       |H   |		Short_Literal	0x7
02e5 0092 04aa  |    |		Action	Push_String_Extended,0x4aa					; "Test harness error - "
02e7 4800       |H   |		Short_Literal	0x0
02e8 4801       |H   |		Short_Literal	0x1
02e9 e026       | &  |		Load	0x0,0x26
02ea 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02eb 01cc       |    |		Execute	Vector,Catenate
02ec e01a       |    |		Load	0x0,0x1a
02ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ee 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ef 0000       |    |		.XXX[0x1]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f9       |    |		.CONST	0x02f9								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0004       |    |		.CONST	0x0004								; Number of locals
02f3			INIT_02f0:
02f3 8004       |    |		Call	0x0,0x4
02f4 00d8       |    |		Load_Top	At_Offset_0
02f5 0217       |    |		Execute	Heap_Access,All_Reference
02f6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02f7 029f 0433  |   3|		Declare_Subprogram	INIT_0430,For_Call
02f9			BODY_02f0:
02f9 00d9       |    |		Load_Top	At_Offset_1
02fa 00db       |    |		Load_Top	At_Offset_3
02fb 0217       |    |		Execute	Heap_Access,All_Reference
02fc 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02fd e41c       |    |		Load	0x2,0x1c
02fe 8027       | '  |		Call	0x0,0x27
02ff 4802       |H   |		Short_Literal	0x2
0300 8028       | (  |		Call	0x0,0x28
0301 c603       |    |		Store	0x3,0x3
0302 e41b       |    |		Load	0x2,0x1b
0303 01db       |    |		Execute	Vector,Length
0304 6809       |h   |		Jump_Zero	0x30e
0305 00d9       |    |		Load_Top	At_Offset_1
0306 00db       |    |		Load_Top	At_Offset_3
0307 0217       |    |		Execute	Heap_Access,All_Reference
0308 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0309 e41b       |    |		Load	0x2,0x1b
030a 8027       | '  |		Call	0x0,0x27
030b 4803       |H   |		Short_Literal	0x3
030c 8028       | (  |		Call	0x0,0x28
030d c603       |    |		Store	0x3,0x3
030e e41d       |    |		Load	0x2,0x1d
030f 01db       |    |		Execute	Vector,Length
0310 6809       |h   |		Jump_Zero	0x31a
0311 00d9       |    |		Load_Top	At_Offset_1
0312 00db       |    |		Load_Top	At_Offset_3
0313 0217       |    |		Execute	Heap_Access,All_Reference
0314 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0315 e41d       |    |		Load	0x2,0x1d
0316 8027       | '  |		Call	0x0,0x27
0317 4804       |H   |		Short_Literal	0x4
0318 8028       | (  |		Call	0x0,0x28
0319 c603       |    |		Store	0x3,0x3
031a e41e       |    |		Load	0x2,0x1e
031b 01db       |    |		Execute	Vector,Length
031c 6809       |h   |		Jump_Zero	0x326
031d 00d9       |    |		Load_Top	At_Offset_1
031e 00db       |    |		Load_Top	At_Offset_3
031f 0217       |    |		Execute	Heap_Access,All_Reference
0320 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0321 e41e       |    |		Load	0x2,0x1e
0322 8027       | '  |		Call	0x0,0x27
0323 4805       |H   |		Short_Literal	0x5
0324 8028       | (  |		Call	0x0,0x28
0325 c603       |    |		Store	0x3,0x3
0326 e41f       |    |		Load	0x2,0x1f
0327 01db       |    |		Execute	Vector,Length
0328 6809       |h   |		Jump_Zero	0x332
0329 00d9       |    |		Load_Top	At_Offset_1
032a 00db       |    |		Load_Top	At_Offset_3
032b 0217       |    |		Execute	Heap_Access,All_Reference
032c 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
032d e41f       |    |		Load	0x2,0x1f
032e 8027       | '  |		Call	0x0,0x27
032f 4807       |H   |		Short_Literal	0x7
0330 8028       | (  |		Call	0x0,0x28
0331 c603       |    |		Store	0x3,0x3
0332 8604       |    |		Call	0x3,0x4
0333 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0344       | D  |		.CONST	0x0344								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0004       |    |		.CONST	0x0004								; Number of locals
033b			INIT_0338:
033b e002       |    |		Load	0x0,0x2
033c 0322       | "  |		Declare_Variable	Record
033d 8003       |    |		Call	0x0,0x3
033e 00d9       |    |		Load_Top	At_Offset_1
033f 017d       | }  |		Execute	Record,Structure_Write
0340 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
0342 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
0344			BODY_0338:
0344 e413       |    |		Load	0x2,0x13
0345 01db       |    |		Execute	Vector,Length
0346 700c       |p   |		Jump_Nonzero	0x353
0347 e414       |    |		Load	0x2,0x14
0348 01db       |    |		Execute	Vector,Length
0349 7009       |p   |		Jump_Nonzero	0x353
034a e019       |    |		Load	0x0,0x19
034b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
034c 4807       |H   |		Short_Literal	0x7
034d 0092 04ab  |    |		Action	Push_String_Extended,0x4ab					; "No test driver specified in test case"
034f e01a       |    |		Load	0x0,0x1a
0350 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0351 4801       |H   |		Short_Literal	0x1
0352 a407       |    |		Store_Unchecked	0x2,0x7
0353 e41b       |    |		Load	0x2,0x1b
0354 01db       |    |		Execute	Vector,Length
0355 7007       |p   |		Jump_Nonzero	0x35d
0356 e407       |    |		Load	0x2,0x7
0357 4801       |H   |		Short_Literal	0x1
0358 4804       |H   |		Short_Literal	0x4
0359 e41c       |    |		Load	0x2,0x1c
035a 8426       | &  |		Call	0x2,0x26
035b 0278       | x  |		Execute	Discrete,Or
035c a407       |    |		Store_Unchecked	0x2,0x7
035d e407       |    |		Load	0x2,0x7
035e 4801       |H   |		Short_Literal	0x1
035f 4805       |H   |		Short_Literal	0x5
0360 e41b       |    |		Load	0x2,0x1b
0361 8426       | &  |		Call	0x2,0x26
0362 0278       | x  |		Execute	Discrete,Or
0363 a407       |    |		Store_Unchecked	0x2,0x7
0364 e407       |    |		Load	0x2,0x7
0365 4802       |H   |		Short_Literal	0x2
0366 4806       |H   |		Short_Literal	0x6
0367 e41d       |    |		Load	0x2,0x1d
0368 8426       | &  |		Call	0x2,0x26
0369 0278       | x  |		Execute	Discrete,Or
036a a407       |    |		Store_Unchecked	0x2,0x7
036b e407       |    |		Load	0x2,0x7
036c 4803       |H   |		Short_Literal	0x3
036d 4808       |H   |		Short_Literal	0x8
036e e41e       |    |		Load	0x2,0x1e
036f 8426       | &  |		Call	0x2,0x26
0370 0278       | x  |		Execute	Discrete,Or
0371 a407       |    |		Store_Unchecked	0x2,0x7
0372 e407       |    |		Load	0x2,0x7
0373 4803       |H   |		Short_Literal	0x3
0374 4808       |H   |		Short_Literal	0x8
0375 e41f       |    |		Load	0x2,0x1f
0376 8426       | &  |		Call	0x2,0x26
0377 0278       | x  |		Execute	Discrete,Or
0378 a407       |    |		Store_Unchecked	0x2,0x7
0379 e407       |    |		Load	0x2,0x7
037a 4804       |H   |		Short_Literal	0x4
037b 4800       |H   |		Short_Literal	0x0
037c e418       |    |		Load	0x2,0x18
037d 8426       | &  |		Call	0x2,0x26
037e 0278       | x  |		Execute	Discrete,Or
037f a407       |    |		Store_Unchecked	0x2,0x7
0380 e407       |    |		Load	0x2,0x7
0381 6802       |h   |		Jump_Zero	0x384
0382 e408       |    |		Load	0x2,0x8
0383 0257       | W  |		Execute	Discrete,Raise
0384 00da       |    |		Load_Top	At_Offset_2
0385 0092 04ac  |    |		Action	Push_String_Extended,0x4ac					; "Test Case File Checking"
0387 8015       |    |		Call	0x0,0x15
0388 842e       | .  |		Call	0x2,0x2e
0389 e40b       |    |		Load	0x2,0xb
038a 4602       |F   |		Jump_Case	0x3
038b 7804       |x   |		Jump	0x390								; case 0x0
038c 7805       |x   |		Jump	0x392								; case 0x1
038d 7800       |x   |		Jump	0x38e								; case 0x2
038e 8604       |    |		Call	0x3,0x4
038f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0390 8603       |    |		Call	0x3,0x3
0391 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0392 842a       | *  |		Call	0x2,0x2a
0393 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 03a3       |    |		.CONST	0x03a3								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b e419       |    |		Load	0x2,0x19
039c e413       |    |		Load	0x2,0x13
039d e414       |    |		Load	0x2,0x14
039e 8011       |    |		Call	0x0,0x11
039f e029       | )  |		Load	0x0,0x29
03a0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03a1 85fd       |    |		Call	0x2,-0x3
03a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03a3			TRAP_0398:
03a3 e016       |    |		Load	0x0,0x16
03a4 010f       |    |		Execute	Exception,Equal
03a5 7006       |p   |		Jump_Nonzero	0x3ac
03a6 e017       |    |		Load	0x0,0x17
03a7 010f       |    |		Execute	Exception,Equal
03a8 7003       |p   |		Jump_Nonzero	0x3ac
03a9 e018       |    |		Load	0x0,0x18
03aa 010f       |    |		Execute	Exception,Equal
03ab 6808       |h   |		Jump_Zero	0x3b4
03ac 0092 04ad  |    |		Action	Push_String_Extended,0x4ad					; "<CURRENT TEST CASE>"
03ae 0092 04ae  |    |		Action	Push_String_Extended,0x4ae					; "<CURRENT TEST RUN>"
03b0 802a       | *  |		Call	0x0,0x2a
03b1 802b       | +  |		Call	0x0,0x2b
03b2 00d8       |    |		Load_Top	At_Offset_0
03b3 0101       |    |		Execute	Exception,Reraise
03b4 0092 04ad  |    |		Action	Push_String_Extended,0x4ad					; "<CURRENT TEST CASE>"
03b6 0092 04ae  |    |		Action	Push_String_Extended,0x4ae					; "<CURRENT TEST RUN>"
03b8 802a       | *  |		Call	0x0,0x2a
03b9 802b       | +  |		Call	0x0,0x2b
03ba 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03bb 0000 0000  |    |		.BLANK	0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03db       |    |		.CONST	0x03db								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0007       |    |		.CONST	0x0007								; Number of locals
03c3			INIT_03c0:
03c3 a02c       | ,  |		Store_Unchecked	0x0,0x2c
03c4 00c6       |    |		Action	Check_Subprogram_Elaborated
03c5 e41a       |    |		Load	0x2,0x1a
03c6 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
03c7 00cd       |    |		Action	Spare6_Action
03c8 e409       |    |		Load	0x2,0x9
03c9 4825       |H%  |		Short_Literal	0x25
03ca 4802       |H   |		Short_Literal	0x2
03cb 0099       |    |		Action	Reference_Dynamic
03cc 4829       |H)  |		Short_Literal	0x29
03cd 4802       |H   |		Short_Literal	0x2
03ce 0099       |    |		Action	Reference_Dynamic
03cf 0093 0000  |    |		push_full_address	0x0
03d1 601a       |`   |		Indirect_Literal	Discrete,0x3ec,{0x80000000, 0x00040000}
03d2 0273       | s  |		Execute	Discrete,Plus
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 6013       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000ffff}
03d5 0279       | y  |		Execute	Discrete,And
03d6 0273       | s  |		Execute	Discrete,Plus
03d7 e02d       | -  |		Load	0x0,0x2d
03d8 0273       | s  |		Execute	Discrete,Plus
03d9 4807       |H   |		Short_Literal	0x7
03da 0007       |    |		Action	Break_Optional
03db			BODY_03c0:
03db e802       |    |		Load	0x4,0x2
03dc e803       |    |		Load	0x4,0x3
03dd 4804       |H   |		Short_Literal	0x4
03de 4804       |H   |		Short_Literal	0x4
03df 0099       |    |		Action	Reference_Dynamic
03e0 4805       |H   |		Short_Literal	0x5
03e1 4804       |H   |		Short_Literal	0x4
03e2 0099       |    |		Action	Reference_Dynamic
03e3 4806       |H   |		Short_Literal	0x6
03e4 4804       |H   |		Short_Literal	0x4
03e5 0099       |    |		Action	Reference_Dynamic
03e6 802c       | ,  |		Call	0x0,0x2c
03e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
03ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f9       |    |		.CONST	0x03f9								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0002       |    |		.CONST	0x0002								; Number of locals
03f3			INIT_03f0:
03f3 e01d       |    |		Load	0x0,0x1d
03f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f5 02c7       |    |		Declare_Variable	Any
03f6 e01d       |    |		Load	0x0,0x1d
03f7 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03f8 a802       |    |		Store_Unchecked	0x4,0x2
03f9			BODY_03f0:
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa e01d       |    |		Load	0x0,0x1d
03fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03fc c802       |    |		Store	0x4,0x2
03fd e01d       |    |		Load	0x0,0x1d
03fe 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
03ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 041a       |    |		.CONST	0x041a								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0007       |    |		.CONST	0x0007								; Number of locals
0403			INIT_0400:
0403 a02c       | ,  |		Store_Unchecked	0x0,0x2c
0404 00c6       |    |		Action	Check_Subprogram_Elaborated
0405 e41a       |    |		Load	0x2,0x1a
0406 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0407 00cd       |    |		Action	Spare6_Action
0408 e02e       | .  |		Load	0x0,0x2e
0409 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
040a 4ffe       |O   |		Short_Literal	-0x2
040b 4803       |H   |		Short_Literal	0x3
040c 0099       |    |		Action	Reference_Dynamic
040d a02f       | /  |		Store_Unchecked	0x0,0x2f
040e 0093 0000  |    |		push_full_address	0x0
0410 601b       |`   |		Indirect_Literal	Discrete,0x42c,{0x80000000, 0x00030000}
0411 0273       | s  |		Execute	Discrete,Plus
0412 e7ff       |    |		Load	0x3,-0x1
0413 6014       |`   |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x0000ffff}
0414 0279       | y  |		Execute	Discrete,And
0415 0273       | s  |		Execute	Discrete,Plus
0416 e030       | 0  |		Load	0x0,0x30
0417 0273       | s  |		Execute	Discrete,Plus
0418 4807       |H   |		Short_Literal	0x7
0419 0007       |    |		Action	Break_Optional
041a			BODY_0400:
041a e802       |    |		Load	0x4,0x2
041b e803       |    |		Load	0x4,0x3
041c 4804       |H   |		Short_Literal	0x4
041d 4804       |H   |		Short_Literal	0x4
041e 0099       |    |		Action	Reference_Dynamic
041f 4805       |H   |		Short_Literal	0x5
0420 4804       |H   |		Short_Literal	0x4
0421 0099       |    |		Action	Reference_Dynamic
0422 4806       |H   |		Short_Literal	0x6
0423 4804       |H   |		Short_Literal	0x4
0424 0099       |    |		Action	Reference_Dynamic
0425 802c       | ,  |		Call	0x0,0x2c
0426 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0427 0000       |    |		.XXX[0x1]
0428 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
042c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0440       | @  |		.CONST	0x0440								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0002       |    |		.CONST	0x0002								; Number of locals
0433			INIT_0430:
0433 e602       |    |		Load	0x3,0x2
0434 0217       |    |		Execute	Heap_Access,All_Reference
0435 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0436 4807       |H   |		Short_Literal	0x7
0437 4800       |H   |		Short_Literal	0x0
0438 4801       |H   |		Short_Literal	0x1
0439 e602       |    |		Load	0x3,0x2
043a 0217       |    |		Execute	Heap_Access,All_Reference
043b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
043c 4808       |H   |		Short_Literal	0x8
043d 800c       |    |		Call	0x0,0xc
043e 8005       |    |		Call	0x0,0x5
043f 8031       | 1  |		Call	0x0,0x31
0440			BODY_0430:
0440 00d8       |    |		Load_Top	At_Offset_0
0441 01db       |    |		Execute	Vector,Length
0442 6809       |h   |		Jump_Zero	0x44c
0443 e603       |    |		Load	0x3,0x3
0444 e602       |    |		Load	0x3,0x2
0445 0217       |    |		Execute	Heap_Access,All_Reference
0446 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0447 00da       |    |		Load_Top	At_Offset_2
0448 8027       | '  |		Call	0x0,0x27
0449 4806       |H   |		Short_Literal	0x6
044a 8028       | (  |		Call	0x0,0x28
044b c603       |    |		Store	0x3,0x3
044c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
044d 0000 0000  |    |		.XXX[0x3]
044f 0000       |    |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0466       | f  |		.CONST	0x0466								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0004       |    |		.CONST	0x0004								; Number of locals
0453			INIT_0450:
0453 482d       |H-  |		Short_Literal	0x2d
0454 4802       |H   |		Short_Literal	0x2
0455 0099       |    |		Action	Reference_Dynamic
0456 00c6       |    |		Action	Check_Subprogram_Elaborated
0457 4828       |H(  |		Short_Literal	0x28
0458 4802       |H   |		Short_Literal	0x2
0459 0099       |    |		Action	Reference_Dynamic
045a 0093 0000  |    |		push_full_address	0x0
045c 6017       |`   |		Indirect_Literal	Discrete,0x474,{0x80000000, 0x00020000}
045d 0273       | s  |		Execute	Discrete,Plus
045e e5ff       |    |		Load	0x2,-0x1
045f 6010       |`   |		Indirect_Literal	Discrete,0x470,{0x00000000, 0x0000ffff}
0460 0279       | y  |		Execute	Discrete,And
0461 0273       | s  |		Execute	Discrete,Plus
0462 e032       | 2  |		Load	0x0,0x32
0463 0273       | s  |		Execute	Discrete,Plus
0464 4804       |H   |		Short_Literal	0x4
0465 0007       |    |		Action	Break_Optional
0466			BODY_0450:
0466 4802       |H   |		Short_Literal	0x2
0467 4804       |H   |		Short_Literal	0x4
0468 0099       |    |		Action	Reference_Dynamic
0469 4803       |H   |		Short_Literal	0x3
046a 4804       |H   |		Short_Literal	0x4
046b 0099       |    |		Action	Reference_Dynamic
046c 842d       | -  |		Call	0x2,0x2d
046d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
046e 0000 0000  |    |		.XXX[0x2]
0470 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0474 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 048e       |    |		.CONST	0x048e								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0004       |    |		.CONST	0x0004								; Number of locals
047b			INIT_0478:
047b 482d       |H-  |		Short_Literal	0x2d
047c 4802       |H   |		Short_Literal	0x2
047d 0099       |    |		Action	Reference_Dynamic
047e 00c6       |    |		Action	Check_Subprogram_Elaborated
047f 482b       |H+  |		Short_Literal	0x2b
0480 4802       |H   |		Short_Literal	0x2
0481 0099       |    |		Action	Reference_Dynamic
0482 0093 0000  |    |		push_full_address	0x0
0484 6013       |`   |		Indirect_Literal	Discrete,0x498,{0x80000000, 0x00010000}
0485 0273       | s  |		Execute	Discrete,Plus
0486 e5ff       |    |		Load	0x2,-0x1
0487 67e8       |g   |		Indirect_Literal	Discrete,0x470,{0x00000000, 0x0000ffff}
0488 0279       | y  |		Execute	Discrete,And
0489 0273       | s  |		Execute	Discrete,Plus
048a e033       | 3  |		Load	0x0,0x33
048b 0273       | s  |		Execute	Discrete,Plus
048c 4804       |H   |		Short_Literal	0x4
048d 0007       |    |		Action	Break_Optional
048e			BODY_0478:
048e 4802       |H   |		Short_Literal	0x2
048f 4804       |H   |		Short_Literal	0x4
0490 0099       |    |		Action	Reference_Dynamic
0491 4803       |H   |		Short_Literal	0x3
0492 4804       |H   |		Short_Literal	0x4
0493 0099       |    |		Action	Reference_Dynamic
0494 842d       | -  |		Call	0x2,0x2d
0495 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0496 0000 0000  |    |		.XXX[0x2]
0498 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
049c ; --------------------------------------------------------------------------------------
049c ; STRING TABLE
049c ; --------------------------------------------------------------------------------------
049c 0028       | (  |		.STRTAB	0x0028->0x04b0							; "ECC_INPUT"
049d 002f       | /  |		.STRTAB	0x002f->0x04b4							; "ECC_OUTPUT"
049e 0037       | 7  |		.STRTAB	0x0037->0x04b9							; "ECC_ERROR"
049f 003e       | >  |		.STRTAB	0x003e->0x04be							; "ECC_CONTEXT"
04a0 0047       | G  |		.STRTAB	0x0047->0x04c3							; "Test Case Invoke"
04a1 0055       | U  |		.STRTAB	0x0055->0x04cb							; "Driver invocation exception, check prior error messages"
04a2 008a       |    |		.STRTAB	0x008a->0x04e7							; "ready to run next test case"
04a3 00a3       |    |		.STRTAB	0x00a3->0x04f4							; "<PROFILE>"
04a4 00aa       |    |		.STRTAB	0x00aa->0x04f9							; "input=>"
04a5 00af       |    |		.STRTAB	0x00af->0x04fc							; ",output=>"
04a6 00b6       |    |		.STRTAB	0x00b6->0x0501							; ",error=>"
04a7 00bc       |    |		.STRTAB	0x00bc->0x0505							; ",name=>"
04a8 00c1       |    |		.STRTAB	0x00c1->0x0508							; "Test driver and parameters can not be executed at the present time - execution status is "
04a9 0118       |    |		.STRTAB	0x0118->0x0535							; "Failed command = "
04aa 0127       | '  |		.STRTAB	0x0127->0x053d							; "Test harness error - "
04ab 013a       | :  |		.STRTAB	0x013a->0x0548							; "No test driver specified in test case"
04ac 015d       | ]  |		.STRTAB	0x015d->0x055a							; "Test Case File Checking"
04ad 0172       | r  |		.STRTAB	0x0172->0x0566							; "<CURRENT TEST CASE>"
04ae 0183       |    |		.STRTAB	0x0183->0x056f							; "<CURRENT TEST RUN>"
04af 0193       |    |		.STREND 0x0193->0x0578
04b0 4543 435f  |ECC_|		.STRTAB_STRINGS
0579 0000 0000  |    |		.BLANK	0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug Table
0580 ; --------------------------------------------------------------------------------------
0580 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x81cb,0x0000,0x0001,0x0000
0586 0000 0000  |    |		.BLANK	0000[0x7a]