JOB SENSE SWITCHES 0003B ORG 377 377 BCE 399,1255,1 USE WHEN TESTS ARE RUN FROM TAPE 385 BIN 1288, ,, ORG 399 399 H STOP TO SET SW. ON WHEN RUN FROM TAPE 400 CS 332 START TEST 404 CS 405 BCE 1200,1252,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 413 MN 436,603 MOVE 6 INTO LOC 603 & 608 FOR 1ST OPER. 420 MN 436,608 ,, 427 LCA 1020,220 LOAD NINES IN -COUNTERS SHOULD BE- FIELD 434 LCA 1060,250 LOAD ZEROS IN -COUNTERS ARE- FIELD 441 SW 234,237 SET WORD MARKS IN ALL COUNTERS 448 SW 240,243 ,, 455 SW 246,249 ,, 462 BSS 471,B B ON TO ADD 467 B 478 471 A 1109,235 ADD 1 TO B CTR 478 BSS 487,C C ON TO ADD 483 B 494 487 A 1109,238 ADD 1 TO C CTR 494 BSS 503,D D ON TO ADD 499 B 510 503 A 1109,241 ADD 1 TO D CTR 510 BSS 519,E E ON TO ADD 515 B 526 519 A 1109,244 ADD 1 TO E CTR 526 BSS 535,F F ON TO ADD 531 B 542 535 A 1109,247 ADD 1 TO F CTR 542 BSS 551,G G ON TO ADD 547 B 558 551 A 1109,250 ADD 1 TO G CTR 558 A 1109,232 ADD 1 TO CYCLE CTR 565 C 202,232 TEST FOR 99 IN CYCLE CTR 572 BU 462 BR TO REPEAT IF NOT 99 577 CW 237,240 CLEAR WORD MARKS FROM COUNTERS 584 CW 243,246 ,, 591 CW 249 ,, 595 C 220,250 TEST FOR ERROR IN CTRS- ERROR IF UNEQ 602 BU 650 CHANGED TO B850/ FOR SECOND OPERATION 607 BIN 673, CHANGED TO B873 FOR SECOND OPERATION ORG 650 650 LCA 1114,285 ERROR PRINT ROUTINE WITH SWITCHES ON 657 BCE 669,1252,1 ,, 665 H 696 ,, 669 W 696 ,, 673 LCA 1119,285 CORRECT PRINT ROUTINE WITH SWITCHES ON 680 BCE 692,1252,1 ,, 688 B 696 ,, 692 W 696 ,, 695 DCW @@ STOP TO SET ALL SWITCHES OFF OR CHANGE 696 H 700 .700 TO B413 TO REPEAT ON OPERATION 700 LCA 1040,220 LOAD 99 AND 12 ZEROS IN CTRS SH BE FIELD 707 MN 858,603 MOVE 8 INTO LOC 603 & 608 FOR 2ND OPER. 714 MN 858,608 ,, 721 BIN 434, BRANCH TO EXECUTE SECOND OPERATION ORG 850 850 LCA 1114,285 ERROR PRINT ROUTINE WITH SWITCHES OFF 857 BCE 869,1252,1 ,, 865 H 896 ,, 869 W 896 ,, 873 LCA 1119,285 CORRECT PRINT ROUTINE WITH SWITCHES OFF 880 BCE 892,1252,1 ,, 888 B 896 ,, 892 W 896 ,, 895 DCW @@ STOP TO SET SW.FOR NEXT TEST OR CHANGE 896 H 900 .900 TO B700 TO REPEAT OFF OPERATION 900 BIN 348, BRANCH TO READ NEXT RECORD ORG 1001 1020 DCW @99 99 99 99 99 99 99@ CYCLE,B,C,D,E,F&G CTRS AFTER ON OPER 1040 DCW @99 00 00 00 00 00 00@ CYCLE,B,C,D,E,F&G CTRS AFTER OFF OPE 1060 DCW @00 00 00 00 00 00 00@ CONSTANTS TO SET CTRS TO ZERO ORG 1109 1109 R CONSTANT TO INCREMENT CYCLE COUNTERS 1114 DCW @ERROR@ CONSTANTS 1119 DCW @ @ ,, 1139 DCW @COUNTERS SHOULD BE @ ,, 1159 DCW @ COUNTERS A@ ,, 1179 DCW @RE @ ,, 1199 DCW @ @ ,, END