|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
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]