CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 16K L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 TEST CHARACTER & BRANCH 0050B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST CHARACTER & BRANCH 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 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 NXPROG R 1 0348 1 4 116 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 117 357 B 421 WHAT'S GOING TO BE AT 421? 4 0357 B 421 4 118 361 CS RELOAD,80 7 0361 / 340 080 4 119 368 DCW #1 1 0368 5 120 * 121 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 122 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 123 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 124 * 125 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 126 * 127 ORG 377 0377 128 377 BIN INIT, USE WHEN TESTS ARE RUN FROM TAPE 5 0377 B 389 6 129 ORG 385 0385 130 385 B TAPERD ,, 4 0385 B S88 7 131 389 INIT NOP 0 ,, 4 0389 N 000 7 132 393 MCW TPTEST&11,INIT&3 ,, 7 0393 M 360 392 7 133 400 BEGIN CS 332 START TEST 4 0400 / 332 7 134 404 CS 1 0404 / 7 135 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 136 413 ORG TITLEX 0413 137 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 138 417 BNX B NXPROG BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 139 421 FIRST SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 140 428 LCA 80,299 ,, 7 0428 L 080 299 8 141 435 LCA 72,272 ,, 7 0435 L 072 272 8 142 442 SW 202,241 ,, 7 0442 , 202 241 8 143 449 MCW 72,*&1 MOVE B OR N OP INTO 456 7 0449 M 072 456 8 144 456 DCW @ @ B OP FOR EQUAL CHAR-N OP FOR UNEQ CHA 1 0456 9 145 459 DC TESTEQ 3 0459 493 9 146 460 MCW 202,*&8 MOVE D MODIFIER TO TEST CHARAC OP 7 0460 M 202 474 9 147 467 BCE 971,224,X TEST UNEQUAL CHARACTERS 8 0467 B 971 224 X 9 1 TEST CHARACTER & BRANCH 0050B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 475 B ,, 1 0475 B 9 149 476 B ,, 1 0476 B 9 150 477 ISEQ BSS CLEAR,B B ON TO SCOPE 5 0477 B 935 B 9 151 482 LCA 247,267 LOAD RESULT COMMENT 7 0482 L 247 267 9 152 489 B BUMP 4 0489 B 920 10 153 493 TESTEQ MCW 202,*&8 7 0493 M 202 507 10 154 500 BCE ISEQ,222,X TEST EQUAL CHARACTERS 8 0500 B 477 222 X 10 155 508 B SCOPEQ TEST B, ELSE ERROR 4 0508 B 971 10 156 512 DCW #1 1 0512 10 157 ORG 900 0900 158 900 ERRPR2 LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 11 159 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 11 160 912 W BUMP ERROR PRINT 4 0912 2 920 11 161 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 11 162 920 BUMP A BUMP,COUNT BUMP COUNTER 7 0920 A 920 970 11 163 927 BCE ZERO,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 11 164 935 CLEAR CS 332 CLEAR 4 0935 / 332 11 165 939 CS ,, 1 0939 / 12 166 940 B FIRST 4 0940 B 421 12 167 944 ZERO S COUNT 4 0944 S 970 12 168 948 CORR BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0948 B 957 C 12 169 953 B LAST BRANCH TO SENSE D 4 0953 B 958 12 170 957 CORRPR W CORRECT PRINT ROUTINE 1 0957 2 12 171 958 LAST BSS FIRST,D D ON TO REPEAT 5 0958 B 421 D 12 172 963 B NXPROG BRANCH TO READ NEXT RECORD 4 0963 B 348 13 173 970 COUNT DCW @000?@ 4 0970 13 174 971 SCOPEQ BSS CLEAR,B B ON TO SCOPE 5 0971 B 935 B 13 175 976 B ERRPR2 BRANCH TO ERROR PRINT ROUTINE 4 0976 B 900 13 176 980 DCW #1 1 0980 13 177 ORG HDRS-10 1110 178 1 114 ERROR DCW @ERROR@ 5 1114 14 179 1 119 DCW @ @ 5 1119 14 180 1 139 DCW @D MODIFIER @ 20 1139 14 181 1 159 DCW @B FIELD CHARACTERS @ 20 1159 15 182 1 179 DCW @RESULT SHOULD BE @ 20 1179 16 183 1 199 DCW @RESULT IS @ 20 1199 17 184 * 185 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 186 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 187 * THAT TRANSFERS CONTROL TO THE PROGRAM. 188 * 189 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 190 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 191 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 192 * 193 ORG 1200 1200 194 1 200 TITLPR W PRINT (SPACE). 1 1200 2 17 195 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 17 196 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 17 197 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 17 1 TEST CHARACTER & BRANCH 0050B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 17 199 1 217 W PRINT (SPACE). 1 1217 2 17 200 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 18 201 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 18 202 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 18 203 1 236 W PRINT SECOND LINE. 1 1236 2 18 204 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 18 205 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 18 206 1 245 DCW #1 1 1245 18 207 END START / 333 080 1 TEST CHARACTER & BRANCH 0050B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 400 BNX 417 BUMP 920 CLEAR 935 CORR 948 CORRPR 957 COUNT 970 ERRHLT 916 ERROR 1114 ERRPR2 900 FIRST 421 HDRS 1120 INIT 389 ISEQ 477 LAST 958 NXPROG 348 RELOAD 340 SCOPEQ 971 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TESTEQ 493 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 ZERO 944