|
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 0528 | ( | .CONST 0x0528 ; 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 0067 | g | .CONST 0x0067 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0017 4800 |H | Short_Literal 0x0 0018 480b |H | Short_Literal 0xb 0019 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 001b 03fe | | Declare_Type Discrete,Defined,Visible 001c 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001e 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0020 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0022 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0024 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0026 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0028 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 002a 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 002c 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 002e 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0030 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0032 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0034 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0036 00bf | | Action Accept_Activation 0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003a 00c7 | | Action Elaborate_Subprogram 003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003c 00c7 | | Action Elaborate_Subprogram 003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003e 00c7 | | Action Elaborate_Subprogram 003f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0040 00c7 | | Action Elaborate_Subprogram 0041 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0043 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0045 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0046 00c7 | | Action Elaborate_Subprogram 0047 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 0049 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call 004b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004c 00c7 | | Action Elaborate_Subprogram 004d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004e 00c7 | | Action Elaborate_Subprogram 004f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0050 00c7 | | Action Elaborate_Subprogram 0051 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0052 00c7 | | Action Elaborate_Subprogram 0053 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 0055 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0056 00c7 | | Action Elaborate_Subprogram 0057 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0058 00c7 | | Action Elaborate_Subprogram 0059 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0064 00c7 | | Action Elaborate_Subprogram 0065 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0066 00c7 | | Action Elaborate_Subprogram 0067 BODY_0008: 0067 00bc | | Action Signal_Activated 0068 00bb | | Action Signal_Completion 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4801 |H | Short_Literal 0x1 0074 00ca | | Action Exit_Nullary_Function 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 4802 |H | Short_Literal 0x2 007c 00ca | | Action Exit_Nullary_Function 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4803 |H | Short_Literal 0x3 0084 00ca | | Action Exit_Nullary_Function 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4804 |H | Short_Literal 0x4 008c 00ca | | Action Exit_Nullary_Function 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e5fe | | Load 0x2,-0x2 0095 027f | | Execute Discrete,Equal 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00ab | | .CONST 0x00ab ; Address of begin 0099 013a | : | .CONST 0x013a ; Address of exception handler 009a 0008 | | .CONST 0x0008 ; Number of locals 009b INIT_0098: 009b e002 | | Load 0x0,0x2 009c 0007 | | Action Break_Optional 009d e003 | | Load 0x0,0x3 009e 0007 | | Action Break_Optional 009f e004 | | Load 0x0,0x4 00a0 0007 | | Action Break_Optional 00a1 e003 | | Load 0x0,0x3 00a2 0007 | | Action Break_Optional 00a3 e005 | | Load 0x0,0x5 00a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 8006 | | Call 0x0,0x6 00a9 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 00ab BODY_0098: 00ab 00d9 | | Load_Top At_Offset_1 00ac 700e |p | Jump_Nonzero 0xbb 00ad e5fe | | Load 0x2,-0x2 00ae 8222 | " | Call 0x1,0x22 00af 7003 |p | Jump_Nonzero 0xb3 00b0 e5fd | | Load 0x2,-0x3 00b1 8221 | ! | Call 0x1,0x21 00b2 6811 |h | Jump_Zero 0xc4 00b3 e007 | | Load 0x0,0x7 00b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b5 4807 |H | Short_Literal 0x7 00b6 0092 0409 | | Action Push_String_Extended,0x409 ; "Must explicitly specify the Test Run and Test Case names" 00b8 e008 | | Load 0x0,0x8 00b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00bb 00d9 | | Load_Top At_Offset_1 00bc 0217 | | Execute Heap_Access,All_Reference 00bd 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 00be 7005 |p | Jump_Nonzero 0xc4 00bf e5fd | | Load 0x2,-0x3 00c0 e5fe | | Load 0x2,-0x2 00c1 e5ff | | Load 0x2,-0x1 00c2 8009 | | Call 0x0,0x9 00c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c4 e5fe | | Load 0x2,-0x2 00c5 8222 | " | Call 0x1,0x22 00c6 6835 |h5 | Jump_Zero 0xfc 00c7 00d9 | | Load_Top At_Offset_1 00c8 0217 | | Execute Heap_Access,All_Reference 00c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ca a402 | | Store_Unchecked 0x2,0x2 00cb e5fd | | Load 0x2,-0x3 00cc 8221 | ! | Call 0x1,0x21 00cd 681d |h | Jump_Zero 0xeb 00ce e404 | | Load 0x2,0x4 00cf e00a | | Load 0x0,0xa 00d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d1 e00b | | Load 0x0,0xb 00d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d3 00db | | Load_Top At_Offset_3 00d4 0217 | | Execute Heap_Access,All_Reference 00d5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00d6 800c | | Call 0x0,0xc 00d7 c404 | | Store 0x2,0x4 00d8 00d9 | | Load_Top At_Offset_1 00d9 0217 | | Execute Heap_Access,All_Reference 00da 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00db a405 | | Store_Unchecked 0x2,0x5 00dc 8408 | | Call 0x2,0x8 00dd 00d9 | | Load_Top At_Offset_1 00de 0219 | | Execute Heap_Access,All_Read 00df 00d8 | | Load_Top At_Offset_0 00e0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00e1 e00a | | Load 0x0,0xa 00e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e3 e00b | | Load 0x0,0xb 00e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e5 e404 | | Load 0x2,0x4 00e6 800c | | Call 0x0,0xc 00e7 00d9 | | Load_Top At_Offset_1 00e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e9 00d1 | | Pop_Control Pop_Count_1 00ea 780c |x | Jump 0xf7 00eb e00a | | Load 0x0,0xa 00ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ed e00b | | Load 0x0,0xb 00ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ef e5fd | | Load 0x2,-0x3 00f0 800d | | Call 0x0,0xd 00f1 a405 | | Store_Unchecked 0x2,0x5 00f2 00db | | Load_Top At_Offset_3 00f3 e402 | | Load 0x2,0x2 00f4 800e | | Call 0x0,0xe 00f5 a404 | | Store_Unchecked 0x2,0x4 00f6 8408 | | Call 0x2,0x8 00f7 e402 | | Load 0x2,0x2 00f8 00da | | Load_Top At_Offset_2 00f9 0217 | | Execute Heap_Access,All_Reference 00fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00fc e5fd | | Load 0x2,-0x3 00fd 8221 | ! | Call 0x1,0x21 00fe 6808 |h | Jump_Zero 0x107 00ff e007 | | Load 0x0,0x7 0100 180e | | Execute Package,Field_Execute,Field_Number 0xe 0101 4807 |H | Short_Literal 0x7 0102 0092 040a | | Action Push_String_Extended,0x40a ; "Must specify a Test_Case_Name for specific Test_Run_Name" 0104 e008 | | Load 0x0,0x8 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0107 e00a | | Load 0x0,0xa 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 e00b | | Load 0x0,0xb 010a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010b 800f | | Call 0x0,0xf 010c a402 | | Store_Unchecked 0x2,0x2 010d e00a | | Load 0x0,0xa 010e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010f e00b | | Load 0x0,0xb 0110 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0111 e5fd | | Load 0x2,-0x3 0112 800d | | Call 0x0,0xd 0113 a405 | | Store_Unchecked 0x2,0x5 0114 e00a | | Load 0x0,0xa 0115 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0116 e00b | | Load 0x0,0xb 0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0118 e5fe | | Load 0x2,-0x2 0119 800d | | Call 0x0,0xd 011a a403 | | Store_Unchecked 0x2,0x3 011b e402 | | Load 0x2,0x2 011c e403 | | Load 0x2,0x3 011d 4801 |H | Short_Literal 0x1 011e 8010 | | Call 0x0,0x10 011f c402 | | Store 0x2,0x2 0120 00da | | Load_Top At_Offset_2 0121 e402 | | Load 0x2,0x2 0122 8011 | | Call 0x0,0x11 0123 c406 | | Store 0x2,0x6 0124 4802 |H | Short_Literal 0x2 0125 e403 | | Load 0x2,0x3 0126 e406 | | Load 0x2,0x6 0127 8012 | | Call 0x0,0x12 0128 00db | | Load_Top At_Offset_3 0129 e402 | | Load 0x2,0x2 012a 800e | | Call 0x0,0xe 012b a404 | | Store_Unchecked 0x2,0x4 012c 8408 | | Call 0x2,0x8 012d e402 | | Load 0x2,0x2 012e 4800 |H | Short_Literal 0x0 012f 8013 | | Call 0x0,0x13 0130 c402 | | Store 0x2,0x2 0131 00da | | Load_Top At_Offset_2 0132 e402 | | Load 0x2,0x2 0133 8011 | | Call 0x0,0x11 0134 c406 | | Store 0x2,0x6 0135 4802 |H | Short_Literal 0x2 0136 e403 | | Load 0x2,0x3 0137 e406 | | Load 0x2,0x6 0138 8012 | | Call 0x0,0x12 0139 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013a TRAP_0098: 013a e014 | | Load 0x0,0x14 013b 010f | | Execute Exception,Equal 013c 680f |h | Jump_Zero 0x14c 013d e007 | | Load 0x0,0x7 013e 180e | | Execute Package,Field_Execute,Field_Number 0xe 013f 4807 |H | Short_Literal 0x7 0140 0092 040b | | Action Push_String_Extended,0x40b ; "Test Case " 0142 e5fd | | Load 0x2,-0x3 0143 01cc | | Execute Vector,Catenate 0144 0092 040c | | Action Push_String_Extended,0x40c ; " is not defined in " 0146 01cc | | Execute Vector,Catenate 0147 e5fe | | Load 0x2,-0x2 0148 01cc | | Execute Vector,Catenate 0149 e008 | | Load 0x0,0x8 014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014c 0100 | | Execute Exception,Raise 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 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 4607 |F | Jump_Case 0x8 0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0155 7807 |x | Jump 0x15d ; case 0x1 0156 780a |x | Jump 0x161 ; case 0x2 0157 780e |x | Jump 0x166 ; case 0x3 0158 7811 |x | Jump 0x16a ; case 0x4 0159 7812 |x | Jump 0x16c ; case 0x5 015a 7813 |x | Jump 0x16e ; case 0x6 015b 7816 |x | Jump 0x172 ; case 0x7 015c 4302 |C | .XXX[0x1] 015d 00da | | Load_Top At_Offset_2 015e 0091 03fd | | Action Push_String_Extended_Indexed,0x3fd ; "NONE" 0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0161 00db | | Load_Top At_Offset_3 0162 00db | | Load_Top At_Offset_3 0163 00e0 | | Load_Encached Standard_Cache 0164 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 00da | | Load_Top At_Offset_2 0167 00e0 | | Load_Encached Standard_Cache 0168 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0169 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 016a 00db | | Load_Top At_Offset_3 016b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016c 00db | | Load_Top At_Offset_3 016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016e e213 | | Load 0x1,0x13 016f 00dc | | Load_Top At_Offset_4 0170 0267 | g | Execute Discrete,Predecessor 0171 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0172 e213 | | Load 0x1,0x13 0173 00dc | | Load_Top At_Offset_4 0174 0268 | h | Execute Discrete,Successor 0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017c | | | .CONST 0x017c ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 8006 | | Call 0x0,0x6 017c BODY_0178: 017c 00d8 | | Load_Top At_Offset_0 017d 7003 |p | Jump_Nonzero 0x181 017e 8224 | $ | Call 0x1,0x24 017f 00ea | | Load_Encached Null_String_Cache 0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0181 00d8 | | Load_Top At_Offset_0 0182 0217 | | Execute Heap_Access,All_Reference 0183 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0184 7003 |p | Jump_Nonzero 0x188 0185 00db | | Load_Top At_Offset_3 0186 8015 | | Call 0x0,0x15 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 00d8 | | Load_Top At_Offset_0 0189 0217 | | Execute Heap_Access,All_Reference 018a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018b e5ff | | Load 0x2,-0x1 018c 8223 | # | Call 0x1,0x23 018d 8016 | | Call 0x0,0x16 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0194 | | .CONST 0x0194 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 8006 | | Call 0x0,0x6 0194 BODY_0190: 0194 00d8 | | Load_Top At_Offset_0 0195 7003 |p | Jump_Nonzero 0x199 0196 8224 | $ | Call 0x1,0x24 0197 00ea | | Load_Encached Null_String_Cache 0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0199 00d8 | | Load_Top At_Offset_0 019a 0217 | | Execute Heap_Access,All_Reference 019b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 019c 7004 |p | Jump_Nonzero 0x1a1 019d e5fe | | Load 0x2,-0x2 019e e5ff | | Load 0x2,-0x1 019f 8017 | | Call 0x0,0x17 01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a1 00d8 | | Load_Top At_Offset_0 01a2 0217 | | Execute Heap_Access,All_Reference 01a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a4 e5fe | | Load 0x2,-0x2 01a5 8223 | # | Call 0x1,0x23 01a6 e5ff | | Load 0x2,-0x1 01a7 8018 | | Call 0x0,0x18 01a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a9 0000 0000 | | .BLANK 0000[0x7] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0006 | | .CONST 0x0006 ; Number of locals 01b3 INIT_01b0: 01b3 00e3 | | Load_Encached Natural_Cache 01b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b5 e019 | | Load 0x0,0x19 01b6 0007 | | Action Break_Optional 01b7 e004 | | Load 0x0,0x4 01b8 0007 | | Action Break_Optional 01b9 8006 | | Call 0x0,0x6 01ba e002 | | Load 0x0,0x2 01bb 0007 | | Action Break_Optional 01bc BODY_01b0: 01bc 00d9 | | Load_Top At_Offset_1 01bd 7003 |p | Jump_Nonzero 0x1c1 01be 8224 | $ | Call 0x1,0x24 01bf 4800 |H | Short_Literal 0x0 01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c1 00d9 | | Load_Top At_Offset_1 01c2 0217 | | Execute Heap_Access,All_Reference 01c3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01c4 7003 |p | Jump_Nonzero 0x1c8 01c5 e5ff | | Load 0x2,-0x1 01c6 801a | | Call 0x0,0x1a 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 00d9 | | Load_Top At_Offset_1 01c9 0217 | | Execute Heap_Access,All_Reference 01ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01cb 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01cc e019 | | Load 0x0,0x19 01cd 00d9 | | Load_Top At_Offset_1 01ce 801b | | Call 0x0,0x1b 01cf c403 | | Store 0x2,0x3 01d0 00cf | | Action Mark_Auxiliary 01d1 7811 |x | Jump 0x1e3 01d2 e403 | | Load 0x2,0x3 01d3 801c | | Call 0x0,0x1c 01d4 00da | | Load_Top At_Offset_2 01d5 800e | | Call 0x0,0xe 01d6 a404 | | Store_Unchecked 0x2,0x4 01d7 00db | | Load_Top At_Offset_3 01d8 801d | | Call 0x0,0x1d 01d9 e5ff | | Load 0x2,-0x1 01da 027f | | Execute Discrete,Equal 01db 6803 |h | Jump_Zero 0x1df 01dc e402 | | Load 0x2,0x2 01dd 0a01 | | Execute_Immediate Plus,0x1 01de c402 | | Store 0x2,0x2 01df e403 | | Load 0x2,0x3 01e0 801e | | Call 0x0,0x1e 01e1 c403 | | Store 0x2,0x3 01e2 00c9 | | Action Pop_Auxiliary_Loop 01e3 e403 | | Load 0x2,0x3 01e4 801f | | Call 0x0,0x1f 01e5 6fec |o | Jump_Zero 0x1d2 01e6 00ce | | Action Pop_Auxiliary 01e7 e402 | | Load 0x2,0x2 01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f6 | | .CONST 0x01f6 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 8006 | | Call 0x0,0x6 01f4 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 01f6 BODY_01f0: 01f6 00d9 | | Load_Top At_Offset_1 01f7 7003 |p | Jump_Nonzero 0x1fb 01f8 8224 | $ | Call 0x1,0x24 01f9 4800 |H | Short_Literal 0x0 01fa 00ca | | Action Exit_Nullary_Function 01fb 00d9 | | Load_Top At_Offset_1 01fc 0217 | | Execute Heap_Access,All_Reference 01fd 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01fe 7002 |p | Jump_Nonzero 0x201 01ff 8020 | | Call 0x0,0x20 0200 00ca | | Action Exit_Nullary_Function 0201 8403 | | Call 0x2,0x3 0202 0831 | 1 | Execute_Immediate Raise,0x31 0203 0000 0000 | | .BLANK 0000[0x5] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020e | | .CONST 0x020e ; Address of begin 0209 0243 | C | .CONST 0x0243 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b 8006 | | Call 0x0,0x6 020c 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 020e BODY_0208: 020e 00d9 | | Load_Top At_Offset_1 020f 700f |p | Jump_Nonzero 0x21f 0210 e5ff | | Load 0x2,-0x1 0211 8222 | " | Call 0x1,0x22 0212 7003 |p | Jump_Nonzero 0x216 0213 e5fe | | Load 0x2,-0x2 0214 8221 | ! | Call 0x1,0x21 0215 6811 |h | Jump_Zero 0x227 0216 e007 | | Load 0x0,0x7 0217 180e | | Execute Package,Field_Execute,Field_Number 0xe 0218 4807 |H | Short_Literal 0x7 0219 0092 0409 | | Action Push_String_Extended,0x409 ; "Must explicitly specify the Test Run and Test Case names" 021b e008 | | Load 0x0,0x8 021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 021d 4800 |H | Short_Literal 0x0 021e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021f 00d9 | | Load_Top At_Offset_1 0220 0217 | | Execute Heap_Access,All_Reference 0221 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0222 7004 |p | Jump_Nonzero 0x227 0223 e5fe | | Load 0x2,-0x2 0224 e5ff | | Load 0x2,-0x1 0225 8021 | ! | Call 0x0,0x21 0226 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0227 e5ff | | Load 0x2,-0x1 0228 8222 | " | Call 0x1,0x22 0229 680c |h | Jump_Zero 0x236 022a e5fe | | Load 0x2,-0x2 022b 8221 | ! | Call 0x1,0x21 022c 6806 |h | Jump_Zero 0x233 022d 00d9 | | Load_Top At_Offset_1 022e 0217 | | Execute Heap_Access,All_Reference 022f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0230 8022 | " | Call 0x0,0x22 0231 8225 | % | Call 0x1,0x25 0232 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0233 e5fe | | Load 0x2,-0x2 0234 8225 | % | Call 0x1,0x25 0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0236 e5fe | | Load 0x2,-0x2 0237 8221 | ! | Call 0x1,0x21 0238 6808 |h | Jump_Zero 0x241 0239 e007 | | Load 0x0,0x7 023a 180e | | Execute Package,Field_Execute,Field_Number 0xe 023b 4807 |H | Short_Literal 0x7 023c 0092 040d | | Action Push_String_Extended,0x40d ; "Must specify Test_Case_Name with a specified Test_Run" 023e e008 | | Load 0x0,0x8 023f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0240 7801 |x | Jump 0x242 0241 8403 | | Call 0x2,0x3 0242 0831 | 1 | Execute_Immediate Raise,0x31 0243 TRAP_0208: 0243 e014 | | Load 0x0,0x14 0244 010f | | Execute Exception,Equal 0245 6810 |h | Jump_Zero 0x256 0246 e007 | | Load 0x0,0x7 0247 180e | | Execute Package,Field_Execute,Field_Number 0xe 0248 4807 |H | Short_Literal 0x7 0249 0092 040b | | Action Push_String_Extended,0x40b ; "Test Case " 024b e5fe | | Load 0x2,-0x2 024c 01cc | | Execute Vector,Catenate 024d 0092 040c | | Action Push_String_Extended,0x40c ; " is not defined in " 024f 01cc | | Execute Vector,Catenate 0250 e5ff | | Load 0x2,-0x1 0251 01cc | | Execute Vector,Catenate 0252 e008 | | Load 0x0,0x8 0253 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0254 4800 |H | Short_Literal 0x0 0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0256 0100 | | Execute Exception,Raise 0257 0000 | | .XXX[0x1] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025c | \ | .CONST 0x025c ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 8006 | | Call 0x0,0x6 025c BODY_0258: 025c 00d8 | | Load_Top At_Offset_0 025d 7003 |p | Jump_Nonzero 0x261 025e 8224 | $ | Call 0x1,0x24 025f 00ea | | Load_Encached Null_String_Cache 0260 00ca | | Action Exit_Nullary_Function 0261 00d8 | | Load_Top At_Offset_0 0262 0217 | | Execute Heap_Access,All_Reference 0263 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0264 7002 |p | Jump_Nonzero 0x267 0265 8023 | # | Call 0x0,0x23 0266 00ca | | Action Exit_Nullary_Function 0267 00d8 | | Load_Top At_Offset_0 0268 0217 | | Execute Heap_Access,All_Reference 0269 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 026a 8024 | $ | Call 0x0,0x24 026b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 026c 8025 | % | Call 0x0,0x25 026d 00ca | | Action Exit_Nullary_Function 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0274 | t | .CONST 0x0274 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 8006 | | Call 0x0,0x6 0274 BODY_0270: 0274 00d8 | | Load_Top At_Offset_0 0275 7003 |p | Jump_Nonzero 0x279 0276 8224 | $ | Call 0x1,0x24 0277 00ea | | Load_Encached Null_String_Cache 0278 00ca | | Action Exit_Nullary_Function 0279 00d8 | | Load_Top At_Offset_0 027a 0217 | | Execute Heap_Access,All_Reference 027b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 027c 7002 |p | Jump_Nonzero 0x27f 027d 8026 | & | Call 0x0,0x26 027e 00ca | | Action Exit_Nullary_Function 027f 8006 | | Call 0x0,0x6 0280 0217 | | Execute Heap_Access,All_Reference 0281 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0282 8024 | $ | Call 0x0,0x24 0283 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0284 8025 | % | Call 0x0,0x25 0285 00ca | | Action Exit_Nullary_Function 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028c | | .CONST 0x028c ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 8006 | | Call 0x0,0x6 028c BODY_0288: 028c 00d8 | | Load_Top At_Offset_0 028d 7003 |p | Jump_Nonzero 0x291 028e 8224 | $ | Call 0x1,0x24 028f 4800 |H | Short_Literal 0x0 0290 00ca | | Action Exit_Nullary_Function 0291 00d8 | | Load_Top At_Offset_0 0292 0217 | | Execute Heap_Access,All_Reference 0293 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0294 7002 |p | Jump_Nonzero 0x297 0295 8027 | ' | Call 0x0,0x27 0296 00ca | | Action Exit_Nullary_Function 0297 8006 | | Call 0x0,0x6 0298 0217 | | Execute Heap_Access,All_Reference 0299 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 029a 8024 | $ | Call 0x0,0x24 029b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029c 00ca | | Action Exit_Nullary_Function 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a4 | | .CONST 0x02a4 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0002 | | .CONST 0x0002 ; Number of locals 02a3 INIT_02a0: 02a3 8006 | | Call 0x0,0x6 02a4 BODY_02a0: 02a4 00d8 | | Load_Top At_Offset_0 02a5 7003 |p | Jump_Nonzero 0x2a9 02a6 8224 | $ | Call 0x1,0x24 02a7 4800 |H | Short_Literal 0x0 02a8 00ca | | Action Exit_Nullary_Function 02a9 00d8 | | Load_Top At_Offset_0 02aa 0217 | | Execute Heap_Access,All_Reference 02ab 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02ac 7002 |p | Jump_Nonzero 0x2af 02ad 8028 | ( | Call 0x0,0x28 02ae 00ca | | Action Exit_Nullary_Function 02af 8006 | | Call 0x0,0x6 02b0 0217 | | Execute Heap_Access,All_Reference 02b1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02b2 8024 | $ | Call 0x0,0x24 02b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b4 00ca | | Action Exit_Nullary_Function 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bc | | .CONST 0x02bc ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 8006 | | Call 0x0,0x6 02bc BODY_02b8: 02bc 00d8 | | Load_Top At_Offset_0 02bd 7003 |p | Jump_Nonzero 0x2c1 02be 8224 | $ | Call 0x1,0x24 02bf 4800 |H | Short_Literal 0x0 02c0 00ca | | Action Exit_Nullary_Function 02c1 00d8 | | Load_Top At_Offset_0 02c2 0217 | | Execute Heap_Access,All_Reference 02c3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02c4 7002 |p | Jump_Nonzero 0x2c7 02c5 8029 | ) | Call 0x0,0x29 02c6 00ca | | Action Exit_Nullary_Function 02c7 8006 | | Call 0x0,0x6 02c8 0217 | | Execute Heap_Access,All_Reference 02c9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02ca 8024 | $ | Call 0x0,0x24 02cb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02cc 00ca | | Action Exit_Nullary_Function 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d4 | | .CONST 0x02d4 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 8006 | | Call 0x0,0x6 02d4 BODY_02d0: 02d4 00d8 | | Load_Top At_Offset_0 02d5 7003 |p | Jump_Nonzero 0x2d9 02d6 8224 | $ | Call 0x1,0x24 02d7 4800 |H | Short_Literal 0x0 02d8 00ca | | Action Exit_Nullary_Function 02d9 00d8 | | Load_Top At_Offset_0 02da 0217 | | Execute Heap_Access,All_Reference 02db 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02dc 7002 |p | Jump_Nonzero 0x2df 02dd 802a | * | Call 0x0,0x2a 02de 00ca | | Action Exit_Nullary_Function 02df 8006 | | Call 0x0,0x6 02e0 0217 | | Execute Heap_Access,All_Reference 02e1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02e2 8024 | $ | Call 0x0,0x24 02e3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02e4 00ca | | Action Exit_Nullary_Function 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02ec | | .CONST 0x02ec ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0002 | | .CONST 0x0002 ; Number of locals 02eb INIT_02e8: 02eb 8006 | | Call 0x0,0x6 02ec BODY_02e8: 02ec 00d8 | | Load_Top At_Offset_0 02ed 7003 |p | Jump_Nonzero 0x2f1 02ee 8224 | $ | Call 0x1,0x24 02ef 4800 |H | Short_Literal 0x0 02f0 00ca | | Action Exit_Nullary_Function 02f1 00d8 | | Load_Top At_Offset_0 02f2 0217 | | Execute Heap_Access,All_Reference 02f3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02f4 7002 |p | Jump_Nonzero 0x2f7 02f5 802b | + | Call 0x0,0x2b 02f6 00ca | | Action Exit_Nullary_Function 02f7 8006 | | Call 0x0,0x6 02f8 0217 | | Execute Heap_Access,All_Reference 02f9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02fa 8024 | $ | Call 0x0,0x24 02fb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02fc 00ca | | Action Exit_Nullary_Function 02fd 0000 0000 | | .XXX[0x3] 02ff 0000 | | 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0304 | | .CONST 0x0304 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 8006 | | Call 0x0,0x6 0304 BODY_0300: 0304 00d8 | | Load_Top At_Offset_0 0305 7003 |p | Jump_Nonzero 0x309 0306 8224 | $ | Call 0x1,0x24 0307 4800 |H | Short_Literal 0x0 0308 00ca | | Action Exit_Nullary_Function 0309 00d8 | | Load_Top At_Offset_0 030a 0217 | | Execute Heap_Access,All_Reference 030b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 030c 7002 |p | Jump_Nonzero 0x30f 030d 802c | , | Call 0x0,0x2c 030e 00ca | | Action Exit_Nullary_Function 030f 8006 | | Call 0x0,0x6 0310 0217 | | Execute Heap_Access,All_Reference 0311 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0312 8024 | $ | Call 0x0,0x24 0313 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0314 00ca | | Action Exit_Nullary_Function 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c e02d | - | Load 0x0,0x2d 031d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 031e 0092 040e | | Action Push_String_Extended,0x40e ; "<CURRENT TEST CASE>" 0320 01df | | Execute Vector,Equal 0321 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0322 0000 0000 | | .BLANK 0000[0x6] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e02d | - | Load 0x0,0x2d 032d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 032e 0092 040f | | Action Push_String_Extended,0x40f ; "<CURRENT TEST RUN>" 0330 01df | | Execute Vector,Equal 0331 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0332 0000 0000 | | .BLANK 0000[0x6] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0345 | E | .CONST 0x0345 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0003 | | .CONST 0x0003 ; Number of locals 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c e213 | | Load 0x1,0x13 033d 011c | | Execute Any,Convert_Unchecked 033e 1c01 | | Execute_Immediate Run_Utility,0x1 033f 4801 |H | Short_Literal 0x1 0340 00d9 | | Load_Top At_Offset_1 0341 0092 0410 | | Action Push_String_Extended,0x410 ; "_library" 0343 e02d | - | Load 0x0,0x2d 0344 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0345 BODY_0338: 0345 00d9 | | Load_Top At_Offset_1 0346 01dd | | Execute Vector,First 0347 00d9 | | Load_Top At_Offset_1 0348 0aff | | Execute_Immediate Plus,-0x1 0349 00db | | Load_Top At_Offset_3 034a 01cf | | Execute Vector,Slice_Read 034b 0092 0411 | | Action Push_String_Extended,0x411 ; "_loc" 034d 01cc | | Execute Vector,Catenate 034e e02e | . | Load 0x0,0x2e 034f 1c02 | | Execute_Immediate Run_Utility,0x2 0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0351 0000 0000 | | .BLANK 0000[0x7] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b e007 | | Load 0x0,0x7 035c 180e | | Execute Package,Field_Execute,Field_Number 0xe 035d 4807 |H | Short_Literal 0x7 035e 0092 0412 | | Action Push_String_Extended,0x412 ; "This operation depends on implicit script state and cannot be run from outside a script" 0360 e008 | | Load 0x0,0x8 0361 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0363 0000 0000 | | .BLANK 0000[0x5] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036f | o | .CONST 0x036f ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0003 | | .CONST 0x0003 ; Number of locals 036b INIT_0368: 036b e003 | | Load 0x0,0x3 036c 0007 | | Action Break_Optional 036d e004 | | Load 0x0,0x4 036e 0007 | | Action Break_Optional 036f BODY_0368: 036f 8006 | | Call 0x0,0x6 0370 0217 | | Execute Heap_Access,All_Reference 0371 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0372 e5ff | | Load 0x2,-0x1 0373 800d | | Call 0x0,0xd 0374 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0375 00d9 | | Load_Top At_Offset_1 0376 8006 | | Call 0x0,0x6 0377 0217 | | Execute Heap_Access,All_Reference 0378 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0379 800e | | Call 0x0,0xe 037a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 037b 00d8 | | Load_Top At_Offset_0 037c 801d | | Call 0x0,0x1d 037d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 038a | | .CONST 0x038a ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0003 | | .CONST 0x0003 ; Number of locals 0383 INIT_0380: 0383 e005 | | Load 0x0,0x5 0384 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0385 02c7 | | Declare_Variable Any 0386 00d8 | | Load_Top At_Offset_0 0387 1c00 | | Execute_Immediate Run_Utility,0x0 0388 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 038a BODY_0380: 038a e404 | | Load 0x2,0x4 038b e5ff | | Load 0x2,-0x1 038c 802f | / | Call 0x0,0x2f 038d c404 | | Store 0x2,0x4 038e 8603 | | Call 0x3,0x3 038f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0399 | | .CONST 0x0399 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e402 | | Load 0x2,0x2 0394 0217 | | Execute Heap_Access,All_Reference 0395 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0396 801d | | Call 0x0,0x1d 0397 00cb | | Action Pop_Block_With_Result 0398 00ca | | Action Exit_Nullary_Function 0399 TRAP_0390: 0399 010e | | Execute Exception,Is_Constraint_Error 039a 6803 |h | Jump_Zero 0x39e 039b 4800 |H | Short_Literal 0x0 039c 00cb | | Action Pop_Block_With_Result 039d 00ca | | Action Exit_Nullary_Function 039e 0100 | | Execute Exception,Raise 039f 0000 | | .XXX[0x1] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03b9 | | .CONST 0x03b9 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0006 | | .CONST 0x0006 ; Number of locals 03a3 INIT_03a0: 03a3 e00a | | Load 0x0,0xa 03a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a5 e00b | | Load 0x0,0xb 03a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a7 800f | | Call 0x0,0xf 03a8 e003 | | Load 0x0,0x3 03a9 e00a | | Load 0x0,0xa 03aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ab e00b | | Load 0x0,0xb 03ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ad e5ff | | Load 0x2,-0x1 03ae 800d | | Call 0x0,0xd 03af 0031 | 1 | Store_Top Heap_Access,At_Offset_1 03b0 e004 | | Load 0x0,0x4 03b1 0007 | | Action Break_Optional 03b2 e030 | 0 | Load 0x0,0x30 03b3 0007 | | Action Break_Optional 03b4 e005 | | Load 0x0,0x5 03b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b6 02c7 | | Declare_Variable Any 03b7 00d8 | | Load_Top At_Offset_0 03b8 1c00 | | Execute_Immediate Run_Utility,0x0 03b9 BODY_03a0: 03b9 e602 | | Load 0x3,0x2 03ba e603 | | Load 0x3,0x3 03bb 4801 |H | Short_Literal 0x1 03bc 8010 | | Call 0x0,0x10 03bd c602 | | Store 0x3,0x2 03be 00d8 | | Load_Top At_Offset_0 03bf e602 | | Load 0x3,0x2 03c0 8011 | | Call 0x0,0x11 03c1 c606 | | Store 0x3,0x6 03c2 4802 |H | Short_Literal 0x2 03c3 e603 | | Load 0x3,0x3 03c4 00da | | Load_Top At_Offset_2 03c5 8012 | | Call 0x0,0x12 03c6 e00a | | Load 0x0,0xa 03c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c8 e00b | | Load 0x0,0xb 03c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ca e5fe | | Load 0x2,-0x2 03cb 800d | | Call 0x0,0xd 03cc e602 | | Load 0x3,0x2 03cd 800e | | Call 0x0,0xe 03ce 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03cf 00da | | Load_Top At_Offset_2 03d0 801d | | Call 0x0,0x1d 03d1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 03d2 e602 | | Load 0x3,0x2 03d3 4800 |H | Short_Literal 0x0 03d4 8013 | | Call 0x0,0x13 03d5 c602 | | Store 0x3,0x2 03d6 00d8 | | Load_Top At_Offset_0 03d7 e602 | | Load 0x3,0x2 03d8 8011 | | Call 0x0,0x11 03d9 c606 | | Store 0x3,0x6 03da 4802 |H | Short_Literal 0x2 03db e603 | | Load 0x3,0x3 03dc 00da | | Load_Top At_Offset_2 03dd 8012 | | Call 0x0,0x12 03de 00d9 | | Load_Top At_Offset_1 03df 00cb | | Action Pop_Block_With_Result 03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f7 | | .CONST 0x03f7 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0002 | | .CONST 0x0002 ; Number of locals 03eb INIT_03e8: 03eb e003 | | Load 0x0,0x3 03ec e00a | | Load 0x0,0xa 03ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ee e00b | | Load 0x0,0xb 03ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f0 e405 | | Load 0x2,0x5 03f1 8022 | " | Call 0x0,0x22 03f2 e031 | 1 | Load 0x0,0x31 03f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f5 800d | | Call 0x0,0xd 03f6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 03f7 BODY_03e8: 03f7 e402 | | Load 0x2,0x2 03f8 e404 | | Load 0x2,0x4 03f9 00da | | Load_Top At_Offset_2 03fa 8032 | 2 | Call 0x0,0x32 03fb c402 | | Store 0x2,0x2 03fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fd ; -------------------------------------------------------------------------------------- 03fd ; STRING TABLE 03fd ; -------------------------------------------------------------------------------------- 03fd 002e | . | .STRTAB 0x002e->0x0414 ; "NONE" 03fe 0030 | 0 | .STRTAB 0x0030->0x0416 ; "TEST_RUN_LIBRARY" 03ff 003e | > | .STRTAB 0x003e->0x041e ; "TEST_CASE_LIBRARY" 0400 004d | M | .STRTAB 0x004d->0x0426 ; "TEST_SET_LIBRARY" 0401 005b | [ | .STRTAB 0x005b->0x042e ; "SUBJECT_PROGRAM_LIBRARY" 0402 0070 | p | .STRTAB 0x0070->0x043a ; "TEST_DRIVER_LIBRARY" 0403 0081 | | .STRTAB 0x0081->0x0443 ; "INPUT_DATA_LIBRARY" 0404 0091 | | .STRTAB 0x0091->0x044c ; "EXPECTED_OUTPUT_LIBRARY" 0405 00a6 | | .STRTAB 0x00a6->0x0458 ; "TEST_OUTPUT_LIBRARY" 0406 00b7 | | .STRTAB 0x00b7->0x0461 ; "TEST_LOG_LIBRARY" 0407 00c5 | | .STRTAB 0x00c5->0x0469 ; "TEST_SCRIPT_LIBRARY" 0408 00d6 | | .STRTAB 0x00d6->0x0473 ; "ATTACHED_INFO_LIBRARY" 0409 00e9 | | .STRTAB 0x00e9->0x047d ; "Must explicitly specify the Test Run and Test Case names" 040a 011f | | .STRTAB 0x011f->0x0499 ; "Must specify a Test_Case_Name for specific Test_Run_Name" 040b 0155 | U | .STRTAB 0x0155->0x04b5 ; "Test Case " 040c 015d | ] | .STRTAB 0x015d->0x04ba ; " is not defined in " 040d 016e | n | .STRTAB 0x016e->0x04c4 ; "Must specify Test_Case_Name with a specified Test_Run" 040e 01a1 | | .STRTAB 0x01a1->0x04de ; "<CURRENT TEST CASE>" 040f 01b2 | | .STRTAB 0x01b2->0x04e8 ; "<CURRENT TEST RUN>" 0410 01c2 | | .STRTAB 0x01c2->0x04f1 ; "_library" 0411 01c8 | | .STRTAB 0x01c8->0x04f5 ; "_loc" 0412 01ca | | .STRTAB 0x01ca->0x04f7 ; "This operation depends on implicit script state and cannot be run from outside a script" 0413 021f | | .STREND 0x021f->0x0522 0414 4e4f 4e45 |NONE| .STRTAB_STRINGS 0523 0000 0000 | | .BLANK 0000[0x5] 0528 ; -------------------------------------------------------------------------------------- 0528 ; Debug Table 0528 ; -------------------------------------------------------------------------------------- 0528 0004 000a | | .DEBUG4 0x0004,0x000a,0x9599,0x0000,0x0001,0x0000 052e 0000 0000 | | .BLANK 0000[0xd2]