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 FOR ZONE OR WM & BR 0060A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TEST FOR 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 110 340 RELOAD SW 1 ,, 4 0340 , 001 111 344 R 1 ,, 4 0344 1 001 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 DETAIL R READ DETAIL OR PROGRAM HEADER 1 0348 1 116 349 TPTEST BCE *&5,80,A BRANCH IF HEADER 8 0349 B 361 080 A 117 357 BCONT B CONT CONTINUE PROGRAM 4 0357 B 421 118 361 CS RELOAD,80 BRANCH TO CHAINING ROUTINE 7 0361 / 340 080 119 368 DCW #1 1 0368 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 131 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 132 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 133 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 134 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 135 1 217 W PRINT (SPACE). 1 1217 2 136 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 137 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 138 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 139 1 236 W PRINT SECOND LINE. 1 1236 2 140 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 141 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 142 1 245 DCW #1 1 1245 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 FOR ZONE OR WM & BR 0060A 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 152 ORG 385 ,, 0385 153 385 B TAPERD ,, 4 0385 B S88 154 389 INIT NOP 0 ,, 4 0389 N 000 155 393 MCW TPTEST&11,INIT&3 ,, 7 0393 M 360 392 156 400 BEGIN CS 332 START TEST 4 0400 / 332 157 404 CS 1 0404 / 158 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 159 413 ORG TITLEX 0413 160 413 CS 80 CLEAR READ AREA 4 0413 / 080 161 417 BNX B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 162 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 163 428 LCA 80,299 ,, 7 0428 L 080 299 164 435 LCA 72,272 ,, 7 0435 L 072 272 165 442 BCE SETWM,224,* BR TO SET WM IN ALL * AND % CHARAC 8 0442 B 600 224 * 166 450 BCE SETWM,224,% ,, 8 0450 B 600 224 % 167 458 DOTEST BCE ZTEST,41, BR TO TEST EQUAL ZONES IF BLANK IN 04 8 0458 B 493 041 168 466 MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0466 M 201 480 169 473 SCOPE BWZ UNEQ,224,X TEST UNEQUAL ZONES OR WM 8 0473 V 895 224 X 170 481 BWZ ,, 1 0481 V 171 482 BWZ ,, 1 0482 V 172 483 BWZ ,, 1 0483 V 173 484 BSS SCOPE,B B ON TO SCOPE 5 0484 B 473 B 174 489 B RESULT BRANCH TO LOAD RESULT COMMENT 4 0489 B 522 175 493 ZTEST MCW 201,*&8 MOVE D MODIFIER TO TEST ZONE OP 7 0493 M 201 507 176 500 SCOPE2 BWZ EQZONE,224,X TEST EQUAL ZONES OR WM 8 0500 V 517 224 X 177 508 BSS SCOPE2,B B ON TO SCOPE 5 0508 B 500 B 178 513 B FAILED BRANCH TO ERROR PRINT ROUTINE IF UNEQ 4 0513 B 900 179 517 EQZONE BSS SCOPE2,B B ON TO SCOPE 5 0517 B 500 B 180 522 RESULT SW 241 LOAD RESULT COMMENT 4 0522 , 241 181 526 LCA 247,267 ,, 7 0526 L 247 267 182 533 BSS 950,C C ON TO CORRECT PRINT ROUTINE 5 0533 B 950 C 183 538 BIN 958, BRANCH TO SENSE D 5 0538 B 958 184 ORG 600 0600 185 600 SETWM SW 224 SET WM IN 224 IF * OR % 4 0600 , 224 186 604 BIN DOTEST, ,, 5 0604 B 458 187 ORG 895 0895 188 895 UNEQ BSS SCOPE,B B ON TO SCOPE 5 0895 B 473 B 189 900 FAILED LCA 1114,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 190 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 191 912 W LOOP ERROR PRINT 4 0912 2 958 192 916 ERRHLT H LOOP ERROR STOP 4 0916 . 958 193 939 DCW @ @ WORD MARK 20 0939 194 ORG 950 0950 195 950 LCA 1119,285 CORRECT PRINT ROUTINE 7 0950 L /19 285 196 957 W ,, 1 0957 2 197 958 LOOP BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 1 TEST FOR ZONE OR WM & BR 0060A PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 963 BIN BNX, BRANCH TO READ NEXT RECORD 5 0963 B 417 199 ORG 1110 1110 200 1 114 DCW @ERROR@ CONSTANTS 5 1114 201 1 119 DCW @ @ ,, 5 1119 202 1 139 DCW @D MODIFIER @ ,, 20 1139 203 1 159 DCW @B FIELD CHARACTERS @ ,, 20 1159 204 1 179 DCW @RESULT SHOULD BE @ ,, 20 1179 205 1 199 DCW @RESULT IS @ ,, 20 1199 206 END START / 333 080 1 TEST FOR ZONE OR WM & BR 0060A PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BNX 417 CONT 421 DETAIL 348 DOTEST 458 EQZONE 517 ERRHLT 916 FAILED 900 HDRS 1120 INIT 389 LOOP 958 RELOAD 340 RESULT 522 SCOPE 473 SCOPE2 500 SETWM 600 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 UNEQ 895 ZTEST 493