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-6 LENGTHS OF UP TO SIX INSTRUCTIONS IN TEST 111 * 7-45 INSTRUCTIONS TO IMPLEMENT TEST 112 * 46-55 A FIELD OR D MODIFIER 113 * 56-65 B FIELD 114 * 66-75 CORRECT RESULT 115 * 76-80 TEST ID 116 * 117 * HALTS: 118 * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR 119 * 099 IN A-STAR AND B-STAR IF TEST FAILURE 120 * 121 ORG 333 0333 122 * 123 * PAGE HEADING 124 * 125 START CS 332 4 0333 / 332 4 126 CS 1 0337 / 4 127 MCW @A/D@,203 201-210 7 0338 M 632 203 4 128 MCW @B@,216 216-225 7 0345 M 633 216 4 129 MCW @SHOULD BE@,239 231-240 7 0352 M 642 239 4 130 MCW @ACTUAL@,251 246-255 7 0359 M 648 251 4 131 MCW @STATUS@,266 261-270 7 0366 M 654 266 5 132 MCW @ID@,277 276-280 7 0373 M 656 277 5 133 W 1 0380 2 5 134 CS 1 0381 / 5 135 CS 1 0382 / 5 136 * 137 * READ A TEST AND EXECUTE IT 138 * 139 READIT BCE TAPEIN,81," TAPE LOAD PUTS GM IN 81 8 0383 B 409 081 " 5 140 CS 80 START FRESH 4 0391 / 080 5 141 R GOTIT 4 0395 1 422 6 142 TAPERR BSP 1 5 0399 U %U1 B 6 143 NOP 86 HALT 86 FOR TAPE ERROR 4 0404 N 086 6 144 H 1 0408 . 6 145 TAPEIN RT 1,1 8 0409 M %U1 001 R 6 146 BER TAPERR 5 0417 B 399 L 6 147 * 1 TEST INFRASTRUCTURE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * GOT A DETAIL RECORD. PRINT IT IF 1 IS * 149 * 150 GOTIT BCE PRNTDR,1,* 8 0422 B 434 001 * 6 151 HOOK B SETUP 4 0430 B 453 7 152 PRNTDR SW 1 PRINT THE DETAIL RECORD 4 0434 , 001 7 153 MCW 80,280 7 0438 M 080 280 7 154 W 1 0445 2 7 155 CS READIT,280 7 0446 / 383 280 7 156 * 157 * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS 158 * 159 SETUP MCW @07@,SW&3 REFRESH CHANGED INSTRUCTIONS 7 0453 M 658 479 7 160 MCW @1@,ADD&3 7 0460 M 659 487 7 161 SW 6 4 0467 , 006 8 162 CHAIN 5 MACRO 163 SW 1 0471 , GEN 8 164 SW 1 0472 , GEN 8 165 SW 1 0473 , GEN 8 166 SW 1 0474 , GEN 8 167 SW 1 0475 , GEN 8 168 SW SW 0-0 SET WORD MARK UNDER INSTRUCTION 4 0476 , 000 8 169 SW SW&1 4 0480 , 477 9 170 ADD A 0-0,SW&3 BUMP WHERE TO SET WORD MARK 7 0484 A 000 479 9 171 CW SW&1 4 0491 ) 477 9 172 BCE DONESW,ADD&3,7 DONE SETTING WORD MARKS? 8 0495 B 514 487 7 9 173 A *-6,ADD&3 BUMP INSTRUCTION WIDTH COUNTER 7 0503 A 503 487 9 174 B SW GO SET ANOTHER WORD MARK 4 0510 B 476 9 175 * 176 * DONE SETTING WORD MARKS UNDER INSTRUCTIONS 177 * SET WORD MARKS FOR A, B, CORRECT AND ID FIELDS 178 * MOVE FIELDS TO PRINT AREA 179 * 180 DONESW SW 46,56 7 0514 , 046 056 10 181 SW 66,76 7 0521 , 066 076 10 182 MCW 55,210 7 0528 M 055 210 10 183 MCW 65,225 7 0535 M 065 225 10 184 MCW 75,240 7 0542 M 075 240 10 185 MCW 80,280 7 0549 M 080 280 11 186 * 187 * RUN THE TEST 188 * 189 B 7 4 0556 B 007 11 190 * 191 * RETURN HERE FOR SUCCESS 192 * 193 WORKED BSS 7,B TIGHT LOOP FOR SCOPING 5 0560 B 007 B 11 194 BSS PRNTOK,C PRINT CORRECT RESULT 5 0565 B 574 C 11 195 B TESTD 4 0570 B 591 11 196 PRNTOK MCW @OK@,262 7 0574 M 661 262 11 197 PRNTIT MCW 65,255 ACTUAL RESULT 7 0581 M 065 255 11 1 TEST INFRASTRUCTURE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 W 1 0588 2 12 199 CS 1 0589 / 12 200 CS 1 0590 / 12 201 TESTD BSS 7,D LOOSE LOOP -- TEST & PRINT 5 0591 B 007 D 12 202 B READIT GO DO ANOTHER TEST 4 0596 B 383 12 203 * 204 * RETURN HERE FOR FAILURE 205 * 206 FAILED BSS 7,B TIGHT LOOP FOR SCOPING 5 0600 B 007 B 12 207 BSS ERRHLT,E ERROR HALT? 5 0605 B 621 E 12 208 MCW @ERROR@,265 7 0610 M 666 265 13 209 B PRNTIT 4 0617 B 581 13 210 ERRHLT NOP 99 HALT 99 FOR TEST FAILURE 4 0621 N 099 13 211 H 1 0625 . 13 212 B TESTD 4 0626 B 591 13 DCW @A/D@ 3 0632 LIT 13 DCW @B@ 1 0633 LIT 13 DCW @SHOULD BE@ 9 0642 LIT 14 DCW @ACTUAL@ 6 0648 LIT 14 DCW @STATUS@ 6 0654 LIT 14 DCW @ID@ 2 0656 LIT 14 DCW @07@ 2 0658 LIT 14 DCW @1@ 1 0659 LIT 14 DCW @OK@ 2 0661 LIT 14 DCW @ERROR@ 5 0666 LIT 15 213 END START / 333 080 1 TEST INFRASTRUCTURE PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADD 484 DONESW 514 ERRHLT 621 FAILED 600 GOTIT 422 HOOK 430 PRNTDR 434 PRNTIT 581 PRNTOK 574 READIT 383 SETUP 453 START 333 SW 476 TAPEIN 409 TAPERR 399 TESTD 591 WORKED 560