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-52 A FIELD OR D MODIFIER 113 * 53-66 B FIELD 114 * 67-80 CORRECT RESULT 115 * 116 * HALTS: 117 * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR 118 * 099 IN A-STAR AND B-STAR IF TEST FAILURE 119 * 120 ORG 333 0333 121 * 122 * PAGE HEADING 123 * 124 START CS 332 4 0333 / 332 4 125 CS 1 0337 / 4 126 MCW @A/D----@,207 201-207 7 0338 M 651 207 4 127 MCW @B-------------@,229 216-229 7 0345 M 665 229 4 128 MCW @SHOULD BE-----@,249 236-249 7 0352 M 679 249 4 129 MCW @ACTUAL--------@,269 256-269 7 0359 M 693 269 4 130 MCW @STATUS@,281 276-285 7 0366 M 699 281 5 131 W 1 0373 2 5 132 CS 1 0374 / 5 133 CS 1 0375 / 5 134 * 135 * READ A TEST AND EXECUTE IT 136 * 137 READIT BCE TAPEIN,81," TAPE LOAD PUTS GM IN 81 8 0376 B 402 081 " 5 138 CS 80 START FRESH 4 0384 / 080 5 139 R GOTIT 4 0388 1 415 5 140 TAPERR BSP 1 5 0392 U %U1 B 6 141 NOP 86 HALT 86 FOR TAPE ERROR 4 0397 N 086 6 142 H 1 0401 . 6 143 TAPEIN RT 1,1 8 0402 M %U1 001 R 6 144 BER TAPERR 5 0410 B 392 L 6 145 * 146 * GOT A DETAIL RECORD. PRINT IT IF 1 IS * 147 * 1 TEST INFRASTRUCTURE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 GOTIT BCE PRNTDR,1,* 8 0415 B 427 001 * 6 149 HOOK B SETUP 4 0423 B 446 6 150 PRNTDR SW 1 PRINT THE DETAIL RECORD 4 0427 , 001 7 151 MCW 80,280 7 0431 M 080 280 7 152 W 1 0438 2 7 153 CS READIT,280 7 0439 / 376 280 7 154 * 155 * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS 156 * 157 SETUP MCW @07@,SW&3 REFRESH CHANGED INSTRUCTIONS 7 0446 M 701 472 7 158 MCW @1@,ADD&3 7 0453 M 702 480 7 159 SW 6 4 0460 , 006 7 160 CHAIN 5 MACRO 161 SW 1 0464 , GEN 8 162 SW 1 0465 , GEN 8 163 SW 1 0466 , GEN 8 164 SW 1 0467 , GEN 8 165 SW 1 0468 , GEN 8 166 SW SW 0-0 SET WORD MARK UNDER INSTRUCTION 4 0469 , 000 8 167 SW SW&1 4 0473 , 470 8 168 ADD A 0-0,SW&3 BUMP WHERE TO SET WORD MARK 7 0477 A 000 472 9 169 CW SW&1 4 0484 ) 470 9 170 BCE DONESW,ADD&3,7 DONE SETTING WORD MARKS? 8 0488 B 507 480 7 9 171 A *-6,ADD&3 BUMP INSTRUCTION WIDTH COUNTER 7 0496 A 496 480 9 172 B SW GO SET ANOTHER WORD MARK 4 0503 B 469 9 173 * 174 * DONE SETTING WORD MARKS UNDER INSTRUCTIONS 175 * SET WORD MARKS FOR A, B, CORRECT AND ID FIELDS 176 * MOVE FIELDS TO PRINT AREA 177 * 178 DONESW SW 46,53 SET WORD MARKS FOR A, B 7 0507 , 046 053 9 179 SW 67 AND SHOULD BE FIELDS 4 0514 , 067 10 180 MCW 52,207 LOAD A FIELD TO PRINT AREA 7 0518 M 052 207 10 181 MCW 66,229 B FIELD 7 0525 M 066 229 10 182 MCW 80,249 SHOULD BE 7 0532 M 080 249 10 183 * 184 * RUN THE TEST 185 * 186 SCOPE LCA 66,269 RESULT STARTS AS B, THEM FORMED HERE 7 0539 L 066 269 10 187 B 7 4 0546 B 007 10 188 * 189 * RETURN HERE FOR SUCCESS 190 * 191 WORKED BSS SCOPE,B TIGHT LOOP FOR SCOPING 5 0550 B 539 B 11 192 * RETURN HERE FOR SUCCESS BUT NO SCOPING TEST 193 WORKNS BSS PRNTOK,C PRINT CORRECT RESULT 5 0555 B 564 C 11 194 B TESTD 4 0560 B 574 11 195 PRNTOK MCW @OK@,277 7 0564 M 704 277 11 196 PRNTIT W 1 0571 2 11 197 CS 1 0572 / 11 1 TEST INFRASTRUCTURE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 CS 1 0573 / 11 199 TESTD BSS SCOPE,D LOOSE LOOP -- TEST & PRINT 5 0574 B 539 D 12 200 B READIT GO DO ANOTHER TEST 4 0579 B 376 12 201 * 202 * RETURN HERE FOR FAILURE 203 * 204 FAILED BSS SCOPE,B TIGHT LOOP FOR SCOPING 5 0583 B 539 B 12 205 * RETURN HERE FOR FAILURE BUT NO SCOPING TEST 206 FAILNS BSS ERRHLT,E ERROR HALT? 5 0588 B 604 E 12 207 MCW @ERROR@,280 7 0593 M 709 280 12 208 B PRNTIT 4 0600 B 571 12 209 ERRHLT NOP 99 HALT 99 FOR TEST FAILURE 4 0604 N 099 12 210 H 1 0608 . 13 211 B TESTD 4 0609 B 574 13 212 * 213 * RETURN HERE TO COMPARE B TO CORRECT AND ANNOUNCE 214 * ERROR IF UNEQUAL. 215 * 216 COMPAR C 249,269 7 0613 C 249 269 13 217 BU FAILED 5 0620 B 583 / 13 218 B WORKED 4 0625 B 550 13 219 * 220 * RETURN HERE TO COMPARE B TO CORRECT AND ANNOUNCE 221 * ERROR IF UNEQUAL, WITHOUT SCOPING TEST 222 * 223 COMPNS C 249,269 7 0629 C 249 269 13 224 BU FAILNS 5 0636 B 588 / 13 225 B WORKNS 4 0641 B 555 14 DCW @A/D----@ 7 0651 LIT 14 DCW @B-------------@ 14 0665 LIT 14 DCW @SHOULD BE-----@ 14 0679 LIT 14 DCW @ACTUAL--------@ 14 0693 LIT 15 DCW @STATUS@ 6 0699 LIT 15 DCW @07@ 2 0701 LIT 15 DCW @1@ 1 0702 LIT 15 DCW @OK@ 2 0704 LIT 15 DCW @ERROR@ 5 0709 LIT 15 226 END START / 333 080 1 TEST INFRASTRUCTURE PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADD 477 COMPAR 613 COMPNS 629 DONESW 507 ERRHLT 604 FAILED 583 FAILNS 588 GOTIT 415 HOOK 423 PRNTDR 427 PRNTIT 571 PRNTOK 564 READIT 376 SCOPE 539 SETUP 446 START 333 SW 469 TAPEIN 402 TAPERR 392 TESTD 574 WORKED 550 WORKNS 555