BOOTSTRAP NO CLEAR ,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 CTL 6611 103 * 104 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 105 * 106 ORG 333 0333 107 * 108 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 109 * 110 333 START SW 8,12 7 0333 , 008 012 4 111 340 RELOAD SW 1 4 0340 , 001 4 112 344 R 1 4 0344 1 001 4 113 * 114 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 115 * 116 348 NXPROG R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 B 421 WHAT'S GOING TO BE AT 421? 4 0357 B 421 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 * 126 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 127 * 128 ORG 377 0377 129 377 BIN INIT, USE WHEN TESTS ARE RUN FROM TAPE 5 0377 B 389 6 130 ORG 385 0385 131 385 B TAPERD ,, 4 0385 B S88 7 132 389 INIT NOP 0 ,, 4 0389 N 000 7 133 393 MCW TPTEST&11,INIT&3 ,, 7 0393 M 360 392 7 134 400 BEGIN CS 332 START TEST 4 0400 / 332 7 135 404 CS 1 0404 / 7 136 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 7 137 413 ORG TITLEX 0413 138 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 139 417 BNX B NXPROG BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 140 421 FIRST SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 141 428 LCA 80,299 ,, 7 0428 L 080 299 8 142 435 LCA 72,272 ,, 7 0435 L 072 272 8 143 442 SW 202,241 ,, 7 0442 , 202 241 8 144 449 MCW 250,*&1 MOVE B OR N OP INTO 456 7 0449 M 250 456 8 145 456 DCW @ @ B OP FOR EQUAL CHAR-N OP FOR UNEQ CHA 1 0456 9 146 457 DC TESTEQ 3 0459 486 9 147 460 MCW 202,*&8 MOVE D MODIFIER TO TEST CHARAC OP 7 0460 M 202 474 9 1 TEST CHARACTER & BRANCH 0050B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 467 SCOPE BCE ERRPR1,224,X TEST UNEQUAL CHARACTERS 8 0467 B 895 224 X 9 149 475 BCE ,, 1 0475 B 9 150 476 BCE ,, 1 0476 B 9 151 477 BSS SCOPE,B B ON TO SCOPE 5 0477 B 467 B 9 152 482 B RESULT BRANCH TO LOAD RESULT COMMENT 4 0482 B 515 9 153 486 TESTEQ MCW 202,*&8 MOVE D MODIFIER TO TEST CHARAC OP 7 0486 M 202 500 10 154 493 SCOPE2 BCE ISEQ,222,X TEST EQUAL CHARACTERS 8 0493 B 510 222 X 10 155 501 BSS SCOPE2,B B ON TO SCOPE 5 0501 B 493 B 10 156 506 B ERRPR2 BRANCH TO ERROR PRINT ROUTINE 4 0506 B 900 10 157 510 ISEQ BSS SCOPE2,B B ON TO SCOPE 5 0510 B 493 B 10 158 515 RESULT LCA 247,267 LOAD RESULT COMMENT 7 0515 L 247 267 10 159 522 BSS PRNTOK,C C ON TO CORRECT PRINT ROUTINE 5 0522 B 950 C 11 160 527 BIN LAST, BRANCH TO SENSE D 5 0527 B 958 11 161 ORG 895 0895 162 895 ERRPR1 BSS SCOPE,B B ON TO SCOPE 5 0895 B 467 B 12 163 900 ERRPR2 LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 12 164 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 12 165 912 W LAST ERROR PRINT 4 0912 2 958 12 166 916 ERRHLT H LAST ERROR STOP 4 0916 . 958 12 167 920 DCW #1 WORD MARK 1 0920 12 168 ORG 950 0950 169 950 PRNTOK LCA BLANK,285 CORRECT PRINT ROUTINE 7 0950 L /19 285 13 170 957 W ,, 1 0957 2 13 171 958 LAST BSS FIRST,D D ON TO REPEAT 5 0958 B 421 D 13 172 963 CS 280 CLEAR 4 0963 / 280 13 173 967 CS 80 ,, 4 0967 / 080 13 174 971 BIN BNX, BRANCH TO READ NEXT RECORD 5 0971 B 417 13 175 ORG HDRS-10 1110 176 1 110 ERROR DCW @ERROR@ CONSTANTS 5 1114 14 177 1 115 BLANK DCW @ @ ,, 5 1119 14 178 1 120 ORG HDRS 1120 179 1 120 DCW @D MODIFIER @ ,, 20 1139 14 180 1 140 DCW @B FIELD CHARACTERS @ ,, 20 1159 15 181 1 160 DCW @RESULT SHOULD BE @ ,, 20 1179 16 182 1 180 DCW @RESULT IS @ ,, 20 1199 17 183 * 184 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 185 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 186 * THAT TRANSFERS CONTROL TO THE PROGRAM. 187 * 188 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 189 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 190 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 191 * 192 ORG 1200 1200 193 1 200 TITLPR W PRINT (SPACE). 1 1200 2 17 194 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 17 195 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 17 196 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 17 197 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 17 1 TEST CHARACTER & BRANCH 0050B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 217 W PRINT (SPACE). 1 1217 2 17 199 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 18 200 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 18 201 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 18 202 1 236 W PRINT SECOND LINE. 1 1236 2 18 203 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 18 204 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 18 205 1 245 DCW #1 1 1245 18 206 ORG TITLSW 1252 207 1 252 DCW 1 1 1252 19 208 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 BLANK 1119 BNX 417 ERRHLT 916 ERROR 1114 ERRPR1 895 ERRPR2 900 FIRST 421 HDRS 1120 INIT 389 ISEQ 510 LAST 958 NXPROG 348 PRNTOK 950 RELOAD 340 RESULT 515 SCOPE 467 SCOPE2 493 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TESTEQ 486 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349