################################################################################THE PRESEEDING CARD IS USED TO SEPARATE FILES. THE NEXT CARD OF EACH FILEHAS COLS 1-10 = ########## THEN A DESCRIPTION BEGINNING IN COL 12. R. WEAVER JUN 27, 1972 ########################################################################################## AUTOCODER CROSS REFERENCE, 1401 SOURCE 0101 JOB C R O S S CROS20102 CTL 6611 CROS20103 * MODIFIED BY R. WEAVER FOR 1401 CROS20104 * CROS20105 * 1. COMPACT PRINT FORMAT. THIS VERSION WILL ONLY PRINT THE FIRST CROS20106 * SIX CHARACTERS OF EACH LABEL. CROS20107 * 2. CHECK FOR VALID 1401 OP CODES. CROS20108 * 3. MINOR LOGIC CORRECTIONS. CROS20109 * CROS20110 ****************************************************************** CROS20111 * CROS20112 * WRITTEN BY - DAVID R. ANGELL CROS20113 * IBM CORP CROS20114 * DEPT. - 714 CROS20115 * 1701 NORTH STREET CROS20116 * ENDICOTT, N.Y. CROS20117 * CROS20118 * THIS PROGRAM WILL PRODUCE A CROSS REFERENCE LISTING FROM CROS20119 * 1401 AUTOCODER SOURCE CARDS. CROS20120 * CROS20121 * TAPES 4 AND 5 ARE USED. CROS20122 * CROS20123 * OPTIONS UNDER SENSE SWITCH CONTROL ARE - CROS20124 * 1. SWITCH B ON - WILL PRODUCE A CARD CROS20125 * IMAGE LISTING OF THE AUTOCODER DECK. CROS20126 * 2. SWITCH C ON - PUNCH RESEQUENCED SOURCE DECK. CROS20127 * CROS20128 * CROS20129 ORG 336 CROS20130 SEQNC CROS20131 INDEX CROS20132 104 DCW @0100@ CROS20133 106 DCW #1 CROS20134 176 DCW #1 CROS20135 JOB CROSS, INITALIZE CROS20136 START SW 1,16 CROS20137 SW 21 CROS20138 * CROS20139 S X1&1 CROS20140 SW SW BUILD&X1,TAPEIN&X1 CROS20141 SW MERGE&X1 CROS20142 SBR X1,L&X1 CROS20143 BCE SW,BUILD&X1, CROS20144 * CROS20146 N10040 RWD 4 CROS20147 RWD 5 CROS20148 BLC *&5 CROS20149 B PHASE1 CROS20150 WCSCS1,,@END OF JOB@ CROS20152 CC 1 CROS20153 H CROS20154 JOB CROSS, PHASE I, CARD-TO-TAPE SORTING RECORD CROS20155 PHASE1 MLC @1@,PHASE#1 PHASE SWITCH CROS20156 MLC @N@,SW5042 ONE TIME MERGE SWITCH CROS20157 SW SWF FIRST SWITCH FOR READ ROUTINE CROS20158 S X1&1 CROS20159 * CROS20160 READ B READR READ NEXT CROS20161 * CROS20162 QTYPE BCE READ,6,* Q. COMMENT CARD. CROS20163 C 20,JOB CROS20164 BE READ CROS20165 C 20,@CTL @ CROS20166 BE READ CROS20167 C 20,@DIOCS@ CHECK IF DIOCS CARD CROS20168 BE DIOCS CROS20169 C 20,@DTF @ IF DTF,TREAT AS TAG CROS20170 BE DTF CROS20171 C 20,@INDEX@ CROS20172 BE INDEX CROS20173 * CROS20174 B LABEL CROS20175 * CROS20176 BCE QOP4,20, Q. OP CODE 5 CHARACTERS CROS20177 C 20,@CHAIN@ CROS20178 BE READ CROS20179 SBR X3,OP5 CROS20180 B COP CROS20181 QOP4 BCE QOP3,19, CROS20182 SBR X3,OP4 CROS20183 B COP CROS20184 QOP3 BCE QOP2,18, CROS20185 C 18,@DCW@ CROS20186 BE DCW CROS20187 SBR X3,OP3 CROS20188 B COP CROS20189 QOP2 BCE QOP1,17, CROS20190 C 17,@DC@ CROS20191 BE DCW CROS20192 C 17,@DA@ CROS20193 BE DA CROS20194 SBR X3,OP2 CROS20195 B COP CROS20196 QOP1 SBR X3,OP1 CROS20197 COP MLC 2&X3,*&4 CROS20198 C 0,0&X3 Q. VALID OP CROS20199 SBR X3 CROS20200 BE OPOK CROS20201 BCE OPBLK,0&X3,* CROS20202 B COP&7 CROS20203 OPBLK MLC @OP@,205 CROS20204 BSS *&13,B CROS20205 WCSCS,,5,214 CROS20206 OPOK EQU *&1 CROS20207 * CROS20208 B OPR CROS20209 B READ CROS20210 * CROS20211 DIOCS B READQ CROS20212 B DIOCS CROS20213 * CROS20214 DTF MLC 26,TAGF1&X1 CROS20215 B REFA CROS20216 DTFR B READQ CROS20217 C 11,@INDEXR@ CROS20218 BE IOCS CROS20219 C 11,@IOAREA@ CROS20220 BE IOCS CROS20221 C 11,@ADD@ CROS20222 BE IOCS CROS20223 C 11,@WORKAR@ CROS20224 BU DTFR CROS20225 IOCS MLC @*IOCS@,20 CROS20226 B OPR CROS20227 B DTFR CROS20228 * CROS20229 INDEX MN &1,@X1@ CROS20230 INDEX2 MLC BLK4,TAGF1&X1 CROS20231 MLC @X1@ CROS20232 B REFA CROS20233 A *-6,@X1@ CROS20234 BCE READ,@X1@,4 CROS20235 B INDEX2 CROS20236 * CROS20237 DCW BCE READ,21,@ DROP LITERALS CROS20238 BCE USE22,21,& CROS20239 BCE USE22,21,- CROS20240 MLC 21,WK1#1 CROS20241 B *&8 CROS20242 USE22 MLC 22,WK1 CROS20243 C WK1,@Z@ CROS20244 BL READ DROP NUMERIC CONSTANTS CROS20245 B OPOK CROS20246 * CROS20247 DA B READQ CROS20248 B LABEL CROS20249 B DA CROS20250 * CROS20251 READQ SBR READQX&3 READ FOR DIOCS, DTF, DA BLANKS CROS20252 B READR CROS20253 BCE QTYPE,6,* CROS20254 C 20,BLK5 CROS20255 BU QTYPE CROS20256 READQX B * CROS20257 * CROS20258 LABEL SBR LABELX&3 CROS20259 C 11,BLK6 Q. LABELED STATEMENT CROS20260 BE LABELX CROS20261 MLC 11,TAGF1&X1 MOVE TAG CROS20262 B REFA CROS20263 LABELX B * CROS20264 * CROS20265 OPR SBR OPRX&3 TEST FOR REFERENCE TO LABEL CROS20266 S X3&1 CLEAR INDEX 3 CROS20267 B N03040 CROS20268 * CROS20269 N03210 MA @001@,X3 ..SCAN TO NEXT OPERAND CROS20270 BCE OPRX,21&X3, BLANK,READ NEXT CARD CROS20271 BCE N03250,21&X3,, COMMA,CHECK NEXT CHAR FOR COMMA CROS20272 C 21&X3,@A@ IF ALPHA, PICK UP CROS20273 BH N03210 CROS20274 C 21&X3,@0@ CROS20275 BH N03110 CROS20276 B N03210 CROS20277 N03250 MA @001@,X3 CROS20278 * CROS20279 N03040 S X2&1 ..BEGIN TEST FOR NEW SYMBOL CROS20280 MLC BLK6,WK6 CROS20281 BCE OPRX,21&X3, FOR BLANK-YES,READ NEXT CARD CROS20282 BCE N03250,21&X3,, CHAR IS COMMA,CHECK NEXT CHARACTER CROS20283 BCE N04040,21&X3,@ CHECK FOR LITERAL CROS20284 BCE N03210,21&X3,* NOT ALPHA,CHECK FOR * CROS20285 BCE N04062,21&X3,& CHECK FOR POSSIBLE ADCON CROS20286 BCE N04062,21&X3,- CROS20287 B N03110 CROS20288 N04062 BWZ *&5,21&1&X3,2 Q. ADCON CROS20289 B N03130 YES CROS20290 * CROS20291 N03110 MLC 21&X3,WORKB&X2 ..SCAN FOR END OF REFERENCE CROS20292 BCE *&8,X2,5 6 CHARACTER MAXIMUM CROS20293 MA @001@,X2 INCREMENT X2 BY 1 CROS20294 N03130 MA @001@,X3 INCREMENT X3 BY 1 CROS20295 BCE N04090,21&X3,, COMMA,&,-,#,OR BLANK FOUND,MOVE CROS20296 BCE N04090,21&X3,& CROS20297 BCE N04090,21&X3,- CROS20298 BCE N04021,21&X3,# CROS20299 BCE N04090,21&X3, CROS20300 B N03110 CROS20301 * CROS20302 N04040 MA @001@,X3 ..SCAN FOR END OF LITERAL CROS20303 BCE *&15,X2,5 CROS20304 SBR X2,1&X2 CROS20305 MLC 21&X3,WORKB&X2 CROS20306 BCE LITEND,21&X3,@ CROS20307 BCE OPRX,X3-1,6 CROS20308 B N04040 CROS20309 * CROS20310 N04021 MLC @A@,CODE&X1 ..SET UP AREA-DEFINING LITERAL CROS20311 MLC @#@,BLEND&X1 CROS20312 MLC 19 CROS20313 B N04085 CROS20314 * CROS20315 * END OF GOOD REF FOUND,MOVE PG-LINE AND SET UP FOR NEXT REF CROS20316 LITEND SBR X3,1&X3 CROS20317 N04090 MLC 20,BLEND&X1 MOVE OP CROS20318 MLC @B@,CODE&X1 MOVE B FOR REF CROS20319 N04085 BCE SYMB,WORKB,< CROS20320 BCE SYMB,WORKB,@ CROS20321 C WORKB,@A@ CHECK IF SPECIAL CHAR IN TAG CROS20322 BH N03040 YES,DROP CROS20323 SYMB BCE N03040,WORKB,\ CHECK IF RECORD MARK CROS20324 MLC WK6,TAGF1&X1 MOVE WORK TO AREA CROS20325 B REF CROS20326 B N03040 TO CHECK NEXT CHAR FOR COMMA CROS20327 OPRX B * CROS20328 * CROS20329 READR SBR READRX&3 READR DOES NOT RETURN CONTROL CROS20330 BWZ FIRST,SWF#1,1 ON END OF PROGRAM, BUT PASSES CROS20331 BLC E05040 TO PHASE 2. CROS20332 BCE *&13,6,* Q. COMMENT CARD CROS20333 C 18,@END@ END CARD CHECK CROS20334 BE E05040 YES TO END ROUTINE CROS20335 * CROS20336 BSS PT1,B CROS20337 BSS PCH1,C CROS20338 R FIXSEQ CROS20339 PT1 BSS *&5,C CROS20340 WR N01540 CROS20341 WRP N01573 CROS20342 PCH1 RP N01573 CROS20343 * CROS20344 FIRST R CROS20345 CW SWF FIRST SW OFF. CROS20346 MLC BLK5,SEQA CROS20347 MLC BLK5,180 CROS20348 MLC BLK52,HEAD1 CROS20349 S PGCNT CLEAR PAGE COUNTER CROS20350 BSS *&5,B CROS20351 B FIRSTC CROS20352 C 20,JOB CROS20353 BU HEAD CROS20354 FIRSTC BSS *&5,C CROS20355 B QPRNT CROS20356 * CROS20357 * TEST FOR AND SET UP PUNCH AREA CROS20358 N01573 MLC 72,172 MOVE TO PUNCH CROS20359 CHAIN2 CROS20360 A *-6,104 SEQUENCE CROS20361 MLC 105,5 CROS20362 C 20,JOB CROS20363 BE *&12 CROS20364 MLC 180,80 CROS20365 B *&8 CROS20366 MLC 80,180 CROS20367 * CROS20368 * TEST FOR AND SET UP PRINT AREA CROS20369 QPRNT BSS N01540,B B ON LIST CARDS CROS20370 B FIXSEQ CROS20371 N01540 CS 299 CROS20372 C 20,JOB CROS20373 BU *&12 CROS20374 MLC 72,HEAD1 CROS20375 B S50060 CROS20376 BCV S50060 CHAN 12, PRINT HEADINGS CROS20377 C 5,SEQA#5 SEQ CHECK CROS20378 BL S01550 CROS20379 C SEQA,BLK5 CROS20380 BE S01550 CROS20381 MLC @SEQ@,203 CROS20382 S01550 MLC 5,SEQA CROS20383 SW 216 CROS20384 MLC 80,290 MLC CARD TO PRINT CROS20385 MLC CROS20386 MLC CROS20387 MLC 5,214 CROS20388 * CROS20389 FIXSEQ C 5,BLK5 CROS20390 BE *&12 CROS20391 MLC 5,CDSEQ#5 CROS20392 B *&12 CROS20393 MLC @*@,5 CROS20394 MLC CDSEQ-1 CROS20395 READRX B * CROS20396 * CROS20397 * END CARD SENSED,PAD BUILD AREA WITH 9 S,GO TO FINAL MERGE CROS20398 * CROS20399 E05040 BSS *&5,B CROS20400 B *&4 CROS20401 WCSCS CROS20402 BSS *&5,C CROS20403 B *&8 CROS20404 P CROS20405 CS 180 CROS20406 P CROS20407 P CROS20408 N05065 C X1,@000@ CROS20409 BE PHASE2 AREA EMPTY,TO TAPE CHECK CROS20410 MLC NINES,BLEND&X1 PAD 9 S CROS20411 B REFB CROS20412 B N05065 CONTINUE PADDING CROS20413 * CROS20414 REFA SBR REFX&3 CROS20415 MLC 20,BLEND&X1 CROS20416 MLC @A@,CODE&X1 CROS20417 B *&5 CROS20418 REF SBR REFX&3 COMPLETE OUTPUT RECORD CROS20419 MLC 5,PGLIN1&X1 MOVE PG/LIN CROS20420 C TAGF1-5&X1,@0@ Q. NUMERIC CROS20421 BH REF2 NO CROS20422 B QRJST CROS20423 RJST MLC TAGF1-1&X1,TAGF1&X1 RIGHT JUSTIFY NUMERIC LABELS CROS20424 MLC BLK1 CROS20425 QRJST BCE RJST,TAGF1&X1, CROS20426 REF2 B *&5 CROS20427 REFB SBR REFX&3 CROS20428 SBR X1,L&X1 CROS20429 BCE S50360,BUILD&X1,! GM ,AREA FULL - TO MRGE CROS20430 REFX B * CROS20431 * CROS20432 * SUBROUTINE EXCECUTED WHEN BUILD AREA IS FILLED. CROS20433 * 1. SORT BUILD AREA CROS20434 * 2. MERGE WITH PREVIOUS BUILT UP RECORDS IN MERGE AREA CROS20435 * 3. WRITE OUT FOR NEXT PASS CROS20436 * CROS20437 S50360 SBR S50980&3 FOR EXIT CROS20438 MLC X3,HOLDX3 SAVE X3 CROS20439 S X3&1 CROS20440 MLC BLK1,EOFCT#1 CROS20441 MLC BLK17,WK17 CROS20442 * CROS20443 <0J011 MLC X3,X2 CROS20444 MLC X2&2 CROS20445 <0K011 SBR X2,L&X2 CROS20446 BCE <0N011,BUILD&X2,! CROS20447 C CODE&X2,CODE&X1 CROS20448 BL <0K011 CROS20449 BE <0K011 CROS20450 C CODE&X2,WK17-10 CROS20451 BE SORTE CROS20452 MLC X2,X1 CROS20453 B <0K011 CROS20454 SORTE MLC BLEND&X2,WK17 CROS20455 MLC BLEND&X3,BLEND&X2 CROS20456 MLC WK17,BLEND&X3 CROS20457 C X3,X1 CROS20458 BU *&8 CROS20459 MLC X2,X1 CROS20460 SBR X3,L&X3 CROS20461 B <0K011 CROS20462 <0N011 MLC BLEND&X1,WK17 CROS20463 MLC BLEND&X3,BLEND&X1 CROS20464 MLC WK17,BLEND&X3 CROS20465 SORTIC SBR X3,L&X3 CROS20466 BCE <1O011,BUILD&X3,! CROS20467 BCE <1O011,CODE&X3,9 CROS20468 C WK17-10,CODE&X3 CROS20469 BE SORTIC CROS20470 B <0J011 CROS20471 <1O011 S X3&1 CROS20472 S X2&1 CROS20473 S X1&1 CROS20474 * CROS20475 SW5042 NOP S50470 FIRST TIME NOP CROS20476 MLC @B@,SW5042 CROS20477 MRCM BUILD,MERGE MOVE FIRST BUILD CROS20478 B WTMRGE CROS20479 B S50864 CROS20480 * CROS20481 S50470 B RTBLD CROS20482 B S50800 CROS20483 * CROS20484 * COMPARE FOR MERGING CROS20485 S50490 C TAPTAG&X2,CODE&X1 CROS20486 BL S50620 BUILD LO, TO MOVE TO MERGE CROS20487 * CROS20488 * TAPEIN LO, MOVE TO MERGE CROS20489 TAPEMV MLC TPEND&X2,MRGEND&X3 CROS20490 SBR X2,L&X2 CROS20491 BCE S50710,TAPEIN&X2,! LAST TAG USED CROS20492 B S50550 TO STEP UP X3 CROS20493 S50710 S X2&1 CLEAR INDEX2 CROS20494 B RTBLD CROS20495 B S50800 CROS20496 B S50550 TO INCRA X3 CROS20497 S50800 MLZS @A@,EOFCT SET EOF FOR TAPE CROS20498 B S50550 CROS20499 * CROS20500 * BUILD LO, MOVE TO TO MERGE CROS20501 S50620 MLC BLEND&X1,MRGEND&X3 CROS20502 SBR X1,L&X1 CROS20503 BCE S50750,BUILD&X1,! LAST TAG USED CROS20504 B S50550 CROS20505 S50750 MLNS @A@,EOFCT SET EOF FOR BUILD AREA CROS20506 * CROS20507 S50550 SBR X3,L&X3 STEP UP X3 CROS20508 BCE S50670,MERGE&X3,! GM,AREA FULL - CROS20509 B SW5058 CROS20510 S50670 S X3&1 CLEAR X3 CROS20511 B WTMRGE CROS20512 SW5058 BCE S50490,EOFCT, Q. ANY EOF SET CROS20513 BCE S50620,EOFCT,& IF EOF TAPE, MOVE BUILD CROS20514 BCE TAPEMV,EOFCT,1 IF EOF BUILD, MOVE TAPE CROS20515 * CROS20516 S50864 B WTM CROS20517 * CROS20518 MLC HOLDX3,X3 RESTORE X3 CROS20519 S X1&1 CLEAR X1 CROS20520 S50980 B 0 EXIT CROS20521 JOB CROSS, PHASE 2, LIST MERGED TAPE CROS20522 PHASE2 MLC @2@,PHASE PHASE SWITCH CROS20523 SW SW2F CROS20524 S X2&1 CLEAR X2 , X1 CROS20525 * CROS20526 C06090 S X1&1 CROS20527 B RTBLD CROS20528 B E07060 EOF BRANCH CROS20529 B C06120 CROS20530 C06420 SBR X1,L&X1 CROS20531 BCE C06090,TAPEIN&X1,! GROUP MK , READ TAPE CROS20532 C06120 BCE E07060,CODE2&X1,9 CODE IS 9 LAST TAG IS LISTED CROS20533 * CROS20534 BWZ PFIRST,SW2F#1,1 CROS20535 BCE SETMIN,CODE2&X1,A Q. LABEL DEFINED CROS20536 C TAGF2&X1,SEQHLD REF EQUAL TO PREV TAG,OK CROS20537 BU SETMIN CROS20538 * CROS20539 PROCES BCE *&5,X3-1,9 CROS20540 B FLINE CROS20541 WCSCS CROS20542 S X3&1 CROS20543 BCV S50060 CROS20544 FLINE SW 227&X3,233&X3 CROS20545 MLC PGLIN2&X1,231&X3 CROS20546 MLC TPEND&X1,237&X3 CROS20547 SBR X3,13&X3 CROS20548 B C06420 CROS20549 * CROS20550 SETMIN SW SWMIN#1 MINOR BREAK SW ON CROS20551 * CROS20552 E07060 BWZ TLINE,233,1 Q. REFERENCES ON PREVIOUS LINE CROS20553 BWZ *&5,210,1 Q. LABEL ON PREVIOUS LINE CROS20554 B MINEND CROS20555 BCE *&8,221,# YES, OK IF AREA DEF LITERAL CROS20556 MLC @*UNREFERENCED@,238 CROS20557 TLINE WCSCS YES, PRINT CROS20558 MINEND BCV S50060 CROS20559 * CROS20560 BWZ RMIN,SWMIN,1 Q. MINOR BREAK CROS20561 * CROS20562 E07061 MLC NINES,MRGEND&X2 PAD TAPE 2 CROS20563 SBR X2,L&X2 CROS20564 BCE E07100,MERGE&X2,! GROUP MARK, END CROS20565 B E07061 CROS20566 E07100 B WTMRGE CROS20567 B WTM CROS20568 B PHASE3 CROS20569 * CROS20570 PFIRST CW SW2F CROS20571 MLC BLK6,SEQHLD BLANK LAST TAG HOLD AREA CROS20572 S PGCNT CROS20573 B S50060 TO PRINT HEADINGS CROS20574 * CROS20575 RMIN CW SWMIN CROS20576 S X3&1 CROS20577 BCE PLABEL,CODE2&X1,A CROS20578 BWZ PLABEL,TAPEIN&X1,2 Q. NUMBER OR LITERAL CROS20579 * CROS20580 MLC TPEND&X1,MRGEND&X2 MOVE UNREF TAG TO MERGE CROS20581 SBR X2,L&X2 CROS20582 BCE C06290,MERGE&X2,! GROUP MARK, AREA FULL CROS20583 B C06420 CROS20584 C06290 S X2&1 CROS20585 B WTMRGE CROS20586 B C06420 CROS20587 * CROS20588 PLABEL MLC TAGF2&X1,SEQHLD TAG TO LAST TAG HOLD AREA CROS20589 SW 210 CROS20590 MLC TAGF2&X1,215 CROS20591 BCE PROCES,CODE2&X1,B Q. TAG OR REFERENCE CROS20592 SW 203,217 CROS20593 MLC PGLIN2&X1,207 CROS20594 MLC TPEND&X1,221 CROS20595 B C06420 CROS20596 JOB CROSS, PHASE 3, LIST NON-EXISTANT TAGS CROS20597 PHASE3 MLC @3@,PHASE PHASE SWITCH CROS20598 SW SW3F#1 CROS20599 * CROS20600 E08100 S X1&1 CROS20601 B RTBLD CROS20602 B N10040 EOF BRANCH CROS20603 B E08120 CROS20604 PH3RD SBR X1,L&X1 CROS20605 BCE E08100,TAPEIN&X1,! GROUP MK ,RD TPE CROS20606 E08120 BCE N10040,CODE2&X1,9 9 S RECORD, TO EOJ CROS20607 * CROS20608 BWZ FIRST3,SW3F,1 CROS20609 * CROS20610 PROCS3 BCV S50060 TO HDGS ON CHAN 12 CROS20611 SW 274 CROS20612 SW 229,226 CROS20613 MLC PGLIN2&X1,231 MOVE PG/LINE CROS20614 MLC PGLIN2-3&X1,227 CROS20615 MLC TAGF2&X1,258 MOVE REF CROS20616 MLC TPEND&X1,278 MOVE OP CROS20617 WCSCS,PH3RD CROS20618 * CROS20619 FIRST3 CW SW3F CROS20620 S PGCNT CROS20621 B HEAD CROS20622 B PROCS3 CROS20623 JOB CROSS, SUBROUTINES AND WORK AREAS CROS20624 *************** SUBROUTINE SECTION **************** CROS20625 * CROS20626 * PRINT HEADINGS SUBROUTINE CROS20627 HEAD SBR HEADX&3 CROS20628 S50060 EQU HEAD CROS20629 CC 1 CROS20630 A *-6,PGCNT#3 CROS20631 MCS PGCNT,299 CROS20632 MLC HEAD1,288 CROS20633 WCSCS CROS20634 BCE HDPH2,PHASE,2 CROS20635 BCE HDPH3,PHASE,3 CROS20636 CCB HEADX,J CROS20638 HDPH2 MLC HEAD2,236 CROS20639 B N50280 CROS20640 HDPH3 WCSCSS,,HEAD3,286 CROS20641 MLC HEAD4,276 CROS20642 N50280 WCSCST CROS20643 HEADX B * CROS20644 * CROS20645 DCW @CROSS REFERENCE FOR @ CROS20646 HEAD1 DC #52 CROS20647 HEAD2 DCW @PG/LN TAG OP REFERENCES@ CROS20648 DCW @REFERENCES TO NON-EXISTENT TAGS,MACRO GENERATED@ CROS20649 HEAD3 DC @ TAGS, AND DIGIT MODIFIERS@ CROS20650 DCW @PAGE-LINE LABEL REFERENCED@ CROS20651 HEAD4 DC @ OP@ CROS20652 * CROS20653 RTBLD SBR RTBLDX&3 CROS20654 MLC BLK1,WLRT CROS20655 MN RT,*&4 CROS20656 RT 0,TAPEIN&X0 CROS20657 BEF RTBLDX CROS20658 MA @004@,RTBLDX&3 CROS20659 BCE *&5,WLRT,! CROS20660 B WLR CROS20661 MN RT,*&8 CROS20662 B *&9 CROS20663 RT 0,TAPEIN&X0 CROS20664 BER TAPERR CROS20665 RTBLDX B * CROS20666 * CROS20667 WTMRGE SBR WTMRGX&3 CROS20668 MN WT,*&4 CROS20669 WT 0,MERGE CROS20670 BER TAPERR CROS20671 WTMRGX B * CROS20672 * CROS20673 WTM SBR WTMX&3 CROS20674 MN WT,*&4 CROS20675 WTM2 WTM 0 CROS20676 RWD 4 CROS20677 RWD 5 CROS20678 MN RT,WT ALTERNATE TAPE DRIVES CROS20679 MN WTM2&3,RT CROS20680 WTMX B * CROS20681 * CROS20682 * TAPE ERROR ROUTINE CROS20683 * THE B TAPERR MUST BE PRECEEDED BY AN 8 CHARACTER TAPE I/O COMMAND CROS20684 * OR A COPY OF IT. CROS20685 TAPERR SBR TAPERX&3 STORE EXIT CROS20686 SBR *&4 INIT ADDR TO ERROR COMMAND&13 CROS20687 C *,TAPERC&13 USE COMPARE TO DECREMENT ADDRESS CROS20688 C TO ERROR COMMAND. CROS20689 MLC MOVE ERROR COMMAND TO ROUTINE. CROS20690 MLC @7@,TAPERX&4 SET ERROR COUNT TO 7. CROS20691 MN TAPERC&3,TAPERB&3 SET DRIVE IN BACKSPACE. CROS20692 TAPERP A *-6,TAPERX&4 ADD 1 TO COUNT. CROS20693 C TAPERX&4,@7@ COMPARE COUNT TO 7. CROS20694 BU TAPERB Q. 10 REPEATS. CROS20695 B WLR CROS20696 TAPERB BSP 0 BACKSPACE FOR ANOTHER TRY. CROS20697 BCE TAPERC,TAPERC&7,R Q. READ COMMAND CROS20698 BL TAPERC NO, Q. TWO REWRITES IN SME PLACE CROS20699 SKP 1 YES, TURN ON SKIP SWITCH CROS20700 TAPERC NOP *,*,* REPEAT TAPE I/O COMMAND. CROS20701 BER TAPERP Q. ERROR AGAIN CROS20702 TAPERX B * NO, EXIT TO PROGRAM. CROS20703 DCW #1 ERROR COUNT, NEVER OVERFLOW BITS CROS20704 * CROS20705 WLR WCSCS,,@BAD TAPE ON SELECTED DRIVE, REPLACE & RESTART@ CROS20706 H WLR CROS20707 B WLR CROS20708 * CROS20709 **************** CONSTANT AND AREA SECTION **************** CROS20710 * CROS20711 * WORK AREAS TO BUILD UP RECORDS CROS20712 * CROS20713 L EQU 17 LENGTH OF ONE TABLE ENTRY CROS20714 * CROS20715 * BUILD RECORD AREA CROS20716 BUILD DA 1X3774,G 222X17 CROS20717 TAGF1 1,6 1- 6 SYMBOL CROS20718 CODE 7 7- 7 A FOR TAG, B FOR REFERENCE CROS20719 PGLIN1 12 8-12 PAGE/LINE CROS20720 BLEND 17 13-17 OPERATION CROS20721 * CROS20722 * TAPE INPUT AREA CROS20723 TAPEIN DA 1X3774 222X17 CROS20724 TAPTAG 1,7 CROS20725 TAGF2 6 CROS20726 CODE2 7 CROS20727 PGLIN2 12 CROS20728 TPEND 17 CROS20729 WLRT DA 1X1,G CROS20730 * CROS20731 * MERGE AND TAPE OUTPUT AREA CROS20732 MERGE DA 1X3774,G 222X17 CROS20733 MRGEND 1,17 CROS20734 * CROS20735 * CONSTANTS AND WORK AREAS CROS20736 RT DCW 4 READ DRIVE CROS20737 WT DCW 5 WRITE DRIVE CROS20738 * CROS20739 * CROS20740 WORKB DCW #1 CROS20741 WK6 DC #5 CROS20742 * CROS20743 BLK1 DCW #1 CROS20744 BLK4 DC #3 CROS20745 BLK5 DC #1 CROS20746 BLK6 DC #1 CROS20747 BLK17 DC #11 CROS20748 BLK52 DC #35 CROS20749 HOLDX3 DCW 000 HOLD AREA FOR INDEX 3 CROS207495JOB DCW @JOB @ CROS20750 NINES DCW 99999999999999999 CROS20751 SEQHLD DCW #6 HOLD AREA FOR LAST TAG LISTED CROS20752 WK17 DCW #17 CROS20753 * CROS20754 LTORG* CROS20755 JOB TABLE OF ALL VALID OP CODES FOR UNIQUE 1401 CROS20756 DCW @*@ CROS20757 DCW @D@ CROS20758 DCW @M@ CROS20759 DCW @H@ CROS20760 DCW @W@ CROS20761 DCW @P@ CROS20762 DCW @R@ CROS20763 DCW @C@ CROS20764 DCW @A@ CROS20765 DCW @S@ CROS20766 OP1 DCW @B@ CROS20767 DCW 16 CROS20768 DCW @*@ CROS20769 DCW @**@ CROS20770 DCW @CU@ CROS20771 DCW @RF@ CROS20772 DCW @LU@ CROS20773 DCW @MU@ CROS20774 DCW @WM@ CROS20775 DCW @DS@ CROS20776 DCW @WP@ CROS20777 DCW @WR@ CROS20778 DCW @RP@ CROS20779 DCW @RT@ CROS20780 DCW @WT@ CROS20781 DCW @EX@ CROS20782 DCW @CS@ CROS20783 DCW @BM@ CROS20784 DCW @BW@ CROS20785 DCW @DC@ CROS20786 DCW @DA@ CROS20787 DCW @SS@ CROS20788 DCW @ZA@ CROS20789 DCW @ZS@ CROS20790 DCW @MA@ CROS20791 DCW @CC@ CROS20792 DCW @CW@ CROS20793 DCW @SW@ CROS20794 DCW @BU@ CROS20795 DCW @BH@ CROS20796 DCW @BL@ CROS20797 DCW @BE@ CROS20798 DCW @MN@ CROS20799 OP2 DCW @MZ@ CROS20800 DCW 17 CROS20801 DCW @*@ CROS20802 DCW @***@ CROS20803 DCW @SFX@ CROS20804 DCW @XFR@ CROS20805 DCW @PCB@ CROS20806 DCW @BBE@ CROS20807 DCW @BAV@ CROS20808 DCW @WTB@ CROS20809 DCW @RTB@ CROS20810 DCW @MBD@ CROS20811 DCW @MBC@ CROS20812 DCW @RCB@ CROS20813 DCW @RTW@ CROS20814 DCW @WTW@ CROS20815 DCW @WRF@ CROS20816 DCW @WRP@ CROS20817 DCW @BC9@ CROS20818 DCW @SKP@ CROS20819 DCW @BSP@ CROS20820 DCW @SSB@ CROS20821 DCW @DSA@ CROS20822 DCW @EQU@ CROS20823 DCW @RWU@ CROS20824 DCW @RWD@ CROS20825 DCW @WTM@ CROS20826 DCW @ENT@ CROS20827 DCW @END@ CROS20828 DCW @CTL@ CROS20829 DCW @JOB@ CROS20830 DCW @SAR@ CROS20831 DCW @BEF@ CROS20832 DCW @BER@ CROS20833 DCW @BIN@ CROS20834 DCW @GET@ CROS20835 DCW @PUT@ CROS20836 DCW @BLC@ CROS20837 DCW @BCV@ CROS20838 DCW @BSS@ CROS20839 DCW @CCB@ CROS20840 DCW @ORG@ CROS20841 DCW @NOP@ CROS20842 DCW @DCW@ CROS20843 DCW @MCS@ CROS20844 DCW @MCM@ CROS20845 DCW @BWZ@ CROS20846 DCW @BCE@ CROS20847 DCW @MCE@ CROS20848 DCW @LCA@ CROS20849 DCW @MLC@ CROS20850 DCW @MCW@ CROS20851 OP3 DCW @SBR@ CROS20852 DCW 18 CROS20853 DCW @*@ CROS20854 DCW @****@ CROS20855 DCW @CALL@ CROS20856 DCW @OPEN@ CROS20857 DCW @MLZS@ CROS20858 DCW @MLNS@ CROS20859 OP4 DCW @MRCM@ CROS20860 DCW 19 CROS20861 DCW @*@ CROS20862 DCW @*****@ CROS20863 DCW @*****@ CROS20864 DCW @TOPEN@ CROS20865 DCW @SORT7@ CROS20866 DCW @DCLOS@ CROS20867 DCW @TOVLY@ CROS20868 DCW @OVLAY@ CROS20869 DCW @INCLD@ CROS20870 DCW @FEORL@ CROS20871 DCW @RDLIN@ CROS20872 DCW @RELSE@ CROS20873 DCW @SEQNC@ CROS20874 DCW @INDEX@ CROS20875 DCW @LTORG@ CROS20876 DCW @ICODE@ CROS20877 DCW @CLOSE@ CROS20878 DCW @EDITT@ CROS20879 DCW @WCSCS@ CROS20880 DCW @CHAIN@ CROS20881 OP5 DCW @MLCWA@ CROS20882 DCW 20 CROS20883 END START CROS2########################################################################################## FOVAL (AN EXTRACT/REFORMAT PROGRAM) 1401 SOURCE 0101 JOB 1401 FORMAT RETRIEVAL FOVAL0102 CTL 6611 FOVAL01020* VERSION OF MARCH 68 01021* CHANGES FROM PREVIOUS VERSION OF MAY 67 FOVAL01022* 1. RECORD MARK NO LONGER REQUIRED FOR BLOCKED RECORDS. FOVAL01023* 2. SORT7 MACRO REMOVED FROM EOJ. FOVAL01024* 3. TABLE SEARCH ROUTINE REMOVED. UNDEFINED LABELS WILL FOVAL01025* RESULT IN TABLE LOAD AND GENERATE CALL ROUTINES. FOVAL01026* 4. WLR CHECKING ADDED. FOVAL01027* FOVAL0103 SIZE EQU 15999 USED TO ORG PROG IN UPPER CORE FOVAL0104 ORG 1 DEFINE FIELDS IN I/O FOVAL0105 AHERE DS 3 CONTROL BLOCKS RELATIVE FOVAL0106 ALOW DS 4 TO ONE. FOVAL0107 AHIGH DS 4 FOVAL0108 AB DS 1 FOVAL0109 BHERE DS 3 FOVAL0110 BLOW DS 4 FOVAL0111 BHIGH DS 4 FOVAL0112 BC DS 1 B AND/OR C, A IS AND, O IS OR .SAME FOR A,B FOVAL0113 CHERE DS 3 UNITS POS OF C FIELD . FIELDS FOVAL0114 CLOW DS 4 LOWEST C TO BE USED . FOVAL0115 CHIGH DS 4 HIGHEST C TO BE USED . FOVAL0116 STATUS DS 1 NO WM IN LAST,ZONE IF RD CDS FOR A LOW/HIGH FOVAL0117 COUNT DS 6 COUNT OUTPUT RECORDS FOVAL0118 NXTABC DS 3 START OF NEXT I/O CONTROL BLOCK, AHERE-3 FOVAL0119 IO DS 1 START OF OUTPUT ROUTINE FOVAL0120 * FOVAL0121 ORG 81 FOVAL0122 CGM DCW @!@ FOVAL0123 CBLK DCW @ @ CONSTANT BLANK FOVAL0124 SW120 DC #1 FOVAL0125 WK3 DCW #3 0126 * FOVAL0127 *THROUGHOUT GENERATION, X3 IS LAST LOC ASSIGNED, CALLED ORIGIN FOVAL0128 * FOVAL0129 *FOR PROCESSING ROUTINES FOVAL0130 * X1 IS START OF CURRENT OUTPUT BLOCK - 1 FOVAL0131 * X2 IS START OF CURRENT AHERE - 1 FOVAL0132 * X3 IS START OF TAPE INPUT RECORD - 1, ZERO IF CARD INPUT FOVAL0133 * FOVAL0134 X1 DCW #3 FOVAL0135 DS 1 FOVAL0136 SWW DC #1 WM IF PRINT GEN FOVAL0137 X2 DCW #3 FOVAL0138 DS 1 FOVAL0139 SWP DC #1 WM IF PUNCH GEN FOVAL0140 X3 DCW 336 ITITIAL ORIGIN FOVAL0141 DS 1 FOVAL0142 ORG 181 FOVAL0143 DCW @!@ FOVAL0144 RECNT DCW -000000 FOVAL0145 NOISEC DCW #4 NOISE RECORD COUNT FOVAL0146 WLRC DCW #4 WLR COUNT FOVAL0148 TAPEL DCW 001 GM ADDRESS&1 FOR WLR CHECK FOVAL0177 JOB GENERATE PRINT AND PUNCH FILE CONTROLS FOVAL0178 ORG 336 FOVAL0179 DCW @!@ CORE PROTECTION FOVAL0180 HEADPG SBR HDX&3 FOVAL0181 CC 1 EJECT FOVAL0182 MRCM HL1-131,201 FOVAL0183 A *-6,PAGECT PAGE COUNT FOVAL0184 PPAGE NOP PAGECT,* FOVAL0185 HSP1 CC / FOVAL0186 W PRINT HEADING FOVAL0187 MRCM HL2-131,201 FOVAL0188 HSP2 CC S FOVAL0189 W FOVAL0190 MRCM HC-131,201 CLEAR PRINT FOVAL0191 HDX B AFTIL FOVAL0192 DCW #1 FOVAL0193 HL1 DS 131 FOVAL0194 DCW @\@ FOVAL0195 HL2 DS 132 FOVAL0196 DCW @\@ FOVAL0197 HC DS 132 FOVAL0198 DCW @\@ FOVAL0199 PAGECT DCW #4 FOVAL0200 * FOVAL0201 FINCNT DCW #6 FOVAL0202 SEQCHK DCW #9 FOVAL0203 DS 45 SAVE FOR ABC FOVAL0204 COUTT EQU *-3 FOVAL0205 WI0 C SEQCHK-8,SEQCHK-8 FOVAL0206 BE PRINT FOVAL0207 WI1 MCW *,* RESET SEQUENCE FOVAL0208 BCE *&6,*-2,* FIRST RECORD SWITCH FOVAL0209 SW TO BRANCH TO PRINT FOVAL0210 B PRINT FOVAL0211 WI2 NOP COUTT,* MOVE COUNT TO PRINT AREA FOVAL0212 A COUTT,FINCNT FOVAL0213 S COUTT FOVAL0214 WI3 NOP PAGECT RESET PAGE COUNT FOVAL0215 NOP PRINT TOTAL LINE FOVAL0216 WI4 NOP COUTT,* CLEAR PRINT AREA FOVAL0217 WI5 NOP HEADPG FOVAL0218 SWTOT B PRINT&5 FOVAL0219 * FOVAL0220 PRINT BCV HEADPG FOVAL0221 * FOVAL0222 ORGSZE EQU SIZE-999 ORG TO LOAD AHEAD OF TAPERR FOVAL0223 ORGSZ2 EQU ORGSZE-999 AT END OF CORE AND FOR FOVAL0224 ORG ORGSZ2-465 HOLD-4 TO BE XXX00 FOVAL0225 SETWM B * END SW STRING FOVAL0226 DOSET SBR SETWM&3 FOVAL0227 B 1&X2 FOVAL0228 STARTI CC 1 FOVAL0229 MRCM 76,276 IDENTIFY PROGRAM AND VERSION FOVAL0230 MLC CPROG,274 FOVAL0231 CC T FOVAL0232 W READ FOVAL0233 C 6,CHEAD1 Q. HEAD FOVAL0234 BE GENH FOVAL0235 CS PRINT&4 FOVAL0236 CS FOVAL0237 CS FOVAL0238 CS FOVAL0239 CS FOVAL0240 CS FOVAL0241 CS FOVAL0242 MLCWACGM,336 RESTORE CORE PROTECTION FOVAL0243 B QPUNCH FOVAL0244 GENH SW 7 FOVAL0245 MCW 76,HL1-62 STORE 1-70 FOVAL0246 B READ FOVAL0247 C 6,CHEAD2 FOVAL0248 BE *&6 FOVAL0249 NOP 1111 HEAD 2 MISSING FOVAL0250 H FOVAL0251 SW 7,72 FOVAL0252 MCW 68,HL1 STORE 71-132 FOVAL0253 BCE *&19,71, Q. PAGE CT FOVAL0254 SW 69 FOVAL0255 MCW 71,PPAGE&6 FOVAL0256 MCW CMCS,PPAGE FOVAL0257 BCE *&8,72, FOVAL0258 MCW 72,HSP1&1 FOVAL0259 B READ FOVAL0260 C 6,CHEAD3 FOVAL0261 BU NOHL3 FOVAL0262 SW 7 FOVAL0263 MLC 76,HL2-62 FOVAL0264 B READ FOVAL0265 C 6,CHEAD4 FOVAL0266 BE *&6 FOVAL0267 NOP 1112 HEAD 4 MISSING FOVAL0268 H FOVAL0269 SW 7,72 FOVAL0270 MLC 68,HL2 FOVAL0271 BCE *&8,72, FOVAL0272 MLC 72,HSP2&1 FOVAL0273 B READ FOVAL0274 B QPRINT FOVAL0275 BIN HDX, FOVAL0276 NOHL3 SBR HSP2-4,HC-131 FOVAL0277 LCA NOHL3-1,HSP2&4 FOVAL0278 QPRINT C 5,CPRINT FOVAL0279 BE *&6 FOVAL0280 NOP 1114 NO PRINT AFTER HEAD FOVAL0281 H FOVAL0282 SBR X3,SEQCHK UP ORIGIN FOVAL0283 B LDABC FOVAL0284 BCE NOTOT,F3, Q. TOTALS FOVAL0285 MCW F3,WI2&6 FOVAL0286 MCW F3,WI4&6 FOVAL0287 MCW CMCS,WI2 FOVAL0288 MCW CMCS,WI4 FOVAL0289 MCW CW FOVAL0290 NOTOT BCE NOSEQ,F1, Q. SEQUENCE CHECK FOVAL0291 MZ CB,F1-1 FOVAL0292 MCW F1,WI0&3 FOVAL0293 SBR X1,SEQCHK-9 FOVAL0294 MN F2-2,*&7 FOVAL0295 SBR WI0&6,0&X1 FOVAL0296 SBR WI1&6 FOVAL0297 MCW F1,WI1&3 FOVAL0298 BCE NOSEQ,F4-2, Q. SPACE AFTER BREAK FOVAL0299 BCE EJ,F4-2,1 FOVAL0300 LCA CNN,WI5&3 SET CC X, NOP X FOVAL0301 MCW F4-2 FOVAL0302 LCA CCC FOVAL0303 B NOSEQ FOVAL0304 EJ MCW CB,WI5 FOVAL0305 BCE *&8,F4-1, Q. RESET PAGE COUNT FOVAL0306 MCW CS,WI3 FOVAL0307 NOSEQ SBR X3,PRINT&4 UP ORIGIN FOVAL0308 B GETDV FOVAL0309 B DOSET FOVAL0310 BCE *&22,F2-1, Q. SPACE AFTER PRINT FOVAL0311 MCW F2-1,2&X3 FOVAL0312 MLCWACCC,1&X3 FOVAL0313 SBR X3,2&X3 FOVAL0314 SBR 12&X3,PASS FOVAL0315 LCA CB,9&X3 FOVAL0316 LCA CLRP&6 FOVAL0317 MLCWACW FOVAL0318 SBR X3,12&X3 FOVAL0319 SW 1&X3,SWW PRINT SW ON FOVAL0320 * FOVAL0321 QPUNCH C 5,CPUNCH FOVAL0322 BU QTABLE Q. PUNCH FOVAL0323 B LDABC FOVAL0324 B GETDV FOVAL0325 B DOSET SET WM FOR PUNCH FOVAL0326 LCA CP,1&X3 FOVAL0327 BCE NSTACK,F1-2, Q. STACKER SELECTION FOVAL0328 MCW F1-2,6&X3 FOVAL0329 SBR 5&X3,PASS FOVAL0330 LCA CSS,2&X3 FOVAL0331 SBR X3,6&X3 FOVAL0332 B *&15 FOVAL0333 NSTACK SBR 4&X3,PASS FOVAL0334 SBR X3,4&X3 FOVAL0335 SW SWP,1&X3 PUNCH SW ON FOVAL0336 B QPUNCH FOVAL0337 * FOVAL0338 EOTABL B READ FOVAL0339 QTABLE C 5,CTABLE Q. TABLE FOVAL0340 BU CLRJNK FOVAL0341 TABLE B READ FOVAL0342 BCE EOTABL,1,* Q. END OF TABLE CARD FOVAL0343 SW 1,4 LOAD TABLES FOR LOOKUP FOVAL0344 MLC 3,X2 FOVAL0345 MA X2 FOVAL0346 MA 3,X2 FOVAL0347 MLCWA6,STORE&X2 FOVAL0348 B TABLE FOVAL0349 * FOVAL0350 CLRP MRCM HC-131,201 FOVAL0351 CCC DCW @F@ FOVAL0352 CHEAD1 DCW @HEAD 1@ FOVAL0353 CHEAD2 DCW @HEAD 2@ FOVAL0354 CHEAD3 DCW @HEAD 3@ FOVAL0355 CHEAD4 DCW @HEAD 4@ FOVAL0356 CMCS MCS FOVAL0357 CNN DCW @NN@ FOVAL0358 CP P FOVAL0359 CPRINT DCW @PRINT@ FOVAL0360 CPROG DCW @PROGRAM@ FOVAL0361 CPUNCH DCW @PUNCH@ FOVAL0362 CSS SS FOVAL0363 CTABLE DCW @TABLE@ FOVAL0364 CW W FOVAL0365 CLRJNK CS * DONE WITH PRINT/PUNCH FOVAL0366 CS CLEAR ROUTINES FOVAL0367 CS FOVAL0368 CS FOVAL0369 CS FOVAL0370 CS FOVAL0371 CS FOVAL0372 CS FOVAL0373 CW P PRINT OR PUNCH SWITCH OFF FOVAL0374 SBR GETDV&10,*&4 NEW START FOR SW IN MCW FOVAL0375 CLRJK3 B CLRJK2 FOVAL0376 JOB GENERATE TAPE OUTPUT FILE CONTROLS FOVAL0377 * THIS IS UPPER LIMIT OF USER GENERATED OUTPUT ROUTINES FOVAL0378 B TUP FOVAL0379 * HOLD MUST BE IN CORE FOR GENERATION AND INITP FOVAL0380 HOLD DCW #1 *HOLD FILE DEFINITION FOVAL0381 DC #43 * FOVAL0382 F1 DCW #3 * FOVAL0383 F2 DCW #3 * FOVAL0384 F3 DCW #3 * FOVAL0385 F4 DCW #3 * FOVAL0386 DC #25 * FOVAL0387 CLRJK2 CS CLRJK3&3 FOVAL0388 CS FOVAL0389 * FOVAL0390 QTYPEF BCE READN,1,R READ FOVAL0391 BCE END,1,E END FOVAL0392 BCE TITLE,2,I TITLE FOVAL0393 BCE TAPEN,3,P TAPEN FOVAL0394 NOP 2111 CARD TYPE ERROR FOVAL0395 H FOVAL0396 * FOVAL0397 *GENERATED TAPE OUTPUT ROUTINES, SAMPLE FOVAL0398 * DS 45 A,B,C CONTROL FOVAL0399 WTAPE2 SBR X1 ,* * IS RECORD TO FILL - 1 FOVAL0400 * *,* FOVAL0401 * *,* GENERATED MOVE COMMANDS FOVAL0402 * *,* FOVAL0403 BCE WTAPE,0&1&X1,! Q. END BLOCK, 0 IS REC LNG FOVAL0404 SBR WTAPE2&6 SET TO NEXT BLOCK FOVAL0405 B PASS FOVAL0406 DCW 2 FOVAL0407 STD DCW #5 BLOCKCOUNT FOVAL0408 *WRITE AREA FOLLOWS WITH \S, GM, AND WMS FOVAL0409 * FOVAL0410 * FOVAL0411 TAPEN B LDABC LOAD ABC FOR TAPE FILE FOVAL0412 MN HOLD&4,*&4 FOVAL0413 RWD 2 FOVAL0414 LCA WTAPE2&3,4&X3 FOVAL0415 SBR WHRWT2&3,7&X3 SBR X1,* FOVAL0416 SBR X3 FOVAL0417 B GETDV FOVAL0418 WHRWT2 SBR *,22&X3 FOVAL0419 MLCWASTD FOVAL0420 MLCWA FOVAL0421 LCA FOVAL0422 LCA FOVAL0423 LCA FOVAL0424 MN HOLD&4,17&X3 FOVAL0425 MCW WHRWT2&3,12&X3 MOVE SBR WTAPE2&6 FOVAL0426 MN F1,TUP&6 FOVAL0427 MN FOVAL0428 MLC FOVAL0429 A *-6,F1 FOVAL0430 MN F1,7&X3 FOVAL0431 MN FOVAL0432 MLC FOVAL0433 SBR X3,22&X3 FOVAL0434 BCE *&8,F2, ASSUME 1 IF BLOCKING NOT GIVEN FOVAL0435 QBLOCK S C1,F2 FOVAL0436 BWZ ORC,F2,K FOVAL0437 B 1&X2 FOVAL0438 TUP SBR X3,0&X3 FOVAL0439 MLC CRM FOVAL0440 B QBLOCK FOVAL0441 ORC SBR X3,1&X3 FOVAL0442 LCA CGM END OF TAPE OUTPUT FILE GEN FOVAL0443 B QTYPEF FOVAL0444 JOB DATA MOVE GENERATION AND MISC CONTROL CARDS FOVAL0445 READN MRCM 1,HOLD FOVAL0446 BWZ *&5,5,2 Q. TAPE INPUT FOVAL0447 B NOLAB FOVAL0448 MN 5,*&4 FOVAL0449 RWD 1 REWIND INPUT TAPE FOVAL04490 BCE *&8,F2, FOVAL04492CALBLK S C1,F2 CALCULATE INPUT BLOCK LENGTH FOVAL04494 BWZ *&12,F2,K FOVAL04496 MA F1,TAPEL FOVAL04498 B CALBLK FOVAL0450 BCE NOLAB,51, Q. TAPE LABEL FOVAL0451 MN 5,*&4 FOVAL0452 RT 1,201 READ TAPE LABEL FOVAL0453 BER TAPERR FOVAL0454 W FOVAL0455 MRCM 101,201 FOVAL0456 MRCM 101,233 FOVAL0457 MN 5,*&4 Q. TAPEMARK AFTER LABEL FOVAL0458 RT 1,79 FOVAL0459 BEF NOLAB YES FOVAL0460 MN 5,*&4 NO FOVAL0461 BSP 1 FOVAL0462 NOLAB MRCM HIGHM-28,260 FOVAL0463 SBR X3,1&X3 LEAVE WM IF PRINT/PCH ONLY FOVAL0464 SBR 293,0&X3 FOVAL0465 W FOVAL0466 MRCM 130,260 FOVAL0467 LABC SBR X2,* INITALIZE TO LAST ABC FOVAL0468 CW STATUS&X2 NO WM IN LAST STATUS FOVAL0469 FABC SBR NXTABC&X2,* CHAIN LAST TO FIRST ABC FOVAL0470 B READ FOVAL0471 B QTYPEF FOVAL0472 * FOVAL0473 TITLE BCE *&6,6,1 FOVAL0474 NOP 2121 FIRST TITLE NOT 1 FOVAL0475 H FOVAL0476 MRCM 7,201 FOVAL0477 R FOVAL0478 C 6,CTIT FOVAL0479 BE *&6 FOVAL0480 NOP 2122 TITLE 2 MISSING FOVAL0481 H FOVAL0482 LCA CGM,69 FOVAL0483 MRCM 7,271 FOVAL0484 CC 1 FOVAL0485 WR FOVAL0486 CCB HEADPG&6,L FOVAL0487 AFTIL BCE END2,1,E FOVAL0488 NOP 2124 NO END AFTER TITLE FOVAL0489 H FOVAL0490 * FOVAL0491 END BWZ HEADPG,SWW,1 FOVAL0492 END2 CS 80 FOVAL0493 SW 56,63 FOVAL0494 R 56 FOVAL0495 * FOVAL0496 LDABC SBR LDABCX&3 FOVAL0497 SW 6 FOVAL0498 LCA BLK3,45&X3 FOVAL0499 LCA BLK6 LOAD ABC CONTROLS FOVAL0500 LCA 41 FOVAL0501 MRCM 1,HOLD HOLD FILE CARD FOVAL0502 ANXTAB SBR FABC&6,0&X3 CHAIN NXTABC FOVAL0503 SBR LABC&6 SAVE LAST FOR INITALIZE IN READN FOVAL0504 S X1&1 FOVAL0505 SWABC SW 42&X1 FOVAL0506 S C4,42&X1 FOVAL0507 MN 42&X1,*&7 FOVAL0508 SBR X2,0&X3 FOVAL0509 SW 4&X2,8&X2 SET WM FOR LENGTH ABC FOVAL0510 SW 1&X3 SET WM FOR LOCATION FOVAL0511 MZ CB,2&X3 INDEX FOR LOCATION FOVAL0512 BCE *&19,X1,2 FOVAL0513 SBR X1,1&X1 FOVAL0514 SBR X3,12&X3 FOVAL0515 B SWABC FOVAL0516 SW 12&X3 SET WM IN STATUS FOVAL0517 SBR ANXTAB&3,21&X3 CHAIN NXT ABC FOVAL0518 SBR X3 FOVAL0519 LDABCX B * FOVAL0520 * FOVAL0521 GETDV SBR GETDVX&3 READ AND ASSEMBLE MOVES FOVAL0522 SBR X2,SETWM-1 IWIT SW STRING, SEE MCW FOVAL0523 RCTL B READ FOVAL0524 S X1&1 SEARCH TABLE OF MOVES FOR TYPE FOVAL0525 QTYPEM C 4,DATAMV&X1 FOVAL0526 BU *&16 FOVAL0527 MCW DATAMV&3&X1,*&8 FOVAL0528 S X1&1 FOVAL0529 B * EXIT TO PROCESS TYPE FOVAL0530 GETDVX BCE *,DATAMV&4&X1,* EXIT TO FILE ASSEMBLY FOVAL0531 SBR X1,7&X1 FOVAL0532 B QTYPEM FOVAL0533 DATAMV DCW @MLC @ FOVAL0534 DCW MCW FOVAL0535 DCW @MLZS@ FOVAL0536 DCW MZ FOVAL0537 DCW @MLNS@ FOVAL0538 DCW MN FOVAL0539 DCW @BWZ @ FOVAL0540 DCW BWZ FOVAL0541 DCW @BCE @ FOVAL0542 DCW BCE FOVAL0543 DCW @CONS@ FOVAL0544 DCW CONST FOVAL0545 DCW @CORE@ FOVAL0546 DCW CORE FOVAL0547 DCW @1HDR@ FOVAL0548 DCW HDR FOVAL0549 DCW @2HDR@ WRITE 120 CHAR LABEL FOVAL0550 DCW HDR120 FOVAL0551 DCW @WTM @ WRITE TM ON DRIVE FOVAL0552 DCW WTM FOVAL0553 DCW @CNVR@ FOVAL0554 DCW CNVRT FOVAL0555 DCW @*@ FOVAL0556 * FOVAL0557 BWZ MCW CBWZ,OP ASSEMBLES FOVAL0558 B *&8 FOVAL0559 BCE MCW CB,OP FOVAL0560 SW 6&X1,9&X1 BWZ/BCE *&6,CCC&X3,D FOVAL0561 SW 10&X1 B *&9 FOVAL0562 MCW 8&X1,20&X3 DCW @B@ FOVAL0563 SBR 17&X3,13&X3 MCW *-1,AAA&X1 FOVAL0564 LCA CMCW,14&X3 FOVAL0565 LCA 9&X1 FOVAL0566 SBR 12&X3,21&X3 FOVAL0567 LCA CB,9&X3 FOVAL0568 MCW 13&X1 FOVAL0569 SBR 4&X3,14&X3 FOVAL0570 LCA OP,1&X3 FOVAL0571 CBWZ BWZ *&8,P,1 FOVAL0572 MZ CS,19&X3 FOVAL0573 MZ CB,6&X3 FOVAL0574 SBR X3,20&X3 FOVAL0575 BCE RCTL,14&X1, FOVAL0576 SBR X1,8&X1 FOVAL0577 B BCE&7 FOVAL0578 * FOVAL0579 CORE MRCM ORGIS,230 FOVAL0580 SBR 242,1&X3 PRINT ORIGIN FOR PATCH FOVAL0581 MA 8,X3 FOVAL0585 W FOVAL0586 MRCM 130,230 FOVAL0587 B RCTL FOVAL0588 ORGIS DCW @O@ FOVAL0589 DC @RIGIN IS@ FOVAL0590 DCW @!@ FOVAL0591 * FOVAL0592 MCW SW 6&X1,9&X1 ASSEMBLES FOVAL0593 SW 12&X1 MCW AAA&X3,CCC&X1 FOVAL0594 CMCW MCW 14&X1,7&X3 FOVAL0595 MCW 8&X1 FOVAL0596 LCA CMCW FOVAL0597 MCW 11&X1,0&X2 GENERATE SW STRING TO SW IN FOVAL0598 LCA CSW EACH OUTPUT RECORD OF BLOCK FOVAL0599 SBR X2 FOVAL0600 BWZ *&15,P,1 FOVAL0601 MZ CB,3&X2 FOVAL0603 MZ CS,6&X3 FOVAL0604 MZ CB,3&X3 FOVAL0605 SBR X3,7&X3 FOVAL0606 BCE RCTL,15&X1, FOVAL0607 SBR X1,9&X1 FOVAL0608 B MCW FOVAL0609 * FOVAL0610 MZ MCW CMZ,OP FOVAL0611 B *&8 FOVAL0612 MN MCW CMN,OP ASSEMBLES FOVAL0613 SW 6&X1 MZ/MN AAA&X3,BBB&X1 FOVAL0614 MCW 11&X1,7&X3 FOVAL0615 LCA OP FOVAL0616 BWZ *&8,P,1 FOVAL0617 CMZ MZ CS,6&X3 FOVAL0618 MZ CB,3&X3 FOVAL0619 SBR X3,7&X3 FOVAL0620 BCE RCTL,12&X1, FOVAL0621 SBR X1,6&X1 FOVAL0622 B MN&7 FOVAL0623 * FOVAL0624 CONST SW 8,11 FOVAL0625 MLC 7,X1 FOVAL0626 MLC BLK3,X1-2 FOVAL0627 MLCWACB,1&X3 FOVAL0628 MA X1,X3 FOVAL0629 MLC 10,11&X3 FOVAL0630 BWZ *&8,P,1 FOVAL0631 MLZS CS,10&X3 FOVAL0632 MLCWACMCW,5&X3 FOVAL0633 SBR 8&X3 FOVAL0634 MLCWA10&X1 FOVAL0635 SBR *&4 FOVAL0636 SBR *,5&X3 FOVAL0637 SBR X3,11&X3 FOVAL0638 B RCTL FOVAL0639 * FOVAL0640 MLC 0&X3,ARG FOVAL0641 B CNVRT1 FOVAL0642 MLC FUN,0 FOVAL0643 CNVRT SW 7,10 CALL TABLE-LOOKUP SUBROUTINE FOVAL0644 MLCWACNVRT-1,18&X3 FOVAL0645 CHAIN2 FOVAL0646 MN 12,18&X3 FOVAL0647 MN FOVAL0648 MLC FOVAL0649 MN 9,4&X3 FOVAL0650 MN FOVAL0651 MLC FOVAL0652 BWZ *&8,P,1 FOVAL0653 MZ CS,17&X3 FOVAL0654 SBR X3,18&X3 FOVAL0655 B RCTL FOVAL0656 * FOVAL0657 HDR MN HOLD&4,*&4 FOVAL0658 WT 2,1 FOVAL0659 BER TAPERR FOVAL0660 B RCTL FOVAL0661 * FOVAL0662 HDR120 MRCM 1,216 FOVAL0663 MLC C1,216 FOVAL0664 MN HOLD&4,*&4 FOVAL0665 WT 2,216 FOVAL0666 BER TAPERR FOVAL0667 MRCM 101,216 FOVAL0668 SW SW120 FOVAL0669 B RCTL FOVAL0670 * FOVAL0671 WTM MN HOLD&4,*&4 FOVAL0672 WTM 2 FOVAL0673 B RCTL FOVAL0674 * FOVAL0675 READ SBR READX&3 READ AND LIST CARD FOVAL0676 CS 80 FOVAL0677 R FOVAL0678 SBR X1,1 FOVAL0679 READM MRCM 0&X1,200&X1 FOVAL0680 SAR X1 FOVAL0681 BCE *&5,X1-1,8 LOOP IF RM IN CARD STOPPED MOVE FOVAL0682 B READM FOVAL0683 W FOVAL0684 MRCM 101,201 FOVAL0685 READX B * FOVAL0686 * FOVAL0687 BLK3 DCW #3 FOVAL0688 BLK6 DC #3 FOVAL0689 CRM DCW @\@ FOVAL0690 P DCW #1 WM WHILE GEN PRINT/PUNCH FOVAL0691 CTIT DCW @TITLE2@ FOVAL0692 C1 DCW 1 FOVAL0693 C4 DCW 4 FOVAL0694 HIGHM DCW @ HIGH LOCATION FOR OUTPUT IS@ FOVAL0695 DCW @!@ FOVAL0696 OP DCW #1 BWZ/BCE, MN/MZ FOR GENERATION FOVAL0697 CB B FOVAL0698 CMN MN FOVAL0699 CS S FOVAL0700 CSW SW FOVAL0701 * FOVAL0702 ORG SIZE-101 FOVAL0703 TAPERR SBR COMAND&16 REPEAT 8 CHARACTER TAPE FOVAL0704 SBR *&4 R/W COMMANDS AFTER ERROR FOVAL0705 C *,COMAND&13 FOVAL0706 C FOVAL0707 MCW FOVAL0708 MN COMAND&17,COMAND&18 FOVAL0709 MN COMAND&3,BACKSP&3 FOVAL0710 REPEAT A *-6,COMAND&18 FOVAL0711 C COMAND&18,COMAND&17 FOVAL0712 BU *&11 FOVAL07125 NOP 2288 FOVAL0713 H FOVAL0714 BSS COMAND&13,G FOVAL0715 BACKSP CU %U1,B FOVAL0716 BCE COMAND,COMAND&7,R FOVAL0717 BL COMAND FOVAL0718 CU %U1,E FOVAL0719 COMAND NOP *,*,* FOVAL0720 BER REPEAT FOVAL0721 B *-3 FOVAL0722 DCW 7 FOVAL0723 DCW @ @ FOVAL0724 EX STARTI FOVAL0725 ******************************************************************* FOVAL0726 * CONTROL CARDS HERE IN CONDENSED DECK FOVAL0727 ******************************************************************* FOVAL0728 JOB INITALIZE PROCESSING FOVAL0729 ORGI EQU SIZE-999 FOVAL0730 ORG ORGI-100 FOVAL0731 R GETREC&11 CONSTANTS FOR CONVERSION FOVAL0732 BCE LOADTR,1,, OF GET TAPE TO READ CARD FOVAL0733 NOP FOVAL0734 CARD MLCWA*-7,QPAD9 FOVAL0735 CHAIN2 FOVAL0736 S X3&1 FOVAL0737 B GETREC&7 FOVAL0738 * FOVAL0739 INITP CS 80 FOVAL07390 BWZ WTT120,SW120,1 Q. 120 CHAR LABELS FOVAL07391 MLCWACGM,WTE80 NO, SET TO 80 FOVAL07393 SBR MVEBKC&6,WTCNT MOVE BLOCKCOUNT, 80 LABEL FOVAL0740 WTT120 BCE CARD,HOLD&4,C FOVAL0741 MZ *-6,ABIT MAKE A-BIT CONSTANT FOVAL0742 MN HOLD&4,RTAPE&3 FOVAL0743 MN HOLD&4,EOT1&3 FOVAL07435 MN HOLD&4,WLRBSP FOVAL0744 SBR INTBLK&6,0&X3 FOVAL0745 SBR RTAPE&6,1&X3 SET START OF TAPE INPUT BLOCK FOVAL07455 MA RTAPE&6,TAPEL ADD BEGIN ADDR TO BLOCK LENGTH FOVAL0746 SBR GETBL3&6,13&X3 INIT NOISE TEST FOVAL0747 SBR GETBLK&6 FOVAL0748 MLC ABIT,GETBL3&7 FOVAL0749 A *-6,F1 FOVAL0750 MN F1,GETREC&13 FOVAL0751 MN FOVAL0752 MLC FOVAL0753 MCW RTAPE&7,GETBL2&7 FOVAL0754 MLC F3,REELS SAVE INPUT REEL COUNT FOVAL0755 S IPC1,REELS FOVAL0756 R FOVAL0757 CS *-4 FOVAL0758 SBR *-4 FOVAL0759 BWZ *-15,HOLD,1 FOVAL0760 CS GETBLK,*&1 FOVAL0761 IPC1 DCW 1 FOVAL0762 JOB PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL FOVAL0763 ORG *&X00 FOVAL0764 ORGPRO EQU *&1 FOVAL0765 CPGM DCW @!@ CORE PROTECTION FOVAL0766 * THIS IS UPPER LIMIT OF USER TAPE INPUT BLOCK FOVAL0767 *GET NEXT RECORD FROM BLOCKED INPUT TAPE FOVAL07672WLR A *-6,WLRC COUNT SKIPPED WLR FOVAL07674 B GETBLK FOVAL0768 NOISE A *-6,NOISEC FOVAL0769 GETBLK MLC ABIT,0&12 INIT ABIT FOR NOISE REC TEST FOVAL0770 RTAPE RT 1,* * IS READ AREA FOVAL07702 SBR X3 FOVAL0771 BEF EOT1 FOVAL0772 GETBL3 BCE NOISE,0&12, Q. NOISE RECORD FOVAL0773 B *&9 FOVAL0774 GETBL2 RT 1,* CALLING SEQUENCE FOR TAPERR FOVAL0775 BER TAPERR FOVAL07750 C TAPEL,X3 Q. WLR FOVAL07751 BE INTBLK NO FOVAL07752 MN 0&X3 YES, DESTROY EXTRA GM FOVAL07753 MLC CBLK FOVAL07753 MLC CGM,CPGM IN CASE DESTROYED CORE PROTECT GM FOVAL07754 NOP 2244 FOVAL07755 H FOVAL07756 BSS WLR,G DROP RECORD IF SWITCH G ON FOVAL07757WLRBSP BSP 1 FOVAL07758 B GETBLK FOVAL0776 INTBLK SBR X3,* * IS READ AREA - 1 FOVAL0777 B QPAD9 FOVAL0778 EOT1 RWU 1 INPUT REEL COMPLETED FOVAL0779 S PRC1,REELS Q. ALL REELS READ FOVAL0780 BWZ GETBLK,REELS,B FOVAL0781 LOADTR SW 56,63 FOVAL0782 B 56 FOVAL0783 SCAN9 MCW X3,X1 FIRST CHAR OF RECORD WAS 9, FOVAL0784 SBR X1,1&X1 SCAN FOR ALL 9S FOVAL0785 BCE *-14,1&X1,9 FOVAL0786 BCE GETREC&7,1&X1,\ YES, WAS PADDING FOVAL0787 B QPAD9&8 NO, PROCESS FOVAL0788 PASS A *-6,COUNT&X2 FOVAL0789 SELX BW OUTSEL,STATUS&X2 Q. LAST FILE DEF TESTED FOVAL0790 GETREC A *-6,RECNT COUNT LAST INPUT RECORD FOVAL0791 BCE GETBLK,0&1&X3,! Q. END OF BLK, 0 IS RECORD LNG FOVAL0792 SBR X3 SET TO NEXT RECORD FOVAL0793 QPAD9 BCE SCAN9,1&X3,9 Q. PADDING FOVAL0794 * FOVAL0795 OUTSEL MCW NXTABC&X2,X2 TEST FOR TRUTH OF A,B,C FOVAL0796 BCE IO&X2,AHERE&X2, WHEN AHERE BLK, ACCEPT ALL REC FOVAL0797 MCW AHERE&X2,*&4 FOVAL0798 C *,ALOW&X2 FOVAL0799 BH TSTAF FOVAL0800 MCW AHERE&X2,*&4 FOVAL0801 C *,AHIGH&X2 FOVAL0802 BL TSTAF FOVAL0803 BCE IO&X2,AB&X2, FOVAL0804 BCE TSTBP,AB&X2,O FOVAL0805 TSTBL MCW BHERE&X2,*&4 FOVAL0806 C *,BLOW&X2 FOVAL0807 BCE TSTBN,AB&X2,N FOVAL0808 BH TSTBF FOVAL0809 MCW BHERE&X2,*&4 FOVAL0810 C *,BHIGH&X2 FOVAL0811 BL TSTBF FOVAL0812 TSTBP BCE IO&X2,BC&X2, FOVAL0813 BCE IO&X2,BC&X2,O FOVAL0814 TSTCL MCW CHERE&X2,*&4 FOVAL0815 C *,CLOW&X2 FOVAL0816 BCE TSTCN,BC&X2,N FOVAL0817 BH FAIL FOVAL0818 MCW CHERE&X2,*&4 FOVAL0819 C *,CHIGH&X2 FOVAL0820 BL FAIL FOVAL0821 B IO&X2 FOVAL0822 TSTAF BCE TSTBL,AB&X2,O FOVAL0823 BCE FAIL,AB&X2, FOVAL0824 B TSTBF FOVAL0825 TSTBN BH TSTBP FOVAL0826 MLC BHERE&X2,*&4 FOVAL0827 C *,BHIGH&X2 FOVAL0828 BL TSTBP FOVAL0829 TSTBF B TSTCL,BC&X2,O FOVAL0830 FAIL BWZ SELX,STATUS&X2,2 FOVAL0831 BCE SELX,1,, Q. END OF CARDS FOVAL0832 MCW AHERE&X2,*&4 FOVAL0833 C *,AHIGH&X2 FOVAL0834 BL *&5 FOVAL0835 B SELX FOVAL0836 R FOVAL0837 MCW 16,AHIGH&X2 FOVAL0838 MCW FOVAL0839 B OUTSEL&7 FOVAL0840 TSTCN BH IO&X2 FOVAL0841 MLC CHERE&X2,*&4 FOVAL0842 C *,CHIGH&X2 FOVAL0843 BL IO&X2 FOVAL0844 B FAIL FOVAL0845 * FOVAL0846 *GENERALIZED WRITE AND TAPERR MUST BE IN CORE FOR PROCESSING FOVAL0847 * AND FOR CLOSE FOVAL0848 *GENERALIZED WRITE OUTPUT BLOCK FOVAL0849 WTAPE SBR X1 FOVAL0850 WTAPEL MCW 3&X1,*&4 RESET ROUTINE TO FILL FOVAL0851 SBR *,13&X1 FIRST RECORD OF NEXT BLOCK FOVAL0852 MCW 8&X1,*&4 DRIVE FOVAL0853 WT 2,14&X1 FOVAL0854 BER TAPERR FOVAL0855 A *-6,13&X1 COUNT TAPE BLOCK FOVAL0856 QEOT BEF *&5 Q. EOT FOVAL0857 B PASS FOVAL0858 MN 8&X1,*&4 FOVAL0859 WTM 2 TM FOVAL0863 MVEBKC MLC 13&X1,WTCNT2 MOVE BLOCKCOUNT TO LABEL FOVAL0866 MLC WTTRL&25,13&X1 CLEAR BLOCKCOUNT FOR NEXT REEL FOVAL0867 MN 8&X1,*&4 FOVAL0868 WT 2,WTTRL-4 WRITE TRAILER LABEL FOVAL0869 MN 8&X1,*&4 FOVAL0870 WTM 2 TM AFTER TRAILER FOVAL0871 MN 8&X1,*&4 FOVAL0872 RWU 2 FOVAL0873 WTEX B PASS FOVAL0874 * FOVAL0875 WTTRL DCW @1EOR @ FOVAL0876 WTCNT DCW #5 FOVAL0877 DCW #52 FOVAL0878 DCW #4 FOVAL0879 WTCNT2 DCW @0 @ FOVAL0880 WTE80 DCW #9 IF 80 CHAR LABEL, GM IN LAST POS FOVAL0881 DCW #39 FOVAL0882 DCW @!@ GMARK FOVAL0883 * FOVAL0884 ABIT DCW #1 FOVAL0885 PRC1 DCW 1 FOVAL0886 REELS DCW 00 FOVAL0887 EX INITP FOVAL0888 ******************************************************************* FOVAL0889 * CARD INPUT, WHEN USED, HERE FOVAL0890 ******************************************************************* FOVAL0891 JOB CLOSE FILES, PRINT I/O COUNTS FOVAL0892 ORG ORGPRO FOVAL0893 ENDPRG SW QEOT&4 MODIFY WT TO CLOSE FILE FOVAL0894 MLC @F@,WTTRL-1 CHANGE EOR TO EOF FOVAL0895 BSS *&8,F FOVAL0896 MCW CR,WTEX-1 FOVAL0897 SBR WTEX&3,QLAST FOVAL0898 BWZ PFT,SWW,1 Q. PRINTED OUTPUT FOVAL0899 B FINDON&2 FOVAL0900 PFT SBR SWTOT&3,*&5 SWITCH TO FINAL TOTAL FOVAL0901 B WI2 FOVAL0902 MLC FINCNT,COUTT FOVAL0903 MCW WI2&6,*&7 FOVAL0904 NOP *,* FOVAL0905 W FOVAL0906 FINDON CC 1 FOVAL0907 CS 332 FOVAL0908 CS FOVAL0909 MCW CINPUT,250 INPUT COUNT FOVAL0910 MCS RECNT,258 FOVAL0911 BCE *&15,NOISEC, FOVAL0912 MLC CNOISE,275 FOVAL0913 MCS NOISEC,282 FOVAL09132 BCE *&15,WLRC, FOVAL09134 MLC CWLR,295 FOVAL09136 MCS WLRC,302 FOVAL0914 CC T FOVAL0915 W FOVAL0916 CS FOVAL0917 CS FOVAL0918 MCW COUT,255 FOVAL0919 CC S FOVAL0920 W FOVAL0921 CS FOVAL0922 CS FOVAL0923 PCNT MCW NXTABC&X2,X2 FOVAL0924 MCS COUNT&X2,258 FOVAL0925 BCE ET,IO&X2,H Q. TAPE FILE FOVAL0926 QLAST W FOVAL0927 BWZ PCNT,STATUS&X2,1 Q. LAST FILE FOVAL0928 CC 1 FOVAL0929 BWZ *&5,SWP,1 FOVAL0930 B *&7 FOVAL0931 CS 180 FOVAL0932 P FOVAL0933 P FOVAL0934 BLC H2888 Q. ANOTHER PROGRAM IN READ FOVAL09340 BCE *&5,1,, FOVAL09341 R *-16 FOVAL09342 SW 1 FOVAL09343 B 1 FOVAL09344H2888 NOP 2888 END OF JOB HALT FOVAL09345 H FOVAL09346 B H2888 FOVAL09347* FOVAL0935 ET MCW IO&6&X2,X3 FOVAL0936 * FOVAL0937 SBR X1,IO&7&X2 INIT FORWARD SEARCH FOR FOVAL0938 ET2 BWZ ET3,0&X1,1 BCE WTAPE,XXX,GM FOVAL0939 ET5 SBR X1,1&X1 SBR WTAPE2&6 FOVAL0940 B ET2 FOVAL0941 ET4 BCE WTAPE CONSTANTS FOR COMPARES FOVAL0942 ET6 SBR FOVAL0943 ET3 C 3&X1,ET4&3 CAN BE EQUAL IF BCE WTAPE OR FOVAL0944 BU ET5 CONSTANT FOVAL0945 C ET6,8&X1 SO TEST FOR FOLLOWING SBR FOVAL0946 BU ET5 FOVAL0947 SBR X1,8&X1 X1 CALLING SEQ FOR WTAPE FOVAL0948 * FOVAL0949 MN 8&X1,250 FOVAL0950 MCW CTAPE,248 FOVAL0951 SBR WK3,13&X1 Q. IS THIS BLOCK EMPTY FOVAL09512 C WK3,X3 FOVAL09514 BE QEOT FOVAL0952 FILL9 MCW C9,1&X3 SCAN FORWARD TO GM, FOVAL09520 BCE *&5,2&X3,! Q. GM FOVAL09521 B *&9 NO FOVAL09522 BWZ WTAPEL,2&X3,1 Q. GM-WM FOVAL0953 BCE *&9,2&X3,\ FILL 9 PADDING FOVAL0954 SBR X3 FOVAL0955 B FILL9 FOVAL0956 BCE WTAPEL,3&X3,! Q. PADDING COMPLETED FOVAL0957 SBR X3 FOVAL0958 B FILL9 FOVAL0959 CINPUT DCW @INPUT@ FOVAL0960 CNOISE DCW @NOISE REC@ FOVAL0961 COUT DCW @OUTPUT COUNTS@ FOVAL0962 CR DCW @R@ FOVAL0963 CTAPE DCW @TAPE@ FOVAL09632CWLR DCW @WLR@ FOVAL0964 C9 DCW @9@ FOVAL0965 END ENDPRG FOVAL########################################################################################## PUNCH AUTOCODER TAPE 4, 1401 SOURCE 0101 JOB PUNCH AUTOCODER WITH MACROS, VERSION 2 PAUT20102 CTL 6611 PAUT20103 DIOCS PAUT20104 DIOCSORG 336 PAUT20105 IODEVICES TAPE PAUT20106 READERROR CLEAN,SCAN PAUT20107 TAPEUSE INPUT PAUT20108 DTF IN PAUT20109 CHANDRIVE 4 PAUT20110 EOFADDR EOF4 PAUT20111 FILETYPE TAPE,INPUT PAUT20112 IOAREA INA PAUT20113 RECFORM FIXED,UNBLOCKED PAUT20114 SIZERECORD 86 PAUT20115 SEQNC PAUT20116 INDEX PAUT20117 104 DCW @0100@ PAUT20118 INA DA 1X86,G PAUT20119 LABEL 6,11 PAUT20120 OP 16,20 PAUT20121 OPR 72 PAUT20122 TYPE 75,75 PAUT20123 ID 76,80 PAUT20124 CLEAR DA 1X70 PAUT20125 INSKIP DA 1X2,G PAUT20126 * PAUT20127 * IOCS MACROS PAUT20128 DCW @*@ PAUT20129 DCW @GET @ PAUT20130 DCW @PUT @ PAUT20131 DCW @RELSE@ PAUT20132 DCW @SPACE@ PAUT20133 DCW @SKIP @ PAUT20134 DCW @OPEN @ PAUT20135 DCW @CLOSE@ PAUT20136 DCW @FEORL@ PAUT20137 DCW @RDLIN@ PAUT20138 IOCSM DCW @DCLOS@ PAUT20139 * PAUT20140 START OPEN IN PAUT20141 BLC *&2 PAUT20142 R PAUT20143 READ GET IN PAUT201435QTYPE MLC TYPE,105 PAUT20144 BCE COMENT,LABEL-5,* Q. TYPE PAUT20145 BCE MACRO,TYPE,R PAUT20146 BCE MACRO,TYPE,S PAUT20147 BCE MACRO,TYPE,Z PAUT20148 BCE IOCSP,TYPE,W PAUT20149 C OP,@JOB @ PAUT20150 BU MOVE PAUT20151 MLC ID,180 JOB, MOVE ID PAUT20152 MOVE MLC LABEL,111 PAUT20153 MOVE2 MLC OPR,172 PAUT20154 GOP B PUNCH PAUT20155 B READ PAUT20156 * PAUT20157 COMENT MLC OPR,172 COMMENT PAUT20158 MLC PAUT20159 B GOP PAUT20160 * PAUT20161 IOCSP MLC OPR-1,172 IOCS PARAMETER PAUT20162 MLC PAUT20163 MLC @*@ PAUT20164 B GOP PAUT20165 * PAUT20166 MACRO C OP,@CHAIN@ MACRO PAUT20167 BU MACROA PAUT20168 ZA *-6,WK3 PAUT20169 BCE MACRO1,OP&2, Q. CHAIN X PAUT20170 BCE MACRO2,OP&3, Q. CHAIN XX PAUT20171 BCE MACRO3,OP&4, Q. CHAIN XXX PAUT20172 B MACROA PAUT20173 MACRO1 MN OP&1,WK3#3 PAUT20174 B MACROB PAUT20175 MACRO2 MN OP&2,WK3 PAUT20176 MN PAUT20177 B MACROB PAUT20178 MACRO3 MN OP&3,WK3 PAUT20179 MN PAUT20180 MN PAUT20181 MACROB S @1@,WK3 PAUT20182 BWZ MOVE,WK3,K DROP GENERATED CHAIN PAUT20183 RT 4,INSKIP PAUT20184 B MACROB PAUT20185 * PAUT20186 MACROA SBR X1,IOCSM PAUT20187 C OP,0&X1 Q. IOCS MACRO PAUT20188 SBR X1 PAUT20189 BE MIOCS PAUT20190 BCE *&5,0&X1,* PAUT20191 B MACROA&7 PAUT20192 BCE MIOCS,TYPE,Z Q. MACRO IN IOCS PAUT20193 BCE MIOCS,TYPE,S PAUT20194 BCE MIOCS,1,B Q. PUNCH ALL MACROS AS COMMENTS PAUT20195 BCE READ,1,A Q. PUNCH GENERATED PAUT20196 MLC OPR,172 NO PAUT20197 MLC LABEL,111 PAUT201975 MLC @ @,105 PAUT20198 B PUNCH PAUT20199 READ2 GET IN PAUT20200 BCE READ2,TYPE,C PAUT20201 B QTYPE PAUT20202 * PAUT20203 MIOCS MLC LABEL,112 PAUT20204 MLC @*@ PAUT20205 B MOVE2 PAUT20206 * PAUT20207 PUNCH SBR PUNCHX&3 PUNCH CARD PAUT20208 A *-6,104 PAUT20209 P PAUT20210 MLC CLEAR&69,175 PAUT20211 PUNCHX B * PAUT20212 * PAUT20213 EOF4 CLOSEIN PAUT20214 CS 180 PAUT20215 P PAUT20216 P PAUT20217 H *-3 PAUT20218 END START PAUT2########################################################################################## GENERALIZED UPDATE, 1401 OBJECT ,008015,022026,030037,044,049,053053N000000N00001026 0001GENUPL068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002GENUP,008015,022029,036040,047054,061068,072/061039 ,00100110400003GENUP111NM080208LB2270681 L020219,201202,203204,21121210400004GENUP/040299H071238B040C080208B277/B212072C L038257,227234,238245,25004010400005GENUPA258203C075203B212S/2802. L025282,265272,277281,28204010400006GENUPPROG DECK SEQUENC L017299,040040,040040,04004010400007GENUP N000000,040040,040040,040040B2000008GENUP,015022<024056,029036,040047,0540611001,001008B001 ,001008B001 0009GENUP,068072<063067/061039 ,00100110400010GENUP! L001081,087087,092097,10110810400011GENUP L001001,111121,126131,13612410400012GENUP!1C007U06BT38/ L014349,129134,139337,33834510400013GENUPP001201F12//P001101,001004 L026375,357359,360361,36236910400014GENUP,006A1K5089,0\6H7A10\5D1K37{8DM L031406,380387,391398,40540610400015GENUPH0940}5H0990A7B4487{5MB4411K5 B380 L034440,414421,429437,04004010400016GENUPLT897{9H7920\5YU07791A462110D110687DM L037477,448455,462469,47647710400017GENUPS095U%U1RU%U2RB\821M%U1U59RB519K L032509,482487,492496,49750510400018GENUPU%U1BB557U%U2MB557 L018527,515519,524040,04004010400019GENUPM%U2U59WB984LBT38KB557A550T93M%U1U59R L037564,536541,546550,55704010400020GENUPH089B846KB550U70!BBBB L021585,569574,582583,58458510400021GENUPBBBBBBB L007592,587588,589590,59159210400022GENUPB605M%U1U59RB984LH099U58,IZIMU08617 L035627,597605,610617,62104010400023GENUPV693IZI1BT38M099089H0890\1B6470\19 L034661,636640,647654,04004010400024GENUPB6810\1\B701A674T99B5280{1!H099B6400{19L039700,670674,681689,69304010400025GENUPN674C0{0711B674UB825TC0{0728B674UB825T L038738,705712,717722,72973410400026GENUPC0{0745B674UB825TC0{0762B674UB825T L034772,746751,756763,76804010400027GENUPM005094D003795DMM0}00{0B814A1 L029801,780787,788789,79680110400028GENUPB814001,B705MU09701B674P001201MU283002 L038839,810814,821825,83283910400029GENUP//B796 L006845,841842,040040,04004010400030GENUPU%U2MB\82U%U2MU%U2RU%U1UBT38701NZT99220L039884,851855,860865,87087810400031GENUPF1MU352282/228ZT93220B928220 MU48234 L036920,887894,895899,90691410400032GENUP2/234F1BT38AH089001<0\0B9630888 L031951,922926,928933,94094410400033GENUPH0890\1B940B979002 ,001B001BI5A. L032983,959963,971975,97998310400034GENUP,001/I5DHI5HVI5E0011BI7F!U%U1R L030I8{,I5EI5I,I6CI7A,I7EI7F10400035GENUPL%U1001RBI7FLBP01 L017I9G,I8II9D,040040,04004010400036GENUPH\79H995C998\76CMD\80\81D\66\43 L031\14,988992,999\00,\01\0810400037GENUPA\15\81C\81\80B\40/.B\76GU%U1BB\63\70R L038\52,\22\29,\34\35,\40\4510400038GENUPB\63TU%U1EN\70\70*B\15LB\797 L029\81,\58\63,\71\76,\80\8110400039GENUPH/69C120U58B/66SM%U1201RB984LBT38K L034/15,\86\93,\98/06,/1104010400040GENUPB/44321!B/36281!BT38,281B/48,321 L032/47,/24/32,/36/40,/4404010400041GENUPM%U2201WB984LFS2//B/69 L022/69,/56/61,/63/64,/65/6610400042GENUPUNDEFINED ERROR L018/87,/85040,040040,04004010400043GENUPTM INSTEAD OF TAPE LABEL/16 L027S14,S12040,040040,04004010400044GENUPTAPE LABEL NOT 80 CHAR/36END OF JOB933 L038S52,S37S40,S50040,04004010400045GENUPNOTE UNPROCESSED INPUT878 L025S77,S75040,040040,04004010400046GENUPA WLR HAS BEEN READ640SHORT OUTPUT TAPEL039T16,S97T00,040040,04004010400047GENUP546NO CONTROL CARD350H/87H099T41CIIG L036T52,T20T35,T38T42,T4904010400048GENUPH099C0{0/87BT49/MIIG260FA2/ L027T79,T57T64,T69T76,T78T7910400049GENUP/.T81B773 CONTROLK L028U07,T81T85,T90T94,U00U0710400050GENUPNBSEQ ER OR UNMATCHEDRECORDS L028U35,U09U10,U29040,04004010400051GENUPNOISE RECORDS L023U58,U49040,040040,04004010400052GENUP /337080 0053GENUP########################################################################################## PRINT SET-UP INSTRUCTIONS, 1401 SOURCE 0101 JOB PRINT SET-UP INSTRUCTIONS R. WEAVER SETUP0102 CTL 6611 SETUP0103 * THIS PROGRAM WILL LIST ALL CARDS FOLLOWING IT UNTIL THE NEXT PROG SETUP0104 START SW 1 SETUP0105 CC 1 SETUP0106 R SETUP0107 BCE HALT,1,, SETUP0108 MLC 80,280 SETUP0109 W START&6 SETUP0110 HALT CC 1 SETUP0112 H SETUP0115 SORT7 SORT7* SETUP0116 END START SETUP########################################################################################## PRINT SET-UP INSTRUCTIONS, 1401 OBJECT ,008015,022026,030037,044,049,053053N000000N00001026 0001SETUPL068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002SETUP,008015,022029,036040,047054,061068,072/061039 ,00100110400003SETUP,001F11B359001,M0802802339F1 L028360,337339,340348,35535910400004SETUP.B395AB379001,1362BI5A002 ,001B001 L034394,362367,375379,38739110400005SETUP.395. L005399,399040,040040,04004010400006SETUP,001/I5DHI5HVI5E0011BI7F!U%U1R L030I8{,I5EI5I,I6CI7A,I7EI7F10400007SETUPL%U1001RBI7FLBP01 L017I9G,I8II9D,040040,04004010400008SETUP /333080 0009SETUP************************************************************************************ ******** ************************************************************************************########################################################################################## AUTOCODER MODIFICATIONS, 1401SOURCE 0101 JOB DECODE ADDRESS IN AUTOCODER LISTING 3744-0102 CTL 6611 3744-0103 ORG 5000 3744-0104 CT EQU 7 3744-0105 BCE *&5,326, 3744-0106 B NOGM 3744-0107 BCE *&5,303,! Q. GROUP-MARK IN O. MODIFIER 3744-0108 B NOGM 3744-0109 MLC @GMARK@,327 3744-0110 NOGM C CT,@2@ Q. A ADDRESS 3744-0111 BL HASA 3744-0112 B EXIT 3744-0113 HASA BCE AODD,295,% A ADD NOT TO BE CONVERTED 3744-0114 MLC 297,DECODE 3744-0115 B CNVRT 3744-0116 MLC RSLT,312 3744-0117 AODD C CT,@6@ Q. B ADDRESS 3744-0118 BL HASB 3744-0119 B EXIT 3744-0120 HASB MLC 301,DECODE 3744-0121 B CNVRT 3744-0122 MLC RSLT,321 3744-0123 EXIT BCE 1637,293, Q. BLANK OP, B BADOP 3744-0124 B 1156 B SETLIT 3744-0125 * 3744-0126 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG 3744-0127 * 3 CHAR ADDR IN DECODE 3744-0128 * 8 CHAR RESULT IN RSLT 3744-0129 * 3744-0130 CNVRT SBR CNVRTX&3 SOTRE EXIT 3744-0131 MLC BK8#8,RSLT#8 SET RSLT TO BLANKS 3744-0132 BCE CNVRTX,DECODE-1,# Q. NO ADDRESS 3744-0133 BWZ NOIX,DECODE-1,2 Q. ANY INDEX REG 3744-0134 MLC @*X@,RSLT-1 3744-0135 BWZ HX1,DECODE-1,S Q. X1 3744-0136 BWZ HX2,DECODE-1,K Q. X2 3744-0137 MLC @3@,RSLT SET X3 3744-0138 B NOIX 3744-0139 HX1 MLC @1@,RSLT SET X1 3744-0140 B NOIX 3744-0141 HX2 MLC @2@,RSLT SET X2 3744-0142 NOIX MN DECODE#3,RSLT-3 MOVE HUNDREDS DIGITS 3744-0143 MN 3744-0144 MN 3744-0145 MLC @ @,THOU#2 3744-0146 BWZ T1,DECODE-2,S TEST FOR 1-2-3 THOUSAND 3744-0147 BWZ T2,DECODE-2,K 3744-0148 BWZ T3,DECODE-2,B 3744-0149 B TRY12 3744-0150 T1 MLC @1@,THOU 3744-0151 B TRY12 3744-0152 T2 MLC @2@,THOU 3744-0153 B TRY12 3744-0154 T3 MLC @3@,THOU 3744-0155 TRY12 BWZ T4,DECODE,S Q. 4-8-12 THOUSAND 3744-0156 BWZ T8,DECODE,K 3744-0157 BWZ T12,DECODE,B 3744-0158 B NO12 3744-0159 T4 A @4@,THOU 3744-0160 B NO12 3744-0161 T8 A @8@,THOU 3744-0162 B NO12 3744-0163 T12 A @12@,THOU 3744-0164 NO12 MCS THOU,TMP3#3 3744-0165 MLC TMP3,RSLT-6 3744-0166 CNVRTX B * 3744-0167 END 3744- 010 JOB CONTINUOUS RUNNING CNTR- 020 CTL 6611 CNTR- 022* WITH THIS MODIFICATION, AUTOCODER WILL CONTINUE TO ASSEMBLE CNTR- 024* ALL DECKS STACKED IN READER. THE EXTRA OUTPUT OPTIONS WILL BE CNTR- 026* AVAILABLE ONLY FOR THE LAST DECK. CNTR- 030 ORG 335 CNTR- 040 B 998 CNTR- 042 ORG 530 CNTR- 044 CW 3998,ENDF3 CNTR- 050 ORG 998 CNTR- 060 CS 332 CNTR- 070 CS CNTR- 080 BLC 340 CNTR- 090 CS 899 CNTR- 100 CHAIN8 CNTR- 110RWD1 RWD 1 CNTR- 120 RTW 1,1 CNTR- 130 BER RWD1 CNTR- 140 B 1 CNTR- 150ENDF3 DCW @!@ CNTR- 180 END 0 CNTR-0101 JOB SCAN LABEL FOR INVALID CHAR. / < \ * $ 3741-0102 CTL 6611 3741-0103 ORG 997 3741-0104 BIN SCAN, 3741-0105 ORG 1273 3741-0106 DCW #1 CLEAR OLD GM 3741-0107 ORG 1500 3741-0108 SCAN BCE NOLAB,111,. 3741-0109 CHAIN5 3741-0110 BCE NOLAB,111,/ 3741-0111 CHAIN5 3741-0112 BCE NOLAB,111,< 3741-0113 CHAIN4 IOCS LABELS 3741-0114 BCE NOLAB,111,\ 3741-0115 CHAIN5 3741-0116 BCE NOLAB,111,$ 3741-0117 CHAIN5 3741-0118 BCE NOLAB,111,* 3741-0119 CHAIN5 3741-0120 C 118,2979 3741-0121 B 1004 3741-0122 NOLAB CS 332 3741-0123 CS 3741-0124 MLC 3033,231 MOVE ERROR MESSAGE 3741-0125 MCS 184,236 MOVE ALTNO 3741-0126 MLC @