CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 TEST INFRASTRUCTURE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST INFRASTRUCTURE 102 * 103 * SENSE SWITCHES: 104 * B ON FOR TIGHTEST LOOP -- FOR SCOPING 105 * C ON TO PRINT CORRECT RESULTS 106 * D ON TO LOOP OVER TEST PLUS PRINTING 107 * E ON TO HALT ON ERROR INSTEAD OF PRINTING 108 * 109 * DETAIL FORMAT: 110 * 1-5 LENGTHS OF UP TO FIVE INSTRUCTIONS IN TEST 111 * 6-40 INSTRUCTIONS TO IMPLEMENT TEST 112 * 41-45 A FIELD 113 * 46-50 B FIELD 114 * 51-55 CORRECT RESULT 115 * 56-75 DESCRIPTION 116 * 76-80 TEST ID 117 * 118 * HALTS: 119 * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR 120 * 099 IN A-STAR AND B-STAR IF TEST FAILURE 121 * 122 ORG 333 0333 123 * 124 * PAGE HEADING 125 * 126 START CS 332 4 0333 / 332 4 127 CS 1 0337 / 4 128 MCW @A/D@,203 7 0338 M 655 203 4 129 MCW @B@,211 7 0345 M 656 211 4 130 MCW @SHOULD BE@,229 7 0352 M 665 229 4 131 MCW @ACTUAL@,238 7 0359 M 671 238 4 132 MCW @STATUS@,247 7 0366 M 677 247 5 133 MCW @DESCRIPTION@,261 7 0373 M 688 261 5 134 MCW @ID@,276 7 0380 M 690 276 5 135 W 1 0387 2 5 136 CS 1 0388 / 5 137 CS 1 0389 / 5 138 * 139 * READ A TEST AND EXECUTE IT 140 * 141 READIT BCE TAPEIN,81," TAPE LOAD PUTS GM IN 81 8 0390 B 416 081 " 5 142 CS 80 START FRESH 4 0398 / 080 6 143 R GOTIT 4 0402 1 429 6 144 TAPERR BSP 1 5 0406 U %U1 B 6 145 NOP 86 HALT 86 FOR TAPE ERROR 4 0411 N 086 6 146 H 1 0415 . 6 147 TAPEIN RT 1,1 8 0416 M %U1 001 R 6 1 TEST INFRASTRUCTURE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 BER TAPERR 5 0424 B 406 L 6 149 * 150 * GOT A DETAIL RECORD. PRINT IT IF 1 IS * 151 * 152 GOTIT BCE PRNTDR,1,* 8 0429 B 441 001 * 7 153 HOOK B SETUP 4 0437 B 460 7 154 PRNTDR SW 1 PRINT THE DETAIL RECORD 4 0441 , 001 7 155 MCW 80,280 7 0445 M 080 280 7 156 W 1 0452 2 7 157 CS READIT,280 7 0453 / 390 280 7 158 * 159 * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS 160 * 161 SETUP MCW @06@,SW&3 REFRESH CHANGED INSTRUCTIONS 7 0460 M 692 485 7 162 MCW @1@,ADD&3 7 0467 M 693 493 8 163 SW 5 4 0474 , 005 8 164 CHAIN 4 MACRO 165 SW 1 0478 , GEN 8 166 SW 1 0479 , GEN 8 167 SW 1 0480 , GEN 8 168 SW 1 0481 , GEN 8 169 SW SW 0-0 SET WORD MARK UNDER INSTRUCTION 4 0482 , 000 8 170 SW SW&1 4 0486 , 483 9 171 ADD A 0-0,SW&3 BUMP WHERE TO SET WORD MARK 7 0490 A 000 485 9 172 CW SW&1 4 0497 ) 483 9 173 BCE DONESW,ADD&3,6 DONE SETTING WORD MARKS? 8 0501 B 528 493 6 9 174 A *-6,ADD&3 BUMP INSTRUCTION WIDTH COUNTER 7 0509 A 509 493 9 175 B SW GO SET ANOTHER WORD MARK 4 0516 B 482 9 176 SW6 SW 6 SET WM UNDER FIRST INSTRUCTION 4 0520 , 006 9 177 ADD1 A 1 ADD COUNT IN COLUMN 1 4 0524 A 001 10 178 * 179 * DONE SETTING WORD MARKS UNDER INSTRUCTIONS 180 * SET WORD MARKS FOR A, B, CORRECT, DESCRIPTION AND ID FIELDS 181 * MOVE FIELDS TO PRINT AREA 182 * 183 DONESW SW 41,46 7 0528 , 041 046 10 184 SW 51,56 7 0535 , 051 056 10 185 SW 76 4 0542 , 076 10 186 MCW 45,205 7 0546 M 045 205 10 187 MCW 50,215 7 0553 M 050 215 10 188 MCW 55,225 7 0560 M 055 225 11 189 MCW 75,270 7 0567 M 075 270 11 190 MCW 80,279 7 0574 M 080 279 11 191 * 192 * RUN THE TEST 193 * 194 B 6 4 0581 B 006 11 195 * 196 * RETURN HERE FOR SUCCESS 197 * 1 TEST INFRASTRUCTURE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 WORKED BSS 6,B TIGHT LOOP FOR SCOPING 5 0585 B 006 B 11 199 BSS PRNTOK,C PRINT CORRECT RESULT 5 0590 B 599 C 11 200 B TESTD 4 0595 B 614 11 201 PRNTOK MCW @OK @,246 7 0599 M 698 246 12 202 PRNTIT MCW 50,237 ACTUAL RESULT 7 0606 M 050 237 12 203 W 1 0613 2 12 204 TESTD BSS 6,D LOOSE LOOP -- TEST & PRINT 5 0614 B 006 D 12 205 B READIT GO DO ANOTHER TEST 4 0619 B 390 12 206 * 207 * RETURN HERE FOR FAILURE 208 * 209 FAILED BSS 6,B TIGHT LOOP FOR SCOPING 5 0623 B 006 B 12 210 BSS ERRHLT,E ERROR HALT? 5 0628 B 644 E 12 211 MCW @ERROR@,246 7 0633 M 703 246 13 212 B PRNTIT 4 0640 B 606 13 213 ERRHLT NOP 99 HALT 99 FOR TEST FAILURE 4 0644 N 099 13 214 H 1 0648 . 13 215 B TESTD 4 0649 B 614 13 DCW @A/D@ 3 0655 LIT 13 DCW @B@ 1 0656 LIT 13 DCW @SHOULD BE@ 9 0665 LIT 14 DCW @ACTUAL@ 6 0671 LIT 14 DCW @STATUS@ 6 0677 LIT 14 DCW @DESCRIPTION@ 11 0688 LIT 14 DCW @ID@ 2 0690 LIT 14 DCW @06@ 2 0692 LIT 14 DCW @1@ 1 0693 LIT 14 DCW @OK @ 5 0698 LIT 15 DCW @ERROR@ 5 0703 LIT 15 216 END START / 333 080 1 TEST INFRASTRUCTURE PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADD 490 ADD1 524 DONESW 528 ERRHLT 644 FAILED 623 GOTIT 429 HOOK 437 PRNTDR 441 PRNTIT 606 PRNTOK 599 READIT 390 SETUP 460 START 333 SW 482 SW6 520 TAPEIN 416 TAPERR 406 TESTD 614 WORKED 585