BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 TEST ZONE OR WM & BR 0060B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST ZONE OR WM & BR 102 * 103 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 104 * 105 ORG 333 0333 106 * 107 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 108 * 109 333 START SW 8,12 PROGRAM CHAINING ROUTINE 7 0333 , 008 012 4 110 340 RELOAD SW 1 ,, 4 0340 , 001 4 111 344 R 1 ,, 4 0344 1 001 4 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 DETAIL R READ DETAIL OR PROGRAM HEADER 1 0348 1 4 116 349 TPTEST BCE *&5,80,A BRANCH IF HEADER 8 0349 B 361 080 A 4 117 357 BCONT B CONT CONTINUE PROGRAM 4 0357 B 421 4 118 361 CS RELOAD,80 BRANCH TO CHAINING ROUTINE 7 0361 / 340 080 4 119 368 DCW #1 1 0368 5 120 * 121 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 122 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 123 * THAT TRANSFERS CONTROL TO THE PROGRAM. 124 * 125 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 126 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 127 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 128 * 129 ORG 1200 1200 130 1 200 TITLPR W PRINT (SPACE). 1 1200 2 6 131 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 6 132 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 6 133 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 6 134 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 6 135 1 217 W PRINT (SPACE). 1 1217 2 6 136 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 6 137 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 7 138 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 7 139 1 236 W PRINT SECOND LINE. 1 1236 2 7 140 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 7 141 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 7 142 1 245 DCW #1 1 1245 7 143 * 144 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 145 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 146 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 147 * 1 TEST ZONE OR WM & BR 0060B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 149 * 150 ORG 377 0377 151 377 BIN INIT, USE WHEN TESTS ARE RUN FROM TAPE 5 0377 B 389 8 152 ORG 385 ,, 0385 153 385 B TAPERD ,, 4 0385 B S88 9 154 389 INIT NOP 0 ,, 4 0389 N 000 9 155 393 MCW TPTEST&11,INIT&3 ,, 7 0393 M 360 392 9 156 400 BEGIN CS 332 START TEST 4 0400 / 332 9 157 404 CS 1 0404 / 9 158 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 9 159 413 ORG TITLEX 0413 160 413 CS 80 CLEAR READ AREA 4 0413 / 080 9 161 417 BNX B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 10 162 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 10 163 428 LCA 80,299 ,, 7 0428 L 080 299 10 164 435 LCA 72,272 ,, 7 0435 L 072 272 10 165 442 BCE SETWM,224,* BR TO SET WM IN ALL * AND % CHARAC 8 0442 B 537 224 * 10 166 450 BCE SETWM,224,% ,, 8 0450 B 537 224 % 11 167 458 DOTEST BCE ZTEST,41, BR TO TEST EQUAL ZONES IF BLANK IN 04 8 0458 B 493 041 11 168 466 MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0466 M 201 480 11 169 473 SCOPE BWZ UNEQ,224,X TEST UNEQUAL ZONES OR WM 8 0473 V 508 224 X 11 170 481 BWZ ,, 1 0481 V 11 171 482 BWZ ,, 1 0482 V 11 172 483 BWZ ,, 1 0483 V 11 173 484 BIN EQZONE, 5 0484 B 517 12 174 ORG 493 0493 175 493 ZTEST MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0493 M 201 507 13 176 500 SCOPE2 BWZ EQZONE,224,X TEST EQUAL ZONES OR WM 8 0500 V 517 224 X 13 177 508 UNEQ BSS CLEAR,B 5 0508 B 935 B 13 178 513 B FAILED 4 0513 B 900 13 179 517 EQZONE BSS CLEAR,B 5 0517 B 935 B 13 180 522 RESULT SW 241 LOAD RESULT COMMENT 4 0522 , 241 13 181 526 LCA 247,267 ,, 7 0526 L 247 267 14 182 533 B BUMP 4 0533 B 920 14 183 537 SETWM SW 224 4 0537 , 224 14 184 541 B DOTEST 4 0541 B 458 14 185 545 DCW #1 1 0545 14 186 ORG 900 0900 187 900 FAILED LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 15 188 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 15 189 912 W BUMP ERROR PRINT 4 0912 2 920 15 190 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 15 191 920 BUMP A BUMP,COUNT BUMP COUNTER 7 0920 A 920 970 15 192 927 BCE ZERO,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 15 193 935 CLEAR CS 332 CLEAR 4 0935 / 332 15 194 939 CS ,, 1 0939 / 16 195 940 B CONT 4 0940 B 421 16 196 944 ZERO S COUNT 4 0944 S 970 16 197 948 CORR BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0948 B 957 C 16 1 TEST ZONE OR WM & BR 0060B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 953 B LAST BRANCH TO SENSE D 4 0953 B 958 16 199 957 CORRPR W CORRECT PRINT ROUTINE 1 0957 2 16 200 958 LAST BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 16 201 963 B DETAIL BRANCH TO READ NEXT RECORD 4 0963 B 348 17 202 970 COUNT DCW @000?@ 4 0970 17 203 971 DCW #1 1 0971 17 204 ORG HDRS-10 1110 205 1 114 ERROR DCW @ERROR@ 5 1114 18 206 1 119 DCW @ @ 5 1119 18 207 1 139 DCW @D MODIFIER @ 20 1139 18 208 1 159 DCW @B FIELD CHARACTERS @ 20 1159 19 209 1 179 DCW @RESULT SHOULD BE @ 20 1179 20 210 1 199 DCW @RESULT IS @ 20 1199 21 211 END START / 333 080 1 TEST ZONE OR WM & BR 0060B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BNX 417 BUMP 920 CLEAR 935 CONT 421 CORR 948 CORRPR 957 COUNT 970 DETAIL 348 DOTEST 458 EQZONE 517 ERRHLT 916 ERROR 1114 FAILED 900 HDRS 1120 INIT 389 LAST 958 RELOAD 340 RESULT 522 SCOPE 473 SCOPE2 500 SETWM 537 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 UNEQ 508 ZERO 944 ZTEST 493