################################################################################ 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 CROS2 0102 CTL 6611 CROS2 0103 * MODIFIED BY R. WEAVER FOR 1401 CROS2 0104 * CROS2 0105 * 1. COMPACT PRINT FORMAT. THIS VERSION WILL ONLY PRINT THE FIRST CROS2 0106 * SIX CHARACTERS OF EACH LABEL. CROS2 0107 * 2. CHECK FOR VALID 1401 OP CODES. CROS2 0108 * 3. MINOR LOGIC CORRECTIONS. CROS2 0109 * CROS2 0110 ****************************************************************** CROS2 0111 * CROS2 0112 * WRITTEN BY - DAVID R. ANGELL CROS2 0113 * IBM CORP CROS2 0114 * DEPT. - 714 CROS2 0115 * 1701 NORTH STREET CROS2 0116 * ENDICOTT, N.Y. CROS2 0117 * CROS2 0118 * THIS PROGRAM WILL PRODUCE A CROSS REFERENCE LISTING FROM CROS2 0119 * 1401 AUTOCODER SOURCE CARDS. CROS2 0120 * CROS2 0121 * TAPES 4 AND 5 ARE USED. CROS2 0122 * CROS2 0123 * OPTIONS UNDER SENSE SWITCH CONTROL ARE - CROS2 0124 * 1. SWITCH B ON - WILL PRODUCE A CARD CROS2 0125 * IMAGE LISTING OF THE AUTOCODER DECK. CROS2 0126 * 2. SWITCH C ON - PUNCH RESEQUENCED SOURCE DECK. CROS2 0127 * CROS2 0128 * CROS2 0129 ORG 336 CROS2 0130 SEQNC CROS2 0131 INDEX CROS2 0132 104 DCW @0100@ CROS2 0133 106 DCW #1 CROS2 0134 176 DCW #1 CROS2 0135 JOB CROSS, INITALIZE CROS2 0136 START SW 1,16 CROS2 0137 SW 21 CROS2 0138 * CROS2 0139 S X1&1 CROS2 0140 SW SW BUILD&X1,TAPEIN&X1 CROS2 0141 SW MERGE&X1 CROS2 0142 SBR X1,L&X1 CROS2 0143 BCE SW,BUILD&X1, CROS2 0144 * CROS2 0146 N10040 RWD 4 CROS2 0147 RWD 5 CROS2 0148 BLC *&5 CROS2 0149 B PHASE1 CROS2 0150 WCSCS1,,@END OF JOB@ CROS2 0152 CC 1 CROS2 0153 H CROS2 0154 JOB CROSS, PHASE I, CARD-TO-TAPE SORTING RECORD CROS2 0155 PHASE1 MLC @1@,PHASE#1 PHASE SWITCH CROS2 0156 MLC @N@,SW5042 ONE TIME MERGE SWITCH CROS2 0157 SW SWF FIRST SWITCH FOR READ ROUTINE CROS2 0158 S X1&1 CROS2 0159 * CROS2 0160 READ B READR READ NEXT CROS2 0161 * CROS2 0162 QTYPE BCE READ,6,* Q. COMMENT CARD. CROS2 0163 C 20,JOB CROS2 0164 BE READ CROS2 0165 C 20,@CTL @ CROS2 0166 BE READ CROS2 0167 C 20,@DIOCS@ CHECK IF DIOCS CARD CROS2 0168 BE DIOCS CROS2 0169 C 20,@DTF @ IF DTF,TREAT AS TAG CROS2 0170 BE DTF CROS2 0171 C 20,@INDEX@ CROS2 0172 BE INDEX CROS2 0173 * CROS2 0174 B LABEL CROS2 0175 * CROS2 0176 BCE QOP4,20, Q. OP CODE 5 CHARACTERS CROS2 0177 C 20,@CHAIN@ CROS2 0178 BE READ CROS2 0179 SBR X3,OP5 CROS2 0180 B COP CROS2 0181 QOP4 BCE QOP3,19, CROS2 0182 SBR X3,OP4 CROS2 0183 B COP CROS2 0184 QOP3 BCE QOP2,18, CROS2 0185 C 18,@DCW@ CROS2 0186 BE DCW CROS2 0187 SBR X3,OP3 CROS2 0188 B COP CROS2 0189 QOP2 BCE QOP1,17, CROS2 0190 C 17,@DC@ CROS2 0191 BE DCW CROS2 0192 C 17,@DA@ CROS2 0193 BE DA CROS2 0194 SBR X3,OP2 CROS2 0195 B COP CROS2 0196 QOP1 SBR X3,OP1 CROS2 0197 COP MLC 2&X3,*&4 CROS2 0198 C 0,0&X3 Q. VALID OP CROS2 0199 SBR X3 CROS2 0200 BE OPOK CROS2 0201 BCE OPBLK,0&X3,* CROS2 0202 B COP&7 CROS2 0203 OPBLK MLC @OP@,205 CROS2 0204 BSS *&13,B CROS2 0205 WCSCS,,5,214 CROS2 0206 OPOK EQU *&1 CROS2 0207 * CROS2 0208 B OPR CROS2 0209 B READ CROS2 0210 * CROS2 0211 DIOCS B READQ CROS2 0212 B DIOCS CROS2 0213 * CROS2 0214 DTF MLC 26,TAGF1&X1 CROS2 0215 B REFA CROS2 0216 DTFR B READQ CROS2 0217 C 11,@INDEXR@ CROS2 0218 BE IOCS CROS2 0219 C 11,@IOAREA@ CROS2 0220 BE IOCS CROS2 0221 C 11,@ADD@ CROS2 0222 BE IOCS CROS2 0223 C 11,@WORKAR@ CROS2 0224 BU DTFR CROS2 0225 IOCS MLC @*IOCS@,20 CROS2 0226 B OPR CROS2 0227 B DTFR CROS2 0228 * CROS2 0229 INDEX MN &1,@X1@ CROS2 0230 INDEX2 MLC BLK4,TAGF1&X1 CROS2 0231 MLC @X1@ CROS2 0232 B REFA CROS2 0233 A *-6,@X1@ CROS2 0234 BCE READ,@X1@,4 CROS2 0235 B INDEX2 CROS2 0236 * CROS2 0237 DCW BCE READ,21,@ DROP LITERALS CROS2 0238 BCE USE22,21,& CROS2 0239 BCE USE22,21,- CROS2 0240 MLC 21,WK1#1 CROS2 0241 B *&8 CROS2 0242 USE22 MLC 22,WK1 CROS2 0243 C WK1,@Z@ CROS2 0244 BL READ DROP NUMERIC CONSTANTS CROS2 0245 B OPOK CROS2 0246 * CROS2 0247 DA B READQ CROS2 0248 B LABEL CROS2 0249 B DA CROS2 0250 * CROS2 0251 READQ SBR READQX&3 READ FOR DIOCS, DTF, DA BLANKS CROS2 0252 B READR CROS2 0253 BCE QTYPE,6,* CROS2 0254 C 20,BLK5 CROS2 0255 BU QTYPE CROS2 0256 READQX B * CROS2 0257 * CROS2 0258 LABEL SBR LABELX&3 CROS2 0259 C 11,BLK6 Q. LABELED STATEMENT CROS2 0260 BE LABELX CROS2 0261 MLC 11,TAGF1&X1 MOVE TAG CROS2 0262 B REFA CROS2 0263 LABELX B * CROS2 0264 * CROS2 0265 OPR SBR OPRX&3 TEST FOR REFERENCE TO LABEL CROS2 0266 S X3&1 CLEAR INDEX 3 CROS2 0267 B N03040 CROS2 0268 * CROS2 0269 N03210 MA @001@,X3 ..SCAN TO NEXT OPERAND CROS2 0270 BCE OPRX,21&X3, BLANK,READ NEXT CARD CROS2 0271 BCE N03250,21&X3,, COMMA,CHECK NEXT CHAR FOR COMMA CROS2 0272 C 21&X3,@A@ IF ALPHA, PICK UP CROS2 0273 BH N03210 CROS2 0274 C 21&X3,@0@ CROS2 0275 BH N03110 CROS2 0276 B N03210 CROS2 0277 N03250 MA @001@,X3 CROS2 0278 * CROS2 0279 N03040 S X2&1 ..BEGIN TEST FOR NEW SYMBOL CROS2 0280 MLC BLK6,WK6 CROS2 0281 BCE OPRX,21&X3, FOR BLANK-YES,READ NEXT CARD CROS2 0282 BCE N03250,21&X3,, CHAR IS COMMA,CHECK NEXT CHARACTER CROS2 0283 BCE N04040,21&X3,@ CHECK FOR LITERAL CROS2 0284 BCE N03210,21&X3,* NOT ALPHA,CHECK FOR * CROS2 0285 BCE N04062,21&X3,& CHECK FOR POSSIBLE ADCON CROS2 0286 BCE N04062,21&X3,- CROS2 0287 B N03110 CROS2 0288 N04062 BWZ *&5,21&1&X3,2 Q. ADCON CROS2 0289 B N03130 YES CROS2 0290 * CROS2 0291 N03110 MLC 21&X3,WORKB&X2 ..SCAN FOR END OF REFERENCE CROS2 0292 BCE *&8,X2,5 6 CHARACTER MAXIMUM CROS2 0293 MA @001@,X2 INCREMENT X2 BY 1 CROS2 0294 N03130 MA @001@,X3 INCREMENT X3 BY 1 CROS2 0295 BCE N04090,21&X3,, COMMA,&,-,#,OR BLANK FOUND,MOVE CROS2 0296 BCE N04090,21&X3,& CROS2 0297 BCE N04090,21&X3,- CROS2 0298 BCE N04021,21&X3,# CROS2 0299 BCE N04090,21&X3, CROS2 0300 B N03110 CROS2 0301 * CROS2 0302 N04040 MA @001@,X3 ..SCAN FOR END OF LITERAL CROS2 0303 BCE *&15,X2,5 CROS2 0304 SBR X2,1&X2 CROS2 0305 MLC 21&X3,WORKB&X2 CROS2 0306 BCE LITEND,21&X3,@ CROS2 0307 BCE OPRX,X3-1,6 CROS2 0308 B N04040 CROS2 0309 * CROS2 0310 N04021 MLC @A@,CODE&X1 ..SET UP AREA-DEFINING LITERAL CROS2 0311 MLC @#@,BLEND&X1 CROS2 0312 MLC 19 CROS2 0313 B N04085 CROS2 0314 * CROS2 0315 * END OF GOOD REF FOUND,MOVE PG-LINE AND SET UP FOR NEXT REF CROS2 0316 LITEND SBR X3,1&X3 CROS2 0317 N04090 MLC 20,BLEND&X1 MOVE OP CROS2 0318 MLC @B@,CODE&X1 MOVE B FOR REF CROS2 0319 N04085 BCE SYMB,WORKB,< CROS2 0320 BCE SYMB,WORKB,@ CROS2 0321 C WORKB,@A@ CHECK IF SPECIAL CHAR IN TAG CROS2 0322 BH N03040 YES,DROP CROS2 0323 SYMB BCE N03040,WORKB,\ CHECK IF RECORD MARK CROS2 0324 MLC WK6,TAGF1&X1 MOVE WORK TO AREA CROS2 0325 B REF CROS2 0326 B N03040 TO CHECK NEXT CHAR FOR COMMA CROS2 0327 OPRX B * CROS2 0328 * CROS2 0329 READR SBR READRX&3 READR DOES NOT RETURN CONTROL CROS2 0330 BWZ FIRST,SWF#1,1 ON END OF PROGRAM, BUT PASSES CROS2 0331 BLC E05040 TO PHASE 2. CROS2 0332 BCE *&13,6,* Q. COMMENT CARD CROS2 0333 C 18,@END@ END CARD CHECK CROS2 0334 BE E05040 YES TO END ROUTINE CROS2 0335 * CROS2 0336 BSS PT1,B CROS2 0337 BSS PCH1,C CROS2 0338 R FIXSEQ CROS2 0339 PT1 BSS *&5,C CROS2 0340 WR N01540 CROS2 0341 WRP N01573 CROS2 0342 PCH1 RP N01573 CROS2 0343 * CROS2 0344 FIRST R CROS2 0345 CW SWF FIRST SW OFF. CROS2 0346 MLC BLK5,SEQA CROS2 0347 MLC BLK5,180 CROS2 0348 MLC BLK52,HEAD1 CROS2 0349 S PGCNT CLEAR PAGE COUNTER CROS2 0350 BSS *&5,B CROS2 0351 B FIRSTC CROS2 0352 C 20,JOB CROS2 0353 BU HEAD CROS2 0354 FIRSTC BSS *&5,C CROS2 0355 B QPRNT CROS2 0356 * CROS2 0357 * TEST FOR AND SET UP PUNCH AREA CROS2 0358 N01573 MLC 72,172 MOVE TO PUNCH CROS2 0359 CHAIN2 CROS2 0360 A *-6,104 SEQUENCE CROS2 0361 MLC 105,5 CROS2 0362 C 20,JOB CROS2 0363 BE *&12 CROS2 0364 MLC 180,80 CROS2 0365 B *&8 CROS2 0366 MLC 80,180 CROS2 0367 * CROS2 0368 * TEST FOR AND SET UP PRINT AREA CROS2 0369 QPRNT BSS N01540,B B ON LIST CARDS CROS2 0370 B FIXSEQ CROS2 0371 N01540 CS 299 CROS2 0372 C 20,JOB CROS2 0373 BU *&12 CROS2 0374 MLC 72,HEAD1 CROS2 0375 B S50060 CROS2 0376 BCV S50060 CHAN 12, PRINT HEADINGS CROS2 0377 C 5,SEQA#5 SEQ CHECK CROS2 0378 BL S01550 CROS2 0379 C SEQA,BLK5 CROS2 0380 BE S01550 CROS2 0381 MLC @SEQ@,203 CROS2 0382 S01550 MLC 5,SEQA CROS2 0383 SW 216 CROS2 0384 MLC 80,290 MLC CARD TO PRINT CROS2 0385 MLC CROS2 0386 MLC CROS2 0387 MLC 5,214 CROS2 0388 * CROS2 0389 FIXSEQ C 5,BLK5 CROS2 0390 BE *&12 CROS2 0391 MLC 5,CDSEQ#5 CROS2 0392 B *&12 CROS2 0393 MLC @*@,5 CROS2 0394 MLC CDSEQ-1 CROS2 0395 READRX B * CROS2 0396 * CROS2 0397 * END CARD SENSED,PAD BUILD AREA WITH 9 S,GO TO FINAL MERGE CROS2 0398 * CROS2 0399 E05040 BSS *&5,B CROS2 0400 B *&4 CROS2 0401 WCSCS CROS2 0402 BSS *&5,C CROS2 0403 B *&8 CROS2 0404 P CROS2 0405 CS 180 CROS2 0406 P CROS2 0407 P CROS2 0408 N05065 C X1,@000@ CROS2 0409 BE PHASE2 AREA EMPTY,TO TAPE CHECK CROS2 0410 MLC NINES,BLEND&X1 PAD 9 S CROS2 0411 B REFB CROS2 0412 B N05065 CONTINUE PADDING CROS2 0413 * CROS2 0414 REFA SBR REFX&3 CROS2 0415 MLC 20,BLEND&X1 CROS2 0416 MLC @A@,CODE&X1 CROS2 0417 B *&5 CROS2 0418 REF SBR REFX&3 COMPLETE OUTPUT RECORD CROS2 0419 MLC 5,PGLIN1&X1 MOVE PG/LIN CROS2 0420 C TAGF1-5&X1,@0@ Q. NUMERIC CROS2 0421 BH REF2 NO CROS2 0422 B QRJST CROS2 0423 RJST MLC TAGF1-1&X1,TAGF1&X1 RIGHT JUSTIFY NUMERIC LABELS CROS2 0424 MLC BLK1 CROS2 0425 QRJST BCE RJST,TAGF1&X1, CROS2 0426 REF2 B *&5 CROS2 0427 REFB SBR REFX&3 CROS2 0428 SBR X1,L&X1 CROS2 0429 BCE S50360,BUILD&X1,! GM ,AREA FULL - TO MRGE CROS2 0430 REFX B * CROS2 0431 * CROS2 0432 * SUBROUTINE EXCECUTED WHEN BUILD AREA IS FILLED. CROS2 0433 * 1. SORT BUILD AREA CROS2 0434 * 2. MERGE WITH PREVIOUS BUILT UP RECORDS IN MERGE AREA CROS2 0435 * 3. WRITE OUT FOR NEXT PASS CROS2 0436 * CROS2 0437 S50360 SBR S50980&3 FOR EXIT CROS2 0438 MLC X3,HOLDX3 SAVE X3 CROS2 0439 S X3&1 CROS2 0440 MLC BLK1,EOFCT#1 CROS2 0441 MLC BLK17,WK17 CROS2 0442 * CROS2 0443 <0J011 MLC X3,X2 CROS2 0444 MLC X2&2 CROS2 0445 <0K011 SBR X2,L&X2 CROS2 0446 BCE <0N011,BUILD&X2,! CROS2 0447 C CODE&X2,CODE&X1 CROS2 0448 BL <0K011 CROS2 0449 BE <0K011 CROS2 0450 C CODE&X2,WK17-10 CROS2 0451 BE SORTE CROS2 0452 MLC X2,X1 CROS2 0453 B <0K011 CROS2 0454 SORTE MLC BLEND&X2,WK17 CROS2 0455 MLC BLEND&X3,BLEND&X2 CROS2 0456 MLC WK17,BLEND&X3 CROS2 0457 C X3,X1 CROS2 0458 BU *&8 CROS2 0459 MLC X2,X1 CROS2 0460 SBR X3,L&X3 CROS2 0461 B <0K011 CROS2 0462 <0N011 MLC BLEND&X1,WK17 CROS2 0463 MLC BLEND&X3,BLEND&X1 CROS2 0464 MLC WK17,BLEND&X3 CROS2 0465 SORTIC SBR X3,L&X3 CROS2 0466 BCE <1O011,BUILD&X3,! CROS2 0467 BCE <1O011,CODE&X3,9 CROS2 0468 C WK17-10,CODE&X3 CROS2 0469 BE SORTIC CROS2 0470 B <0J011 CROS2 0471 <1O011 S X3&1 CROS2 0472 S X2&1 CROS2 0473 S X1&1 CROS2 0474 * CROS2 0475 SW5042 NOP S50470 FIRST TIME NOP CROS2 0476 MLC @B@,SW5042 CROS2 0477 MRCM BUILD,MERGE MOVE FIRST BUILD CROS2 0478 B WTMRGE CROS2 0479 B S50864 CROS2 0480 * CROS2 0481 S50470 B RTBLD CROS2 0482 B S50800 CROS2 0483 * CROS2 0484 * COMPARE FOR MERGING CROS2 0485 S50490 C TAPTAG&X2,CODE&X1 CROS2 0486 BL S50620 BUILD LO, TO MOVE TO MERGE CROS2 0487 * CROS2 0488 * TAPEIN LO, MOVE TO MERGE CROS2 0489 TAPEMV MLC TPEND&X2,MRGEND&X3 CROS2 0490 SBR X2,L&X2 CROS2 0491 BCE S50710,TAPEIN&X2,! LAST TAG USED CROS2 0492 B S50550 TO STEP UP X3 CROS2 0493 S50710 S X2&1 CLEAR INDEX2 CROS2 0494 B RTBLD CROS2 0495 B S50800 CROS2 0496 B S50550 TO INCRA X3 CROS2 0497 S50800 MLZS @A@,EOFCT SET EOF FOR TAPE CROS2 0498 B S50550 CROS2 0499 * CROS2 0500 * BUILD LO, MOVE TO TO MERGE CROS2 0501 S50620 MLC BLEND&X1,MRGEND&X3 CROS2 0502 SBR X1,L&X1 CROS2 0503 BCE S50750,BUILD&X1,! LAST TAG USED CROS2 0504 B S50550 CROS2 0505 S50750 MLNS @A@,EOFCT SET EOF FOR BUILD AREA CROS2 0506 * CROS2 0507 S50550 SBR X3,L&X3 STEP UP X3 CROS2 0508 BCE S50670,MERGE&X3,! GM,AREA FULL - CROS2 0509 B SW5058 CROS2 0510 S50670 S X3&1 CLEAR X3 CROS2 0511 B WTMRGE CROS2 0512 SW5058 BCE S50490,EOFCT, Q. ANY EOF SET CROS2 0513 BCE S50620,EOFCT,& IF EOF TAPE, MOVE BUILD CROS2 0514 BCE TAPEMV,EOFCT,1 IF EOF BUILD, MOVE TAPE CROS2 0515 * CROS2 0516 S50864 B WTM CROS2 0517 * CROS2 0518 MLC HOLDX3,X3 RESTORE X3 CROS2 0519 S X1&1 CLEAR X1 CROS2 0520 S50980 B 0 EXIT CROS2 0521 JOB CROSS, PHASE 2, LIST MERGED TAPE CROS2 0522 PHASE2 MLC @2@,PHASE PHASE SWITCH CROS2 0523 SW SW2F CROS2 0524 S X2&1 CLEAR X2 , X1 CROS2 0525 * CROS2 0526 C06090 S X1&1 CROS2 0527 B RTBLD CROS2 0528 B E07060 EOF BRANCH CROS2 0529 B C06120 CROS2 0530 C06420 SBR X1,L&X1 CROS2 0531 BCE C06090,TAPEIN&X1,! GROUP MK , READ TAPE CROS2 0532 C06120 BCE E07060,CODE2&X1,9 CODE IS 9 LAST TAG IS LISTED CROS2 0533 * CROS2 0534 BWZ PFIRST,SW2F#1,1 CROS2 0535 BCE SETMIN,CODE2&X1,A Q. LABEL DEFINED CROS2 0536 C TAGF2&X1,SEQHLD REF EQUAL TO PREV TAG,OK CROS2 0537 BU SETMIN CROS2 0538 * CROS2 0539 PROCES BCE *&5,X3-1,9 CROS2 0540 B FLINE CROS2 0541 WCSCS CROS2 0542 S X3&1 CROS2 0543 BCV S50060 CROS2 0544 FLINE SW 227&X3,233&X3 CROS2 0545 MLC PGLIN2&X1,231&X3 CROS2 0546 MLC TPEND&X1,237&X3 CROS2 0547 SBR X3,13&X3 CROS2 0548 B C06420 CROS2 0549 * CROS2 0550 SETMIN SW SWMIN#1 MINOR BREAK SW ON CROS2 0551 * CROS2 0552 E07060 BWZ TLINE,233,1 Q. REFERENCES ON PREVIOUS LINE CROS2 0553 BWZ *&5,210,1 Q. LABEL ON PREVIOUS LINE CROS2 0554 B MINEND CROS2 0555 BCE *&8,221,# YES, OK IF AREA DEF LITERAL CROS2 0556 MLC @*UNREFERENCED@,238 CROS2 0557 TLINE WCSCS YES, PRINT CROS2 0558 MINEND BCV S50060 CROS2 0559 * CROS2 0560 BWZ RMIN,SWMIN,1 Q. MINOR BREAK CROS2 0561 * CROS2 0562 E07061 MLC NINES,MRGEND&X2 PAD TAPE 2 CROS2 0563 SBR X2,L&X2 CROS2 0564 BCE E07100,MERGE&X2,! GROUP MARK, END CROS2 0565 B E07061 CROS2 0566 E07100 B WTMRGE CROS2 0567 B WTM CROS2 0568 B PHASE3 CROS2 0569 * CROS2 0570 PFIRST CW SW2F CROS2 0571 MLC BLK6,SEQHLD BLANK LAST TAG HOLD AREA CROS2 0572 S PGCNT CROS2 0573 B S50060 TO PRINT HEADINGS CROS2 0574 * CROS2 0575 RMIN CW SWMIN CROS2 0576 S X3&1 CROS2 0577 BCE PLABEL,CODE2&X1,A CROS2 0578 BWZ PLABEL,TAPEIN&X1,2 Q. NUMBER OR LITERAL CROS2 0579 * CROS2 0580 MLC TPEND&X1,MRGEND&X2 MOVE UNREF TAG TO MERGE CROS2 0581 SBR X2,L&X2 CROS2 0582 BCE C06290,MERGE&X2,! GROUP MARK, AREA FULL CROS2 0583 B C06420 CROS2 0584 C06290 S X2&1 CROS2 0585 B WTMRGE CROS2 0586 B C06420 CROS2 0587 * CROS2 0588 PLABEL MLC TAGF2&X1,SEQHLD TAG TO LAST TAG HOLD AREA CROS2 0589 SW 210 CROS2 0590 MLC TAGF2&X1,215 CROS2 0591 BCE PROCES,CODE2&X1,B Q. TAG OR REFERENCE CROS2 0592 SW 203,217 CROS2 0593 MLC PGLIN2&X1,207 CROS2 0594 MLC TPEND&X1,221 CROS2 0595 B C06420 CROS2 0596 JOB CROSS, PHASE 3, LIST NON-EXISTANT TAGS CROS2 0597 PHASE3 MLC @3@,PHASE PHASE SWITCH CROS2 0598 SW SW3F#1 CROS2 0599 * CROS2 0600 E08100 S X1&1 CROS2 0601 B RTBLD CROS2 0602 B N10040 EOF BRANCH CROS2 0603 B E08120 CROS2 0604 PH3RD SBR X1,L&X1 CROS2 0605 BCE E08100,TAPEIN&X1,! GROUP MK ,RD TPE CROS2 0606 E08120 BCE N10040,CODE2&X1,9 9 S RECORD, TO EOJ CROS2 0607 * CROS2 0608 BWZ FIRST3,SW3F,1 CROS2 0609 * CROS2 0610 PROCS3 BCV S50060 TO HDGS ON CHAN 12 CROS2 0611 SW 274 CROS2 0612 SW 229,226 CROS2 0613 MLC PGLIN2&X1,231 MOVE PG/LINE CROS2 0614 MLC PGLIN2-3&X1,227 CROS2 0615 MLC TAGF2&X1,258 MOVE REF CROS2 0616 MLC TPEND&X1,278 MOVE OP CROS2 0617 WCSCS,PH3RD CROS2 0618 * CROS2 0619 FIRST3 CW SW3F CROS2 0620 S PGCNT CROS2 0621 B HEAD CROS2 0622 B PROCS3 CROS2 0623 JOB CROSS, SUBROUTINES AND WORK AREAS CROS2 0624 *************** SUBROUTINE SECTION **************** CROS2 0625 * CROS2 0626 * PRINT HEADINGS SUBROUTINE CROS2 0627 HEAD SBR HEADX&3 CROS2 0628 S50060 EQU HEAD CROS2 0629 CC 1 CROS2 0630 A *-6,PGCNT#3 CROS2 0631 MCS PGCNT,299 CROS2 0632 MLC HEAD1,288 CROS2 0633 WCSCS CROS2 0634 BCE HDPH2,PHASE,2 CROS2 0635 BCE HDPH3,PHASE,3 CROS2 0636 CCB HEADX,J CROS2 0638 HDPH2 MLC HEAD2,236 CROS2 0639 B N50280 CROS2 0640 HDPH3 WCSCSS,,HEAD3,286 CROS2 0641 MLC HEAD4,276 CROS2 0642 N50280 WCSCST CROS2 0643 HEADX B * CROS2 0644 * CROS2 0645 DCW @CROSS REFERENCE FOR @ CROS2 0646 HEAD1 DC #52 CROS2 0647 HEAD2 DCW @PG/LN TAG OP REFERENCES@ CROS2 0648 DCW @REFERENCES TO NON-EXISTENT TAGS,MACRO GENERATED@ CROS2 0649 HEAD3 DC @ TAGS, AND DIGIT MODIFIERS@ CROS2 0650 DCW @PAGE-LINE LABEL REFERENCED@ CROS2 0651 HEAD4 DC @ OP@ CROS2 0652 * CROS2 0653 RTBLD SBR RTBLDX&3 CROS2 0654 MLC BLK1,WLRT CROS2 0655 MN RT,*&4 CROS2 0656 RT 0,TAPEIN&X0 CROS2 0657 BEF RTBLDX CROS2 0658 MA @004@,RTBLDX&3 CROS2 0659 BCE *&5,WLRT,! CROS2 0660 B WLR CROS2 0661 MN RT,*&8 CROS2 0662 B *&9 CROS2 0663 RT 0,TAPEIN&X0 CROS2 0664 BER TAPERR CROS2 0665 RTBLDX B * CROS2 0666 * CROS2 0667 WTMRGE SBR WTMRGX&3 CROS2 0668 MN WT,*&4 CROS2 0669 WT 0,MERGE CROS2 0670 BER TAPERR CROS2 0671 WTMRGX B * CROS2 0672 * CROS2 0673 WTM SBR WTMX&3 CROS2 0674 MN WT,*&4 CROS2 0675 WTM2 WTM 0 CROS2 0676 RWD 4 CROS2 0677 RWD 5 CROS2 0678 MN RT,WT ALTERNATE TAPE DRIVES CROS2 0679 MN WTM2&3,RT CROS2 0680 WTMX B * CROS2 0681 * CROS2 0682 * TAPE ERROR ROUTINE CROS2 0683 * THE B TAPERR MUST BE PRECEEDED BY AN 8 CHARACTER TAPE I/O COMMAND CROS2 0684 * OR A COPY OF IT. CROS2 0685 TAPERR SBR TAPERX&3 STORE EXIT CROS2 0686 SBR *&4 INIT ADDR TO ERROR COMMAND&13 CROS2 0687 C *,TAPERC&13 USE COMPARE TO DECREMENT ADDRESS CROS2 0688 C TO ERROR COMMAND. CROS2 0689 MLC MOVE ERROR COMMAND TO ROUTINE. CROS2 0690 MLC @7@,TAPERX&4 SET ERROR COUNT TO 7. CROS2 0691 MN TAPERC&3,TAPERB&3 SET DRIVE IN BACKSPACE. CROS2 0692 TAPERP A *-6,TAPERX&4 ADD 1 TO COUNT. CROS2 0693 C TAPERX&4,@7@ COMPARE COUNT TO 7. CROS2 0694 BU TAPERB Q. 10 REPEATS. CROS2 0695 B WLR CROS2 0696 TAPERB BSP 0 BACKSPACE FOR ANOTHER TRY. CROS2 0697 BCE TAPERC,TAPERC&7,R Q. READ COMMAND CROS2 0698 BL TAPERC NO, Q. TWO REWRITES IN SME PLACE CROS2 0699 SKP 1 YES, TURN ON SKIP SWITCH CROS2 0700 TAPERC NOP *,*,* REPEAT TAPE I/O COMMAND. CROS2 0701 BER TAPERP Q. ERROR AGAIN CROS2 0702 TAPERX B * NO, EXIT TO PROGRAM. CROS2 0703 DCW #1 ERROR COUNT, NEVER OVERFLOW BITS CROS2 0704 * CROS2 0705 WLR WCSCS,,@BAD TAPE ON SELECTED DRIVE, REPLACE & RESTART@ CROS2 0706 H WLR CROS2 0707 B WLR CROS2 0708 * CROS2 0709 **************** CONSTANT AND AREA SECTION **************** CROS2 0710 * CROS2 0711 * WORK AREAS TO BUILD UP RECORDS CROS2 0712 * CROS2 0713 L EQU 17 LENGTH OF ONE TABLE ENTRY CROS2 0714 * CROS2 0715 * BUILD RECORD AREA CROS2 0716 BUILD DA 1X3774,G 222X17 CROS2 0717 TAGF1 1,6 1- 6 SYMBOL CROS2 0718 CODE 7 7- 7 A FOR TAG, B FOR REFERENCE CROS2 0719 PGLIN1 12 8-12 PAGE/LINE CROS2 0720 BLEND 17 13-17 OPERATION CROS2 0721 * CROS2 0722 * TAPE INPUT AREA CROS2 0723 TAPEIN DA 1X3774 222X17 CROS2 0724 TAPTAG 1,7 CROS2 0725 TAGF2 6 CROS2 0726 CODE2 7 CROS2 0727 PGLIN2 12 CROS2 0728 TPEND 17 CROS2 0729 WLRT DA 1X1,G CROS2 0730 * CROS2 0731 * MERGE AND TAPE OUTPUT AREA CROS2 0732 MERGE DA 1X3774,G 222X17 CROS2 0733 MRGEND 1,17 CROS2 0734 * CROS2 0735 * CONSTANTS AND WORK AREAS CROS2 0736 RT DCW 4 READ DRIVE CROS2 0737 WT DCW 5 WRITE DRIVE CROS2 0738 * CROS2 0739 * CROS2 0740 WORKB DCW #1 CROS2 0741 WK6 DC #5 CROS2 0742 * CROS2 0743 BLK1 DCW #1 CROS2 0744 BLK4 DC #3 CROS2 0745 BLK5 DC #1 CROS2 0746 BLK6 DC #1 CROS2 0747 BLK17 DC #11 CROS2 0748 BLK52 DC #35 CROS2 0749 HOLDX3 DCW 000 HOLD AREA FOR INDEX 3 CROS2 07495JOB DCW @JOB @ CROS2 0750 NINES DCW 99999999999999999 CROS2 0751 SEQHLD DCW #6 HOLD AREA FOR LAST TAG LISTED CROS2 0752 WK17 DCW #17 CROS2 0753 * CROS2 0754 LTORG* CROS2 0755 JOB TABLE OF ALL VALID OP CODES FOR UNIQUE 1401 CROS2 0756 DCW @*@ CROS2 0757 DCW @D@ CROS2 0758 DCW @M@ CROS2 0759 DCW @H@ CROS2 0760 DCW @W@ CROS2 0761 DCW @P@ CROS2 0762 DCW @R@ CROS2 0763 DCW @C@ CROS2 0764 DCW @A@ CROS2 0765 DCW @S@ CROS2 0766 OP1 DCW @B@ CROS2 0767 DCW 16 CROS2 0768 DCW @*@ CROS2 0769 DCW @**@ CROS2 0770 DCW @CU@ CROS2 0771 DCW @RF@ CROS2 0772 DCW @LU@ CROS2 0773 DCW @MU@ CROS2 0774 DCW @WM@ CROS2 0775 DCW @DS@ CROS2 0776 DCW @WP@ CROS2 0777 DCW @WR@ CROS2 0778 DCW @RP@ CROS2 0779 DCW @RT@ CROS2 0780 DCW @WT@ CROS2 0781 DCW @EX@ CROS2 0782 DCW @CS@ CROS2 0783 DCW @BM@ CROS2 0784 DCW @BW@ CROS2 0785 DCW @DC@ CROS2 0786 DCW @DA@ CROS2 0787 DCW @SS@ CROS2 0788 DCW @ZA@ CROS2 0789 DCW @ZS@ CROS2 0790 DCW @MA@ CROS2 0791 DCW @CC@ CROS2 0792 DCW @CW@ CROS2 0793 DCW @SW@ CROS2 0794 DCW @BU@ CROS2 0795 DCW @BH@ CROS2 0796 DCW @BL@ CROS2 0797 DCW @BE@ CROS2 0798 DCW @MN@ CROS2 0799 OP2 DCW @MZ@ CROS2 0800 DCW 17 CROS2 0801 DCW @*@ CROS2 0802 DCW @***@ CROS2 0803 DCW @SFX@ CROS2 0804 DCW @XFR@ CROS2 0805 DCW @PCB@ CROS2 0806 DCW @BBE@ CROS2 0807 DCW @BAV@ CROS2 0808 DCW @WTB@ CROS2 0809 DCW @RTB@ CROS2 0810 DCW @MBD@ CROS2 0811 DCW @MBC@ CROS2 0812 DCW @RCB@ CROS2 0813 DCW @RTW@ CROS2 0814 DCW @WTW@ CROS2 0815 DCW @WRF@ CROS2 0816 DCW @WRP@ CROS2 0817 DCW @BC9@ CROS2 0818 DCW @SKP@ CROS2 0819 DCW @BSP@ CROS2 0820 DCW @SSB@ CROS2 0821 DCW @DSA@ CROS2 0822 DCW @EQU@ CROS2 0823 DCW @RWU@ CROS2 0824 DCW @RWD@ CROS2 0825 DCW @WTM@ CROS2 0826 DCW @ENT@ CROS2 0827 DCW @END@ CROS2 0828 DCW @CTL@ CROS2 0829 DCW @JOB@ CROS2 0830 DCW @SAR@ CROS2 0831 DCW @BEF@ CROS2 0832 DCW @BER@ CROS2 0833 DCW @BIN@ CROS2 0834 DCW @GET@ CROS2 0835 DCW @PUT@ CROS2 0836 DCW @BLC@ CROS2 0837 DCW @BCV@ CROS2 0838 DCW @BSS@ CROS2 0839 DCW @CCB@ CROS2 0840 DCW @ORG@ CROS2 0841 DCW @NOP@ CROS2 0842 DCW @DCW@ CROS2 0843 DCW @MCS@ CROS2 0844 DCW @MCM@ CROS2 0845 DCW @BWZ@ CROS2 0846 DCW @BCE@ CROS2 0847 DCW @MCE@ CROS2 0848 DCW @LCA@ CROS2 0849 DCW @MLC@ CROS2 0850 DCW @MCW@ CROS2 0851 OP3 DCW @SBR@ CROS2 0852 DCW 18 CROS2 0853 DCW @*@ CROS2 0854 DCW @****@ CROS2 0855 DCW @CALL@ CROS2 0856 DCW @OPEN@ CROS2 0857 DCW @MLZS@ CROS2 0858 DCW @MLNS@ CROS2 0859 OP4 DCW @MRCM@ CROS2 0860 DCW 19 CROS2 0861 DCW @*@ CROS2 0862 DCW @*****@ CROS2 0863 DCW @*****@ CROS2 0864 DCW @TOPEN@ CROS2 0865 DCW @SORT7@ CROS2 0866 DCW @DCLOS@ CROS2 0867 DCW @TOVLY@ CROS2 0868 DCW @OVLAY@ CROS2 0869 DCW @INCLD@ CROS2 0870 DCW @FEORL@ CROS2 0871 DCW @RDLIN@ CROS2 0872 DCW @RELSE@ CROS2 0873 DCW @SEQNC@ CROS2 0874 DCW @INDEX@ CROS2 0875 DCW @LTORG@ CROS2 0876 DCW @ICODE@ CROS2 0877 DCW @CLOSE@ CROS2 0878 DCW @EDITT@ CROS2 0879 DCW @WCSCS@ CROS2 0880 DCW @CHAIN@ CROS2 0881 OP5 DCW @MLCWA@ CROS2 0882 DCW 20 CROS2 0883 END START CROS2 ################################################################################ ########## FOVAL (AN EXTRACT/REFORMAT PROGRAM) 1401 SOURCE 0101 JOB 1401 FORMAT RETRIEVAL FOVAL 0102 CTL 6611 FOVAL 01020* VERSION OF MARCH 68 01021* CHANGES FROM PREVIOUS VERSION OF MAY 67 FOVAL 01022* 1. RECORD MARK NO LONGER REQUIRED FOR BLOCKED RECORDS. FOVAL 01023* 2. SORT7 MACRO REMOVED FROM EOJ. FOVAL 01024* 3. TABLE SEARCH ROUTINE REMOVED. UNDEFINED LABELS WILL FOVAL 01025* RESULT IN TABLE LOAD AND GENERATE CALL ROUTINES. FOVAL 01026* 4. WLR CHECKING ADDED. FOVAL 01027* FOVAL 0103 SIZE EQU 15999 USED TO ORG PROG IN UPPER CORE FOVAL 0104 ORG 1 DEFINE FIELDS IN I/O FOVAL 0105 AHERE DS 3 CONTROL BLOCKS RELATIVE FOVAL 0106 ALOW DS 4 TO ONE. FOVAL 0107 AHIGH DS 4 FOVAL 0108 AB DS 1 FOVAL 0109 BHERE DS 3 FOVAL 0110 BLOW DS 4 FOVAL 0111 BHIGH DS 4 FOVAL 0112 BC DS 1 B AND/OR C, A IS AND, O IS OR .SAME FOR A,B FOVAL 0113 CHERE DS 3 UNITS POS OF C FIELD . FIELDS FOVAL 0114 CLOW DS 4 LOWEST C TO BE USED . FOVAL 0115 CHIGH DS 4 HIGHEST C TO BE USED . FOVAL 0116 STATUS DS 1 NO WM IN LAST,ZONE IF RD CDS FOR A LOW/HIGH FOVAL 0117 COUNT DS 6 COUNT OUTPUT RECORDS FOVAL 0118 NXTABC DS 3 START OF NEXT I/O CONTROL BLOCK, AHERE-3 FOVAL 0119 IO DS 1 START OF OUTPUT ROUTINE FOVAL 0120 * FOVAL 0121 ORG 81 FOVAL 0122 CGM DCW @!@ FOVAL 0123 CBLK DCW @ @ CONSTANT BLANK FOVAL 0124 SW120 DC #1 FOVAL 0125 WK3 DCW #3 0126 * FOVAL 0127 *THROUGHOUT GENERATION, X3 IS LAST LOC ASSIGNED, CALLED ORIGIN FOVAL 0128 * FOVAL 0129 *FOR PROCESSING ROUTINES FOVAL 0130 * X1 IS START OF CURRENT OUTPUT BLOCK - 1 FOVAL 0131 * X2 IS START OF CURRENT AHERE - 1 FOVAL 0132 * X3 IS START OF TAPE INPUT RECORD - 1, ZERO IF CARD INPUT FOVAL 0133 * FOVAL 0134 X1 DCW #3 FOVAL 0135 DS 1 FOVAL 0136 SWW DC #1 WM IF PRINT GEN FOVAL 0137 X2 DCW #3 FOVAL 0138 DS 1 FOVAL 0139 SWP DC #1 WM IF PUNCH GEN FOVAL 0140 X3 DCW 336 ITITIAL ORIGIN FOVAL 0141 DS 1 FOVAL 0142 ORG 181 FOVAL 0143 DCW @!@ FOVAL 0144 RECNT DCW -000000 FOVAL 0145 NOISEC DCW #4 NOISE RECORD COUNT FOVAL 0146 WLRC DCW #4 WLR COUNT FOVAL 0148 TAPEL DCW 001 GM ADDRESS&1 FOR WLR CHECK FOVAL 0177 JOB GENERATE PRINT AND PUNCH FILE CONTROLS FOVAL 0178 ORG 336 FOVAL 0179 DCW @!@ CORE PROTECTION FOVAL 0180 HEADPG SBR HDX&3 FOVAL 0181 CC 1 EJECT FOVAL 0182 MRCM HL1-131,201 FOVAL 0183 A *-6,PAGECT PAGE COUNT FOVAL 0184 PPAGE NOP PAGECT,* FOVAL 0185 HSP1 CC / FOVAL 0186 W PRINT HEADING FOVAL 0187 MRCM HL2-131,201 FOVAL 0188 HSP2 CC S FOVAL 0189 W FOVAL 0190 MRCM HC-131,201 CLEAR PRINT FOVAL 0191 HDX B AFTIL FOVAL 0192 DCW #1 FOVAL 0193 HL1 DS 131 FOVAL 0194 DCW @\@ FOVAL 0195 HL2 DS 132 FOVAL 0196 DCW @\@ FOVAL 0197 HC DS 132 FOVAL 0198 DCW @\@ FOVAL 0199 PAGECT DCW #4 FOVAL 0200 * FOVAL 0201 FINCNT DCW #6 FOVAL 0202 SEQCHK DCW #9 FOVAL 0203 DS 45 SAVE FOR ABC FOVAL 0204 COUTT EQU *-3 FOVAL 0205 WI0 C SEQCHK-8,SEQCHK-8 FOVAL 0206 BE PRINT FOVAL 0207 WI1 MCW *,* RESET SEQUENCE FOVAL 0208 BCE *&6,*-2,* FIRST RECORD SWITCH FOVAL 0209 SW TO BRANCH TO PRINT FOVAL 0210 B PRINT FOVAL 0211 WI2 NOP COUTT,* MOVE COUNT TO PRINT AREA FOVAL 0212 A COUTT,FINCNT FOVAL 0213 S COUTT FOVAL 0214 WI3 NOP PAGECT RESET PAGE COUNT FOVAL 0215 NOP PRINT TOTAL LINE FOVAL 0216 WI4 NOP COUTT,* CLEAR PRINT AREA FOVAL 0217 WI5 NOP HEADPG FOVAL 0218 SWTOT B PRINT&5 FOVAL 0219 * FOVAL 0220 PRINT BCV HEADPG FOVAL 0221 * FOVAL 0222 ORGSZE EQU SIZE-999 ORG TO LOAD AHEAD OF TAPERR FOVAL 0223 ORGSZ2 EQU ORGSZE-999 AT END OF CORE AND FOR FOVAL 0224 ORG ORGSZ2-465 HOLD-4 TO BE XXX00 FOVAL 0225 SETWM B * END SW STRING FOVAL 0226 DOSET SBR SETWM&3 FOVAL 0227 B 1&X2 FOVAL 0228 STARTI CC 1 FOVAL 0229 MRCM 76,276 IDENTIFY PROGRAM AND VERSION FOVAL 0230 MLC CPROG,274 FOVAL 0231 CC T FOVAL 0232 W READ FOVAL 0233 C 6,CHEAD1 Q. HEAD FOVAL 0234 BE GENH FOVAL 0235 CS PRINT&4 FOVAL 0236 CS FOVAL 0237 CS FOVAL 0238 CS FOVAL 0239 CS FOVAL 0240 CS FOVAL 0241 CS FOVAL 0242 MLCWACGM,336 RESTORE CORE PROTECTION FOVAL 0243 B QPUNCH FOVAL 0244 GENH SW 7 FOVAL 0245 MCW 76,HL1-62 STORE 1-70 FOVAL 0246 B READ FOVAL 0247 C 6,CHEAD2 FOVAL 0248 BE *&6 FOVAL 0249 NOP 1111 HEAD 2 MISSING FOVAL 0250 H FOVAL 0251 SW 7,72 FOVAL 0252 MCW 68,HL1 STORE 71-132 FOVAL 0253 BCE *&19,71, Q. PAGE CT FOVAL 0254 SW 69 FOVAL 0255 MCW 71,PPAGE&6 FOVAL 0256 MCW CMCS,PPAGE FOVAL 0257 BCE *&8,72, FOVAL 0258 MCW 72,HSP1&1 FOVAL 0259 B READ FOVAL 0260 C 6,CHEAD3 FOVAL 0261 BU NOHL3 FOVAL 0262 SW 7 FOVAL 0263 MLC 76,HL2-62 FOVAL 0264 B READ FOVAL 0265 C 6,CHEAD4 FOVAL 0266 BE *&6 FOVAL 0267 NOP 1112 HEAD 4 MISSING FOVAL 0268 H FOVAL 0269 SW 7,72 FOVAL 0270 MLC 68,HL2 FOVAL 0271 BCE *&8,72, FOVAL 0272 MLC 72,HSP2&1 FOVAL 0273 B READ FOVAL 0274 B QPRINT FOVAL 0275 BIN HDX, FOVAL 0276 NOHL3 SBR HSP2-4,HC-131 FOVAL 0277 LCA NOHL3-1,HSP2&4 FOVAL 0278 QPRINT C 5,CPRINT FOVAL 0279 BE *&6 FOVAL 0280 NOP 1114 NO PRINT AFTER HEAD FOVAL 0281 H FOVAL 0282 SBR X3,SEQCHK UP ORIGIN FOVAL 0283 B LDABC FOVAL 0284 BCE NOTOT,F3, Q. TOTALS FOVAL 0285 MCW F3,WI2&6 FOVAL 0286 MCW F3,WI4&6 FOVAL 0287 MCW CMCS,WI2 FOVAL 0288 MCW CMCS,WI4 FOVAL 0289 MCW CW FOVAL 0290 NOTOT BCE NOSEQ,F1, Q. SEQUENCE CHECK FOVAL 0291 MZ CB,F1-1 FOVAL 0292 MCW F1,WI0&3 FOVAL 0293 SBR X1,SEQCHK-9 FOVAL 0294 MN F2-2,*&7 FOVAL 0295 SBR WI0&6,0&X1 FOVAL 0296 SBR WI1&6 FOVAL 0297 MCW F1,WI1&3 FOVAL 0298 BCE NOSEQ,F4-2, Q. SPACE AFTER BREAK FOVAL 0299 BCE EJ,F4-2,1 FOVAL 0300 LCA CNN,WI5&3 SET CC X, NOP X FOVAL 0301 MCW F4-2 FOVAL 0302 LCA CCC FOVAL 0303 B NOSEQ FOVAL 0304 EJ MCW CB,WI5 FOVAL 0305 BCE *&8,F4-1, Q. RESET PAGE COUNT FOVAL 0306 MCW CS,WI3 FOVAL 0307 NOSEQ SBR X3,PRINT&4 UP ORIGIN FOVAL 0308 B GETDV FOVAL 0309 B DOSET FOVAL 0310 BCE *&22,F2-1, Q. SPACE AFTER PRINT FOVAL 0311 MCW F2-1,2&X3 FOVAL 0312 MLCWACCC,1&X3 FOVAL 0313 SBR X3,2&X3 FOVAL 0314 SBR 12&X3,PASS FOVAL 0315 LCA CB,9&X3 FOVAL 0316 LCA CLRP&6 FOVAL 0317 MLCWACW FOVAL 0318 SBR X3,12&X3 FOVAL 0319 SW 1&X3,SWW PRINT SW ON FOVAL 0320 * FOVAL 0321 QPUNCH C 5,CPUNCH FOVAL 0322 BU QTABLE Q. PUNCH FOVAL 0323 B LDABC FOVAL 0324 B GETDV FOVAL 0325 B DOSET SET WM FOR PUNCH FOVAL 0326 LCA CP,1&X3 FOVAL 0327 BCE NSTACK,F1-2, Q. STACKER SELECTION FOVAL 0328 MCW F1-2,6&X3 FOVAL 0329 SBR 5&X3,PASS FOVAL 0330 LCA CSS,2&X3 FOVAL 0331 SBR X3,6&X3 FOVAL 0332 B *&15 FOVAL 0333 NSTACK SBR 4&X3,PASS FOVAL 0334 SBR X3,4&X3 FOVAL 0335 SW SWP,1&X3 PUNCH SW ON FOVAL 0336 B QPUNCH FOVAL 0337 * FOVAL 0338 EOTABL B READ FOVAL 0339 QTABLE C 5,CTABLE Q. TABLE FOVAL 0340 BU CLRJNK FOVAL 0341 TABLE B READ FOVAL 0342 BCE EOTABL,1,* Q. END OF TABLE CARD FOVAL 0343 SW 1,4 LOAD TABLES FOR LOOKUP FOVAL 0344 MLC 3,X2 FOVAL 0345 MA X2 FOVAL 0346 MA 3,X2 FOVAL 0347 MLCWA6,STORE&X2 FOVAL 0348 B TABLE FOVAL 0349 * FOVAL 0350 CLRP MRCM HC-131,201 FOVAL 0351 CCC DCW @F@ FOVAL 0352 CHEAD1 DCW @HEAD 1@ FOVAL 0353 CHEAD2 DCW @HEAD 2@ FOVAL 0354 CHEAD3 DCW @HEAD 3@ FOVAL 0355 CHEAD4 DCW @HEAD 4@ FOVAL 0356 CMCS MCS FOVAL 0357 CNN DCW @NN@ FOVAL 0358 CP P FOVAL 0359 CPRINT DCW @PRINT@ FOVAL 0360 CPROG DCW @PROGRAM@ FOVAL 0361 CPUNCH DCW @PUNCH@ FOVAL 0362 CSS SS FOVAL 0363 CTABLE DCW @TABLE@ FOVAL 0364 CW W FOVAL 0365 CLRJNK CS * DONE WITH PRINT/PUNCH FOVAL 0366 CS CLEAR ROUTINES FOVAL 0367 CS FOVAL 0368 CS FOVAL 0369 CS FOVAL 0370 CS FOVAL 0371 CS FOVAL 0372 CS FOVAL 0373 CW P PRINT OR PUNCH SWITCH OFF FOVAL 0374 SBR GETDV&10,*&4 NEW START FOR SW IN MCW FOVAL 0375 CLRJK3 B CLRJK2 FOVAL 0376 JOB GENERATE TAPE OUTPUT FILE CONTROLS FOVAL 0377 * THIS IS UPPER LIMIT OF USER GENERATED OUTPUT ROUTINES FOVAL 0378 B TUP FOVAL 0379 * HOLD MUST BE IN CORE FOR GENERATION AND INITP FOVAL 0380 HOLD DCW #1 *HOLD FILE DEFINITION FOVAL 0381 DC #43 * FOVAL 0382 F1 DCW #3 * FOVAL 0383 F2 DCW #3 * FOVAL 0384 F3 DCW #3 * FOVAL 0385 F4 DCW #3 * FOVAL 0386 DC #25 * FOVAL 0387 CLRJK2 CS CLRJK3&3 FOVAL 0388 CS FOVAL 0389 * FOVAL 0390 QTYPEF BCE READN,1,R READ FOVAL 0391 BCE END,1,E END FOVAL 0392 BCE TITLE,2,I TITLE FOVAL 0393 BCE TAPEN,3,P TAPEN FOVAL 0394 NOP 2111 CARD TYPE ERROR FOVAL 0395 H FOVAL 0396 * FOVAL 0397 *GENERATED TAPE OUTPUT ROUTINES, SAMPLE FOVAL 0398 * DS 45 A,B,C CONTROL FOVAL 0399 WTAPE2 SBR X1 ,* * IS RECORD TO FILL - 1 FOVAL 0400 * *,* FOVAL 0401 * *,* GENERATED MOVE COMMANDS FOVAL 0402 * *,* FOVAL 0403 BCE WTAPE,0&1&X1,! Q. END BLOCK, 0 IS REC LNG FOVAL 0404 SBR WTAPE2&6 SET TO NEXT BLOCK FOVAL 0405 B PASS FOVAL 0406 DCW 2 FOVAL 0407 STD DCW #5 BLOCKCOUNT FOVAL 0408 *WRITE AREA FOLLOWS WITH \S, GM, AND WMS FOVAL 0409 * FOVAL 0410 * FOVAL 0411 TAPEN B LDABC LOAD ABC FOR TAPE FILE FOVAL 0412 MN HOLD&4,*&4 FOVAL 0413 RWD 2 FOVAL 0414 LCA WTAPE2&3,4&X3 FOVAL 0415 SBR WHRWT2&3,7&X3 SBR X1,* FOVAL 0416 SBR X3 FOVAL 0417 B GETDV FOVAL 0418 WHRWT2 SBR *,22&X3 FOVAL 0419 MLCWASTD FOVAL 0420 MLCWA FOVAL 0421 LCA FOVAL 0422 LCA FOVAL 0423 LCA FOVAL 0424 MN HOLD&4,17&X3 FOVAL 0425 MCW WHRWT2&3,12&X3 MOVE SBR WTAPE2&6 FOVAL 0426 MN F1,TUP&6 FOVAL 0427 MN FOVAL 0428 MLC FOVAL 0429 A *-6,F1 FOVAL 0430 MN F1,7&X3 FOVAL 0431 MN FOVAL 0432 MLC FOVAL 0433 SBR X3,22&X3 FOVAL 0434 BCE *&8,F2, ASSUME 1 IF BLOCKING NOT GIVEN FOVAL 0435 QBLOCK S C1,F2 FOVAL 0436 BWZ ORC,F2,K FOVAL 0437 B 1&X2 FOVAL 0438 TUP SBR X3,0&X3 FOVAL 0439 MLC CRM FOVAL 0440 B QBLOCK FOVAL 0441 ORC SBR X3,1&X3 FOVAL 0442 LCA CGM END OF TAPE OUTPUT FILE GEN FOVAL 0443 B QTYPEF FOVAL 0444 JOB DATA MOVE GENERATION AND MISC CONTROL CARDS FOVAL 0445 READN MRCM 1,HOLD FOVAL 0446 BWZ *&5,5,2 Q. TAPE INPUT FOVAL 0447 B NOLAB FOVAL 0448 MN 5,*&4 FOVAL 0449 RWD 1 REWIND INPUT TAPE FOVAL 04490 BCE *&8,F2, FOVAL 04492CALBLK S C1,F2 CALCULATE INPUT BLOCK LENGTH FOVAL 04494 BWZ *&12,F2,K FOVAL 04496 MA F1,TAPEL FOVAL 04498 B CALBLK FOVAL 0450 BCE NOLAB,51, Q. TAPE LABEL FOVAL 0451 MN 5,*&4 FOVAL 0452 RT 1,201 READ TAPE LABEL FOVAL 0453 BER TAPERR FOVAL 0454 W FOVAL 0455 MRCM 101,201 FOVAL 0456 MRCM 101,233 FOVAL 0457 MN 5,*&4 Q. TAPEMARK AFTER LABEL FOVAL 0458 RT 1,79 FOVAL 0459 BEF NOLAB YES FOVAL 0460 MN 5,*&4 NO FOVAL 0461 BSP 1 FOVAL 0462 NOLAB MRCM HIGHM-28,260 FOVAL 0463 SBR X3,1&X3 LEAVE WM IF PRINT/PCH ONLY FOVAL 0464 SBR 293,0&X3 FOVAL 0465 W FOVAL 0466 MRCM 130,260 FOVAL 0467 LABC SBR X2,* INITALIZE TO LAST ABC FOVAL 0468 CW STATUS&X2 NO WM IN LAST STATUS FOVAL 0469 FABC SBR NXTABC&X2,* CHAIN LAST TO FIRST ABC FOVAL 0470 B READ FOVAL 0471 B QTYPEF FOVAL 0472 * FOVAL 0473 TITLE BCE *&6,6,1 FOVAL 0474 NOP 2121 FIRST TITLE NOT 1 FOVAL 0475 H FOVAL 0476 MRCM 7,201 FOVAL 0477 R FOVAL 0478 C 6,CTIT FOVAL 0479 BE *&6 FOVAL 0480 NOP 2122 TITLE 2 MISSING FOVAL 0481 H FOVAL 0482 LCA CGM,69 FOVAL 0483 MRCM 7,271 FOVAL 0484 CC 1 FOVAL 0485 WR FOVAL 0486 CCB HEADPG&6,L FOVAL 0487 AFTIL BCE END2,1,E FOVAL 0488 NOP 2124 NO END AFTER TITLE FOVAL 0489 H FOVAL 0490 * FOVAL 0491 END BWZ HEADPG,SWW,1 FOVAL 0492 END2 CS 80 FOVAL 0493 SW 56,63 FOVAL 0494 R 56 FOVAL 0495 * FOVAL 0496 LDABC SBR LDABCX&3 FOVAL 0497 SW 6 FOVAL 0498 LCA BLK3,45&X3 FOVAL 0499 LCA BLK6 LOAD ABC CONTROLS FOVAL 0500 LCA 41 FOVAL 0501 MRCM 1,HOLD HOLD FILE CARD FOVAL 0502 ANXTAB SBR FABC&6,0&X3 CHAIN NXTABC FOVAL 0503 SBR LABC&6 SAVE LAST FOR INITALIZE IN READN FOVAL 0504 S X1&1 FOVAL 0505 SWABC SW 42&X1 FOVAL 0506 S C4,42&X1 FOVAL 0507 MN 42&X1,*&7 FOVAL 0508 SBR X2,0&X3 FOVAL 0509 SW 4&X2,8&X2 SET WM FOR LENGTH ABC FOVAL 0510 SW 1&X3 SET WM FOR LOCATION FOVAL 0511 MZ CB,2&X3 INDEX FOR LOCATION FOVAL 0512 BCE *&19,X1,2 FOVAL 0513 SBR X1,1&X1 FOVAL 0514 SBR X3,12&X3 FOVAL 0515 B SWABC FOVAL 0516 SW 12&X3 SET WM IN STATUS FOVAL 0517 SBR ANXTAB&3,21&X3 CHAIN NXT ABC FOVAL 0518 SBR X3 FOVAL 0519 LDABCX B * FOVAL 0520 * FOVAL 0521 GETDV SBR GETDVX&3 READ AND ASSEMBLE MOVES FOVAL 0522 SBR X2,SETWM-1 IWIT SW STRING, SEE MCW FOVAL 0523 RCTL B READ FOVAL 0524 S X1&1 SEARCH TABLE OF MOVES FOR TYPE FOVAL 0525 QTYPEM C 4,DATAMV&X1 FOVAL 0526 BU *&16 FOVAL 0527 MCW DATAMV&3&X1,*&8 FOVAL 0528 S X1&1 FOVAL 0529 B * EXIT TO PROCESS TYPE FOVAL 0530 GETDVX BCE *,DATAMV&4&X1,* EXIT TO FILE ASSEMBLY FOVAL 0531 SBR X1,7&X1 FOVAL 0532 B QTYPEM FOVAL 0533 DATAMV DCW @MLC @ FOVAL 0534 DCW MCW FOVAL 0535 DCW @MLZS@ FOVAL 0536 DCW MZ FOVAL 0537 DCW @MLNS@ FOVAL 0538 DCW MN FOVAL 0539 DCW @BWZ @ FOVAL 0540 DCW BWZ FOVAL 0541 DCW @BCE @ FOVAL 0542 DCW BCE FOVAL 0543 DCW @CONS@ FOVAL 0544 DCW CONST FOVAL 0545 DCW @CORE@ FOVAL 0546 DCW CORE FOVAL 0547 DCW @1HDR@ FOVAL 0548 DCW HDR FOVAL 0549 DCW @2HDR@ WRITE 120 CHAR LABEL FOVAL 0550 DCW HDR120 FOVAL 0551 DCW @WTM @ WRITE TM ON DRIVE FOVAL 0552 DCW WTM FOVAL 0553 DCW @CNVR@ FOVAL 0554 DCW CNVRT FOVAL 0555 DCW @*@ FOVAL 0556 * FOVAL 0557 BWZ MCW CBWZ,OP ASSEMBLES FOVAL 0558 B *&8 FOVAL 0559 BCE MCW CB,OP FOVAL 0560 SW 6&X1,9&X1 BWZ/BCE *&6,CCC&X3,D FOVAL 0561 SW 10&X1 B *&9 FOVAL 0562 MCW 8&X1,20&X3 DCW @B@ FOVAL 0563 SBR 17&X3,13&X3 MCW *-1,AAA&X1 FOVAL 0564 LCA CMCW,14&X3 FOVAL 0565 LCA 9&X1 FOVAL 0566 SBR 12&X3,21&X3 FOVAL 0567 LCA CB,9&X3 FOVAL 0568 MCW 13&X1 FOVAL 0569 SBR 4&X3,14&X3 FOVAL 0570 LCA OP,1&X3 FOVAL 0571 CBWZ BWZ *&8,P,1 FOVAL 0572 MZ CS,19&X3 FOVAL 0573 MZ CB,6&X3 FOVAL 0574 SBR X3,20&X3 FOVAL 0575 BCE RCTL,14&X1, FOVAL 0576 SBR X1,8&X1 FOVAL 0577 B BCE&7 FOVAL 0578 * FOVAL 0579 CORE MRCM ORGIS,230 FOVAL 0580 SBR 242,1&X3 PRINT ORIGIN FOR PATCH FOVAL 0581 MA 8,X3 FOVAL 0585 W FOVAL 0586 MRCM 130,230 FOVAL 0587 B RCTL FOVAL 0588 ORGIS DCW @O@ FOVAL 0589 DC @RIGIN IS@ FOVAL 0590 DCW @!@ FOVAL 0591 * FOVAL 0592 MCW SW 6&X1,9&X1 ASSEMBLES FOVAL 0593 SW 12&X1 MCW AAA&X3,CCC&X1 FOVAL 0594 CMCW MCW 14&X1,7&X3 FOVAL 0595 MCW 8&X1 FOVAL 0596 LCA CMCW FOVAL 0597 MCW 11&X1,0&X2 GENERATE SW STRING TO SW IN FOVAL 0598 LCA CSW EACH OUTPUT RECORD OF BLOCK FOVAL 0599 SBR X2 FOVAL 0600 BWZ *&15,P,1 FOVAL 0601 MZ CB,3&X2 FOVAL 0603 MZ CS,6&X3 FOVAL 0604 MZ CB,3&X3 FOVAL 0605 SBR X3,7&X3 FOVAL 0606 BCE RCTL,15&X1, FOVAL 0607 SBR X1,9&X1 FOVAL 0608 B MCW FOVAL 0609 * FOVAL 0610 MZ MCW CMZ,OP FOVAL 0611 B *&8 FOVAL 0612 MN MCW CMN,OP ASSEMBLES FOVAL 0613 SW 6&X1 MZ/MN AAA&X3,BBB&X1 FOVAL 0614 MCW 11&X1,7&X3 FOVAL 0615 LCA OP FOVAL 0616 BWZ *&8,P,1 FOVAL 0617 CMZ MZ CS,6&X3 FOVAL 0618 MZ CB,3&X3 FOVAL 0619 SBR X3,7&X3 FOVAL 0620 BCE RCTL,12&X1, FOVAL 0621 SBR X1,6&X1 FOVAL 0622 B MN&7 FOVAL 0623 * FOVAL 0624 CONST SW 8,11 FOVAL 0625 MLC 7,X1 FOVAL 0626 MLC BLK3,X1-2 FOVAL 0627 MLCWACB,1&X3 FOVAL 0628 MA X1,X3 FOVAL 0629 MLC 10,11&X3 FOVAL 0630 BWZ *&8,P,1 FOVAL 0631 MLZS CS,10&X3 FOVAL 0632 MLCWACMCW,5&X3 FOVAL 0633 SBR 8&X3 FOVAL 0634 MLCWA10&X1 FOVAL 0635 SBR *&4 FOVAL 0636 SBR *,5&X3 FOVAL 0637 SBR X3,11&X3 FOVAL 0638 B RCTL FOVAL 0639 * FOVAL 0640 MLC 0&X3,ARG FOVAL 0641 B CNVRT1 FOVAL 0642 MLC FUN,0 FOVAL 0643 CNVRT SW 7,10 CALL TABLE-LOOKUP SUBROUTINE FOVAL 0644 MLCWACNVRT-1,18&X3 FOVAL 0645 CHAIN2 FOVAL 0646 MN 12,18&X3 FOVAL 0647 MN FOVAL 0648 MLC FOVAL 0649 MN 9,4&X3 FOVAL 0650 MN FOVAL 0651 MLC FOVAL 0652 BWZ *&8,P,1 FOVAL 0653 MZ CS,17&X3 FOVAL 0654 SBR X3,18&X3 FOVAL 0655 B RCTL FOVAL 0656 * FOVAL 0657 HDR MN HOLD&4,*&4 FOVAL 0658 WT 2,1 FOVAL 0659 BER TAPERR FOVAL 0660 B RCTL FOVAL 0661 * FOVAL 0662 HDR120 MRCM 1,216 FOVAL 0663 MLC C1,216 FOVAL 0664 MN HOLD&4,*&4 FOVAL 0665 WT 2,216 FOVAL 0666 BER TAPERR FOVAL 0667 MRCM 101,216 FOVAL 0668 SW SW120 FOVAL 0669 B RCTL FOVAL 0670 * FOVAL 0671 WTM MN HOLD&4,*&4 FOVAL 0672 WTM 2 FOVAL 0673 B RCTL FOVAL 0674 * FOVAL 0675 READ SBR READX&3 READ AND LIST CARD FOVAL 0676 CS 80 FOVAL 0677 R FOVAL 0678 SBR X1,1 FOVAL 0679 READM MRCM 0&X1,200&X1 FOVAL 0680 SAR X1 FOVAL 0681 BCE *&5,X1-1,8 LOOP IF RM IN CARD STOPPED MOVE FOVAL 0682 B READM FOVAL 0683 W FOVAL 0684 MRCM 101,201 FOVAL 0685 READX B * FOVAL 0686 * FOVAL 0687 BLK3 DCW #3 FOVAL 0688 BLK6 DC #3 FOVAL 0689 CRM DCW @\@ FOVAL 0690 P DCW #1 WM WHILE GEN PRINT/PUNCH FOVAL 0691 CTIT DCW @TITLE2@ FOVAL 0692 C1 DCW 1 FOVAL 0693 C4 DCW 4 FOVAL 0694 HIGHM DCW @ HIGH LOCATION FOR OUTPUT IS@ FOVAL 0695 DCW @!@ FOVAL 0696 OP DCW #1 BWZ/BCE, MN/MZ FOR GENERATION FOVAL 0697 CB B FOVAL 0698 CMN MN FOVAL 0699 CS S FOVAL 0700 CSW SW FOVAL 0701 * FOVAL 0702 ORG SIZE-101 FOVAL 0703 TAPERR SBR COMAND&16 REPEAT 8 CHARACTER TAPE FOVAL 0704 SBR *&4 R/W COMMANDS AFTER ERROR FOVAL 0705 C *,COMAND&13 FOVAL 0706 C FOVAL 0707 MCW FOVAL 0708 MN COMAND&17,COMAND&18 FOVAL 0709 MN COMAND&3,BACKSP&3 FOVAL 0710 REPEAT A *-6,COMAND&18 FOVAL 0711 C COMAND&18,COMAND&17 FOVAL 0712 BU *&11 FOVAL 07125 NOP 2288 FOVAL 0713 H FOVAL 0714 BSS COMAND&13,G FOVAL 0715 BACKSP CU %U1,B FOVAL 0716 BCE COMAND,COMAND&7,R FOVAL 0717 BL COMAND FOVAL 0718 CU %U1,E FOVAL 0719 COMAND NOP *,*,* FOVAL 0720 BER REPEAT FOVAL 0721 B *-3 FOVAL 0722 DCW 7 FOVAL 0723 DCW @ @ FOVAL 0724 EX STARTI FOVAL 0725 ******************************************************************* FOVAL 0726 * CONTROL CARDS HERE IN CONDENSED DECK FOVAL 0727 ******************************************************************* FOVAL 0728 JOB INITALIZE PROCESSING FOVAL 0729 ORGI EQU SIZE-999 FOVAL 0730 ORG ORGI-100 FOVAL 0731 R GETREC&11 CONSTANTS FOR CONVERSION FOVAL 0732 BCE LOADTR,1,, OF GET TAPE TO READ CARD FOVAL 0733 NOP FOVAL 0734 CARD MLCWA*-7,QPAD9 FOVAL 0735 CHAIN2 FOVAL 0736 S X3&1 FOVAL 0737 B GETREC&7 FOVAL 0738 * FOVAL 0739 INITP CS 80 FOVAL 07390 BWZ WTT120,SW120,1 Q. 120 CHAR LABELS FOVAL 07391 MLCWACGM,WTE80 NO, SET TO 80 FOVAL 07393 SBR MVEBKC&6,WTCNT MOVE BLOCKCOUNT, 80 LABEL FOVAL 0740 WTT120 BCE CARD,HOLD&4,C FOVAL 0741 MZ *-6,ABIT MAKE A-BIT CONSTANT FOVAL 0742 MN HOLD&4,RTAPE&3 FOVAL 0743 MN HOLD&4,EOT1&3 FOVAL 07435 MN HOLD&4,WLRBSP FOVAL 0744 SBR INTBLK&6,0&X3 FOVAL 0745 SBR RTAPE&6,1&X3 SET START OF TAPE INPUT BLOCK FOVAL 07455 MA RTAPE&6,TAPEL ADD BEGIN ADDR TO BLOCK LENGTH FOVAL 0746 SBR GETBL3&6,13&X3 INIT NOISE TEST FOVAL 0747 SBR GETBLK&6 FOVAL 0748 MLC ABIT,GETBL3&7 FOVAL 0749 A *-6,F1 FOVAL 0750 MN F1,GETREC&13 FOVAL 0751 MN FOVAL 0752 MLC FOVAL 0753 MCW RTAPE&7,GETBL2&7 FOVAL 0754 MLC F3,REELS SAVE INPUT REEL COUNT FOVAL 0755 S IPC1,REELS FOVAL 0756 R FOVAL 0757 CS *-4 FOVAL 0758 SBR *-4 FOVAL 0759 BWZ *-15,HOLD,1 FOVAL 0760 CS GETBLK,*&1 FOVAL 0761 IPC1 DCW 1 FOVAL 0762 JOB PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL FOVAL 0763 ORG *&X00 FOVAL 0764 ORGPRO EQU *&1 FOVAL 0765 CPGM DCW @!@ CORE PROTECTION FOVAL 0766 * THIS IS UPPER LIMIT OF USER TAPE INPUT BLOCK FOVAL 0767 *GET NEXT RECORD FROM BLOCKED INPUT TAPE FOVAL 07672WLR A *-6,WLRC COUNT SKIPPED WLR FOVAL 07674 B GETBLK FOVAL 0768 NOISE A *-6,NOISEC FOVAL 0769 GETBLK MLC ABIT,0&12 INIT ABIT FOR NOISE REC TEST FOVAL 0770 RTAPE RT 1,* * IS READ AREA FOVAL 07702 SBR X3 FOVAL 0771 BEF EOT1 FOVAL 0772 GETBL3 BCE NOISE,0&12, Q. NOISE RECORD FOVAL 0773 B *&9 FOVAL 0774 GETBL2 RT 1,* CALLING SEQUENCE FOR TAPERR FOVAL 0775 BER TAPERR FOVAL 07750 C TAPEL,X3 Q. WLR FOVAL 07751 BE INTBLK NO FOVAL 07752 MN 0&X3 YES, DESTROY EXTRA GM FOVAL 07753 MLC CBLK FOVAL 07753 MLC CGM,CPGM IN CASE DESTROYED CORE PROTECT GM FOVAL 07754 NOP 2244 FOVAL 07755 H FOVAL 07756 BSS WLR,G DROP RECORD IF SWITCH G ON FOVAL 07757WLRBSP BSP 1 FOVAL 07758 B GETBLK FOVAL 0776 INTBLK SBR X3,* * IS READ AREA - 1 FOVAL 0777 B QPAD9 FOVAL 0778 EOT1 RWU 1 INPUT REEL COMPLETED FOVAL 0779 S PRC1,REELS Q. ALL REELS READ FOVAL 0780 BWZ GETBLK,REELS,B FOVAL 0781 LOADTR SW 56,63 FOVAL 0782 B 56 FOVAL 0783 SCAN9 MCW X3,X1 FIRST CHAR OF RECORD WAS 9, FOVAL 0784 SBR X1,1&X1 SCAN FOR ALL 9S FOVAL 0785 BCE *-14,1&X1,9 FOVAL 0786 BCE GETREC&7,1&X1,\ YES, WAS PADDING FOVAL 0787 B QPAD9&8 NO, PROCESS FOVAL 0788 PASS A *-6,COUNT&X2 FOVAL 0789 SELX BW OUTSEL,STATUS&X2 Q. LAST FILE DEF TESTED FOVAL 0790 GETREC A *-6,RECNT COUNT LAST INPUT RECORD FOVAL 0791 BCE GETBLK,0&1&X3,! Q. END OF BLK, 0 IS RECORD LNG FOVAL 0792 SBR X3 SET TO NEXT RECORD FOVAL 0793 QPAD9 BCE SCAN9,1&X3,9 Q. PADDING FOVAL 0794 * FOVAL 0795 OUTSEL MCW NXTABC&X2,X2 TEST FOR TRUTH OF A,B,C FOVAL 0796 BCE IO&X2,AHERE&X2, WHEN AHERE BLK, ACCEPT ALL REC FOVAL 0797 MCW AHERE&X2,*&4 FOVAL 0798 C *,ALOW&X2 FOVAL 0799 BH TSTAF FOVAL 0800 MCW AHERE&X2,*&4 FOVAL 0801 C *,AHIGH&X2 FOVAL 0802 BL TSTAF FOVAL 0803 BCE IO&X2,AB&X2, FOVAL 0804 BCE TSTBP,AB&X2,O FOVAL 0805 TSTBL MCW BHERE&X2,*&4 FOVAL 0806 C *,BLOW&X2 FOVAL 0807 BCE TSTBN,AB&X2,N FOVAL 0808 BH TSTBF FOVAL 0809 MCW BHERE&X2,*&4 FOVAL 0810 C *,BHIGH&X2 FOVAL 0811 BL TSTBF FOVAL 0812 TSTBP BCE IO&X2,BC&X2, FOVAL 0813 BCE IO&X2,BC&X2,O FOVAL 0814 TSTCL MCW CHERE&X2,*&4 FOVAL 0815 C *,CLOW&X2 FOVAL 0816 BCE TSTCN,BC&X2,N FOVAL 0817 BH FAIL FOVAL 0818 MCW CHERE&X2,*&4 FOVAL 0819 C *,CHIGH&X2 FOVAL 0820 BL FAIL FOVAL 0821 B IO&X2 FOVAL 0822 TSTAF BCE TSTBL,AB&X2,O FOVAL 0823 BCE FAIL,AB&X2, FOVAL 0824 B TSTBF FOVAL 0825 TSTBN BH TSTBP FOVAL 0826 MLC BHERE&X2,*&4 FOVAL 0827 C *,BHIGH&X2 FOVAL 0828 BL TSTBP FOVAL 0829 TSTBF B TSTCL,BC&X2,O FOVAL 0830 FAIL BWZ SELX,STATUS&X2,2 FOVAL 0831 BCE SELX,1,, Q. END OF CARDS FOVAL 0832 MCW AHERE&X2,*&4 FOVAL 0833 C *,AHIGH&X2 FOVAL 0834 BL *&5 FOVAL 0835 B SELX FOVAL 0836 R FOVAL 0837 MCW 16,AHIGH&X2 FOVAL 0838 MCW FOVAL 0839 B OUTSEL&7 FOVAL 0840 TSTCN BH IO&X2 FOVAL 0841 MLC CHERE&X2,*&4 FOVAL 0842 C *,CHIGH&X2 FOVAL 0843 BL IO&X2 FOVAL 0844 B FAIL FOVAL 0845 * FOVAL 0846 *GENERALIZED WRITE AND TAPERR MUST BE IN CORE FOR PROCESSING FOVAL 0847 * AND FOR CLOSE FOVAL 0848 *GENERALIZED WRITE OUTPUT BLOCK FOVAL 0849 WTAPE SBR X1 FOVAL 0850 WTAPEL MCW 3&X1,*&4 RESET ROUTINE TO FILL FOVAL 0851 SBR *,13&X1 FIRST RECORD OF NEXT BLOCK FOVAL 0852 MCW 8&X1,*&4 DRIVE FOVAL 0853 WT 2,14&X1 FOVAL 0854 BER TAPERR FOVAL 0855 A *-6,13&X1 COUNT TAPE BLOCK FOVAL 0856 QEOT BEF *&5 Q. EOT FOVAL 0857 B PASS FOVAL 0858 MN 8&X1,*&4 FOVAL 0859 WTM 2 TM FOVAL 0863 MVEBKC MLC 13&X1,WTCNT2 MOVE BLOCKCOUNT TO LABEL FOVAL 0866 MLC WTTRL&25,13&X1 CLEAR BLOCKCOUNT FOR NEXT REEL FOVAL 0867 MN 8&X1,*&4 FOVAL 0868 WT 2,WTTRL-4 WRITE TRAILER LABEL FOVAL 0869 MN 8&X1,*&4 FOVAL 0870 WTM 2 TM AFTER TRAILER FOVAL 0871 MN 8&X1,*&4 FOVAL 0872 RWU 2 FOVAL 0873 WTEX B PASS FOVAL 0874 * FOVAL 0875 WTTRL DCW @1EOR @ FOVAL 0876 WTCNT DCW #5 FOVAL 0877 DCW #52 FOVAL 0878 DCW #4 FOVAL 0879 WTCNT2 DCW @0 @ FOVAL 0880 WTE80 DCW #9 IF 80 CHAR LABEL, GM IN LAST POS FOVAL 0881 DCW #39 FOVAL 0882 DCW @!@ GMARK FOVAL 0883 * FOVAL 0884 ABIT DCW #1 FOVAL 0885 PRC1 DCW 1 FOVAL 0886 REELS DCW 00 FOVAL 0887 EX INITP FOVAL 0888 ******************************************************************* FOVAL 0889 * CARD INPUT, WHEN USED, HERE FOVAL 0890 ******************************************************************* FOVAL 0891 JOB CLOSE FILES, PRINT I/O COUNTS FOVAL 0892 ORG ORGPRO FOVAL 0893 ENDPRG SW QEOT&4 MODIFY WT TO CLOSE FILE FOVAL 0894 MLC @F@,WTTRL-1 CHANGE EOR TO EOF FOVAL 0895 BSS *&8,F FOVAL 0896 MCW CR,WTEX-1 FOVAL 0897 SBR WTEX&3,QLAST FOVAL 0898 BWZ PFT,SWW,1 Q. PRINTED OUTPUT FOVAL 0899 B FINDON&2 FOVAL 0900 PFT SBR SWTOT&3,*&5 SWITCH TO FINAL TOTAL FOVAL 0901 B WI2 FOVAL 0902 MLC FINCNT,COUTT FOVAL 0903 MCW WI2&6,*&7 FOVAL 0904 NOP *,* FOVAL 0905 W FOVAL 0906 FINDON CC 1 FOVAL 0907 CS 332 FOVAL 0908 CS FOVAL 0909 MCW CINPUT,250 INPUT COUNT FOVAL 0910 MCS RECNT,258 FOVAL 0911 BCE *&15,NOISEC, FOVAL 0912 MLC CNOISE,275 FOVAL 0913 MCS NOISEC,282 FOVAL 09132 BCE *&15,WLRC, FOVAL 09134 MLC CWLR,295 FOVAL 09136 MCS WLRC,302 FOVAL 0914 CC T FOVAL 0915 W FOVAL 0916 CS FOVAL 0917 CS FOVAL 0918 MCW COUT,255 FOVAL 0919 CC S FOVAL 0920 W FOVAL 0921 CS FOVAL 0922 CS FOVAL 0923 PCNT MCW NXTABC&X2,X2 FOVAL 0924 MCS COUNT&X2,258 FOVAL 0925 BCE ET,IO&X2,H Q. TAPE FILE FOVAL 0926 QLAST W FOVAL 0927 BWZ PCNT,STATUS&X2,1 Q. LAST FILE FOVAL 0928 CC 1 FOVAL 0929 BWZ *&5,SWP,1 FOVAL 0930 B *&7 FOVAL 0931 CS 180 FOVAL 0932 P FOVAL 0933 P FOVAL 0934 BLC H2888 Q. ANOTHER PROGRAM IN READ FOVAL 09340 BCE *&5,1,, FOVAL 09341 R *-16 FOVAL 09342 SW 1 FOVAL 09343 B 1 FOVAL 09344H2888 NOP 2888 END OF JOB HALT FOVAL 09345 H FOVAL 09346 B H2888 FOVAL 09347* FOVAL 0935 ET MCW IO&6&X2,X3 FOVAL 0936 * FOVAL 0937 SBR X1,IO&7&X2 INIT FORWARD SEARCH FOR FOVAL 0938 ET2 BWZ ET3,0&X1,1 BCE WTAPE,XXX,GM FOVAL 0939 ET5 SBR X1,1&X1 SBR WTAPE2&6 FOVAL 0940 B ET2 FOVAL 0941 ET4 BCE WTAPE CONSTANTS FOR COMPARES FOVAL 0942 ET6 SBR FOVAL 0943 ET3 C 3&X1,ET4&3 CAN BE EQUAL IF BCE WTAPE OR FOVAL 0944 BU ET5 CONSTANT FOVAL 0945 C ET6,8&X1 SO TEST FOR FOLLOWING SBR FOVAL 0946 BU ET5 FOVAL 0947 SBR X1,8&X1 X1 CALLING SEQ FOR WTAPE FOVAL 0948 * FOVAL 0949 MN 8&X1,250 FOVAL 0950 MCW CTAPE,248 FOVAL 0951 SBR WK3,13&X1 Q. IS THIS BLOCK EMPTY FOVAL 09512 C WK3,X3 FOVAL 09514 BE QEOT FOVAL 0952 FILL9 MCW C9,1&X3 SCAN FORWARD TO GM, FOVAL 09520 BCE *&5,2&X3,! Q. GM FOVAL 09521 B *&9 NO FOVAL 09522 BWZ WTAPEL,2&X3,1 Q. GM-WM FOVAL 0953 BCE *&9,2&X3,\ FILL 9 PADDING FOVAL 0954 SBR X3 FOVAL 0955 B FILL9 FOVAL 0956 BCE WTAPEL,3&X3,! Q. PADDING COMPLETED FOVAL 0957 SBR X3 FOVAL 0958 B FILL9 FOVAL 0959 CINPUT DCW @INPUT@ FOVAL 0960 CNOISE DCW @NOISE REC@ FOVAL 0961 COUT DCW @OUTPUT COUNTS@ FOVAL 0962 CR DCW @R@ FOVAL 0963 CTAPE DCW @TAPE@ FOVAL 09632CWLR DCW @WLR@ FOVAL 0964 C9 DCW @9@ FOVAL 0965 END ENDPRG FOVAL ################################################################################ ########## PUNCH AUTOCODER TAPE 4, 1401 SOURCE 0101 JOB PUNCH AUTOCODER WITH MACROS, VERSION 2 PAUT2 0102 CTL 6611 PAUT2 0103 DIOCS PAUT2 0104 DIOCSORG 336 PAUT2 0105 IODEVICES TAPE PAUT2 0106 READERROR CLEAN,SCAN PAUT2 0107 TAPEUSE INPUT PAUT2 0108 DTF IN PAUT2 0109 CHANDRIVE 4 PAUT2 0110 EOFADDR EOF4 PAUT2 0111 FILETYPE TAPE,INPUT PAUT2 0112 IOAREA INA PAUT2 0113 RECFORM FIXED,UNBLOCKED PAUT2 0114 SIZERECORD 86 PAUT2 0115 SEQNC PAUT2 0116 INDEX PAUT2 0117 104 DCW @0100@ PAUT2 0118 INA DA 1X86,G PAUT2 0119 LABEL 6,11 PAUT2 0120 OP 16,20 PAUT2 0121 OPR 72 PAUT2 0122 TYPE 75,75 PAUT2 0123 ID 76,80 PAUT2 0124 CLEAR DA 1X70 PAUT2 0125 INSKIP DA 1X2,G PAUT2 0126 * PAUT2 0127 * IOCS MACROS PAUT2 0128 DCW @*@ PAUT2 0129 DCW @GET @ PAUT2 0130 DCW @PUT @ PAUT2 0131 DCW @RELSE@ PAUT2 0132 DCW @SPACE@ PAUT2 0133 DCW @SKIP @ PAUT2 0134 DCW @OPEN @ PAUT2 0135 DCW @CLOSE@ PAUT2 0136 DCW @FEORL@ PAUT2 0137 DCW @RDLIN@ PAUT2 0138 IOCSM DCW @DCLOS@ PAUT2 0139 * PAUT2 0140 START OPEN IN PAUT2 0141 BLC *&2 PAUT2 0142 R PAUT2 0143 READ GET IN PAUT2 01435QTYPE MLC TYPE,105 PAUT2 0144 BCE COMENT,LABEL-5,* Q. TYPE PAUT2 0145 BCE MACRO,TYPE,R PAUT2 0146 BCE MACRO,TYPE,S PAUT2 0147 BCE MACRO,TYPE,Z PAUT2 0148 BCE IOCSP,TYPE,W PAUT2 0149 C OP,@JOB @ PAUT2 0150 BU MOVE PAUT2 0151 MLC ID,180 JOB, MOVE ID PAUT2 0152 MOVE MLC LABEL,111 PAUT2 0153 MOVE2 MLC OPR,172 PAUT2 0154 GOP B PUNCH PAUT2 0155 B READ PAUT2 0156 * PAUT2 0157 COMENT MLC OPR,172 COMMENT PAUT2 0158 MLC PAUT2 0159 B GOP PAUT2 0160 * PAUT2 0161 IOCSP MLC OPR-1,172 IOCS PARAMETER PAUT2 0162 MLC PAUT2 0163 MLC @*@ PAUT2 0164 B GOP PAUT2 0165 * PAUT2 0166 MACRO C OP,@CHAIN@ MACRO PAUT2 0167 BU MACROA PAUT2 0168 ZA *-6,WK3 PAUT2 0169 BCE MACRO1,OP&2, Q. CHAIN X PAUT2 0170 BCE MACRO2,OP&3, Q. CHAIN XX PAUT2 0171 BCE MACRO3,OP&4, Q. CHAIN XXX PAUT2 0172 B MACROA PAUT2 0173 MACRO1 MN OP&1,WK3#3 PAUT2 0174 B MACROB PAUT2 0175 MACRO2 MN OP&2,WK3 PAUT2 0176 MN PAUT2 0177 B MACROB PAUT2 0178 MACRO3 MN OP&3,WK3 PAUT2 0179 MN PAUT2 0180 MN PAUT2 0181 MACROB S @1@,WK3 PAUT2 0182 BWZ MOVE,WK3,K DROP GENERATED CHAIN PAUT2 0183 RT 4,INSKIP PAUT2 0184 B MACROB PAUT2 0185 * PAUT2 0186 MACROA SBR X1,IOCSM PAUT2 0187 C OP,0&X1 Q. IOCS MACRO PAUT2 0188 SBR X1 PAUT2 0189 BE MIOCS PAUT2 0190 BCE *&5,0&X1,* PAUT2 0191 B MACROA&7 PAUT2 0192 BCE MIOCS,TYPE,Z Q. MACRO IN IOCS PAUT2 0193 BCE MIOCS,TYPE,S PAUT2 0194 BCE MIOCS,1,B Q. PUNCH ALL MACROS AS COMMENTS PAUT2 0195 BCE READ,1,A Q. PUNCH GENERATED PAUT2 0196 MLC OPR,172 NO PAUT2 0197 MLC LABEL,111 PAUT2 01975 MLC @ @,105 PAUT2 0198 B PUNCH PAUT2 0199 READ2 GET IN PAUT2 0200 BCE READ2,TYPE,C PAUT2 0201 B QTYPE PAUT2 0202 * PAUT2 0203 MIOCS MLC LABEL,112 PAUT2 0204 MLC @*@ PAUT2 0205 B MOVE2 PAUT2 0206 * PAUT2 0207 PUNCH SBR PUNCHX&3 PUNCH CARD PAUT2 0208 A *-6,104 PAUT2 0209 P PAUT2 0210 MLC CLEAR&69,175 PAUT2 0211 PUNCHX B * PAUT2 0212 * PAUT2 0213 EOF4 CLOSEIN PAUT2 0214 CS 180 PAUT2 0215 P PAUT2 0216 P PAUT2 0217 H *-3 PAUT2 0218 END START PAUT2 ################################################################################ ########## GENERALIZED UPDATE, 1401 OBJECT ,008015,022026,030037,044,049,053053N000000N00001026 0001GENUP L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002GENUP ,008015,022029,036040,047054,061068,072/061039 ,00100110400003GENUP 111NM080208LB2270681 L020219,201202,203204,21121210400004GENUP /040299H071238B040C080208B277/B212072C L038257,227234,238245,25004010400005GENUP A258203C075203B212S/2802. L025282,265272,277281,28204010400006GENUP PROG 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,33834510400013GENUP P001201F12//P001101,001004 L026375,357359,360361,36236910400014GENUP ,006A1K5089,0\6H7A10\5D1K37{8DM L031406,380387,391398,40540610400015GENUP H0940}5H0990A7B4487{5MB4411K5 B380 L034440,414421,429437,04004010400016GENUP LT897{9H7920\5YU07791A462110D110687DM L037477,448455,462469,47647710400017GENUP S095U%U1RU%U2RB\821M%U1U59RB519K L032509,482487,492496,49750510400018GENUP U%U1BB557U%U2MB557 L018527,515519,524040,04004010400019GENUP M%U2U59WB984LBT38KB557A550T93M%U1U59R L037564,536541,546550,55704010400020GENUP H089B846KB550U70!BBBB L021585,569574,582583,58458510400021GENUP BBBBBBB L007592,587588,589590,59159210400022GENUP B605M%U1U59RB984LH099U58,IZIMU08617 L035627,597605,610617,62104010400023GENUP V693IZI1BT38M099089H0890\1B6470\19 L034661,636640,647654,04004010400024GENUP B6810\1\B701A674T99B5280{1!H099B6400{19L039700,670674,681689,69304010400025GENUP N674C0{0711B674UB825TC0{0728B674UB825T L038738,705712,717722,72973410400026GENUP C0{0745B674UB825TC0{0762B674UB825T L034772,746751,756763,76804010400027GENUP M005094D003795DMM0}00{0B814A1 L029801,780787,788789,79680110400028GENUP B814001,B705MU09701B674P001201MU283002 L038839,810814,821825,83283910400029GENUP //B796 L006845,841842,040040,04004010400030GENUP U%U2MB\82U%U2MU%U2RU%U1UBT38701NZT99220L039884,851855,860865,87087810400031GENUP F1MU352282/228ZT93220B928220 MU48234 L036920,887894,895899,90691410400032GENUP 2/234F1BT38AH089001<0\0B9630888 L031951,922926,928933,94094410400033GENUP H0890\1B940B979002 ,001B001BI5A. L032983,959963,971975,97998310400034GENUP ,001/I5DHI5HVI5E0011BI7F!U%U1R L030I8{,I5EI5I,I6CI7A,I7EI7F10400035GENUP L%U1001RBI7FLBP01 L017I9G,I8II9D,040040,04004010400036GENUP H\79H995C998\76CMD\80\81D\66\43 L031\14,988992,999\00,\01\0810400037GENUP A\15\81C\81\80B\40/.B\76GU%U1BB\63\70R L038\52,\22\29,\34\35,\40\4510400038GENUP B\63TU%U1EN\70\70*B\15LB\797 L029\81,\58\63,\71\76,\80\8110400039GENUP H/69C120U58B/66SM%U1201RB984LBT38K L034/15,\86\93,\98/06,/1104010400040GENUP B/44321!B/36281!BT38,281B/48,321 L032/47,/24/32,/36/40,/4404010400041GENUP M%U2201WB984LFS2//B/69 L022/69,/56/61,/63/64,/65/6610400042GENUP UNDEFINED ERROR L018/87,/85040,040040,04004010400043GENUP TM INSTEAD OF TAPE LABEL/16 L027S14,S12040,040040,04004010400044GENUP TAPE LABEL NOT 80 CHAR/36END OF JOB933 L038S52,S37S40,S50040,04004010400045GENUP NOTE UNPROCESSED INPUT878 L025S77,S75040,040040,04004010400046GENUP A WLR HAS BEEN READ640SHORT OUTPUT TAPEL039T16,S97T00,040040,04004010400047GENUP 546NO CONTROL CARD350H/87H099T41CIIG L036T52,T20T35,T38T42,T4904010400048GENUP H099C0{0/87BT49/MIIG260FA2/ L027T79,T57T64,T69T76,T78T7910400049GENUP /.T81B773 CONTROLK L028U07,T81T85,T90T94,U00U0710400050GENUP NBSEQ ER OR UNMATCHEDRECORDS L028U35,U09U10,U29040,04004010400051GENUP NOISE RECORDS L023U58,U49040,040040,04004010400052GENUP /337080 0053GENUP ################################################################################ ########## PRINT SET-UP INSTRUCTIONS, 1401 SOURCE 0101 JOB PRINT SET-UP INSTRUCTIONS R. WEAVER SETUP 0102 CTL 6611 SETUP 0103 * THIS PROGRAM WILL LIST ALL CARDS FOLLOWING IT UNTIL THE NEXT PROG SETUP 0104 START SW 1 SETUP 0105 CC 1 SETUP 0106 R SETUP 0107 BCE HALT,1,, SETUP 0108 MLC 80,280 SETUP 0109 W START&6 SETUP 0110 HALT CC 1 SETUP 0112 H SETUP 0115 SORT7 SORT7* SETUP 0116 END START SETUP ################################################################################ ########## PRINT SET-UP INSTRUCTIONS, 1401 OBJECT ,008015,022026,030037,044,049,053053N000000N00001026 0001SETUP L068116,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,I7EI7F10400007SETUP L%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 @