0101 JOB 1401 KWIC- CARD TO TAPE AND REFNO ASSIGN PASS KWIC1 0102 CTL 431 KWIC1 0103 TITLE EQU 60 KWIC1 0104 REF EQU 71 KWIC1 0105 REF12 EQU 72 KWIC1 0106 SEQ EQU 74 KWIC1 0107 CDTYP EQU 75 KWIC1 0108 DEPT EQU 76 KWIC1 0109 SETNO EQU 80 KWIC1 0110 NAME EQU 4 KWIC1 0111 AUTHOR EQU TITLE KWIC1 0112 SUBJ EQU AUTHOR KWIC1 0113 ABST EQU SUBJ KWIC1 0114 YEAR EQU ABST KWIC1 0115 SOURCE EQU YEAR KWIC1 0116 ORG 81 KWIC1 0117 DCW @}@ KWIC1 0118 ORG 87 KWIC1 0119 X1 DCW 000 KWIC1 0120 ORG 92 KWIC1 0121 X2 DCW 000 KWIC1 0122 ORG 97 KWIC1 0123 X3 DCW 000 KWIC1 0124 ORG 333 KWIC1 0125 STDCH DC @ZYXWVUTSRQPONMLKJIHGFEDCBA@ 0126 WRAREA DA 1X4 1ST 4 LETTERS OF AUTHORS NAME KWIC1 0127 DCW 00 2 INITIALS KWIC1 0128 DCW 00 YEAR KWIC1 0129 REFNO DCW 000 LAST CHAR OF 1ST 3 WORDS OF TITLE KWIC1 0130 DA 1X64 KWIC1 0131 DCW @}@ KWIC1 0132 SAVE DA 1X882 SAVE CARDS WHILE BUILDING REFNO KWIC1 0133 C11 DCW 1 KWIC1 0134 C30 DCW 000 KWIC1 0135 CDCNT DCW 00000 CARD COUNT KWIC1 0136 RECCT DCW 000 NO. RECORDS IN PRESEN CARD SET KWIC1 0137 START CS 80 0138 SW 1,61 0139 SW 73,75 KWIC1 0140 SW 76,77 KWIC1 0141 RWD 2 KWIC1 0142 CC 1 KWIC1 0143 CS 299 KWIC1 0144 MCW @KWIC1 ON@,228 KWIC1 0145 W KWIC1 0146 CC L KWIC1 0147 CC L KWIC1 0148 CC L KWIC1 01490 B WRLBL WRITE LABEL KWIC1 01491 B RN0 KWIC1 01492WRLBL SBR WXIT&3 KWIC1 01493 RWD 2 KWIC1 01494W1 WT 2,LABEL KWIC1 01495 BER W2 KWIC1 01496WXIT B 0 KWIC1 01497W2 BSP 2 KWIC1 01498 SKP 2 KWIC1 01499 B W1 KWIC1 0154 * KWIC1 0155 *THIS ROUTINE PERFORMS INITIAL SETUP KWIC1 0156 * KWIC1 01570RN0 BSS RN1,D BR. IF REFNO IN INPUT KWIC1 0158 B RN2 KWIC1 0159 RN1 SBR RN7A&3,RN9 BRANCH AROUND REFNO ASSIGNMENT KWIC1 0160 SBR RN9A&3,RN7C KWIC1 0161 SBR RN15&3,RN18 KWIC1 0162 CW WRAREA&4,WRAREA&6 KWIC1 0163 CW WRAREA&8 KWIC1 0164 MCW @D@,SIGN-3 KWIC1 0165 RN2 BSS RN2M,B BR. IF NO AUTHOR CARDS IN INPUT KWIC1 0166 B RN3 KWIC1 0167 * KWIC1 0168 *NO AUTHOR CARDS IN INPUT KWIC1 0169 * KWIC1 0170 RN2M MCW @B@,RN6A1 KWIC1 0171 MCW @B@,SIGN-5 KWIC1 0172 MCW @B@,RN7 KWIC1 0173 MCW @B@,RN37L KWIC1 0174 RN3 BSS RN3M,C BR. IF NO SOURCE CARDS IN INPUT KWIC1 0175 B RN4 KWIC1 0176 * KWIC1 0177 *NO SOURCE CARDS IN INPUT KWIC1 0178 * KWIC1 0179 RN3M MCW @N@,RN16C KWIC1 0180 MCW @C@,SIGN-4 KWIC1 0181 MCW @N@,RN16J KWIC1 0182 MCW &RN40,RN14A&3 KWIC1 0183 RN4 BSS RN4M,E BR. IF NO SUBJECT CARDS IN INPUT KWIC1 0184 B RN5 KWIC1 0185 * KWIC1 0186 *NO SUBJECT CARDS IN INPUT KWIC1 0187 * KWIC1 0188 RN4M MCW @N@,RN16D KWIC1 0189 MCW @E@,SIGN-2 KWIC1 0190 MCW @N@,RN16K KWIC1 0191 MCW @B@,RN20 KWIC1 0192 RN5 BSS RN5M,F BR. IF NO ABSTRACT CARDS IN INPUT KWIC1 0193 B RN5R KWIC1 0194 * KWIC1 0195 *NO ABSTRACT CARDS IN INPUT KWIC1 0196 * KWIC1 0197 RN5M MCW @N@,RN16E KWIC1 0198 MCW @F@,SIGN-1 KWIC1 0199 MCW @N@,RN16L KWIC1 0200 MCW @B@,RN25 KWIC1 0201 RN5R BSS RN5T,G KWIC1 0202 RN5S CS 299 KWIC1 0203 MCW SIGN,230 KWIC1 0204 W KWIC1 0205 CC L KWIC1 0206 CC L KWIC1 0207 CC L KWIC1 0208 BSS OVLY,G 0209 RN5S4 C 46,CEND 0210 BE RN6 0211 R RN5S4 0212 OVLY OVLAY 0213 RN5T MCW @G@,SIGN KWIC1 0214 B RN5S KWIC1 0215 RN6 R NXT CARD KWIC1 0216 SS 1 KWIC1 0217 MZ @ @,73 KWIC1 0218 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 0219 BLC RN32 SEQ. ERROR KWIC1 0220 B RN6C KWIC1 0221 * KWIC1 02220*WRITE CARD TYPE 6 AND HIGHER. KWIC1 0223 * KWIC1 02235RN6A BWZ *&5,CDTYP,2 KWIC1 02236 B RN6A2 KWIC1 02237 C CDTYP,@5@ KWIC1 02238 BL RN6A2 KWIC1 02242 MCW C30,RECCT KWIC1 02243 BCE RN6C,CDTYP,0 KWIC1 0225 RN6A1 NOP RN6F BR. IN NO AUTHOR CARDS KWIC1 0226 BCE RN6C,CDTYP,1 BR.IF AUTHOR CARD KWIC1 02265 B RN35 KWIC1 0227 RN6A2 MCW ABST,WRAREA&73 KWIC1 0228 MCW SEQ,WRAREA&13 KWIC1 0229 MCW CDTYP,WRAREA&11 KWIC1 0230 SRF KWIC1 0231 B WRITE KWIC1 0232 BCE RN6B,SW1,1 KWIC1 0233 R NXT CARD KWIC1 0234 SS 1 KWIC1 0235 MZ @ @,73 KWIC1 0236 RN6B A C11,CDCNT KWIC1 0237 BLC RN34A KWIC1 0238 B RN6A KWIC1 0239 * KWIC1 0240 *THIS ROUTINE PERFORMS AUTHOR SEQUENCING KWIC1 0241 * KWIC1 0242 RN6C SBR X1,0 KWIC1 0243 SBR RECCT,0 KWIC1 0244 SBR X2,0 KWIC1 0245 SBR X3,0 KWIC1 0246 RN6D BCE RN6E,CDTYP,0 BR. IF HEADER CARD KWIC1 0247 B RN7 KWIC1 0248 RN6E MCW AUTHOR,SAVE&62&X1 SAVE HEADER CARD KWIC1 0249 MCW CDTYP,SAVE&X1 KWIC1 0250 MCW SEQ,SAVE&2&X1 KWIC1 0251 SBR X1,63&X1 KWIC1 0252 R KWIC1 0253 SS 1 KWIC1 0254 MZ @ @,73 KWIC1 0255 A C11,CDCNT KWIC1 0256 BLC RN32 KWIC1 0257 B RN6D KWIC1 0258 RN6F BCE RN6C,CDTYP,2 BR. IF TITLE CARD KWIC1 02590 B RN35 KWIC1 0260 RN7 NOP RN9A BR. IF NO AUTHOR CARDS KWIC1 0261 RN7A BCE RN8,CDTYP,1 BR. IF AUTHOR CARD KWIC1 0262 RN7B CS 299 KWIC1 0263 MCW CDCNT,CMNT1-16 KWIC1 0264 MCW CMNT1,254 KWIC1 0265 W KWIC1 0266 MCM 1,219 KWIC1 0267 W KWIC1 0268 CC L KWIC1 0269 CC L KWIC1 0270 CC L KWIC1 0271 H RN37A KWIC1 0272 RN7C MCW REF,REFNO KWIC1 0273 MN REF12,REFNO&64 KWIC1 0274 MZ REF12,REFNO&64 KWIC1 0275 B RN13 KWIC1 0276 RN8 MCW NAME,REFNO-7 SAVE 1ST 4 CHARS OF NAME KWIC1 0277 SBR RN8A&6,1 SAVE AUTHOR INITIALS KWIC1 0278 MZ RN8B,RN8A&5 KWIC1 0279 SBR X2,0 KWIC1 0280 RN8A BCE RN8B,1&X2, KWIC1 0281 SBR X2,1&X2 KWIC1 0282 B RN8A KWIC1 0283 RN8B MCW 3&X2,REFNO-5 KWIC1 0284 RN9 SRF KWIC1 0285 MCW AUTHOR,SAVE&62&X1 SAVE AUTHORS KWIC1 0286 MCW CDTYP,SAVE&X1 SAVE CARD TYPE KWIC1 0287 MCW SEQ,SAVE&2&X1 SAVE SEQUENCE NO. KWIC1 0288 SBR X1,63&X1 KWIC1 0289 R NXT CARD KWIC1 0290 SS 1 KWIC1 0291 MZ @ @,73 KWIC1 0292 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 02930 BLC RN9C KWIC1 0294 BCE RN9B,CDTYP,1 BRANCH IF AUTHOR CARD KWIC1 0295 RN9A BCE RN10,CDTYP,2 BRANCH IF TITLE CARD KWIC1 0296 B RN7B KWIC1 0297 RN9B C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC1 0298 BH RN9 OK KWIC1 0299 B RN7B ERROR KWIC1 02995RN9C BCE RN9A,CDTYP,2 KWIC1 02996 B RN32 KWIC1 0300 * KWIC1 0301 *THIS ROUTINE PERFORMS TITLE SEQUENCING KWIC1 0302 * KWIC1 0303 RN10 SBR X2,1 0304 MCW BLNK3#3,T3B KWIC1 0305 CHAIN2 KWIC1 0306 SBR RN11B5&6,T3A 0307 RN11A MN TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0308 MZ TITLE-60&X2,RN11A3&7 0309 RN11A3 BCE RN11B,STDCH,0 0310 CHAIN25 0311 SBR X2,1&X2 0312 BCE RN12R,X2-1,6 0313 B RN11A 0314 RN11B SBR HOKW#3,TITLE-60&X2 0315 RN11B5 MCW TITLE-60&X2,0 0316 RN11B6 MN TITLE-60&X2,RN11B7&7 0317 MZ TITLE-60&X2,RN11B7&7 0318 RN11B7 BCE RN11B8,STDCH,0 0319 CHAIN25 0320 B RN11C 0321 RN11B8 SBR X2,1&X2 0322 B RN11B6 0323 RN11C SBR LGKW#3,TITLE-60&X2 COMPARE KW WITH SW 0324 S HOKW,LGKW KWIC1 0325 MZ @ @,LGKW KWIC1 0326 SBR X3,0 KWIC1 0327 S C31,X2 0328 MZ @ @,X2 0329 MCW &NOCH,RN11D&6 KWIC1 0330 RN11D C LGKW,0 KWIC1 0331 SBR RN11D&6 KWIC1 0332 SBR RN11E&6 KWIC1 0333 BE RN12 LGKW EQU LGSW KWIC1 0334 RN11E BCE RN12J,0,} LGKW NOT EQU LGSW KWIC1 0335 SBR X3,3&X3 KWIC1 0336 B RN11D KWIC1 0337 RN12 MCW SWADR&X3,RN12D&6 KWIC1 0338 RN12D C TITLE-60&X2,0 0339 SBR RN12D&6 KWIC1 0340 SBR RN12G&6 KWIC1 0341 BU RN12G KWIC1 0342 B RN12M KW EQU SW KWIC1 0343 RN12G BCE RN12J,0,} KW NOT EQU SW KWIC1 0344 B RN12D KWIC1 0345 RN12J C RN11B5&6,&T3B 0346 BE RN12R KWIC1 0347 MA C31,RN11B5&6 0348 RN12M SBR X2,2&X2 0349 B RN11A KWIC1 0350 RN12R MCW T3B,REFNO KWIC1 0351 CHAIN2 KWIC1 03520RN13 BLC RN16M KWIC1 03525 SRF KWIC1 0353 MCW TITLE,SAVE&62&X1 SAVE TITLE KWIC1 0354 MCW SEQ,SAVE&2&X1 KWIC1 0355 MCW CDTYP,SAVE&X1 KWIC1 0356 SBR X1,63&X1 KWIC1 0357 R NXT CARD KWIC1 0358 SS 1 KWIC1 0359 MZ @ @,73 KWIC1 0360 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 0361 RN14 BLC RN16B KWIC1 0362 BCE RN16A,CDTYP,2 BRANCH IF TITLE CARD KWIC1 0363 RN14A B RN15 RN40 IF NO SOURCE CARDS KWIC1 0364 B RN20 KWIC1 0365 RN15 BCE RN17,CDTYP,3 BRANCH IF SOURCE CARD KWIC1 0366 B RN7B SEQ. ERROR KWIC1 0367 RN16A C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC1 0368 BH RN13 OK KWIC1 0369 B RN7B ERROR KWIC1 0370 * KWIC1 0371 *LAST CARD ROUTINE KWIC1 0372 * KWIC1 0373 RN16B BCE RN16J,CDTYP,2 KWIC1 0374 RN16C B RN16F KWIC1 0375 RN16D B RN16G KWIC1 0376 RN16E B RN16H KWIC1 0377 RN16E1 BCE RN32,CDTYP,0 KWIC1 0378 BCE RN32,CDTYP,1 KWIC1 0379 B RN16M KWIC1 0380 RN16F BCE RN16K,CDTYP,3 KWIC1 0381 B RN32 KWIC1 0382 RN16G BCE RN16L,CDTYP,4 KWIC1 0383 B RN32 KWIC1 0384 RN16H BCE RN16M,CDTYP,5 KWIC1 0385 B RN32 KWIC1 0386 RN16J B RN32 KWIC1 0387 RN16K B RN32 KWIC1 0388 RN16L B RN32 KWIC1 0389 RN16M B RN40 KWIC1 0390 B RN34A KWIC1 0391 * KWIC1 0392 *THIS ROUTINE PERFORMS SOURCE SEQUENCING KWIC1 0393 * KWIC1 0394 RN17 MCW YEAR,REFNO-3 SAVE YEAR FOR REFNO KWIC1 0395 RN18 B RN40 KWIC1 0396 RN18A MCW SOURCE,WRAREA&73 KWIC1 0397 MCW SEQ,WRAREA&13 KWIC1 0398 MCW CDTYP,WRAREA&11 KWIC1 0399 SRF KWIC1 0400 B WRITE WRITE SOURCE CARD KWIC1 0401 BCE RN18C,SW1,1 BRANCH IF CARD RED KWIC1 0402 R NXT CARD KWIC1 0403 SS 1 KWIC1 0404 MZ @ @,73 KWIC1 0405 RN18C A C11,CDCNT KWIC1 0406 RN19 BLC RN20M SEQ. ERROR KWIC1 0407 BCE RN20A,CDTYP,3 BRANCH IF SOURCE CARD KWIC1 0408 RN20 NOP RN25 BR. IF NO SUBJECT CARDS KWIC1 0409 RN20B BCE RN21,CDTYP,4 BRANCH IF SUBJECT CARD KWIC1 0410 B RN35 KWIC1 0411 RN20A C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0412 BH RN18A OK KWIC1 0413 B RN35 ERROR KWIC1 0414 RN20M MCW @N@,RN16M KWIC1 0415 BCE RN16K,CDTYP,3 BR. IF SOURCE CARD KWIC1 0416 B RN16D KWIC1 0417 * KWIC1 0418 *THIS ROUTINE PERFORMS SUBJECT SEQUENCING KWIC1 0419 * KWIC1 0420 RN21 MCW SUBJ,WRAREA&73 KWIC1 0421 MCW SEQ,WRAREA&13 KWIC1 0422 MCW CDTYP,WRAREA&11 KWIC1 0423 SRF KWIC1 0424 B WRITE WRITE SUBJECT CARD KWIC1 0425 BCE RN21A,SW1,1 BRANCH IF CARD RED KWIC1 0426 R NXT CARD KWIC1 0427 SS 1 KWIC1 0428 MZ @ @,73 KWIC1 0429 RN21A A C11,CDCNT KWIC1 0430 RN22 BLC RN25M KWIC1 0431 B RN24A KWIC1 0432 RN23 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0433 B RN34 SEQ. ERROR KWIC1 0434 RN24 BCE RN34A,CDTYP,4 BRANCH IF SUBJECT.# KWIC1 0435 B RN34 SEQ. ERROR KWIC1 0436 RN24A BCE RN25B,CDTYP,4 BRANCH IF SUBJECT CARD KWIC1 0437 RN25 NOP RN6A BR. IF NO ABSTRACT CARDS KWIC1 0438 RN25A BCE RN26,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0439 B RN35 KWIC1 0440 RN25B C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0441 BH RN21 OK KWIC1 0442 B RN35 ERROR KWIC1 0443 RN25M MCW @N@,RN16M KWIC1 0444 BCE RN16L,CDTYP,4 BR. IF SUBJECT CARD KWIC1 0445 B RN16E KWIC1 0446 * KWIC1 0447 *THIS ROUTINE PERFORMS ABSTRACT SEQUENCING KWIC1 0448 * KWIC1 0449 RN26 MCW ABST,WRAREA&73 KWIC1 0450 MCW SEQ,WRAREA&13 KWIC1 0451 MCW CDTYP,WRAREA&11 KWIC1 0452 SRF KWIC1 0453 B WRITE WRITE ABSTRACT CARD KWIC1 0454 BCE RN26A,SW1,1 BRANCH IF CARD RED KWIC1 0455 R NXT CARD KWIC1 0456 SS 1 KWIC1 0457 MZ @ @,73 KWIC1 0458 RN26A A C11,CDCNT KWIC1 0459 BLC RN28 KWIC1 0460 BCE RN27A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0461 B RN6A KWIC1 0462 RN27A C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0463 BH RN26 OK KWIC1 0464 B RN35 ERROR KWIC1 0465 RN28 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0466 MCW @N@,RN16M KWIC1 0467 B RN16E1 KWIC1 0468 RN32 CS 299 KWIC1 0469 MCW CDCNT,CMNT1-16 KWIC1 0470 MCW CMNT1,254 KWIC1 0471 W KWIC1 0472 MCM 1,219 KWIC1 0473 W KWIC1 0474 CC L KWIC1 0475 CC L KWIC1 0476 CC L KWIC1 0477 H KWIC1 0478 * KWIC1 0479 *THE END KWIC1 0480 * KWIC1 0481 RN33 WTM 2 KWIC1 0482 RWD 2 KWIC1 0483 CS 299 KWIC1 0484 MCW @END KWIC1@,229 KWIC1 0485 W KWIC1 0486 CC L KWIC1 0487 CC L KWIC1 0488 CC L KWIC1 0489 H *-3 KWIC1 0490 RN34 EQU RN35 0491 RN34A MCW TITLE,WRAREA&73 KWIC1 0492 MCW SEQ,WRAREA&13 KWIC1 0493 MCW CDTYP,WRAREA&11 KWIC1 0494 B WRITE KWIC1 0495 B RN33 KWIC1 0496 RN35 CS 299 KWIC1 0497 MCW CDCNT,CMNT1-16 KWIC1 0498 MCW CMNT1,254 KWIC1 0499 W KWIC1 0500 MCM 1,219 KWIC1 0501 W KWIC1 0502 CC L KWIC1 0503 CC L KWIC1 0504 CC L KWIC1 0505 H KWIC1 0506 RN36 C RECCT,C30 PURGE BAD CARDS FROM TAPE KWIC1 0507 BE RN37 BRANCH IF ALL RECORDS PURGED KWIC1 0508 BSP 2 KWIC1 0509 S C11,RECCT KWIC1 0510 MZ C11,RECCT KWIC1 0511 B RN36 KWIC1 0512 RN37 BLC RN33 GO TO END KWIC1 0513 RN37A R LOOK FOR NXT AUTHOR CARD KWIC1 0514 SS 1 KWIC1 0515 MZ @ @,73 KWIC1 0516 A C11,CDCNT KWIC1 0517 BCE RN6C,CDTYP,0 BR. IF HEADER KWIC1 0518 RN37L NOP RN37M BR. IF NO AUTHOR CARDS KWIC1 0519 BCE RN6C,CDTYP,1 BR. IF AUTHOR KWIC1 0520 B RN37N KWIC1 0521 RN37M BCE RN6C,CDTYP,2 BR. IF TITLE KWIC1 0522 RN37N BLC RN33 KWIC1 0523 B RN37A KWIC1 0524 * KWIC1 0525 *WRITE SAVED CARDS KWIC1 0526 RN40 SBR XIT1&3 KWIC1 0527 SBR X2,0 KWIC1 0528 MCW C1N,WR2 DISABLE CARD READ AFTER TAPE ERRO KWIC1 0529 MCW C1N,WR1B KWIC1 0530 MCW C1N,WR4 DISABLE CARD READ AFTER TP ERROR KWIC1 0531 RN41 MCW SAVE&62&X2,WRAREA&73 MOVE CARD TO WRITE AREA KWIC1 0532 B WRITE WRITE TYPE KWIC1 0533 SBR X2,63&X2 KWIC1 0534 C X1,X2 KWIC1 0535 BL RN41 KWIC1 0536 MCW C1R,WR2 ENABLE CARD READ AFTER TAPE ERROR KWIC1 0537 MCW @M@,WR1B KWIC1 0538 MCW C1R,WR4 ENSABLE CARD READ AFTER TP ERROR KWIC1 0539 XIT1 B 0 KWIC1 0540 * KWIC1 0541 *THIS ROUTINE WRITES THE OUTPUT TAPE KWIC1 0542 * KWIC1 0543 WRITE SBR WRXIT&3 SAVE RETURN ADDRESS KWIC1 0544 MCW C30,SW1 CLEAR CARD RED SWITHH KWIC1 0545 WR1B MCW @1@,WR2 KWIC1 0546 WR1A MCW C11,WRT1 KWIC1 0547 WR1 WT 2,WRAREA KWIC1 0548 BER WR2 BRANCH ON TAPE ERROR KWIC1 0549 BEF WR4 EOF KWIC1 0550 A C11,RECCT KWIC1 0551 WRXIT B 0 KWIC1 0552 WR2 R KWIC1 0553 MCW @N@,WR2 KWIC1 0554 SS 1 KWIC1 0555 MZ @ @,73 KWIC1 0556 MCW C11,SW1 SET CARD RED SWITCH KWIC1 0557 BSP 2 KWIC1 0558 BCE WR3,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC1 0559 A C11,WRT1 ADD 1 TO BAD COUNT KWIC1 0560 B WR1 KWIC1 0561 WR3 SKP 2 SKIP AND BLANK BAD RECORD KWIC1 0562 B WR1A KWIC1 0563 WR4 R READ CARD AFTER TAPE ERROR KWIC1 0564 SS 1 KWIC1 0565 MZ @ @,73 KWIC1 0566 MCW C11,SW1 SET CARD RED SWITCH KWIC1 0567 WTM 2 KWIC1 0568 RWU 2 KWIC1 0569 CS 299 KWIC1 0570 MCW @REMOVE TAPE 2, MOUNT BLANK REEL, CONTINUE.@,264 KWIC1 0571 W KWIC1 0572 CC L KWIC1 0573 CC L KWIC1 0574 CC L KWIC1 0575 H KWIC1 05760 B WRLBL WRITE LABEL KWIC1 0579 B WRXIT KWIC1 0580 LABEL DCW @1@ KWIC1 0581 DC @HDR@ KWIC1 0582 DC #16 KWIC1 0583 DC @BIBLIOGRAP@ KWIC1 0584 DC #50 KWIC1 0585 DCW @}@ KWIC1 0586 WRT1 DCW 0 KWIC1 0587 CMNT1 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC1 0588 C3I9I DCW @I9I@ KWIC1 0589 SIGN DCW @SSW @ KWIC1 05900C1R DCW @1@ KWIC1 0591 C1N DCW @N@ KWIC1 0592 SW1 DCW 0 KWIC1 0593 C31 DCW 001 KWIC1 0594 C359 DCW 059 KWIC1 0595 T3A DA 1X3 KWIC1 0596 1,1 KWIC1 0597 2,2 KWIC1 0598 T3B 3,3 KWIC1 0599 DCW @}@ KWIC1 0600 DCW 004 KWIC1 0601 DCW 003 KWIC1 0602 DCW 002 KWIC1 0603 NOCH DCW 001 KWIC1 0604 SWADR DCW &CHAR1 KWIC1 0605 DCW &CHAR2 KWIC1 0606 DCW &CHAR3 KWIC1 0607 DCW &CHAR4 KWIC1 0608 DCW @}@ KWIC1 0609 CHAR1 DCW @A@ KWIC1 0610 DCW @}@ KWIC1 0611 DCW @BY@ KWIC1 0612 DCW @TO@ KWIC1 0613 DCW @AS@ KWIC1 0614 DCW @AT@ KWIC1 0615 DCW @AN@ KWIC1 0616 DCW @ON@ KWIC1 0617 DCW @IN@ KWIC1 0618 CHAR2 DCW @OF@ KWIC1 0619 DCW @}@ KWIC1 0620 DCW @FOR@ KWIC1 0621 DCW @AND@ KWIC1 0622 CHAR3 DCW @THE@ KWIC1 0623 DCW @}@ KWIC1 0624 DCW @SOME@ KWIC1 0625 DCW @FROM@ KWIC1 0626 CHAR4 DCW @WITH@ KWIC1 0627 CS TTLA,80 0628 CEND EQU * 0629 LTORG 0630 EX START 0631 *THIS ROUTINE PROCESSES TITLE CARDS ONLY 0632 ORG RN6 0633 TTLA CW WRAREA&4,WRAREA&6 KWIC1 0634 CW WRAREA&8 KWIC1 0635 SW 73,75 0636 SW 76,77 0637 SW 1,61 0638 TTL BLC RN33 KWIC1 0639 R KWIC1 0640 SS 1 KWIC1 0641 MZ @ @,73 KWIC1 0642 A @1@,CDCNT KWIC1 0643 C REF12,CREF12#12 KWIC1 0644 BE TTL4 KWIC1 0645 B TTL8 KWIC1 0646 TTL4 BCE TTL9,CDTYP,2 KWIC1 06465 B TTL10 KWIC1 0647 TTL5 CS 299 KWIC1 0648 MCW CDCNT,CMNT1-16 KWIC1 0649 MCW CMNT1,254 KWIC1 0650 W KWIC1 0651 MCM 1,219 KWIC1 0652 W KWIC1 0653 CC L KWIC1 0654 CC L KWIC1 0655 CC L KWIC1 0656 H TTL11 KWIC1 0657 TTL6 BLC RN33 KWIC1 0658 R KWIC1 0659 SS 1 KWIC1 0660 MZ @ @,73 KWIC1 0661 A @1@,CDCNT KWIC1 0662 C REF12,CREF12 KWIC1 0663 BE TTL6 KWIC1 0664 TTL7 MCW REF12,CREF12 KWIC1 06645 MCW C30,RECCT KWIC1 06646 MCW @ @,SEQ1 KWIC1 0665 B TTL4 KWIC1 0666 TTL8 MCW @ @,SEQ1#2 KWIC1 0667 B TTL7 KWIC1 0668 TTL9 C SEQ,SEQ1 KWIC1 06690 BL TTL9E KWIC1 0670 B TTL5 KWIC1 06705TTL9E MCW SEQ,SEQ1 KWIC1 0671 TTL10 MCW REF,REFNO KWIC1 0672 MN REF12,REFNO&64 KWIC1 0673 MZ REF12,REFNO&64 KWIC1 0674 MCW TITLE,WRAREA&73 KWIC1 0675 MCW SEQ,WRAREA&13 KWIC1 0676 MCW CDTYP,WRAREA&11 KWIC1 0677 SRF KWIC1 0678 B WRITE KWIC1 0680 B TTL KWIC1 0681 TTL11 C RECCT,C30 KWIC1 0682 BE TTL6 KWIC1 0683 BSP 2 KWIC1 0684 S @1@,RECCT KWIC1 0685 MZ @ @,RECCT KWIC1 0686 B TTL11 KWIC1 0687 END TTLA 00000 JOB 1401 KWIC- BIBLIOGRAPHY PRINT AND AUTHOR TAPE GEN KWIC2 CTL 431 00020 ORG 87 KWIC2 00030X1 DCW 000 KWIC2 00040 ORG 333 KWIC2 00050PRNAM EQU 206 KWIC2 00060DASH1 EQU 207 KWIC2 00070PRDAT EQU 209 KWIC2 00080DASH2 EQU 210 KWIC2 00090PRIDI EQU 213 KWIC2 00100PRFLD EQU 275 KWIC2 00110INPUT DA 1X76 KWIC2 00120NAME 1,6 KWIC2 00130DATE 7,8 KWIC2 00140IDIOT 9,11 KWIC2 00150FIELD 15,74 KWIC2 00160REF12 75,75 KWIC2 00170CDTYP 12 KWIC2 00180REF1 14 KWIC2 00190START RWD 2 KWIC2 00200 CC 1 KWIC2 00210 CS 299 KWIC2 00220 MCW @KWIC2 ON@,228 KWIC2 00230 W KWIC2 00240 CC L KWIC2 00250 CC L KWIC2 00260 CC L KWIC2 00270* KWIC2 00280*READ CONTROL CARD KWIC2 00290BP1B R KWIC2 00300 C 3,@***@ KWIC2 00310 BE BP1C BR. IF CONTROL CARD KWIC2 00320BP1B1 CS 299 KWIC2 00330 MCW @CONTROL CARD ERROR@,238 KWIC2 00340 W KWIC2 00350 CC L KWIC2 00360 CC L KWIC2 00370 CC L KWIC2 00380 H BP1B KWIC2 00390BP1C MN 4,CPAGE KWIC2 00400 BCE BP1G,4, KWIC2 00410 BCE BP1G,4,0 KWIC2 00420 BCE BP1G,4,1 KWIC2 00430 BCE BP1G,4,2 KWIC2 00440 B BP1B1 KWIC2 00450BP1G MCW 7,CLINE KWIC2 00460 BCE BP1M,8, BR. IF PRINT IN POS 1 KWIC2 00470 MCW @N@,BP4B KWIC2 00480BP1M BSS BP1R,B BR. NO AUTH TAPE KWIC2 00490BP1N BSS BP1S,D BR. REFNO IN INPUT KWIC2 00500BP1P CS 299 KWIC2 00510 MCW SIGN,226 KWIC2 00520 SW 1 KWIC2 00530 MCW 8,240 KWIC2 00540 W KWIC2 00550 B BP1E CHECK INPUT LABEL KWIC2 00560 CC 1 KWIC2 00570 B BP1E5 KWIC2 00580BP1R MCW @B@,BP10 KWIC2 00590 MCW @B@,AUTH KWIC2 00600 MCW @B@,SIGN-1 KWIC2 00610 B BP1N KWIC2 00620BP1S MCW @B@,BP3A KWIC2 00630 MCW @B@,AUTH1 KWIC2 00640 MCW @D@,SIGN KWIC2 00650 B BP1P KWIC2 00660*CHECK INPUT TAPE LABEL KWIC2 00670* KWIC2 00680BP1E SBR BP1E2&3 KWIC2 00690BP1E1 SBR CTR#3,0 KWIC2 00700BP1E1A RT 2,INLBL KWIC2 00710 BER BP1E3 KWIC2 00720 C INLBL&29,@BIBLIOGRAP@ KWIC2 00730BP1E2 BE 0 KWIC2 00740 CS 180 KWIC2 00750 MCW @08INPUT TAPE LABEL ERROR@,124 KWIC2 00760 P KWIC2 00770 CS 180 KWIC2 00780 P KWIC2 00790 SS 4 KWIC2 00800 H BP1E1 KWIC2 00810BP1E3 A C11,CTR KWIC2 00820 BSP 2 KWIC2 00830 BCE BP1E4,CTR,0 KWIC2 00840 B BP1E1A KWIC2 00850BP1E4 CS 180 KWIC2 00860 MCW @09ERROR READING TAPE LABEL@,126 KWIC2 00870 P KWIC2 00880 CS 180 KWIC2 00890 P KWIC2 00900 SS 4 KWIC2 00910 H BP1E1 KWIC2 00920BP1E5 BSS BP1E7,B BR. NO AUTH CARDS KWIC2 00930 RWD 4 KWIC2 00940 B TL9 WRITE AUTH LABEL KWIC2 00950BP1E7 BCE BP2,4, KWIC2 00960 BCE BP2,4,0 KWIC2 00970 CC L KWIC2 00980 CC L KWIC2 00990 CC L KWIC2 01000 CC J KWIC2 01010 A C210,LINCT KWIC2 01020BP2 MCW C20,ERRCT KWIC2 01030BP2A RT 2,INPUT KWIC2 01040 BER BP7 KWIC2 01050 BEF BP9 KWIC2 01060 B BP11 KWIC2 01070BP7 A C11,ERRCT KWIC2 01080 BCE BP8,ERRCT-1,1 BRANCH IF 10 BAD READS KWIC2 01090 BSP 2 KWIC2 01100 B BP2A KWIC2 01110BP8 MCM INPUT,101 KWIC2 01120 P KWIC2 01130 CS 180 KWIC2 01140 MCW CMNT1,145 KWIC2 01150 P KWIC2 01160 CS 180 KWIC2 01170 P KWIC2 01180 SS 4 KWIC2 01190 H KWIC2 01200 CS 299 KWIC2 01210 W KWIC2 01220 B BP4D KWIC2 01230BP9 RWD 2 KWIC2 01240 MCW CMNT2,145 KWIC2 01250 P KWIC2 01260 CS 180 KWIC2 01270 P KWIC2 01280 SS 4 KWIC2 01290 H KWIC2 01300 BSS BP10,F BR. IF NO MORE INPUT KWIC2 01310 B BP10R KWIC2 01320BP10 NOP BP10M BR. IF NO AUTHOR TAPE KWIC2 01330 WTM 4 KWIC2 01340 RWD 4 KWIC2 01350BP10M CS 299 KWIC2 01360 CC 1 KWIC2 01370 MCW @END KWIC2@,229 KWIC2 01380 W KWIC2 01390 CC L KWIC2 01400 CC L KWIC2 01410 CC L KWIC2 01420 H *-3 KWIC2 01430BP10R B BP1E CK. LABEL KWIC2 01440 B BP2 KWIC2 01450BP11 CW INPUT&6,INPUT&8 KWIC2 01460 C IDIOT,REF2 KWIC2 01470 BE BP3D BR. IF DUPL. REFNO KWIC2 01480BP3E MCW IDIOT,REF2 KWIC2 01490 MCW REF12,CREF12#1 KWIC2 01500 MCW INPUT&13,SEQ KWIC2 01510 SW INPUT&6,INPUT&8 KWIC2 01520BP3A NOP BP3C KWIC2 01530 MZ DASH,DASH1 KWIC2 01540 MZ DASH,DASH2 KWIC2 01550 MCW NAME,PRNAM KWIC2 01560 MCW DATE,PRDAT KWIC2 01570 MCW IDIOT,PRIDI KWIC2 01580 B BP4A KWIC2 01590BP3D C REF12,CREF12 KWIC2 01600 BE BP11A BR. IF DUPL. REFNO KWIC2 01610 B BP3E KWIC2 01620BP11A C INPUT&13,SEQ#3 KWIC2 01630 BE BP11A1 BR. IF CDTYP & SEQ EQU PREVIOUS KWIC2 01640 MCW INPUT&13,SEQ KWIC2 01650 B BP4 KWIC2 01660BP11A1 CW INPUT&14 KWIC2 01670 MCW FIELD,174 KWIC2 01680 P KWIC2 01690 CS 180 KWIC2 01695 SS 8 KWIC2 01700 P KWIC2 01720 SW INPUT&14 KWIC2 01730 B BP2 KWIC2 01740BP11B BCE BP3,CDTYP,1 BRANCH IF AUTHOR CARD KWIC2 01750 BCE BP3,CDTYP,0 BR. IF HEADER CARD KWIC2 01760 MCW @N@,BP3 KWIC2 01770 B BP4 KWIC2 01780BP3 NOP BP4 KWIC2 01790BP3C CW INPUT&6,INPUT&8 KWIC2 01800 MCW REF12,PRIDI KWIC2 01810 MCW IDIOT,PRIDI-1 KWIC2 01820 B BP4A KWIC2 01830BP4 CS 225 KWIC2 01840BP4A MCW FIELD,PRFLD KWIC2 01850BP4B B BP4C KWIC2 01860 SW 201 KWIC2 01870 MCW 275,295 KWIC2 01880 CS 220 KWIC2 01890BP4C W KWIC2 01900* KWIC2 01910*THIS ROUTINE PROCESSES AUTHOR CARDS KWIC2 01920* KWIC2 01930AUTH NOP BP4D BR. NO AUTH TAPE KWIC2 01940 BCE AUTH1,CDTYP,1 BR. IF AURHOR CARD KWIC2 01950 B BP4D KWIC2 01960AUTH1 NOP AUTH2 KWIC2 01970 MCW INPUT&13,OUTPUT&13 KWIC2 01980 CHAIN2 KWIC2 01990 B AU1 KWIC2 02000AUTH2 MCW INPUT&13,OUTPUT&13 KWIC2 02010AU1 MCW REF12,OUTPUT&32 KWIC2 02020 C INPUT&17,BLK1&3 KWIC2 02030 BE BP4D KWIC2 02040 C INPUT&33,BLK1&1 KWIC2 02050 BE AU1D BR. IF STANDARD AUTHOR CARD KWIC2 02060 SBR X1,0 KWIC2 02070AU1A C INPUT&14&X1,BLK1&1 KWIC2 02080 BE AU1B BR. IF FOUND TWO BLANKS AFTER INI KWIC2 02090 C X1,@017@ KWIC2 02100 BE AU1B BR. IF MORE THAN 18 CHAR NAME KWIC2 02110 SBR X1,1&X1 KWIC2 02120 B AU1A KWIC2 02130AU1B MCW INPUT&14&X1,OUTPUT&14&X1 MOVE AURT TO WRITE AREA KWIC2 02140 B WRAUT KWIC2 02150 MCW BLK18,OUTPUT&31 KWIC2 02160 B BP4D KWIC2 02170AU1D SBR AU1C&6,INPUT&73 KWIC2 02180AU1C BCE AU2,0, SEARCH FOR NONBLANK CHAR KWIC2 02190 SBR TEMP KWIC2 02200 B AU3 FOUND NONBLANK CHAR KWIC2 02210AU2 SW AU1C&6-2 KWIC2 02220 S @1@,AU1C&6 KWIC2 02230 MZ @ @,AU1C&6 KWIC2 02240 CW AU1C&6-2 KWIC2 02250 B AU1C KWIC2 02260AU3 C CCAU3,TEMP KWIC2 02270 BH AU4 3 AUTHORS ON THIS CARD KWIC2 02280 C CCAU2,TEMP KWIC2 02290 BH AU5 2 AUTHORS ON THIS CARD KWIC2 02300 B AU6 1 AUTHOR ON THIS CARD KWIC2 02310AU4 MCW INPUT&71,BEGOUT&17 KWIC2 02320 B WRAUT KWIC2 02330 MCW BLK18,OUTPUT&31 KWIC2 02340AU5 MCW INPUT&51,BEGOUT&17 KWIC2 02350 B WRAUT KWIC2 02360 MCW BLK18,OUTPUT&31 KWIC2 02370AU6 MCW INPUT&31,BEGOUT&17 KWIC2 02380 B WRAUT WRITE AUTHOR TAPE KWIC2 02390 MCW BLK18,OUTPUT&31 KWIC2 02400BP4D A C11,LINCT KWIC2 02410 C CLINE,LINCT KWIC2 02420 BL BP2 KWIC2 02430 CC 1 KWIC2 02440 SBR LINCT,0 KWIC2 02450BP5 NOP BP2 KWIC2 02460 MCW @B@,BP5 KWIC2 02470 BCE BP6,CPAGE,2 KWIC2 02480 B BP2 KWIC2 02490BP6 CC L KWIC2 02500 CC L KWIC2 02510 CC L KWIC2 02520 CC J KWIC2 02530 A C210,LINCT KWIC2 02540 B BP2 KWIC2 02550* KWIC2 02560*THIS ROUTINE WRITES THE AUTHOR AND KEY WORD TAPES KWIC2 02570* KWIC2 02580WRAUT SBR WRX1&3 SAVE RETURN ADDRESS AND SET KWIC2 02590WR1A MCW C11,WRT1 KWIC2 02600WR2 WT 4,OUTPUT KWIC2 02610 BER WR6A TAPE ERROR KWIC2 02620 BEF WR7A END OF REEL KWIC2 02630WRX1 B 0 RETURN KWIC2 02640WR6A BSP 4 KWIC2 02650 BCE WR8,WRT1,3 BRANCH IF THIRD BAD WRITE KWIC2 02660 A C11,WRT1 ADD TO BAD COUNTER KWIC2 02670 B WR2 GO TO TRY WRITE AGAIN KWIC2 02680WR8 SKP 4 KWIC2 02690 B WR1A GO TRY TO WRITE AGAIN KWIC2 02700WR7A WTM 4 KWIC2 02710WR5 RWU 4 KWIC2 02720 CS 180 KWIC2 02730 MCW @05MOUNT BLANK TAPE ON 4. START.@,131 KWIC2 02740 P KWIC2 02750 CS 180 KWIC2 02760 P KWIC2 02770 SS 4 KWIC2 02780 H KWIC2 02790 B TL9 WRITE AUTHOR TAPE LABEL KWIC2 02800 B WRX1 KWIC2 02810* KWIC2 02820*WRITE AUTHOR LABEL KWIC2 02830* KWIC2 02840TL9 SBR TL11&3 AUTHOR TAPE LABEL KWIC2 02850 MCW @AUTHORTAPE@,WRLBL&29 KWIC2 02855 RWD 4 KWIC2 02860TL10 WT 4,WRLBL KWIC2 02870 BER TL12 KWIC2 02880TL11 B 0 KWIC2 02890TL12 BSP 4 KWIC2 02900 SKP 4 KWIC2 02910 B TL10 KWIC2 02920WRLBL DCW @1@ KWIC2 02930 DC @HDR@ KWIC2 02940 DA 1X76,G KWIC2 02950CMNT1 DCW @06ERROR READING INPUT.BLANK LINE IF CONTINUE.@ KWIC2 02960CMNT2 DCW @07MOUNT NXT REEL OR SSW F ON IF NO MORE INPUT@ KWIC2 02970DASH DCW @-@ KWIC2 02980C20 DCW 00 KWIC2 02990LINCT DCW 000 KWIC2 03000CPAGE DCW 000 KWIC2 03010CLINE DCW 000 KWIC2 03020INLBL DA 1X30,G KWIC2 03030WRT1 DCW 1 KWIC2 03040C11 DCW 1 KWIC2 03050ERRCT DCW 00 KWIC2 03060C210 DCW 10 KWIC2 03070REF2 DCW #11 KWIC2 03080C3I9I DCW @I9I@ KWIC2 03090TEMP DCW 000 KWIC2 03100BLK1 DA 1X18 KWIC2 03110BLK18 18 KWIC2 03120OUTPUT DA 1X33,G KWIC2 03130BEGOUT 15,15 KWIC2 03140CCAU1 DCW INPUT&13 KWIC2 03150CCAU2 DCW INPUT&33 KWIC2 03160CCAU3 DCW INPUT&53 KWIC2 03170SIGN DCW @SSW @ KWIC2 03180 END START KWIC2 00000 JOB 1401 KWIC- AUTHOR PRINT PASS KWIC3 00010 CTL 431 KWIC3 00020* KWIC3 00030*THIS ROUTINE PRINTS THE BIBL/ABSTRACT TAPE KWIC3 00040* KWIC3 00050 ORG 87 KWIC3 00060X1 DCW 000 KWIC3 00070 ORG 92 KWIC3 00080X2 DCW 000 KWIC3 00090 ORG 97 KWIC3 00100X3 DCW 079 KWIC3 00110 ORG 201 KWIC3 00120 DA 1X1 KWIC3 00130 ORG 500 KWIC3 00140INPUT DA 1X34 KWIC3 00150NAME 1,6 KWIC3 00160DATE 7,8 KWIC3 00170IDIOT 9,11 KWIC3 00180REF12 33,33 KWIC3 00190* KWIC3 00200*THIS ROUTINE PRINTS THE AUTHOR TAPE KWIC3 00210* KWIC3 00220START RWD 4 KWIC3 00230 CC 1 KWIC3 00240 CS 299 KWIC3 00250 MCW @KWIC3 ON@,228 KWIC3 00260 W KWIC3 00270 CC L KWIC3 00280 CC L KWIC3 00290 CC L KWIC3 00300AU R KWIC3 00310 C 3,@***@ KWIC3 00320 BE AUB BR. IF CONTROL CARD KWIC3 00330AUA CS 299 KWIC3 00340 MCW @CONTROL CARD ERROR@,238 KWIC3 00350 W KWIC3 00360 CC L KWIC3 00370 CC L KWIC3 00380 CC L KWIC3 00390 H AU KWIC3 00400AUB MN 4,CPAGE KWIC3 00410 MN 4,AUB1&7 KWIC3 00420AUB1 BCE AUC,PG,0 KWIC3 00430 CHAIN6 KWIC3 00440 B AUA KWIC3 00450AUC MCW 7,CLINE KWIC3 00460 BCE AUC5,8, BR) IF PRINT IN POS 1 KWIC3 00470 MCW @N@,AU9 KWIC3 00480AUC5 BSS AUC9,D PRINT SENSE SWITCHES AND CTL CRD KWIC3 00490AUC7 CS 299 KWIC3 00500 MCW SIGN,225 KWIC3 00510 SW 1 KWIC3 00520 MCW 8,240 KWIC3 00530 W KWIC3 00540 CC L KWIC3 00550 CC L KWIC3 00560 CC L KWIC3 00570 B AUD CHECK INPUT LABEL KWIC3 00580 B AUTH KWIC3 00590AUC9 MCW @D@,SIGN KWIC3 00600 MCW @B@,AU6A KWIC3 00610 MCW @B@,AU11B KWIC3 00620 B AUC7 KWIC3 00630*THIS ROUTINE CHECKS INPUT LABEL KWIC3 00640AUD SBR AUG&3 KWIC3 00650AUE MCW C10,CTR KWIC3 00660AUF RT 4,LBLIN KWIC3 00670 BER AUH KWIC3 00680 C LBLIN&29,@AUTHORTAPE@ KWIC3 00690AUG BE 0 KWIC3 00700 CS 180 KWIC3 00710 MCW @08INPUT TAPE LABEL ERROR@,124 KWIC3 00720 P KWIC3 00730 CS 180 KWIC3 00740 P KWIC3 00750 SS 4 KWIC3 00760 H AUE KWIC3 00770AUH A C11,CTR KWIC3 00780 BSP 4 KWIC3 00790 BCE AUJ,CTR,0 KWIC3 00800 B AUF KWIC3 00810AUJ CS 180 KWIC3 00820 MCW @09ERROR READING TAPE LABEL@,126 KWIC3 00830 P KWIC3 00840 CS 180 KWIC3 00850 P KWIC3 00860 SS 4 KWIC3 00870 H AUE KWIC3 00880AUTH SBR LINCT,1 KWIC3 00890 SBR PGCNT,1 KWIC3 00900 CC 1 KWIC3 00910 SW INPUT&14 KWIC3 00920 CS 299 KWIC3 00930AU1 B RDAUT READ AUTHOR TAPE KWIC3 00940 B AU2 ERROR KWIC3 00950 B AU1A E OF KWIC3 00960 B AU3 KWIC3 00970AU1A RWD 4 KWIC3 00980 CS 180 KWIC3 00990 MCW @15MOUNT NXT AUTHOR TAPE OR SSW F ON IF NONE@,143 KWIC3 01000 P KWIC3 01010 CS 180 KWIC3 01020 P KWIC3 01030 SS 4 KWIC3 01040 H KWIC3 01050 BSS AU1C,F KWIC3 01060 B AUD CHECK INPUT TAPE LABEL KWIC3 01070 B AU1 KWIC3 01080AU1C CS 299 KWIC3 01090 CC 1 KWIC3 01100 MCW @END KWIC3@,229 KWIC3 01110 W KWIC3 01120 CC L KWIC3 01130 CC L KWIC3 01140 CC L KWIC3 01150 H *-3 KWIC3 01160AU2 CS 180 KWIC3 01170 MCW @16CONTINUE WILL INSERT BLANK LINE FOR BAD REC.@,146 KWIC3 01180 P KWIC3 01190 CS 180 KWIC3 01200 P KWIC3 01210 SS 4 KWIC3 01220 H KWIC3 01230 CS 299 KWIC3 01240 B AU8 KWIC3 01250AU3 MCW &INPUT&31,AU4&6 KWIC3 01260AU4 BCE AU5,0, LOOK FOR END OF AUTHOR NAME KWIC3 01270 SBR ENDAU SAVE END ADDRESS-1 KWIC3 01280 B AU6 KWIC3 01290AU5 SW AU4&6-2 KWIC3 01300 S @1@,AU4&6 KWIC3 01310 MZ @ @,AU4&6 KWIC3 01320 CW AU4&6-2 KWIC3 01330 B AU4 KWIC3 01340AU6 C INPUT&31,PREVAU IS AUTHOR SAME AS PREVIOUS KWIC3 01350 BE AU6A BRANCH IF YES KWIC3 01360 MCW INPUT&31,PREVAU SAVE NEW AUTHOR NAME KWIC3 01370 MCW INPUT&31,218 MOVE NAME TO PRINT AREA KWIC3 01380 C &INPUT&26,ENDAU IS NAME GRTR THAN 14 CHARS KWIC3 01390 BH AU7 BRANCH IF YES KWIC3 01400AU6A NOP AU6B BR. IF REFNO IN INPUT KWIC3 01410 MZ DASH,222 KWIC3 01420 MZ DASH,225 KWIC3 01430 MCW NAME,221 KWIC3 01440 MCW DATE,224 KWIC3 01450 MCW IDIOT,228 KWIC3 01460 B AU8 KWIC3 01470AU6B MCW NAME,221 KWIC3 01480 MCW DATE,223 KWIC3 01490 MCW IDIOT,226 KWIC3 01500 MCW REF12,227 KWIC3 01510 B AU8 KWIC3 01520AU7 MCW C11,SW4 SINGLE ENTRY SWITCH KWIC3 01530AU8 C CPAGE,PGCNT DOES PAGE COUNT EQU MAX KWIC3 01540 BH AU9 BRANCH IF YES KWIC3 01550 C LINCT,C31 DOES LINE COUNT # 1 ? KWIC3 01560 BE AU8A BRANCH IF YES KWIC3 01570 B AU9 KWIC3 01580AU8A CC L SKIP 10 SPACES KWIC3 01590 CC L KWIC3 01600 CC L KWIC3 01610 CC J KWIC3 01620 MCW C311,LINCT SET LINE COUNT TO 11 KWIC3 01630AU9 B AU9M KWIC3 01640 SW 201 KWIC3 01650 MCW 228,248 KWIC3 01660 CS 220 KWIC3 01670AU9M W KWIC3 01680 CS 299 KWIC3 01690 C LINCT,CLINE DOES LINE COUNT EQU MAX KWIC3 01700 BE AU10 BRANCH IF YES KWIC3 01710 A C11,LINCT KWIC3 01720 B AU11 KWIC3 01730AU10 CC 1 EJECT FORM KWIC3 01740 MCW C31,LINCT SET LINE COUNT TO ONE KWIC3 01750 A C11,PGCNT ADD 1 TO PAGE COUNT KWIC3 01760AU11 BCE AU11A,SW4,1 BRANCH IF DOUBLE LINE AUTHOR KWIC3 01770 B AU1 KWIC3 01780AU11A MCW BLK1,SW4 KWIC3 01790AU11B NOP AU6B BR. IF REFNO IN INPUT KWIC3 01800 MZ DASH,222 MOVE REFNO TO PRINT AREA KWIC3 01810 MZ DASH,225 KWIC3 01820 MCW NAME,221 KWIC3 01830 MCW DATE,224 KWIC3 01840 MCW IDIOT,228 KWIC3 01850 B AU8 KWIC3 01860* KWIC3 01870*THIS ROUTINE READS THE AUTHOR TAPE KWIC3 01880* KWIC3 01890RDAUT SBR RDXIT&3 SET UP FOR RETURN KWIC3 01900 MCW C10,CTR RESET ERROR COUNTER KWIC3 01910RD5 RT 4,INPUT KWIC3 01920 BER RD4 BRANCH IF TAPE ERROR KWIC3 01930 BEF RDXIT1 BRANCH IF END OF REEL KWIC3 01940 MA C38,RDXIT&3 KWIC3 01950RDXIT B 0 RETURN KWIC3 01960RD4 A C11,CTR KWIC3 01970 BCE RD7,CTR,0 BRANCH IF CTR#10 KWIC3 01980 BSP 4 KWIC3 01990 B RD5 GO TRY TO READ RECORD AGAIN KWIC3 02000RD7 CS 180 KWIC3 02010 MCW CMNT1,150 PUNCH ERROR COMMENT KWIC3 02020 P KWIC3 02030 MCW INPUT&79,180 PUNCH BAD RECORD KWIC3 02040 P KWIC3 02050 B RDXIT KWIC3 02060RDXIT1 MA C34,RDXIT&3 KWIC3 02070 B RDXIT KWIC3 02080CMNT1 DCW @97TAPE ERROR ON 004.FOLLOWING RECRD NOT PROCESSED.@ KWIC3 02090DASH DCW @-@ KWIC3 02100CPAGE DCW 000 KWIC3 02110CLINE DCW 000 KWIC3 02120LBLIN DA 1X30,G KWIC3 02130C38 DCW 008 KWIC3 02140CTR DCW 00 TAPE ERROR COOUNTER KWIC3 02150ENDAU DCW 000 L.O. POS-1 OF AUTHOR NAME KWIC3 02160 DA 1X17 NAME OF PREVIOUS AUTHOR KWIC3 02170PREVAU DC 0 KWIC3 02180C11 DCW 1 KWIC3 02190C31 DCW 001 KWIC3 02200C311 DCW 011 KWIC3 02210BLK1 DCW @ @ KWIC3 02220BLK2 EQU BLK10-8 KWIC3 02230BLK10 DCW @ @ KWIC3 02240SW4 DCW 0 SINGLE LINE ENTRY KWIC3 02250C10 DCW 0 KWIC3 02260LINCT DCW 000 LINE COUNT KWIC3 02270PGCNT DCW 000 KWIC3 02280C34 DCW 004 KWIC3 02290C3I9I DCW @I9I@ KWIC3 02300SIGN DCW @SSW @ KWIC3 02310PG DCW @ 012345@ KWIC3 02320 END START KWIC3 JOB KWIC4- KEYWORD TAPE GENERATION KWIC4 0102 CTL 331 1 KWIC4 0103 ORG 81 KWIC4 0104 DA 1X2 12TH CHAR OF REFNO KWIC4 0105 DCW @}@ GMWM KWIC4 0106 ORG 87 KWIC4 0107 X1 DCW 000 KWIC4 0108 ORG 92 KWIC4 0109 X2 DCW 000 KWIC4 0110 ORG 97 KWIC4 0111 X3 DCW 000 KWIC4 0112 ORG 101 0113 NKWGUY DC 1 KWIC4 0114 C333 DCW 033 KWIC4 0115 LENDTI DCW 000 ADDRESS OF L.O. POS OF ITEM KWIC4 0116 CDCNT DCW 00000 CARD COUNT KWIC4 0117 C10 EQU *&1 KWIC4 0118 C20 EQU *&2 KWIC4 0119 C30 DCW 000 KWIC4 0120 LBEGKW DCW 000 ADDRESS OF H.O. POS OF KW KWIC4 0121 LENDKW DCW 000 ADRESS OF L.O. POS OF KW KWIC4 0122 LGKW DCW 000 NO. CHARS IN KW KWIC4 0123 L1 DCW 000 LENGTH OF ITEM TO LEFT OF KW KWIC4 0124 L2 DCW 000 LENGTH-1 OF ITEM TO RIGHT OF KW KWIC4 0125 KWT8 DCW 000 LGKW-1 KWIC4 0126 C3I9I DCW @I9I@ KWIC4 0127 SIGN DCW @SSW @ KWIC4 0128 C13 DCW 3 KWIC4 0129 TEMP1 DCW 000 KWIC4 0130 C34 DCW 004 KWIC4 0131 C36 DCW 006 KWIC4 0132 BEGKW DCW 000 0133 BLK1 DCW #1 KWIC4 0134 BLK18 DC #17 0135 BLK36 DC #18 0136 PRINT EQU 280 KWIC4 0137 INPUT EQU 7 KWIC4 0138 CDTYP EQU 18 KWIC4 0139 REF12 EQU 81 KWIC4 0140 ORG 333 KWIC4 0141 GMWM DCW @}@ KWIC4 0142 ENDSW DCW 0 END OF ITEM INDICATOR KWIC4 0143 C11 DCW 1 KWIC4 0144 TEMP DCW 000 KWIC4 0145 C32 DCW 002 KWIC4 0146 C31 DCW 001 KWIC4 0147 C14 DCW 4 KWIC4 0148 PLUS DCW @&@ KWIC4 0149 ZON12 EQU PLUS KWIC4 0150 NOFRNT DCW 000 NO. EMPTY POS. IN FRONT OF ENTRY KWIC4 0151 KWREC DCW 00 KWTP KWIC4 0152 C323 DCW 023 KWIC4 0153 L5 DCW 000 NO. XTRA CHARS AT END OF ENTRY KWIC4 0154 ORG 380 KWIC4 0155 WRAREA DA 1X83 KWIC4 0156 OUTPUT 7,7 KWIC4 0157 BEGOUT 21 KWIC4 0158 BEGKW1 45 KWIC4 0159 ENDOUT 80 KWIC4 0160 83,83 KWIC4 0161 DCW @}@ KWIC4 0162 ORG 499 KWIC4 0163 DCW 0 KWIC4 0164 BEGTI DCW 0 KWIC4 0165 ORG 1001 KWIC4 0166 *THIS IS A TABLE OF CHARACTERS WHICH CAN BE PRESENT IN A KEYWORD. KWIC4 0167 *FOR EACH ADDITIONAL CHARACTER ADDED, ADD 1 TO THE OPERAND OF THE KWIC4 0168 *CHAIN MACRO AT KW10 AND KW13. KWIC4 01685 DC @AAA@ KWIC4 0169 DCW @-@ KWIC4 0170 DC @0123456789@ KWIC4 0171 DC @Z@ KWIC4 0172 DC @Y@ KWIC4 0173 DC @X@ KWIC4 0174 DC @W@ KWIC4 0175 DC @V@ KWIC4 0176 DC @U@ KWIC4 0177 DC @T@ KWIC4 0178 DC @S@ KWIC4 0179 DC @R@ KWIC4 0180 DC @Q@ KWIC4 0181 DC @P@ KWIC4 0182 DC @O@ KWIC4 0183 N DC @N@ KWIC4 0184 DC @M@ KWIC4 0185 DC @L@ KWIC4 0186 DC @K@ KWIC4 0187 ZON11 DC @J@ KWIC4 0188 DC @I@ KWIC4 0189 DC @H@ KWIC4 0190 DC @G@ KWIC4 0191 F DC @F@ KWIC4 0192 E DCW @E@ KWIC4 0193 D DCW @D@ KWIC4 0194 C DCW @C@ KWIC4 0195 B DCW @B@ KWIC4 0196 STDCH DC @A@ KWIC4 0197 * KWIC4 0198 *INPUT TAPE LABEL CHECKING KWIC4 0199 * KWIC4 0200 TL1 SBR TL4&3 KWIC4 0201 TL2 MCW C10,CTR5#1 KWIC4 0202 TL3 RT 2,INPUT KWIC4 0203 BER TL5 KWIC4 0204 C INPUT&29,@BIBLIOGRAP@ KWIC4 0205 TL4 BE 0 KWIC4 0206 B TL6 KWIC4 0207 TL5 A C11,CTR5 KWIC4 0208 BSP 2 KWIC4 0209 BCE TL6,CTR5,0 KWIC4 0210 B TL3 KWIC4 0211 TL6 CS 299 KWIC4 0212 MCW @INPUT TAPE LABEL ERROR@,242 KWIC4 0213 W KWIC4 0214 CC L KWIC4 0215 CC L KWIC4 0216 CC L KWIC4 0217 H TL2 KWIC4 0218 * KWIC4 0219 *OUTPUT TAPE LABEL WRITING KWIC4 0220 * KWIC4 0221 TL7 SBR TL10&3 KEYWORD TAPE LABEL KWIC4 0222 RWD 3 KWIC4 0223 TL7A MCW C10,CTR5 KWIC4 0224 TL8 WT 3,WRLBL KWIC4 0225 TL9 BER TL11 KWIC4 0226 TL10 B 0 KWIC4 0227 TL11 BSP 3 KWIC4 0228 A C11,CTR5 KWIC4 0229 BCE TL12,CTR5,3 KWIC4 0230 B TL8 KWIC4 0231 TL12 SKP 3 KWIC4 0232 B TL7A KWIC4 0233 WRLBL DCW @1@ KWIC4 0234 DC @HDR@ KWIC4 0235 DC #16 KWIC4 0236 DC @KEYWORDTAP@ KWIC4 0237 DA 1X50,G KWIC4 0238 LTORG KWIC4 0239 * KWIC4 0240 * THIS ROUTINE CHECKS FOR CORRECT SEQUENCE OF CARDS KWIC4 0241 * KWIC4 0242 ST3 B READ NXT CARD KWIC4 0243 A C11,CDCNT KWIC4 0244 B PG6 SKIP TO NXT TITLE CARD KWIC4 0245 SEQ1 B KWIC NOP IF NO KW ON TITLES KWIC4 0246 BCE END,EOFSW,1 KWIC4 0247 SEQ1A B PG6 NOP IF KW ON SUBJECTS KWIC4 0248 SEQ2 BCE SEQ3,CDTYP,4 KWIC4 0249 B READ KWIC4 0250 B SEQ2 KWIC4 0251 SEQ3 B KWIC GO KW SUBJECTS KWIC4 0252 BCE END,EOFSW,1 BR. IF EOF ON INPUT KWIC4 0253 B PG6 SKIP TO NXT TITLE CARD KWIC4 0254 SEQ4 MCW C20,KWREC KWIC4 0255 B SEQ1 KWIC4 0256 * KWIC4 0257 *SETUP ROUTINE KWIC4 0258 * KWIC4 0259 SU1 RWD 2 KWIC4 0260 RWD 3 KWIC4 0261 CC 1 KWIC4 0262 CS 299 KWIC4 0263 MCW @KWIC4 ON@,228 KWIC4 0264 W KWIC4 0265 CC L KWIC4 0266 CC L KWIC4 0267 CC L KWIC4 0268 BSS SU3,B NO KW ON TITLES KWIC4 0269 SU2 BSS SU4,C KW ON SUBJECTS KWIC4 0270 B SU5 KWIC4 0271 SU3 MCW N,SEQ1 KWIC4 0272 MCW B,SIGN-3 KWIC4 0273 B SU2 KWIC4 0274 SU4 MCW N,SEQ1A KWIC4 0275 MCW C,SIGN-2 KWIC4 0276 SU5 BSS SU6,D BR. NO NUMERIC KW KWIC4 0277 B SU7 KWIC4 0278 SU6 SW NKWGUY KWIC4 0279 MCW D,SIGN-1 KWIC4 0280 SU7 BSS SU8,E KWIC4 0281 B SU9 KWIC4 0282 SU8 MCW E,SIGN KWIC4 0283 SU9 CS 299 KWIC4 0284 MCW SIGN,228 KWIC4 0285 W KWIC4 0286 CC L KWIC4 0287 CC L KWIC4 0288 CC L KWIC4 0289 B TL1 CHECK INPUT LABEL KWIC4 0290 B TL7 WRITE OUTPUT LABEL KWIC4 0291 OVLAY KWIC4 0292 LTORG KWIC4 0293 EX SU1 KWIC4 0294 ORG SU1 KWIC4 0295 QKWOC BSS SU11,E TEST FOR KWOC OPTION KWIC4 0296 BSS SU11,E KWIC4 0297 CS 80 0298 SU10 BLC ST3 KWIC4 0299 R SU10 KWIC4 0300 SU11 OVLAY KWIC4 0301 * KWIC4 0302 *THIS ROUTINE ASSEMBLES THE TITLE OR SUBJECT OT BE KEY WORDED KWIC4 0303 * KWIC4 0304 KWIC SBR KWXIT&3 KWIC4 0305 MCW C11,KWSW KWIC4 0306 KWICA LCA GMWM,WRAREA&80 0307 MN CDTYP,KW5&7 SET TYP OF CARD TO BE KEYWORDED KWIC4 0308 MZ CDTYP,KW5&7 KWIC4 0309 MCW &BEGTI-1,LENDTI RESET ADDR OF END OF TITLE KWIC4 0310 SBR KW1&3,WRAREA&20 SET UP FOR FIRST CARD KWIC4 0311 SBR KW1A&3,WRAREA&20 KWIC4 0312 SBR KW2A&3,C32 KWIC4 0313 MCW N,KW3C KWIC4 0314 KW1 CW WRAREA&20 KWIC4 0315 MCW INPUT&73,WRAREA&79 KWIC4 0316 KW1B MCW 81,WRAREA&82 0317 KW1A SW WRAREA&20 KWIC4 0318 MCW &WRAREA&79,KW2&6 H.O. POSITION OF FIELD KWIC4 0319 KW2 BCE KW4,0, BRANCH IF CHAR IS A BLANK KWIC4 0320 SBR TEMP SAVE POS.-1 OF NON BLANK KWIC4 0321 SBR KW3&3 KWIC4 0322 S &BEGOUT,TEMP LENGTH-2 OF NONBLANK FIELD KWIC4 0323 MZ @ @,TEMP KWIC4 0324 A TEMP,LENDTI L.O. POS-2 OF NEW END OF ITEM KWIC4 0325 KW2A A C32,LENDTI L.O. POS OF NEW END OF ITEM KWIC4 0326 MCW LENDTI,KW3&6 SET MOVE-TO LOC KWIC4 0327 SW KW3&3-2 KWIC4 0328 A C31,KW3&3 KWIC4 0329 CW KW3&3-2 KWIC4 0330 BCE KW5E,KW3&4, KWIC4 03305 C KW3&6,@997@ 03306 BL KW5E 0331 KW3 MCW 0,0 ADD TO ITEM TO BE KEYWORDED KWIC4 0332 KW3C NOP KW3D SET UP FOR NONFIRST CARDS KWIC4 0333 SBR KW1&3,WRAREA&21 KWIC4 0334 SBR KW1A&3,WRAREA&21 KWIC4 0335 SBR KW2A&3,C31 KWIC4 0336 CW WRAREA&20 KWIC4 0337 MCW B,KW3C KWIC4 0338 KW3D B READ NXT CARD KWIC4 0339 A C11,CDCNT ADD TO CARD COUNT KWIC4 0340 KW5 BCE KW5A,CDTYP,0 KWIC4 0341 KW5C CW WRAREA&21 KWIC4 0342 SW WRAREA&20 KWIC4 0343 KW5D MCW B,KW29C KWIC4 0344 B KW6 GO PERFORM KEYWORDING KWIC4 0345 KW5A C INPUT&10,COMP#11 KWIC4 0346 BE KW5B KWIC4 0347 B KW5C KWIC4 0348 KW5B C REF12,CREF12#1 KWIC4 0349 BE KW1 KWIC4 0350 B KW5C KWIC4 0351 KW4 SW KW2&6-2 KWIC4 0352 S C31,KW2&6 KWIC4 0353 MZ @ @,KW2&6 KWIC4 0354 CW KW2&6-2 KWIC4 0355 C KW2&6,&BEGOUT-1 PRESENT ADDR TO H.O. POS OF FIELD KWIC4 0356 BL KW2 BRANCH IF NOT FINISHED THIS CARD KWIC4 0357 B KW3C KWIC4 0358 KW5E CS 299 KWIC4 0359 MCW @TITLE TO LONG@,233 KWIC4 0360 W KWIC4 0361 CS 299 KWIC4 0362 MCW OUTPUT&10,231 KWIC4 0363 MCW CDCNT,240 KWIC4 0364 W KWIC4 0365 CC L KWIC4 0366 CC L KWIC4 0367 CC L KWIC4 0368 KW5J B KW11 0369 * KWIC4 0370 *THIS ROUTINE LOCATES THE KEY WORD IN THE TITLE OR SUBJECT%ITEM) KWIC4 0371 * KWIC4 0372 KW6 MCW LENDTI,KW6A&6 KWIC4 0373 MCW BLK1,ENDSW CLEAR END OF ITEM INDICATOR KWIC4 0374 SW KW6A&6-2 KWIC4 0375 A C31,KW6A&6 KWIC4 0376 CW KW6A&6-2 KWIC4 0377 KW6A MCW GMWM,0 KWIC4 0378 SBR X1,0 KWIC4 0379 KW9 CW BEGTI-2 KWIC4 0380 SW BEGTI KWIC4 0381 BCE KW11,ENDSW,1 KWIC4 0382 KW9A MN BEGTI&X1,KW10&7 LOOK FOR BEGINNING OF KW KWIC4 0383 MZ BEGTI&X1,KW10&7 ]STANDARD CHAR[ KWIC4 0384 KW10 BCE KW12,STDCH,0 BRANCH IF STANDARD CHAR KWIC4 03850 CHAIN39 KWIC4 0386 BCE KW11,BEGTI&X1,} BRANCH IF END OF ITEM KWIC4 0387 SBR X1,1&X1 KWIC4 0388 B KW9A KWIC4 0389 KW11 CW WRAREA&20 KWIC4 0390 MCW C10,KWSW KWIC4 0391 KWXIT B 0 KWIC4 0392 KW12 SBR LBEGKW,BEGTI&X1 SAVE H.O. POS OF KW KWIC4 0393 SW BEGTI&X1 KWIC4 0394 SBR KW9&3,BEGTI&X1 KWIC4 0395 SBR KW43A&3,BEGTI&X1 KWIC4 0396 SBR X1,1&X1 KWIC4 0397 KW12A MN BEGTI&X1,KW13&7 LOOK FOR END OF KEY WORD]NON KWIC4 0398 MZ BEGTI&X1,KW13&7 STANDARD CHAR[ KWIC4 0399 KW13 BCE KW14,STDCH,0 KWIC4 04000 CHAIN39 KWIC4 0401 BCE KW15,BEGTI&X1,} BRANCH IF END OF ITEM KWIC4 0402 B KW16 KWIC4 0403 KW14 SBR X1,1&X1 KWIC4 0404 B KW12A KWIC4 0405 KW15 MCW C11,ENDSW SET END OF ITEM INDICATOR KWIC4 0406 KW16 SBR LENDKW,BEGTI-1&X1 KWIC4 0407 SBR X1,1&X1 KWIC4 0408 ZA LENDKW,LGKW KWIC4 0409 S LBEGKW,LGKW KWIC4 0410 MZ C30,LGKW KWIC4 0411 A C11,LGKW LENGTH OF KEY WORD KWIC4 0412 C LGKW,@37@ KWIC4 0413 BH *&8 KWIC4 0414 MCW @36@,LGKW KWIC4 0415 ZA LBEGKW,L1 KWIC4 0416 S &BEGTI,L1 LENGTH OF TITLE TO LEFT OF KW KWIC4 0417 MZ C30,L1 KWIC4 0418 ZA LENDTI,L2 KWIC4 0419 S LBEGKW,L2 LENGTH-1 OF TITLE TO RIGHT OF KW KWIC4 0420 MZ C30,L2 KWIC4 0421 * KWIC4 0422 *THIS ROUTINE CHECKS THE KEY WORD AGAINST THE STOP WORD LIST KWIC4 0423 * KWIC4 0424 KW20 SBR X2,0 KWIC4 0425 MCW &NOCH,KW21&6 L.O. ADR OF TABL OF STP WD LNGTHS KWIC4 0426 KW21 C LGKW,0 COMPARE LGTH STOP WDS # LGTH KW KWIC4 0427 SBR KW21&6 FOR NXT COMPARE KWIC4 0428 SBR KW22&6 FOR END OF TABLE TEST KWIC4 0429 BE KW23 BRANCH IF NO. CHARS IS SAME KWIC4 0430 KW22 BCE KW29,0,} BRANCH IF NO. CHARS IN KW NOT# KWIC4 0431 * NO. CHARS IN ANY STOP WD KWIC4 0432 SBR X2,3&X2 KWIC4 0433 B KW21 GO CHECK NXT TABL ENTRY KWIC4 0434 KW23 MCW SWADR&X2,KW24&6 SET STOP WORD LIST BASE ADDR KWIC4 0435 KW24 C BEGTI-2&X1,0 COMPARE STOP WD WITH KEY WD KWIC4 0436 SBR KW24&6 FOR NXT COMPARE KWIC4 0437 SBR KW25&6 FOR END OF STOP WD TABLE TEST KWIC4 0438 BU KW25 BR. IF KW NOT EQU STOP WD KWIC4 0439 KW24D MCW N,KW29C 0440 *SIGNIFICANT ONLY WHEN 1ST WD OF A TITLE IS A STOP WORD KWIC4 0441 B KW9 KWIC4 0442 KW25 BCE KW29,0,} BR. IF NO MATCH ON ANY STOP WORD KWIC4 0443 B KW24 GO COMPARE AGAINST NXT STOP WD KWIC4 0444 * KWIC4 0445 *THIS ROUTINES ASSEMBLES AND WRITES THE KEY WORD ENTRIES KWIC4 0446 * KWIC4 0447 KW29 CS WRAREA&80 KWIC4 0448 MCW LBEGKW,X3 KWIC4 0449 S C31,X3 KWIC4 0450 MZ @ @,X3 KWIC4 0451 BCE KW29A,0&X3, BRANCH IF H.O. POS-1 OF KW BLANK KWIC4 0452 B KW29B KWIC4 0453 KW29A S C31,X3 KWIC4 0454 MZ @ @,X3 KWIC4 0455 S C31,L1 KWIC4 0456 MZ @ @,L1 KWIC4 0457 KW29B SBR KW30&3,0&X3 KWIC4 0458 SBR X3,35 KWIC4 0459 MCW L2,X2 LGTH-1 OF ENTRY TO RIGHT OF KW KWIC4 0460 MZ ZON11,LBEGKW-1 KWIC4 0461 MCW LBEGKW,KW31&3 KWIC4 0462 MCW LBEGKW,KW32A&3 KWIC4 0463 MZ ZON12,LBEGKW-1 KWIC4 0464 MCW LBEGKW,KW34&3 KWIC4 0465 MCW LBEGKW,KW34A&3 KWIC4 0466 MZ C30,LBEGKW-1 KWIC4 0467 SW BEGOUT KWIC4 0468 KW29C B KW31B BRANCH ON 1ST KW. NOP ON OTHERS. KWIC4 0469 KW30 MCW 0,BEGKW1-2 LGTH L1 TO LGTH L3 KWIC4 0470 *THIS MOVE STOPPED BY W/M AT BEGOUT OR BEGTI KWIC4 0471 SAR KW38&3 KWIC4 0472 SBR KW30B&6 KWIC4 0473 KW30B BCE KW30C,0, BRANCH IF 1ST WD COMPLETE KWIC4 0474 MCW C11,SW1 1ST WD OF ENTRY IS A FRAGMENT KWIC4 0475 KW30C C C323,L1 KWIC4 0476 BH KW32 BRANCH IF L1 GRTR 23 KWIC4 0477 KW30A C C335,L2 KWIC4 0478 BH KW34A BRANCH IF L2 GREATER 35 AND L1 KWIC4 0479 * LESS OR EQUAL 23 KWIC4 0480 KW31 MCW 0&X2,BEGKW1&X2 LGTH L2 TO LGTH L4 KWIC4 0481 KW31A SW LGKW-1 MOVE LGTH OF KW TO OUTPUT AREA KWIC4 0482 MCW LGKW,WRAREA&81 KWIC4 0483 CW LGKW-1 KWIC4 0484 BWZ KW31E,BEGKW1,2 BR. NUMERIC KW KWIC4 0485 KW31C LCA GMWM,WRAREA&83 KWIC4 0486 B WRKWIC WRITE KWIC ENTRY KWIC4 0487 LCA GMWM,WRAREA&80 KWIC4 0488 A C11,KWREC UPDATE RECORD COUNT ON KW TAPE KWIC4 0489 KW31D MCW BLK1,SW1 1ST WD OF ENTRY A FRAGMENT KWIC4 0490 B KW43A GO TEST FOR FINISHED THIS ITEM KWIC4 0491 KW31E BW KW31C,NKWGUY BR. IF ACCEPT NUMERIC KW KWIC4 0492 B KW31D KWIC4 0493 KW31B MCW N,KW29C KWIC4 0494 B KW30A KWIC4 0495 KW32 C C335,L2 KWIC4 0496 BH KW34 BRANCH IF L2 GREATER 35 KWIC4 0497 KW32A MCW 0&X2,BEGKW1&X2 LGTH L2 TO LGTH L4 KWIC4 0498 B KW36 L2 LESS OR EQUAL 35 AND L1 KWIC4 0499 * GREATER 23 KWIC4 0500 KW34A MCW 0&X3,ENDOUT 1ST 36 CHARS LGTH L2 TO LGTH L4 KWIC4 0501 B KW40 KWIC4 0502 KW34 MCW 0&X3,ENDOUT 1ST 36 CHARS LGTH L2 TO LGTH L4 KWIC4 0503 KW34L SW KW34&1 KWIC4 0504 MCW KW34&3,KW34B&6 KWIC4 0505 CW KW34&1 KWIC4 0506 SW KW34B&6-2 KWIC4 0507 A C31,KW34B&6 KWIC4 0508 CW KW34B&6-2 KWIC4 0509 KW34B BCE KW34G,0, BRANCH IF LAST WD COMPLETE KWIC4 0510 BCE KW34G,ENDOUT, BRANCH IF LAST CHAR A BLANK KWIC4 0511 SBR X2,0 LAST WD OF ENTRY IS A FRAGMENT KWIC4 0512 SBR KW34C&6,ENDOUT KWIC4 0513 KW34C BCE KW34D,0, FIND BEGINING OF THE FRAGMENT KWIC4 0514 SBR KW34C&6 KWIC4 0515 SBR KW34E&3 KWIC4 0516 SBR KW34F&3 KWIC4 0517 A C11,X2 KWIC4 0518 B KW34C KWIC4 0519 KW34D C C34,X2 KWIC4 0520 BH KW34G FRAGMENT IS 5 CHARS OR MORE KWIC4 0521 KW34E SW 0 KWIC4 0522 MCW BLK36,ENDOUT KWIC4 0523 KW34F CW 0 KWIC4 0524 KW34G BCE KW34H,SW1,1 BRANCH IF 1ST WD IS A FRAGMENT KWIC4 0525 B KW31A GO WRITE KW TAPE KWIC4 0526 KW34H SBR X2,0 KWIC4 0527 MCW BLK1,SW1 KWIC4 0528 KW34J BCE KW34K,BEGOUT&X2, FIND END OF FRAGMENT KWIC4 0529 A C11,X2 KWIC4 0530 B KW34J KWIC4 0531 KW34K MCW BLK36,BEGOUT&X2 KWIC4 0532 B KW31A GO WRITE KW TAPE KWIC4 0533 KW34M MCW BLK1,SW1 CLEAR IND, 1ST WD A FRAGMENT KWIC4 0534 B KW34L KWIC4 0535 KW36 C C333,L2 KWIC4 0536 BH KW31A L2 # 34 OR 35 KWIC4 0537 * L1 GRTR 23 AND L2 LESS 34 KWIC4 0538 KW37 SW BEGKW1&1&X2 L.O. POS&1 OF LCTH L2 KWIC4 0539 KW38 MCW 0,ENDOUT MOVE CHARS TO END OF KWIC ENTRY KWIC4 0540 *THIS MOVE STOPPED BY W/M AT BEGKW1&2&L2 OR BEGTI KWIC4 0541 SBR TEMP KWIC4 0542 CW BEGKW1&1&X2 KWIC4 0543 SBR KWT8,BEGKW1&1&X2 KWIC4 0544 C KWT8,TEMP DIDXTRA CHARS FIT ON END KWIC4 0545 BH KW31A BRANCH IF YESS KWIC4 0546 *REMOVE FRAGMENTS FROM RIGHT END KWIC4 0547 KW39 BCE KW39E,BEGKW1&1&X2, BRANCH IF 1ST CHAR OF WRAP KWIC4 0548 * AROUND IS BLANK KWIC4 0549 MCW X2,X3 KWIC4 0550 KW39C SBR TEMP,BEGKW1&1&X2 KWIC4 0551 C TEMP,&ENDOUT HAVE WE REACHED END OF ENTRY KWIC4 0552 BE KW39F BRANCH IF YES KWIC4 0553 BCE KW39A,BEGKW1&1&X2, BRANCH IF BLANK CHAR KWIC4 0554 SBR X2,1&X2 KWIC4 0555 B KW39C KWIC4 0556 KW39A SW BEGKW1&1&X3 KWIC4 0557 MCW BLK36,BEGKW1&1&X2 KWIC4 0558 MCW PLUS,BEGKW1&X2 KWIC4 0559 CW BEGKW1&1&X3 KWIC4 0560 B KW31A KWIC4 0561 KW39E SBR TEMP,BEGKW1&1&X2 KWIC4 0562 C TEMP,&ENDOUT KWIC4 0563 BE KW31A LAST CHAR OF WRAPAROUND EQU BLANK KWIC4 0564 MCW PLUS,BEGKW1&1&X2 KWIC4 0565 B KW31A KWIC4 0566 KW39F SW BEGKW1&1&X3 KWIC4 0567 MCW BLK36,BEGKW1&1&X2 KWIC4 0568 CW BEGKW1&1&X3 KWIC4 0569 B KW34G KWIC4 0570 KW40 C C321,L1 KWIC4 0571 BH KW34M BRANCH IF NO ROOM IN FRONT KWIC4 0572 MCW LBEGKW,TEMP KWIC4 0573 A C335,TEMP BEGKW&35 KWIC4 0574 MCW C323,NOFRNT KWIC4 0575 S L1,NOFRNT NO. EMPTY POS IN FRONT KWIC4 0576 MZ C30,NOFRNT KWIC4 0577 ZA LENDTI,L5 KWIC4 0578 S LBEGKW,L5 KWIC4 0579 S C335,L5 NO. XTRA CHARS AT END KWIC4 0580 MZ C30,L5 KWIC4 0581 C NOFRNT,L5 KWIC4 0582 BL KW41 NO. EMPTY POS IN FRONT IS GRTR KWIC4 0583 * THAN NO. EXTRA CHARS AT END KWIC4 0584 MCW TEMP,KW43&3 BEGKW&35 KWIC4 0585 MCW NOFRNT,X2 KWIC4 0586 MZ ZON11,KW43&2 KWIC4 0587 KW43 MCW 0&X2,BEGOUT-1&X2 MOVE XTRA CHARS TO FRONT OF ENTRY KWIC4 0588 BCE KW43G,BEGOUT-1&X2, KWIC4 0589 SBR KW43D&6,BEGOUT-1&X2 KWIC4 0590 SBR KW43E&6,BEGOUT-1&X2 KWIC4 0591 SBR TEMP1,BEGOUT-1&X2 KWIC4 0592 KW43F SBR TEMP,BEGOUT-1&X2 KWIC4 0593 C TEMP,&BEGOUT KWIC4 0594 BE KW43B KWIC4 0595 BCE KW43B,BEGOUT-1&X2, KWIC4 0596 S C31,X2 KWIC4 0597 MZ @ @,X2 KWIC4 0598 B KW43F KWIC4 0599 KW43B S TEMP,TEMP1 KWIC4 0600 MZ BLK1,TEMP1 KWIC4 0601 C C34,TEMP1 KWIC4 0602 BH KW43E KWIC4 0603 KW43C SW BEGOUT-1&X2 KWIC4 0604 KW43D MCW BLK36,0 KWIC4 0605 CW BEGOUT-1&X2 KWIC4 0606 C X2,C31 KWIC4 0607 BE KW34M ENTIRE WRAPAROUND BLANK KWIC4 0608 MCW PLUS,BEGOUT&X2 KWIC4 0609 B KW31A KWIC4 0610 KW43E MCW PLUS,0 KWIC4 0611 B KW31A KWIC4 0612 KW43G C X2,C31 KWIC4 0613 BE KW31A 1ST CHAR OF ENTRY IS BLANK KWIC4 0614 MCW PLUS,BEGOUT-1&X2 KWIC4 0615 B KW31A KWIC4 0616 KW41 MCW TEMP,KW42&3 BEGKW&36 KWIC4 0617 MCW L5,X2 KWIC4 0618 MZ ZON11,KW42&2 KWIC4 0619 KW42 MCW 0&X2,BEGOUT-1&X2 MOVE XTRA CHARS TO FRONT OF ENTRY KWIC4 0620 B KW31A GO WRITE KWIC TAPE KWIC4 0621 KW43A CW 0 H.O. POS OF KW IN TITLE KWIC4 0622 BCE KW11,ENDSW,1 BRANCH IF END OF ITEM KWIC4 0623 B KW9 KWIC4 0624 * KWIC4 0625 *THIS ROUTINE CLOSES AND REWINDS TAPES KWIC4 0626 * KWIC4 0627 END WTM 3 KWIC4 0628 RWD 3 KWIC4 0629 CS 299 KWIC4 0630 MCW @END KWIC4@,229 KWIC4 0631 W KWIC4 0632 CC L KWIC4 0633 CC L KWIC4 0634 CC L KWIC4 0635 H *-3 KWIC4 0636 * KWIC4 0637 *THIS ROUTINE PURGES INCOMPLETE SETS OF CARDS FROM THE TAPES KWIC4 0638 * KWIC4 0639 PG2 C KWREC,C20 PURGE KWIC TAPE KWIC4 0640 BE PG6 KWIC4 0641 BSP 3 KWIC4 0642 S C11,KWREC KWIC4 0643 MZ C30,KWREC KWIC4 0644 B PG2 KWIC4 0645 PG5 B READ NXT CARD KWIC4 0646 A C11,CDCNT KWIC4 0647 PG6 BCE PG6A,CDTYP,2 KWIC4 0648 B PG5 KWIC4 0649 PG6A C INPUT&10,COMP KWIC4 0650 BE PG7 KWIC4 0651 PG6B MCW INPUT&10,COMP KWIC4 0652 MCW REF12,CREF12 KWIC4 0653 B SEQ4 KWIC4 0654 PG7 C REF12,CREF12 KWIC4 0655 BE PG5 KWIC4 0656 B PG6B KWIC4 0657 *THIS ROUTINE WRITES THE KEYWORD TAPE KWIC4 0658 * KWIC4 0659 WRKWIC SBR WRX1&3 KWIC4 0660 WR1A MCW C11,WRT1 KWIC4 0661 WR2 WT 3,OUTPUT KWIC4 0662 BER WR6A KWIC4 0663 BEF WR7A KWIC4 0664 WRX1 B 0 RETURN KWIC4 0665 WR6A BSP 3 KWIC4 0666 BCE WR8,WRT1,3 BRANCH IF THIRD BAD WRITE KWIC4 0667 A C11,WRT1 ADD TO BAD COUNTER KWIC4 0668 B WR2 GO TO TRY WRITE AGAIN KWIC4 0669 WR8 SKP 3 KWIC4 0670 B WR1A GO TRY TO WRITE AGAIN KWIC4 0671 WR7A WTM 3 KWIC4 0672 WR5 RWU 3 KWIC4 0673 CS 299 KWIC4 0674 MCW @MOUNT BLANK ON 3@,236 KWIC4 0675 W KWIC4 0676 CC L KWIC4 0677 CC L KWIC4 0678 CC L KWIC4 0679 H KWIC4 0680 B TL7 KWIC4 0681 B WRX1 KWIC4 0682 WRT1 DCW 0 KWIC4 0683 * KWIC4 0684 *THIS ROUTINE READS THE INPUT TAPE KWIC4 0685 * KWIC4 0686 READ SBR RDXIT&3 SAVE RETURN ADDR KWIC4 0687 RD1 MCW C20,RDC1 KWIC4 0688 RD1A RT 2,INPUT READ TAPE KWIC4 0689 BER RD2 ERROR KWIC4 0690 BEF RD3 EOF KWIC4 0691 RDXIT B 0 RETURN KWIC4 0692 RD2 A C11,RDC1 ADD 1 TO ERROR COUNT KWIC4 0693 BCE RD2A,RDC1-1,1 BRANCH IF 10TH BAD READ KWIC4 0694 BSP 2 BACKSPACE OVER BAD RECORD KWIC4 0695 B RD1A KWIC4 0696 RD2A CS 299 KWIC4 0697 MCW @INPUT TAPE ERROR@,236 KWIC4 0698 W KWIC4 0699 CC L KWIC4 0700 CC L KWIC4 0701 CC L KWIC4 0702 H PG2 KWIC4 0703 RD3 RWD 2 KWIC4 0704 CS 299 KWIC4 0705 MCW CMNT3,266 KWIC4 0706 W KWIC4 0707 CC L KWIC4 0708 CC L KWIC4 0709 CC L KWIC4 0710 H KWIC4 0711 BSS RD4,F BRANCH IF END OF INPUT KWIC4 0712 B TL1 KWIC4 0713 B RD1 KWIC4 0714 RD4 BCE RD5,KWSW,1 KWIC4 0715 B END KWIC4 0716 RD5 MCW C11,EOFSW SET END OF INPUT SWITCH KWIC4 0717 MCW BLK1,CDTYP SET CARD TYP SO THAT THE KWIC KWIC4 0718 * ROUTINE WILL BE COMPLETED KWIC4 0719 B RDXIT RETURN TO KWIC ROUTINE KWIC4 0720 RDC1 DCW 00 KWIC4 0721 CMNT2 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC4 0722 CMNT3 DCW @MOUNT NXT INPUT REEL.SSW F ON IF NO MORE INPUT@ KWIC4 0723 * KWIC4 0724 *TABLES AND CONSTANTS KWIC4 0725 * KWIC4 0726 DCW @}@ KWIC4 0727 DCW 004 KWIC4 0728 DCW 003 KWIC4 0729 DCW 002 KWIC4 0730 NOCH DCW 001 KWIC4 0731 SWADR DCW &CHAR1 KWIC4 0732 DCW &CHAR2 KWIC4 0733 DCW &CHAR3 KWIC4 0734 DCW &CHAR4 KWIC4 0735 DCW @}@ KWIC4 0736 CHAR1 DCW @A@ KWIC4 0737 DCW @}@ KWIC4 0738 DCW @BY@ KWIC4 0739 DCW @TO@ KWIC4 0740 DCW @AS@ KWIC4 0741 DCW @AT@ KWIC4 0742 DCW @AN@ KWIC4 0743 DCW @ON@ KWIC4 0744 DCW @IN@ KWIC4 0745 CHAR2 DCW @OF@ KWIC4 0746 DCW @}@ KWIC4 0747 DCW @FOR@ KWIC4 0748 DCW @AND@ KWIC4 0749 CHAR3 DCW @THE@ KWIC4 0750 DCW @}@ KWIC4 0751 DCW @SOME@ KWIC4 0752 DCW @FROM@ KWIC4 0753 CHAR4 DCW @WITH@ KWIC4 0754 EOFSW DCW 0 KWIC4 0755 SW1 DCW 0 1ST WD OF ENTRY IS A FRAGMENT KWIC4 0756 KWSW DCW 0 KEYWORD SUBR IN USE KWIC4 0757 C335 DCW 035 KWIC4 0758 C321 DCW 021 KWIC4 0759 LTORG KWIC4 0760 EX QKWOC KWIC4 0761 ORG 460 KWIC4 0762 LINCTR DCW 00 KWIC4 0763 LOCKW DCW 000 KWIC4 0764 LKW DCW 00 KWIC4 0765 KEYWD DCW #20 KWIC4 0766 FREFNO DCW #12 KWIC4 0767 ORG KWIC KWIC4 0768 SBR FTXIT1&3 0769 ORG KWICA 0770 NOP 0771 ORG KW1B 0772 MCW 81,FREFNO 0773 ORG KW5D 0774 NOP 0775 ORG KW5J 0776 B FTXIT 0777 ORG KW6 KWIC4 0778 B FT1 0779 DCW #1 0780 ORG KW24 0781 C BEGTI-1&X1,0 0782 ORG KW24D 0783 NOP 0784 ORG KW22 0785 B FT22 0786 ORG KW25-4 0787 B FT9B 0788 B FT22 0789 ORG WR2 KWIC4 0790 WT 3,LINCTR-1 0791 ORG KW29 0792 FT1 MCW LENDTI,FT2&6 0793 SW FT2&6-2 KWIC4 0794 A @002@,FT2&6 KWIC4 0795 CW FT2&6-2 KWIC4 0796 FT2 MCW @ }@,0 SET } AT END OF TITLE KWIC4 0797 FT3 MCW LNLTH,X1 KWIC4 0798 S C32,X1 KWIC4 0799 MZ *-1,X1 KWIC4 0800 *SET RM AT END OF EACH LINE 0801 FT4 BCE FT7,BEGTI-1&X1, BLANK KWIC4 0802 BCE FT9,BEGTI-1&X1,} GM KWIC4 0803 BCE FT9,BEGTI-1&X1, KWIC4 0804 A @I9I@,X1 KWIC4 0805 B FT4 KWIC4 0806 FT5 BCE FT7,BEGTI-1&X1, BLANK KWIC4 0807 BCE FT9,BEGTI-1&X1,} GM 0808 MCW @ @,BEGTI&X1 KWIC4 0809 A LNLTH,X1 KWIC4 0810 S C32,X1 KWIC4 0811 MZ *-1,X1 KWIC4 08120 C @499@,X1 0813 BL FT4 KWIC4 08140 SBR X1,498 0815 B FT4 KWIC4 0816 FT7 A @I9I@,X1 KWIC4 0817 B FT5 KWIC4 0818 FT9 MCW @000@,X1 0819 SBR CURBL,0&X1 0820 MCW OUTPUT&10,FREFNO-1 0821 MCW @01@,LINCTR 0822 FT9B MCW BLK18,KEYWD 0823 MCW BLK1 0824 *LOCATE KEYWORD IN TITLE 0825 FT9D MN BEGTI&X1,FT10&7 0826 MZ BEGTI&X1,FT10&7 KWIC4 0827 FT10 BCE FT13,STDCH,0 BR. BEGIN OF KW 08280 CHAIN39 KWIC4 0829 BCE FTXIT,BEGTI&X1,} BR. END OF TITLE %GM) 0830 BCE FT12,BEGTI&X1, BR. END OF LINE KWIC4 0831 FT11 SBR X1,1&X1 KWIC4 0832 B FT9D 0833 FT12 A C11,LINCTR 0834 SBR X1,1&X1 0835 SBR CURBL,0&X1 0836 B FT9D 0837 FT13 SBR BEGKW,0&X1 KWIC4 0838 B FT17 KWIC4 0839 FT15 MN BEGTI&X1,FT16&7 KWIC4 0840 MZ BEGTI&X1,FT16&7 KWIC4 0841 FT16 BCE FT17,STDCH,0 BR. NOT BEGIN OF KW 08420 CHAIN39 KWIC4 0843 B FT18 KWIC4 0844 FT17 SBR X1,1&X1 KWIC4 0845 B FT15 KWIC4 0846 FT18 MCW BEGKW,LOCKW KWIC4 0847 S CURBL,LOCKW KWIC4 0848 MZ @ @,LOCKW KWIC4 0849 SBR TEMP,0&X1 KWIC4 0850 S BEGKW,TEMP KWIC4 0851 MZ @ @,TEMP KWIC4 0852 MCW TEMP,X2 KWIC4 0853 C @021@,TEMP KWIC4 0854 BL FT20 0855 MCW @20@,LKW 0856 MCW BEGKW,X3 0857 MCW BEGTI&X3&19,KEYWD 0858 B FT21 0859 FT20 MCW X2,LKW KWIC4 0860 MCW BEGTI-1&X1,KEYWD-20&X2 KEYWORD TO OUTPUT AREA KWIC4 0861 FT21 BWZ FT23,KEYWD-19,2 BR. NUMERIC KW KWIC4 0862 FT21E MCW LKW,LGKW KWIC4 0863 B KW20 GO CHECK STOP LIST KWIC4 0864 FT22 LCA GMWM,999 0865 B WRKWIC 0866 A C11,KWREC 0867 B FT9B 08675FT23 BW FT21E,NKWGUY BR. IF ACCEPT NUMERIC KW KWIC4 08676 B FT9B KWIC4 08680FTXIT CS 999 0869 CHAIN4 KWIC4 0870 SW BEGTI 0871 MCW C10,KWSW CLEAR SW, KW ROUTINE IN USE 0872 FTXIT1 B 0 RETURN KWIC4 0873 FT25 BLC CTLERR TEST FOR PRESENSE OF CTL CD KWIC4 0874 R RD CTL CD KWIC4 0875 C 3,@***@ TEST CTL CD ID KWIC4 0876 BU CTLERR KWIC4 0877 MCW 6,LNLTH#3 CAPTURE LINE LENGTH KWIC4 0878 C LNLTH,@132@ LINE KWIC4 0879 BL CTLERR LENGTH KWIC4 0880 C LNLTH,@040@ LIMIT KWIC4 0881 BH CTLERR TESTS KWIC4 0882 S @2@,LNLTH KWIC4 0883 MZ *-1,LNLTH KWIC4 0884 B ST3 A-OK KWIC4 0885 CTLERR CS 299 PRINT KWIC4 0886 LCA @CONTROL CARD ERROR@,238 ERROR KWIC4 0887 BLC *&5 MESSAGE KWIC4 0888 B *&8 KWIC4 0889 LCA @MISSING@,240 KWIC4 0890 W KWIC4 0891 CC L KWIC4 0892 CC L KWIC4 0893 CC L KWIC4 0894 H FT25 RE-RRAD AFTER CORRECTION KWIC4 0895 CURBL DCW 000 KWIC4 0896 END FT25 KWIC4 0101 JOB 1401 KWIC- KEY WORD PRINT AND STATISTICS PASS KWIC5 0102 CTL 331 1 KWIC5 0103 PRFLD EQU 260 KWIC5 0104 PRNAM EQU 268 KWIC5 0105 DASH1 EQU 269 KWIC5 0106 PRDAT EQU 271 KWIC5 0107 DASH2 EQU 272 KWIC5 0108 PRIDI EQU 275 KWIC5 0109 PRREF EQU 273 KWIC5 0110 ORG 87 KWIC5 0111 X1 DCW 000 KWIC5 0112 ORG 92 KWIC5 0113 X2 DCW 000 KWIC5 0114 ORG 97 KWIC5 0115 X3 DCW 000 KWIC5 0116 ORG 181 KWIC5 0117 C11 DCW 1 KWIC5 0118 C31 DCW 001 KWIC5 0119 C21 EQU C311-1 KWIC5 0120 C311 DCW 011 KWIC5 0121 LINCT DCW 001 LINE COUNT KWIC5 0122 PGCT DCW 001 KWIC5 0123 DASH DCW @-@ KWIC5 0124 CTR DCW 00 BAD READ COUNTER KWIC5 0125 WRT1 DCW 0 BAD WRITE COUNTER KWIC5 0126 C20 DCW 00 KWIC5 0127 ORG 333 KWIC5 0128 STINP DA 1X45 KWIC5 0129 COUNT 38,43 KWIC5 0130 DCW @}@ KWIC5 0131 C38 DCW 008 KWIC5 0132 C34 DCW 004 KWIC5 0133 SIGN DCW @SSW @ KWIC5 0134 REFSW DC 1 KWIC5 0135 EOTSW DC 1 KWIC5 0136 NEWKW DC 1 KWIC5 0137 OVPRSW DC 1 KWIC5 0138 ORG 400 KWIC5 0139 STOUT DA 1X45 KWIC5 0140 COUNT1 38,43 KWIC5 0141 DCW @}@ KWIC5 0142 START RWD 3 KWIC5 0143 RWD 4 KWIC5 0144 CC 1 KWIC5 0145 CS 299 KWIC5 0146 MCW @KWIC5 ON@,228 KWIC5 0147 W KWIC5 0148 CC L KWIC5 0149 CC L KWIC5 0150 CC L KWIC5 0151 CTL1 R KWIC5 0152 C 3,@***@ KWIC5 0153 BE CTL3 KWIC5 0154 CTL2 CS 299 KWIC5 0155 MCW @CTL CD ERR@,236 KWIC5 0156 W KWIC5 0157 CC L KWIC5 0158 CC L KWIC5 0159 CC L KWIC5 0160 H CTL1 KWIC5 0161 CTL3 MN 4,CPAGE KWIC5 0162 C CPAGE,@2@ KWIC5 0163 BL CTL2 KWIC5 0164 CTL4 MCW 7,CLINE KWIC5 0165 BCE CTL4B,9, NO KWOC KWIC5 0166 MCW @B@,KS17 KWIC5 0167 MCW &LINTTL-1,ADR1 0168 MCW @B@,RD5B KWIC5 0169 MCW &KS26,KS26A&3 KWIC5 0170 C 13,@132@ TEST KWIC5 0171 BL CTL2 FOR KWIC5 0172 C 13,@040@ LINE LENGTH KWIC5 0173 BH CTL2 LIMITS KWIC5 0174 MCW 13,TEMPR#3 SET TO CONTROL POSITIONING KWIC5 0175 A @198@,TEMPR KWIC5 0176 BCE CTL4B,10, NO OVERPRINT KWIC5 0177 SW OVPRSW TURN ON OVERPRINT SWITCH KWIC5 0178 CTL4B BCE CTL4E,8, BR. IF PRINT IN POS 1 KWIC5 0179 MCW @N@,KS19 KWIC5 0180 CTL4E BSS CTL6,D KWIC5 0181 CTL4M BSS CTL7,E KWIC5 0182 CTL4P CS 299 KWIC5 0183 MCW SIGN,226 KWIC5 0184 SW 1 KWIC5 0185 MCW 13,245 KWIC5 0186 W KWIC5 0187 CC L KWIC5 0188 CC L KWIC5 0189 CC L KWIC5 0190 BSS CTL5,E BR. IF NO BAL. FORD. STAT. KWIC5 0191 RWD 2 KWIC5 0192 MN @2@,TL3&3 CHECK STAT. TAPE LABEL KWIC5 0193 SBR TL3A&6,TL12 KWIC5 0194 MCW TL10,TL7 KWIC5 0195 B TL1 KWIC5 0196 CTL5 MN @3@,TL3&3 CHECK KEYWORD TAPE LABEL KWIC5 0197 SBR TL3A&6,TL11 KWIC5 0198 MCW TL9,TL7 KWIC5 0199 B TL1 KWIC5 0200 B TL20 WRITE STAT. TAPE LABEL KWIC5 0201 CC 1 KWIC5 0202 S @1@,CLINE KWIC5 0203 MZ @ @,CLINE KWIC5 0204 BSS KS1C,D BRANCH IF REFNO IN INPUT KWIC5 0205 B KS1D KWIC5 0206 CTL6 MCW @D@,SIGN-1 KWIC5 0207 B CTL4M KWIC5 0208 CTL7 MCW @E@,SIGN KWIC5 0209 B CTL4P KWIC5 0210 KS1C MCW @B@,KS17A SETUP MOVE REFNO WITHOUT DASHES KWIC5 0211 CW DATE-1,IDIOT-2 KWIC5 0212 KS1D CS 332 KWIC5 0213 CS 299 KWIC5 0214 BSS KS1B,E BRANCH IF NO OLD STAT TAPE KWIC5 0215 B KS1A KWIC5 0216 KS1B MCW KS5,KS4A SET END OF STAT TAPE SWITCHES KWIC5 0217 SBR KS30&3,KS34 DITTO KWIC5 0218 MCW @N@,KS34&5 KWIC5 0219 B KS2 KWIC5 0220 KS1A B RDST READ STAT TAPE KWIC5 0221 H KS1A KWIC5 0222 B KS1 EOF KWIC5 0223 B KS2 KWIC5 0224 KS1 CS 180 KWIC5 0225 MCW @12ILLEGAL EOF- STAT TP@,122 KWIC5 0226 P KWIC5 0227 CS 180 KWIC5 0228 P KWIC5 0229 SS 4 KWIC5 0230 H KWIC5 0231 KS2 B RDKW READ KEY WORD TAPE KWIC5 0232 H KS2 KWIC5 0233 B KS3 KWIC5 0234 B KS4 KWIC5 0235 KS3 CS 180 KWIC5 0236 MCW @13ILLEGAL EOF- KW TP@,121 KWIC5 0237 P KWIC5 0238 CS 180 KWIC5 0239 P KWIC5 0240 SS 4 KWIC4 0241 H KWIC5 0242 KS4 MCW BLK36,TEMKW CLEAR KW COMPARE AREA KWIC5 0243 SBR X2,0 KWIC5 0244 MCW LGKW,X2 KWIC5 0245 MCW BEGKW-1&X2,TEMKW-36&X2 MOVE KW TO COMPARE AREA KWIC5 0246 KS4B CS STOUT&44 KWIC5 0247 SW STOUT&37 KWIC5 0248 SW STOUT KWIC5 0249 MCW BEGKW-1&X2,STOUT-1&X2 SAVE KW KWIC5 0250 KS4A NOP KS9 BRANCH IF END OF STAT TAPE KWIC5 0251 C STINP&35,TEMKW KWIC5 0252 BH KS5 BRANCH IF KW HI KWIC5 0253 BE KS8 BRANCH IF KW ~ STAT WD KWIC5 0254 B KS9 BRANCH IF KW LO KWIC5 0255 KS5 B WRST1 MOVE STAT WD TO NEW STAT TAPE KWIC5 0256 KS6 B RDST READ STAT TAPE KWIC5 0257 H KS6 ERROR KWIC5 0258 B KS7 EOF KWIC5 0259 B KS4A KWIC5 0260 KS7 MCW KS5,KS4A SET END OF STAT TAPE SWITCH KWIC5 0261 SBR KS30&3,KS34 SAME KWIC5 0262 B KS4A KWIC5 0263 KS8 SBR KS11&3,KS12 SET KW ~ STOP WD SWITCHES KWIC5 0264 SBR KS23A&3,KS24 KWIC5 0265 B KS10 KWIC5 0266 KS9 SBR KS11&3,KS13 SET KW LO SWITCHES KWIC5 0267 SBR KS23A&3,KS25 SAME KWIC5 0268 KS10 C TEMKW,STOUT&35 KWIC5 0269 BU KS23 BRANCH IF KW NOT EQU PREV. KW KWIC5 0270 KS11 B 0 TO KS12 OR KS13 KWIC5 0271 KS12 A C11,COUNT KW~SW KWIC5 0272 B KS14 KWIC5 0273 KS13 A C11,COUNT1 KWLO KWIC5 0274 B KS15 KWIC5 0275 KS14 BCE KS16,STINP&44,1 BRANCH IF THIS IS A STOP WORD KWIC5 0276 KS15 BSS KS22,B OMIT ENTRIES WHEN NOT IN STOPLIST KWIC5 0277 B KS17 KWIC5 0278 KS16 BSS KS17,B KWIC5 0279 B KS22 OMIT ENTRIES WHEN IN STOP LIST KWIC5 0280 KS17 NOP KS40 BR. IF KWOC KWIC5 0281 MCW FIELD,PRFLD KWIC5 0282 KS17A NOP KS17B BR. IF REFNO IN INPUT KWIC5 0283 MCW NAME,PRNAM KWIC5 0284 MZ DASH,DASH1 KWIC5 0285 MCW DATE,PRDAT KWIC5 0286 MZ DASH,DASH2 KWIC5 0287 MCW IDIOT,PRIDI KWIC5 0288 B KS18 KWIC5 0289 KS17B MCW IDIOT,PRREF KWIC5 0290 MCW REF12,PRREF&1 KWIC5 0291 KS18 C CPAGE,PGCT KWIC5 0292 BH KS19 BRANCH IF PAGE COUNT GRTR THAN 2 KWIC5 0293 C C31,LINCT KWIC5 0294 BE KS20 BRANCH IF LINE COUNT # 1 KWIC5 0295 B KS19 KWIC5 0296 KS20 CC L SKIP 10 SPACES KWIC5 0297 CC L KWIC5 0298 CC L KWIC5 0299 CC J KWIC5 0300 MCW C311,LINCT SET LINE COUNT TO 11 KWIC5 0301 KS19 B KS19M KWIC5 0302 SW 201 KWIC5 0303 MCW 275,295 KWIC5 0304 CS 220 KWIC5 0305 KS19M W KWIC5 0306 CS 299 KWIC5 0307 C CLINE,LINCT KWIC5 0308 BH KS21 BRANCH IF END OF PAGE KWIC5 0309 A C31,LINCT ADD ONE TO LINE COUNT KWIC5 0310 B KS22 KWIC5 0311 KS21 CC 1 EJECT FORM KWIC5 0312 MCW C31,LINCT SET LINE COUNT TO 1 KWIC5 0313 A C31,PGCT PAGE COUNT KWIC5 0314 KS22 B KS26 KWIC5 0315 KS23 SBR KS22&3,KS28 KWIC5 0316 KS23A B 0 TO KS24 OR KS25 KWIC5 0317 KS24 B WRST1 KW~SW UPOATE STAT TAPE KWIC5 0318 KS24A B RDST READ STAT TAPE KWIC5 0319 H KS24A ERROR KWIC5 0320 B KS24B EOF KWIC5 0321 B KS22 KWIC5 0322 KS24B MCW KS5,KS4A SET END OF STAT TAPE SWITCH KWIC5 0323 SBR KS30&3,KS34 KWIC5 0324 B KS22 KWIC5 0325 KS25 B WRST2 WRITE NEW KW ON STAT TAPE KWIC5 0326 B KS22 KWIC5 0327 KS26 B RDKW READ KW TAPE KWIC5 0328 KS26A H KS27 ERROR KWIC5 0329 B KS29 KWIC5 0330 MCW BLK36,TEMKW SAVE NEW KEY WORD KWIC5 0331 SBR X2,0 KWIC5 0332 MCW LGKW,X2 KWIC5 0333 MCW BEGKW-1&X2,TEMKW-36&X2 KWIC5 0334 B KS10 GO SEE IF KW SAME AS PREVIOUS KWIC5 0335 KS27 CS 299 KWIC5 0336 B KS18 KWIC5 0337 KS28 SBR KS22&3,KS26 RESET BRANCH FOR 1ST KW OF A KIND KWIC5 0338 B KS4B GO CHECK KW AGAINST STOP WD KWIC5 0339 KS29 C KS23A&3,&KS24 KWIC5 0340 BE KS31 BRNAHC IF KW ~ STOP WD KWIC5 0341 B WRST2 WRITE NEW KW ON STAT TAPE KWIC5 0342 KS30 B KS32 OR TO KS34 KWIC5 0343 KS31 B WRST1 UPDATE STAT TAPE KWIC5 0344 B KS30 KWIC5 0345 KS32 B RDST COPY REMAINDER OF OLD STAT TAPE KWIC5 0346 H KS32 ERROR TO NEW STAT TAPE KWIC5 0347 B KS34 KWIC5 0348 B WRST1 KWIC5 0349 B KS32 KWIC5 0350 KS34 WTM 4 KWIC5 0351 RWD 2 KWIC5 0352 RWD 3 KWIC5 0353 RWD 4 KWIC5 0354 CS 299 KWIC5 0355 CC 1 KWIC5 0356 MCW @END KWIC5@,229 KWIC5 0357 W KWIC5 0358 CC L KWIC5 0359 CC L KWIC5 0360 CC L KWIC5 0361 H *-3 KWIC5 0362 * KWIC5 0363 *KEY WORD AND STAT TAPE READ ROUTINE KWIC5 0364 * KWIC5 0365 RDKW SBR RDXIT&3 SET RETURN KWIC5 0366 MCW ADR1,RD5&6 SET UP TO READ KWIC TAPE KWIC5 0367 SBR X1,6 KWIC5 0368 B RD1 KWIC5 0369 RDST SBR RDXIT&3 SET RETURN KWIC5 0370 MCW ADR2,RD5&6 SET UP TO READ STATISTICS TAPE KWIC5 0371 SBR X1,0 KWIC5 0372 RD1 MCW RDC1&X1,RD5&3 KWIC5 0373 MCW C21,CTR KWIC5 0374 RD5 RT 0,0 READ TAPE KWIC5 0375 BER RD6 BRANCH IF TAPE ERROR KWIC5 0376 BEF RD8 KWIC5 0377 BCE RD5B,RD5&3,3 BR. IF KW TAPE KWIC5 0378 C STINP&35,CSTAT#36 KWIC5 0379 BL RD5A KWIC5 0380 CS 180 STAT. TAPE OUT OF SEQUENCE KWIC5 0381 MCW @04STAT. TAPE OUT OF SEQ@,123 KWIC5 0382 P KWIC5 0383 CS 18O KWIC5 0384 P KWIC5 0385 SS 8 KWIC5 0386 H RD1 KWIC5 0387 RD5A MCW STINP&35,CSTAT KWIC5 0388 RD5B NOP RD11 BR. IF KWOC KWIC5 0389 RD5C SW RDXIT&3-2 KWIC5 0390 A C38,RDXIT&3 KWIC5 0391 CW RDXIT&3-2 KWIC5 0392 RDXIT B 0 RETURN KWIC5 0393 RD6 MCW RDC1&X1,RD6A&3 KWIC5 0394 A C11,CTR KWIC5 0395 BCE RD7,CTR,0 BRANCH IF COUNTER # 10 KWIC5 0396 RD6A BSP 0 KWIC5 0397 B RD5 GO TRY TO READ RECORD AGAIN KWIC5 0398 RD7 CS 180 CLEAR PUNCH AREA KWIC5 0399 MCW ADR2&X1,RD7A&3 KWIC5 0400 RD7A MCM 0,101 PUNCH BAD RECORD KWIC5 0401 P PUNCH BAD RECORD KWIC5 0402 CS 180 KWIC5 0403 MCW CMNT1,150 KWIC5 0404 MCW RDC1&X1,119 KWIC5 0405 P PUNCH ERROR COMMENT KWIC5 0406 CS 180 KWIC5 0407 P KWIC5 0408 SS 4 KWIC5 0409 B RDXIT KWIC5 0410 RD8 MN RD5&3,RD9&3 KWIC5 0411 RD9 RWD 0 KWIC5 0412 CS 180 KWIC5 0413 MCW CMNT2,110 KWIC5 0414 MN RD5&3,102 KWIC5 0415 MN RD5&3,110 KWIC5 0416 P KWIC5 0417 CS 180 KWIC5 0418 P KWIC5 0419 SS 4 KWIC5 0420 H KWIC5 0421 BSS RDXIT1,F BR. IF NO MORE REELS KWIC5 0422 BCE RD10,RD9&3,2 KWIC5 0423 MN @3@,TL3&3 CHECK KW TAPE LABEL KWIC5 0424 SBR TL3A&6,TL11 KWIC5 0425 MCW TL9,TL7 KWIC5 0426 B TL1 KWIC5 0427 B RD1 KWIC5 0428 RD11 MCW LKW,LGKW MOVE KW AND LENGTH KW TO KWIC KWIC5 0429 MCW KEYWD,BEGKW&19 INPUT AREA KWIC5 0430 B RD5C KWIC5 0431 RD10 MN @2@,TL3&3 CHECK START TAPE LABEL KWIC5 0432 SBR TL3A&6,TL12 KWIC5 0433 MCW TL10,TL7 KWIC5 0434 B TL1 KWIC5 0435 B RD1 KWIC5 0436 RDXIT1 SW RDXIT&3-2 KWIC5 0437 A C34,RDXIT&3 KWIC5 0438 CW RDXIT&3-2 KWIC5 0439 B RDXIT KWIC5 0440 RDC1 DCW %U2 STAT INPUT KWIC5 0441 ADR2 DCW &STINP H.O. POS OF STAT. READ AREA KWIC5 0442 DCW %U3 KW INPUT KWIC5 0443 ADR1 DCW &KWINP H.O. POS OF KW READ AREA KWIC5 0444 CMNT1 DCW @97TAPE ERROR ON 000.PRECEEDNG RECRD NOT PROCESSED.@ KWIC5 0445 * KWIC5 0446 *STAT TAPE WRITE ROUTINE KWIC5 0447 * KWIC5 0448 WRST1 SBR WRXIT&3 SAVE RETURN ADDRESS AND SET UP T KWIC5 0449 SBR X1,0 ADDRESSES KWIC5 0450 B WR1 KWIC5 0451 WRST2 SBR WRXIT&3 KWIC5 0452 SBR X1,3 KWIC5 0453 WR1 MCW WRC2&X1,WR2&6 KWIC5 0454 MCW C11,WRT1 KWIC5 0455 WR2 WT 4,0 WRITE STAT TAPE KWIC5 0456 BER WR6 BRANCH IF TAPE ERROR KWIC5 0457 BEF WR7 BRANCH IF END OF REEL KWIC5 0458 WRXIT B 0 KWIC5 0459 WR6 BSP 4 BACKSPACE OVER BAD RECORD KWIC5 0460 BCE WR8,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC5 0461 A C11,WRT1 ADD TO BAD RECORD COUNTER KWIC5 0462 B WR2 GO TRY TO WRITE AGAIN KWIC5 0463 WR8 SKP 4 BLANK BAD RECORD KWIC5 0464 MCW C11,WRT1 RESET BAD RECORD COUNTER KWIC5 0465 B WR2 GO TRY TO WRITE AGAIN KWIC5 0466 WR7 WTM 4 KWIC5 0467 RWU 4 KWIC5 0468 CS 180 PRINT COMMENT KWIC5 0469 MCW WRC1,143 KWIC5 0470 P KWIC5 0471 CS 180 KWIC5 0472 P KWIC5 0473 SS 4 KWIC5 0474 H KWIC5 0475 B TL20 WRITE HEADER LABEL KWIC5 0476 B WRXIT KWIC5 0477 WRC1 DCW @98REMOVE TAPE 4,LABEL SAME, MOUNT NEW TAPE.@ KWIC5 0478 WRC2 DCW &STINP UPDATE COUNT KWIC5 0479 DCW &STOUT WRITE NEW KEY WORD KWIC5 0480 *THIS ROUTINE CHECKS INPUT TAPE LABELS KWIC5 0481 TL1 SBR TL4&3 KWIC5 0482 MN TL3&3,TL6A&3 KWIC5 0483 TL2 MCW C11,CTR1#1 KWIC5 0484 TL3 RT 0,INLBL KWIC5 0485 BER TL6 KWIC5 0486 TL3A C INLBL&29,0 KWIC5 0487 TL4 BE 0 KWIC5 0488 TL5 CS 180 KWIC5 0489 MN TL3&3,TL5A&3 KWIC5 0490 TL5A BSP 2 KWIC5 0491 MCM TL7-8,101 KWIC5 0492 P KWIC5 0493 CS 180 KWIC5 0494 P KWIC5 0495 SS 4 KWIC5 0496 H TL2 KWIC5 0497 TL6 A C11,CTR1 KWIC5 0498 TL6A BSP 2 KWIC5 0499 BCE TL5,CTR1,0 KWIC5 0500 B TL3 KWIC5 0501 TL7 DCW @ @ KWIC5 0502 TL8 DC @ TAPE LABEL ERROR@ KWIC5 0503 DCW @}@ KWIC5 0504 TL9 DCW @10KEYWORD@ KWIC5 0505 TL10 DCW @11STAT. @ KWIC5 0506 TL11 DCW @KEYWORDTAP@ KWIC5 0507 TL12 DCW @STATISTICS@ KWIC5 0508 *THIS ROUTINE URITES STATISTICS TAPE LABEL KWIC5 0509 TL20 SBR TL22A&3 KWIC5 0510 RWD 4 KWIC5 0511 TL21 MCW C10,CTR1 KWIC5 0512 TL22 WT 4,OUTLBL KWIC5 0513 BER TL23 KWIC5 0514 TL22A B 0 KWIC5 0515 TL23 BSP 4 KWIC5 0516 A C11,CTR1 KWIC5 0517 BCE TL24,CTR1,3 KWIC5 0518 B TL22 KWIC5 0519 TL24 SKP 4 KWIC5 0520 B TL20 KWIC5 0521 OUTLBL DCW @1@ KWIC5 0522 DC @HDR@ KWIC5 0523 DC #16 KWIC5 0524 DC @STATISTICS@ KWIC5 0525 DC #50 KWIC5 0526 DCW @}@ KWIC5 0527 CPAGE DCW 000 KWIC5 0528 CLINE DCW 000 KWIC5 0529 INLBL DA 1X30,G KWIC5 0530 KWINP DA 1X14 KWIC5 0531 NAME 1,6 KWIC5 0532 DATE 7,8 KWIC5 0533 IDIOT 9,11 KWIC5 0534 BEGOUT DA 1X60 KWIC5 0535 BEGKW 25 KWIC5 0536 FIELD 60 KWIC5 0537 LGKW DCW 00 KWIC5 0538 REF12 DCW 0 KWIC5 0539 DCW @}@ KWIC5 0540 CMNT2 DCW @00EOF ON 0@ KWIC5 0541 DA 1X35 KWIC5 0542 TEMKW DC 0 TEMPORARY KW COMPARE AREA KWIC5 0543 BLK36 DCW @ @ KWIC5 0544 C10 DCW 0 KWIC5 0545 KS40 MCW &TITLE,X3 SET FOR BEGINNING OF TITLE KWIC5 0546 C KEYWD,CKEYWD#20 TEST FOR KWIC5 0547 BE KS41 NEW KEYWORD KWIC5 0548 SW NEWKW REMEMBER NEW KW KWIC5 0549 MCW KEYWD,CKEYWD SAVE NEW KW KWIC5 0550 KS41 C LINCT,@001@ TOP OF PAGE TEST KWIC5 0551 BU KS40A KWIC5 0552 B HDNGRN EJECT TO NEXT PAGE KWIC5 0553 KS40A BW KWRTN,NEWKW PRINT NEW KW KWIC5 0554 CW NEWKW FORGET NEW KW KWIC5 0555 SBR X2,203 KWIC5 0556 MCM 0&X3,0&X2 MOVE TITLE LINE TO PRINT KWIC5 0557 SBR TEMP#3 KWIC5 0558 MCM 0&X3,0&X2 KWIC5 0559 SAR X3 SET FOR NEXT LINE KWIC5 0560 MCW TEMP,X2 ERASE KWIC5 0561 MCW @ @,0&X2 REC MK KWIC5 0562 BCE KS47,0&X3,} END OF TITLE [GM] KWIC5 0563 KS42 BW KS49,OVPRSW SHALL WE OVERPRINT KWIC5 0564 KS43 W PRINT TITLE LINE W/O SUPP KWIC5 0565 CS 332 KWIC5 0566 CS KWIC5 0567 KS44 A @1@,LINCT KWIC5 0568 A @1@,LINCTR KWIC5 0569 C CLINE,LINCT TEST FOR END OF PAGE KWIC5 0570 BL KS45 KWIC5 0571 MCW @001@,LINCT KWIC5 0572 KS45 BW KS51,REFSW BR - MUST PRINT REFNO BELOW TITLE KWIC5 0573 KS46 BW KS52,EOTSW BR - FINISHED THIS TITLE KWIC5 0574 B KS41 EXIT TO GET NEXT LINE OF TITLE KWIC5 0575 KS47 SW EOTSW KWIC5 0576 A @13@,TEMP KWIC5 0577 C TEMPR,TEMP KWIC5 0578 BH KS48 KWIC5 0579 B REFNSR KWIC5 0580 B KS42 KWIC5 0581 KS48 SW REFSW KWIC5 0582 B KS42 KWIC5 0583 KS49 C LINCTR,LINTTL KWIC5 0584 BE KS50 BR - KW THIS LINE KWIC5 0585 B KS43 KWIC5 0586 KS50 W PRINT LINE W/SUPP KWIC5 0587 DC @S@ KWIC5 0588 CS 332 KWIC5 0589 CS KWIC5 0590 MCW LOCKW,X1 KWIC5 0591 A LKW,X1 KWIC5 0592 ZA LKW,X2 KWIC5 0593 MZ *-1,X2 KWIC5 0594 MCW KEYWD-20&X2,202&X1 MOVE KW TO POSITION IN TITLE KWIC5 0595 DCW @2S@ OVER-PRINT KWIC5 0596 W OVERPRINT & SPACE KWIC5 0597 CS 332 KWIC5 0598 CS KWIC5 0599 B KS44 KWIC5 0600 KS51 C LINCT,@001@ TOP OF PAGE KWIC5 0601 BE HDNGRN BR - YES KWIC5 0602 B REFNSR SET-UP REF NO KWIC5 0603 W PRINT IT KWIC5 0604 CS 332 KWIC5 0605 CS KWIC5 0606 CW REFSW FORGET OT KWIC5 0607 A @1@,LINCT BUMP LINE COUNT KWIC5 0608 B KS46 RETURN KWIC5 0609 KS52 CW EOTSW FORGET END OF TITLE KWIC5 0610 CC J EXTRA SPACES BETWEEN TITLES KWIC5 0611 MCW @001@,LINCTR RESET TITLE LINE CTR KWIC5 0612 C LINCT,@001@ KWIC5 0613 BE KS52A KWIC5 0614 A @1@,LINCT KWIC5 0615 KS52A B KS22 GO GET ANOTHER TITLE KWIC5 0616 HDNGRN SBR HDNGX&3 KWIC5 0617 CC 1 KWIC5 0618 C CPAGE,@1@ KWIC5 0619 BH KS53 BR - NO SPACES KWIC5 0620 CC L TEN KWIC5 0621 CC L SPACES KWIC5 0622 CC L KWIC5 0623 CC J KWIC5 0624 A @10@,LINCT BUMP PAGE LINE CNT KWIC5 0625 S @1@,CPAGE DECREMENT KWIC5 0626 MZ *-1,CPAGE HEADING PAGE CNT KWIC5 0627 KS53 BW KS54,NEWKW KWIC5 0628 MCW @%CONTINUATION)@,235 KWIC5 0629 B KS55 KWIC5 0630 KS54 CW NEWKW ERASE NEW KW SIGNAL KWIC5 0631 KS55 B KWRTN GO PRINT KW KWIC5 0632 HDNGX B 0 RETURN KWIC5 0633 KWRTN SBR KWX&3 KWIC5 0634 MCW KEYWD,220 KWIC5 0635 BW KS57,OVPRSW KWIC5 0636 W PRINT W/O SUPP KWIC5 0637 CS 299 KWIC5 0638 KS56 A @1@,LINCT KWIC5 0639 KWX B 0 RETURN KWIC5 0640 KS57 DCW @2@ KWIC5 0641 DC @S@ KWIC5 0642 CS 299 KWIC5 0643 MCW KEYWD,220 KWIC5 0644 DCW @2S@ OVER-PRINT W/SUPP KWIC5 0645 W OVER-PRINT & SPACE KWIC5 0646 CS 299 KWIC5 0647 B KS56 KWIC5 0648 REFNSR SBR REFX&3 KWIC5 0649 MCW TEMPR,X1 KWIC5 0650 BCE KS58,SIGN-1,D BR - USER REF NO KWIC5 0651 LCA @ - - @,0&X1 SET PRINT MASK KWIC5 0652 MCE FREFNO-1,0&X1 MOVE AND EDIT KWIC KWIC5 0653 MZ FREFNO-1,0&X1 GENERATED REF NO KWIC5 0654 REFX B 0 KWIC5 0655 KS58 MCW FREFNO,0&X1 KWIC5 0656 B REFX KWIC5 0657 LINCTR DCW 001 CURRENT LINE NO. IN THIS TITLE KWIC5 0658 DA 1X540,G KWIC5 0659 LINTTL 1,2 0660 LOCKW 3,5 0661 LKW 6,7 0662 KEYWD 8,27 0663 FREFNO 28,39 0664 TITLE 41,41 0665 END START KWIC5 0101 JOB 1401 KWIC- TAPE-TO-TAPE AND REFNO ASSIGNMENT KWIC6 0102 CTL 431 0103 TITLE EQU 60 KWIC6 0104 REF EQU 71 KWIC6 0105 REF12 EQU 72 KWIC6 0106 SEQ EQU 74 KWIC6 0107 CDTYP EQU 75 KWIC6 0108 DEPT EQU 76 KWIC6 0109 SETNO EQU 80 KWIC6 0110 NAME EQU 4 KWIC6 0111 AUTHOR EQU TITLE KWIC6 0112 SUBJ EQU AUTHOR KWIC6 0113 ABST EQU SUBJ KWIC6 0114 YEAR EQU ABST KWIC6 0115 SOURCE EQU YEAR KWIC6 0116 ORG 81 KWIC6 0117 DCW @}@ KWIC6 0118 ORG 87 KWIC6 0119 X1 DCW 000 KWIC6 0120 ORG 92 KWIC6 0121 X2 DCW 000 KWIC6 0122 ORG 97 KWIC6 0123 X3 DCW 000 KWIC6 0124 ORG 101 KWIC6 0125 C31 DCW 001 KWIC6 0126 C359 DCW 059 KWIC6 0127 C3I9I DCW @I9I@ KWIC6 0128 SIGN DCW @SSW @ KWIC6 0129 C1R DCW @1@ KWIC6 0130 C1N DCW @N@ KWIC6 0131 SW1 DCW 0 KWIC6 0132 T3A DA 1X3 KWIC6 0133 1,1 KWIC6 0134 2,2 KWIC6 0135 T3B 3,3 KWIC6 0136 DCW @}@ KWIC6 0137 DCW 004 KWIC6 0138 DCW 003 KWIC6 0139 DCW 002 KWIC6 0140 NOCH DCW 001 KWIC6 0141 SWADR DCW &CHAR1 KWIC6 0142 DCW &CHAR2 KWIC6 0143 DCW &CHAR3 KWIC6 0144 DCW &CHAR4 KWIC6 0145 DCW @}@ KWIC6 0146 CHAR1 DCW @A@ KWIC6 0147 DCW @}@ KWIC6 0148 DCW @BY@ KWIC6 0149 DCW @TO@ KWIC6 0150 DCW @AS@ KWIC6 0151 DCW @AT@ KWIC6 0152 DCW @AN@ KWIC6 0153 DCW @ON@ KWIC6 0154 DCW @IN@ KWIC6 0155 CHAR2 DCW @OF@ KWIC6 0156 DCW @}@ KWIC6 0157 DCW @FOR@ KWIC6 0158 DCW @AND@ KWIC6 0159 CHAR3 DCW @THE@ KWIC6 0160 DCW @}@ KWIC6 0161 DCW @SOME@ KWIC6 0162 DCW @FROM@ KWIC6 0163 CHAR4 DCW @WITH@ KWIC6 0164 ORG 333 KWIC6 0165 STDCH DC @ZYXWVUTSRQPONMLKJIHGFEDCBA@ 0166 WRAREA DA 1X4 1ST 4 LETTERS OF AUTHORS NAME KWIC6 0167 DCW 00 2 INITIALS KWIC6 0168 DCW 00 YEAR KWIC6 0169 REFNO DCW 000 LAST CHAR OF 1ST 3 WORDS OF TITLE KWIC6 0170 DA 1X64 KWIC6 0171 DCW @}@ KWIC6 0172 SAVE DA 1X882 SAVE CARDS WHILE BUILDING REFNO KWIC6 0173 C11 DCW 1 KWIC6 0174 C30 DCW 000 KWIC6 0175 CDCNT DCW 00000 CARD COUNT KWIC6 0176 RECCT DCW 000 NO. RECORDS IN PRESEN CARD SET KWIC6 0177 START CS 80 0178 SW 1,61 0179 SW 73,75 KWIC6 0180 SW 76,77 KWIC6 0181 RWD 2 KWIC6 0182 RWD 6 KWIC6 0183 CC 1 KWIC6 0184 CS 299 KWIC6 0185 MCW @KWIC6 ON@,228 KWIC6 0186 W KWIC6 0187 CC L KWIC6 0188 CC L KWIC6 0189 CC L KWIC6 0190 * KWIC6 0191 *THIS ROUTINE PERFORMS INITIAL SETUP KWIC6 0192 * KWIC6 0193 BSS RN1,D BRANCH IF REFNO IN INPUT KWIC6 0194 B RN2 KWIC6 0195 RN1 SBR RN7A&3,RN9 BRANCH AROUND REFNO ASSIGNMENT KWIC6 0196 SBR RN9A&3,RN7C KWIC6 0197 SBR RN15&3,RN18 KWIC6 0198 CW WRAREA&4,WRAREA&6 KWIC6 0199 CW WRAREA&8 KWIC6 0200 MCW @D@,SIGN-3 KWIC6 0201 RN2 BSS RN2M,B BR. IF NO AUTHOR CARDS IN INPUT KWIC6 0202 B RN3 KWIC6 0203 * KWIC6 0204 *NO AUTHOR CARDS IN INPUT KWIC6 0205 * KWIC6 0206 RN2M MCW @B@,RN6A1 KWIC6 0207 MCW @B@,SIGN-5 KWIC6 0208 MCW @B@,RN7 KWIC6 0209 MCW @B@,RN37L KWIC6 0210 RN3 BSS RN3M,C BR. IF NO SOURCE CARDS IN INPUT KWIC6 0211 B RN4 KWIC6 0212 * KWIC6 0213 *NO SOURCE CARDS IN INPUT KWIC6 0214 * KWIC6 0215 RN3M MCW &RN40,RN14A&3 KWIC6 0216 MCW @N@,RN16F KWIC6 0217 MCW @C@,SIGN-4 KWIC6 0218 RN4 BSS RN4M,E BR. IF NO SUBJECT CARDS IN INPUT KWIC6 0219 B RN5 KWIC6 0220 * KWIC6 0221 *NO SUBJECT CARDS IN INPUT KWIC6 0222 * KWIC6 0223 RN4M MCW @B@,RN20 KWIC6 0224 MCW @N@,RN16G KWIC6 0225 MCW @E@,SIGN-2 KWIC6 0226 RN5 BSS RN5M,F BR. IF NO ABSTRACT CARDS IN INPUT KWIC6 0227 B RN5R KWIC6 0228 * KWIC6 0229 *NO ABSTRACT CARDS IN INPUT KWIC6 0230 * KWIC6 0231 RN5M MCW @B@,RN25 KWIC6 0232 MCW @N@,RN16H KWIC6 0233 MCW @F@,SIGN-1 KWIC6 0234 RN5R BSS RN5T,G KWIC6 0235 RN5S C 46,CEND SKIP OVERLAY 0236 BE HD1 0237 R RN5S 0238 HD1 R KWIC6 0239 MCW 15,CLBL&14 KWIC6 0240 MCW KWIC6 0241 C 3,@***@ KWIC6 0242 BE HD3 KWIC6 0243 HD2 CS 299 KWIC6 0244 MCW @CONTROL CARD ERROR@,238 KWIC6 0245 W KWIC6 0246 CC L KWIC6 0247 CC L KWIC6 0248 CC L KWIC6 0249 H HD1 KWIC6 0250 * KWIC6 0251 *CHECK INPUT LABEL KWIC6 0252 * KWIC6 02540HD3 B HD3A KWIC6 0255 B HD20 KWIC6 0256 HD3A SBR HDXIT&3 KWIC6 02570HD5 RWD 6 KWIC6 02571 BCE HDXIT,CLBL&3,1 NO LABEL KWIC6 02572 RT 6,INLBL KWIC6 0258 BCE HD6,CLBL&4,1 KWIC6 0259 C CLBL&14,INLBL&29 KWIC6 0260 BE HD6 KWIC6 0262 CS 299 KWIC6 0263 MCW @INPUT LABEL ERROR@,237 KWIC6 0264 W KWIC6 0265 CC L KWIC6 0266 CC L KWIC6 0267 CC L KWIC6 0268 H HD5 KWIC6 02690HD6 RT 6,TM1 KWIC6 0270 BEF HDXIT KWIC6 0271 BSP 6 KWIC6 0272 HDXIT B 0 KWIC6 02725TM1 DA 1X3,G KWIC6 02730HD20 B WRLBL KWIC6 02731 B HD21 KWIC6 02732WRLBL SBR WXIT&3 KWIC6 02733 RWD 2 KWIC6 02734W1 WT 2,LABEL KWIC6 02735 BER W2 KWIC6 02736WXIT B 0 KWIC6 02737W2 BSP 2 KWIC6 02738 SKP 2 KWIC6 02739 B W1 KWIC6 0276 HD21 CS 299 0277 MCW SIGN,230 KWIC6 0278 MCW CLBL&14,250 PRINT OPTIONS 0279 MCW 0280 W KWIC6 0281 CC L KWIC6 0282 CC L KWIC6 0283 CC L KWIC6 0284 B RN6 0285 RN5T MCW @G@,SIGN 0286 OVLAY 0287 RN6 B READ KWIC6 0288 B RN32 SEQ. ERR) KWIC6 0289 MZ @ @,73 KWIC6 0290 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0291 B RN6C KWIC6 0292 * KWIC6 02930*WRITE CARD TYPE 6 AND HIGHER. KWIC6 0294 * KWIC6 02945RN6A BWZ *&5,CDTYP,2 KWIC6 02946 B RN6A2 KWIC6 02947 C CDTYP,@5@ KWIC6 02948 BL RN6A2 KWIC6 02952 MCW C30,RECCT KWIC6 02953 BCE RN6C,CDTYP,0 KWIC6 0296 RN6A1 NOP RN6F BR. IN NO AUTHOR CARDS KWIC6 0297 BCE RN6C,CDTYP,1 BR.IF AUTHOR CARD KWIC6 02975 B RN35 KWIC6 0298 RN6A2 MCW ABST,WRAREA&73 KWIC6 0299 MCW SEQ,WRAREA&13 KWIC6 0300 MCW CDTYP,WRAREA&11 KWIC6 0301 B WRITE KWIC6 0302 B READ KWIC6 0303 B RN33 END OF JOB KWIC6 0304 MZ @ @,73 KWIC6 0305 RN6B A C11,CDCNT KWIC6 0306 B RN6A KWIC6 0307 * KWIC6 0308 *THIS ROUTINE PERFORMS AUTHOR SEQUENCING KWIC6 0309 * KWIC6 0310 RN6C SBR X1,0 KWIC6 0311 SBR RECCT,0 KWIC6 0312 SBR X2,0 KWIC6 0313 SBR X3,0 KWIC6 0314 RN6D BCE RN6E,CDTYP,0 BR. IF HEADER CARD KWIC6 0315 B RN7 KWIC6 0316 RN6E MCW AUTHOR,SAVE&62&X1 SAVE HEADER CARD KWIC6 0317 MCW CDTYP,SAVE&X1 KWIC6 0318 MCW SEQ,SAVE&2&X1 KWIC6 0319 SBR X1,63&X1 KWIC6 0320 B READ KWIC6 0321 B RN32 SEQ ERR KWIC6 0322 MZ @ @,73 KWIC6 0323 A C11,CDCNT KWIC6 0324 B RN6D KWIC6 0325 RN6F BCE RN6C,CDTYP,2 BR. IF TITLE CARD KWIC6 03260 B RN35 KWIC6 0327 RN7 NOP RN9A BR. IF NO AUTHOR CARDS KWIC6 0328 RN7A BCE RN8,CDTYP,1 BR. IF AUTHOR CARD KWIC6 0329 RN7B CS 299 KWIC6 0330 MCW CDCNT,CMNT1-16 KWIC6 0331 MCW CMNT1,254 KWIC6 0332 W KWIC6 0333 MCM 1,219 KWIC6 0334 W KWIC6 0335 CC L KWIC6 0336 CC L KWIC6 0337 CC L KWIC6 0338 H RN37A KWIC6 0339 RN7C MCW REF,REFNO KWIC6 0340 MN REF12,REFNO&64 KWIC6 0341 MZ REF12,REFNO&64 KWIC6 0342 B RN13 KWIC6 0343 RN8 MCW NAME,REFNO-7 SAVE 1ST 4 CHARS OF NAME KWIC6 0344 SBR RN8A&6,1 SAVE AUTHOR INITIALS KWIC6 0345 MZ RN8B,RN8A&5 KWIC6 0346 SBR X2,0 KWIC6 0347 RN8A BCE RN8B,1&X2, KWIC6 0348 SBR X2,1&X2 KWIC6 0349 B RN8A KWIC6 0350 RN8B MCW 3&X2,REFNO-5 KWIC6 0351 RN9 MCW AUTHOR,SAVE&62&X1 SAVE AUTHOR KWIC6 0352 MCW CDTYP,SAVE&X1 SAVE CARD TYPE KWIC6 0353 MCW SEQ,SAVE&2&X1 SAVE SEQUENCE NO. KWIC6 0354 SBR X1,63&X1 KWIC6 0355 B READ KWIC6 03560 B RN16F KWIC6 0357 MZ @ @,73 KWIC6 0358 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0359 BCE RN9B,CDTYP,1 BRANCH IF AUTHOR CARD KWIC6 0360 RN9A BCE RN10,CDTYP,2 BRANCH IF TITLE CARD KWIC6 0361 B RN7B KWIC6 0362 RN9B C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC6 0363 BH RN9 OK KWIC6 0364 B RN7B ERROR KWIC6 0365 * KWIC6 0366 *THIS ROUTINE PERFORMS TITLE SEQUENCING KWIC6 0367 * KWIC6 0368 RN10 SBR X2,1 0369 MCW BLNK3#3,T3B KWIC6 0370 CHAIN2 KWIC6 0371 SBR RN11B5&6,T3A 0372 RN11A MN TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0373 MZ TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0374 RN11A3 BCE RN11B,STDCH,0 0375 CHAIN25 0376 SBR X2,1&X2 0377 BCE RN12R,X2-1,6 0378 B RN11A 0379 RN11B SBR HOKW#3,TITLE-60&X2 0380 RN11B5 MCW TITLE-60&X2,0 0381 RN11B6 MN TITLE-60&X2,RN11B7&7 0382 MZ TITLE-60&X2,RN11B7&7 0383 RN11B7 BCE RN11B8,STDCH,0 0384 CHAIN25 0385 B RN11C 0386 RN11B8 SBR X2,1&X2 0387 B RN11B6 0388 RN11C SBR LGKW#3,TITLE-60&X2 COMPARE KW WITH STOP WORD 0389 S HOKW,LGKW KWIC6 0390 MZ @ @,LGKW KWIC6 0391 SBR X3,0 KWIC6 0392 S C31,X2 0393 MZ @ @,X2 0394 MCW &NOCH,RN11D&6 KWIC6 0395 RN11D C LGKW,0 KWIC6 0396 SBR RN11D&6 KWIC6 0397 SBR RN11E&6 KWIC6 0398 BE RN12 LGKW EQU LGSW KWIC6 0399 RN11E BCE RN12J,0,} LGKW NOT EQU LGSW KWIC6 0400 SBR X3,3&X3 KWIC6 0401 B RN11D KWIC6 0402 RN12 MCW SWADR&X3,RN12D&6 KWIC6 0403 RN12D C TITLE-60&X2,0 0404 SBR RN12D&6 KWIC6 0405 SBR RN12G&6 KWIC6 0406 BU RN12G KWIC6 0407 B RN12M KW EQU SW KWIC6 0408 RN12G BCE RN12J,0,} KW NOT EQU SW KWIC6 0409 B RN12D KWIC6 0410 RN12J C RN11B5&6,&T3B 0411 BE RN12R KWIC6 0412 MA C31,RN11B5&6 0413 RN12M SBR X2,2&X2 0414 B RN11A KWIC6 0415 RN12R MCW T3B,REFNO KWIC6 0416 CHAIN2 KWIC6 0417 RN13 MCW TITLE,SAVE&62&X1 SAVE TITLE KWIC6 0418 MCW SEQ,SAVE&2&X1 KWIC6 0419 MCW CDTYP,SAVE&X1 KWIC6 0420 SBR X1,63&X1 KWIC6 0421 B READ KWIC6 0422 B RN16F KWIC6 0423 MZ @ @,73 KWIC6 0424 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0425 BCE RN16A,CDTYP,2 BRANCH IF TITLE CARD KWIC6 0426 RN14A B RN15 RN40 IF NO SOURCE CARDS KWIC6 0427 B RN20 KWIC6 0428 RN15 BCE RN17,CDTYP,3 BRANCH IF SOURCE CARD KWIC6 0429 B RN7B SEQ. ERROR KWIC6 0430 RN16A C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC6 0431 BH RN13 OK KWIC6 0432 B RN7B ERROR KWIC6 0433 * KWIC6 0434 *LAST CARD ROUTINE KWIC6 0435 * KWIC6 0436 RN16F B RN32 KWIC6 0437 B RN40 KWIC6 0438 RN16G B RN35 KWIC6 0439 RN16H B RN35 KWIC6 0440 B RN33 KWIC6 0441 * KWIC6 0442 *THIS ROUTINE PERFORMS SOURCE SEQUENCING KWIC6 0443 * KWIC6 0444 RN17 MCW YEAR,REFNO-3 SAVE YEAR FOR REFNO KWIC6 0445 RN18 B RN40 KWIC6 0446 RN18A MCW SOURCE,WRAREA&73 KWIC6 0447 MCW SEQ,WRAREA&13 KWIC6 0448 MCW CDTYP,WRAREA&11 KWIC6 0449 B WRITE WRITE SOURCE CARD KWIC6 0450 B READ KWIC6 0451 B RN16G KWIC6 0452 MZ @ @,73 KWIC6 0453 RN18C A C11,CDCNT KWIC6 0454 BCE RN20A,CDTYP,3 BRANCH IF SOURCE CARD KWIC6 0455 RN20 NOP RN25 BR. IF NO SUBJECT CARDS KWIC6 0456 RN20B BCE RN21,CDTYP,4 BRANCH IF SUBJECT CARD KWIC6 0457 B RN35 KWIC6 0458 RN20A C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0459 BH RN18A OK KWIC6 0460 B RN35 ERROR KWIC6 0461 * KWIC6 0462 *THIS ROUTINE PERFORMS SUBJECT SEQUENCING KWIC6 0463 * KWIC6 0464 RN21 MCW SUBJ,WRAREA&73 KWIC6 0465 MCW SEQ,WRAREA&13 KWIC6 0466 MCW CDTYP,WRAREA&11 KWIC6 0467 B WRITE WRITE SUBJECT CARD KWIC6 0468 B READ KWIC6 0469 B RN16H KWIC6 0470 MZ @ @,73 KWIC6 0471 RN21A A C11,CDCNT KWIC6 0472 B RN24A KWIC6 0473 RN23 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0474 B RN34 SEQ. ERROR KWIC6 0475 RN24 BCE RN34A,CDTYP,4 BRANCH IF SUBJECT.# KWIC6 0476 B RN34 SEQ. ERROR KWIC6 0477 RN24A BCE RN25B,CDTYP,4 BRANCH IF SUBJECT CARD KWIC6 0478 RN25 NOP RN6A BR. IF NO ABSTRACT CARDS KWIC6 0479 RN25A BCE RN26,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0480 B RN35 KWIC6 0481 RN25B C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0482 BH RN21 OK KWIC6 0483 B RN35 ERROR KWIC6 0484 * KWIC6 0485 *THIS ROUTINE PERFORMS ABSTRACT SEQUENCING KWIC6 0486 * KWIC6 0487 RN26 MCW ABST,WRAREA&73 KWIC6 0488 MCW SEQ,WRAREA&13 KWIC6 0489 MCW CDTYP,WRAREA&11 KWIC6 0490 B WRITE WRITE ABSTRACT CARD KWIC6 0491 B READ KWIC6 0492 B RN33 END OF JOB KWIC6 0493 MZ @ @,73 KWIC6 0494 RN26A A C11,CDCNT KWIC6 0495 BCE RN27A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0496 B RN6A KWIC6 0497 RN27A C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0498 BH RN26 OK KWIC6 0499 B RN35 ERROR KWIC6 0500 RN32 CS 299 KWIC6 0501 MCW CDCNT,CMNT1-16 KWIC6 0502 MCW CMNT1,254 KWIC6 0503 W KWIC6 0504 MCM 1,219 KWIC6 0505 W KWIC6 0506 CC L KWIC6 0507 CC L KWIC6 0508 CC L KWIC6 0509 H KWIC6 0510 * KWIC6 0511 *THE END KWIC6 0512 * KWIC6 0513 RN33 WTM 2 KWIC6 0514 RWD 2 KWIC6 0515 RWD 6 KWIC6 0516 CS 299 KWIC6 0517 MCW @END KWIC6@,229 KWIC6 0518 W KWIC6 0519 CC L KWIC6 0520 CC L KWIC6 0521 CC L KWIC6 0522 H *-3 KWIC6 0523 RN34 EQU RN35 0524 RN34A MCW TITLE,WRAREA&73 KWIC6 0525 MCW SEQ,WRAREA&13 KWIC6 0526 MCW CDTYP,WRAREA&11 KWIC6 0527 B WRITE KWIC6 0528 B RN33 KWIC6 0529 RN35 CS 299 KWIC6 0530 MCW CDCNT,CMNT1-16 KWIC6 0531 MCW CMNT1,254 KWIC6 0532 W KWIC6 0533 MCM 1,219 KWIC6 0534 W KWIC6 0535 CC L KWIC6 0536 CC L KWIC6 0537 CC L KWIC6 0538 H KWIC6 0539 RN36 C RECCT,C30 PURGE BAD CARDS FROM TAPE KWIC6 0540 BE RN37A BR. IF ALL RECORDS PURGED KWIC6 0541 BSP 2 KWIC6 0542 S C11,RECCT KWIC6 0543 MZ C11,RECCT KWIC6 0544 B RN36 KWIC6 0545 RN37A B READ KWIC6 0546 B RN33 KWIC6 0547 MZ @ @,73 KWIC6 0548 A C11,CDCNT KWIC6 0549 BCE RN6C,CDTYP,0 BR. IF HEADER KWIC6 0550 RN37L NOP RN37M BR. IF NO AUTHOR CARDS KWIC6 0551 BCE RN6C,CDTYP,1 BR. IF AUTHOR KWIC6 0552 B RN37A KWIC6 0553 RN37M BCE RN6C,CDTYP,2 BR. IF TITLE KWIC6 0554 B RN37A KWIC6 0555 * KWIC6 0556 *WRITE SAVED CARDS KWIC6 0557 RN40 SBR XIT1&3 KWIC6 0558 SBR X2,0 KWIC6 0559 RN41 MCW SAVE&62&X2,WRAREA&73 MOVE CARD TO WRITE AREA KWIC6 0560 B WRITE WRITE TYPE KWIC6 0561 SBR X2,63&X2 KWIC6 0562 C X1,X2 KWIC6 0563 BL RN41 KWIC6 0564 XIT1 B 0 KWIC6 0565 * KWIC6 0566 *THIS ROUTINE WRITES THE OUTPUT TAPE KWIC6 0567 * KWIC6 0568 WRITE SBR WRXIT&3 SAVE RETURN ADDRESS KWIC6 0569 WR1A MCW C11,WRT1 KWIC6 0570 WR1 WT 2,WRAREA KWIC6 0571 BER WR2 BRANCH ON TAPE ERROR KWIC6 0572 BEF WR4 EOF KWIC6 0573 A C11,RECCT KWIC6 0574 WRXIT B 0 KWIC6 0575 WR2 BSP 2 KWIC6 0576 BCE WR3,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC6 0577 A C11,WRT1 ADD 1 TO BAD COUNT KWIC6 0578 B WR1 KWIC6 0579 WR3 SKP 2 SKIP AND BLANK BAD RECORD KWIC6 0580 B WR1A KWIC6 0581 WR4 WTM 2 KWIC6 0582 RWU 2 KWIC6 0583 CS 299 KWIC6 0584 MCW @REMOVE TAPE 2, MOUNT BLANK REEL, CONTINUE.@,264 KWIC6 0585 W KWIC6 0586 CC L KWIC6 0587 CC L KWIC6 0588 CC L KWIC6 0589 H KWIC6 05910 B WRLBL KWIC6 0593 B WRXIT KWIC6 0594 LABEL DCW @1@ KWIC6 0595 DC @HDR@ KWIC6 0596 DC #16 KWIC6 0597 DC @BIBLIOGRAP@ KWIC6 0598 DC #50 KWIC6 0599 DCW @}@ KWIC6 0600 * KWIC6 0601 *INPUT TAPE READ ROUTINE KWIC6 0602 * KWIC6 0603 READ SBR RDXIT&3 KWIC6 0604 RD1 MCW C11,CTR1#1 KWIC6 0605 RD2 RT 6,1 KWIC6 0606 BER RD4 KWIC6 0607 BEF RD6 KWIC6 0608 RD3 MA @004@,RDXIT&3 KWIC6 0609 RDXIT B 0 KWIC6 0610 RD4 A C11,CTR1 KWIC6 0611 BCE RD5,CTR1,0 KWIC6 0612 BSP 6 KWIC6 0613 B RD2 KWIC6 0614 RD5 CS 299 KWIC6 0615 MCW @INPUT READ ERROR@,236 KWIC6 0616 W KWIC6 0617 CC L KWIC6 0618 CC L KWIC6 0619 CC L KWIC6 0620 H RD1 KWIC6 0621 RD6 CS 299 KWIC6 0622 MCW @MOUNT NXT INPUT OR SSW F ON@,247 KWIC6 0623 W KWIC6 0624 CC L KWIC6 0625 CC L KWIC6 0626 CC L KWIC6 0627 H KWIC6 0628 BSS RDXIT,F KWIC6 0629 BCE HD3A,CLBL&3, GO CHECK LABEL KWIC6 0630 B RD1 KWIC6 0631 CLBL DA 1X15 KWIC6 0632 6,6 KWIC6 0633 EOFSW DC #1 KWIC6 0634 INLBL DA 1X30,G KWIC6 0635 21,21 KWIC6 0636 WRT1 DCW 0 KWIC6 0637 CMNT1 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC6 0638 CS HD1,80 0639 CEND EQU * 0640 LTORG 0641 EX START 0642 ORG RN6 0643 *THIS ROUTINE PROCESSES TITLE CARDS ONLY 0644 TTLA CW WRAREA&4,WRAREA&6 KWIC6 0645 CW WRAREA&8 KWIC6 0646 SW 1,61 0647 SW 73,75 0648 SW 76,77 0649 TTL B READ KWIC6 0650 B RN33 KWIC6 0651 MZ @ @,73 KWIC6 0652 A @1@,CDCNT KWIC6 0653 C REF12,CREF12#12 KWIC6 0654 BE TTL4 KWIC6 0655 B TTL8 KWIC6 0656 TTL4 BCE TTL9,CDTYP,2 KWIC6 06565 B TTL10 KWIC6 0657 TTL5 CS 299 KWIC6 0658 MCW CDCNT,CMNT1-16 KWIC6 0659 MCW CMNT1,254 KWIC6 0660 W KWIC6 0661 MCM 1,219 KWIC6 0662 W KWIC6 0663 CC L KWIC6 0664 CC L KWIC6 0665 CC L KWIC6 0666 H TTL11 KWIC6 0667 TTL6 B READ KWIC6 0668 B RN33 KWIC6 0669 MZ @ @,73 KWIC6 0670 A @1@,CDCNT KWIC6 0671 C REF12,CREF12 KWIC6 0672 BE TTL6 KWIC6 0673 TTL7 MCW REF12,CREF12 KWIC6 06735 MCW C30,RECCT KWIC6 06736 MCW @ @,SEQ1 KWIC6 0674 B TTL4 KWIC6 0675 TTL8 MCW @ @,SEQ1#2 KWIC6 0676 B TTL7 KWIC6 0677 TTL9 C SEQ,SEQ1 KWIC6 06780 BL TTL9E KWIC6 0679 B TTL5 KWIC6 06795TTL9E MCW SEQ,SEQ1 KWIC6 0680 TTL10 MCW REF,REFNO KWIC6 0681 MN REF12,REFNO&64 KWIC6 0682 MZ REF12,REFNO&64 KWIC6 0683 MCW TITLE,WRAREA&73 KWIC6 0684 MCW SEQ,WRAREA&13 KWIC6 0685 MCW CDTYP,WRAREA&11 KWIC6 0686 B WRITE KWIC6 0688 B TTL KWIC6 0689 TTL11 C RECCT,C30 KWIC6 0690 BE TTL6 KWIC6 0691 BSP 2 KWIC6 0692 S @1@,RECCT KWIC6 0693 MZ @ @,RECCT KWIC6 0694 B TTL11 KWIC6 0695 END HD1