BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 EDIT 0370D PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB EDIT 102 CTL 6611 103 * 104 * SKIP TESTS WITH ZONE IN 72 UNLESS G IS ON. 105 * OTHERWISE RUN EACH TEST 90 TIMES. 106 * 107 * SENSE SWITCHES: 108 * B ON TO REPEAT INNER TEST -- FOR SCOPING 109 * C ON TO PRINT CORRECT RESULTS 110 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 111 * E ON TO HALT ON ERRORS 112 * G ON TO RUN TEST EVEN IF 72 HAS ZONE 113 * 114 * HALTS: 920 IN I-STAR AND A-STAR IF FAIL WITH E ON. 115 * 116 ORG 333 0333 117 333 START SW 8,12 7 0333 , 008 012 4 118 340 RELOAD SW 1 4 0340 , 001 4 119 344 R 1 4 0344 1 001 4 120 * 121 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 122 * 123 348 DETAIL R 1 0348 1 4 124 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 125 357 BCONT B CONT 4 0357 B 421 4 126 361 CS RELOAD,80 7 0361 / 340 080 4 127 368 DCW #1 1 0368 5 128 * 129 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 130 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 131 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 132 ORG 377 0377 133 377 B SWITCH 4 0377 B 389 6 134 ORG 385 0385 135 385 B TAPERD 4 0385 B S88 7 136 389 SWITCH NOP 0 4 0389 N 000 7 137 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 7 138 400 BEGIN CS 332 4 0400 / 332 7 139 404 CS 1 0404 / 7 140 405 B TITLPR,TITLSW,1 8 0405 B S00 S52 1 7 141 413 CS 80 4 0413 / 080 7 142 417 B DETAIL 4 0417 B 348 8 143 421 CONT SW 1,78 7 0421 , 001 078 8 144 428 LCA 80,299 7 0428 L 080 299 8 145 435 LCA 70,270 7 0435 L 070 270 8 146 442 B MOVE 4 0442 B 971 8 147 446 DC #3 3 0448 8 1 EDIT 0370D PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 449 LOOP2 LCA 237,277 7 0449 L 237 277 8 149 456 MCE 208,277 7 0456 E 208 277 9 150 463 BSS SCOPE,B 5 0463 B 935 B 9 151 468 C 277,257 7 0468 C 277 257 9 152 475 BU ERRPRT 5 0475 B 900 / 9 153 480 B BUMP 4 0480 B 920 9 154 484 TEST2 BWZ AGAIN,72,2 8 0484 V 504 072 2 9 155 492 BCE AGAIN,FLAG,1 8 0492 B 504 S60 1 10 156 500 B DETAIL 4 0500 B 348 10 157 504 AGAIN SW 221,241 7 0504 , 221 241 10 158 511 B LOOP2 4 0511 B 449 10 159 515 DCW #1 1 0515 10 160 ORG 900 0900 161 900 ERRPRT LCA ERROR,287 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 287 11 162 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 11 163 912 W BUMP ERROR PRINT 4 0912 2 920 11 164 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 11 165 920 BUMP A *-6,COUNT BUMP COUNT 7 0920 A 920 970 11 166 927 BCE CLEAR,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 11 167 935 SCOPE CS 332 4 0935 / 332 11 168 939 CS 1 0939 / 12 169 940 B CONT 4 0940 B 421 12 170 944 CLEAR S COUNT 4 0944 S 970 12 171 948 BSS CORR,C 5 0948 B 957 C 12 172 953 B LOOP 4 0953 B 958 12 173 957 CORR W 1 0957 2 12 174 958 LOOP BSS CONT,D 5 0958 B 421 D 12 175 963 B DETAIL 4 0963 B 348 13 176 970 COUNT DCW @000?@ 4 0970 13 177 971 MOVE SW 71 4 0971 , 071 13 178 975 MCW 72,281 7 0975 M 072 281 13 179 982 B TEST2 4 0982 B 484 13 180 986 DCW #1 1 0986 13 181 ORG 1110 1110 182 1 114 ERROR DCW @ERROR@ 5 1114 14 183 1 119 DCW @ @ 5 1119 14 184 1 139 DCW @A FIELD @ 20 1139 14 185 1 159 DCW @B FIELD @ 20 1159 15 186 1 179 DCW @RESULT SHOULD BE @ 20 1179 16 187 1 199 DCW @RESULT IS @ 20 1199 17 188 * 189 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 190 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 191 * THAT TRANSFERS CONTROL TO THE PROGRAM. 192 * 193 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 194 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 195 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 196 * 197 ORG 1200 1200 1 EDIT 0370D PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 200 TITLPR W PRINT (SPACE). 1 1200 2 17 199 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 17 200 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 17 201 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 17 202 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 17 203 1 217 W PRINT (SPACE). 1 1217 2 17 204 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 18 205 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 18 206 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 18 207 1 236 W PRINT SECOND LINE. 1 1236 2 18 208 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 18 209 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 18 210 1 245 DCW #1 1 1245 18 211 ORG 1260 1260 212 1 260 FLAG DC 1 1 1260 19 213 END START / 333 080 1 EDIT 0370D PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AGAIN 504 BCONT 357 BEGIN 400 BUMP 920 CLEAR 944 CONT 421 CORR 957 COUNT 970 DETAIL 348 ERRHLT 916 ERROR 1114 ERRPRT 900 FLAG 1260 HDRS 1120 LOOP 958 LOOP2 449 MOVE 971 RELOAD 340 SCOPE 935 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST2 484 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349