,008015,036040B036 1001 LOAD TEST 0001B 0A ,008015,022029L030T99LT99T98 LOAD 1400 POS. WITH BLANKS 0001B 02 ,008015,022029L030T99LT99T98 G LOAD 1400 POS. WITH G 0001B 03 ,008015,022029L030Z99LZ99Z98 LOAD 2000 POS. WITH BLANKS 0001B 04 ,008015,022029L030Z99LZ99Z98 G LOAD 2000 POS. WITH G 0001B 05 ,008015,022029L030I99LI99I98 LOAD 4000 POS. WITH BLANKS 0001B 06 ,008015,022029L030I99LI99I98 G LOAD 4000 POS. WITH G 0001B 07 ,008015,036040B036 1001 MOVE TEST 0002B 0A ,008015,022029,036040M040T99MT99T98.0221 MOVE 1 1399 THRU 040 0002B 02 ,008015,022029,036040M040T99MT99T98.0222 MOVE 2 1399 THRU 040 0002B 03 ,008015,022029,036040M040T99MT99T98.0224 MOVE 4 1399 THRU 040 0002B 04 ,008015,022029,036040M040T99MT99T98.0228 MOVE 8 1399 THRU 040 0002B 05 ,008015,022029,036040M040T99MT99T98.022A MOVE A 1399 THRU 040 0002B 06 ,008015,022029,036040M040T99MT99T98.022B MOVE B 1399 THRU 040 0002B 07 ,008015,022029,036040M040T99MT99T98.022D MOVE D 1399 THRU 040 0002B 08 ,008015,022029,036040M040T99MT99T98.022G MOVE G 1399 THRU 040 0002B 09 ,0080121001 SENSE SWITCHES 0003B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0003B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0003B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0003B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0003B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0003B 06 L0313961001B399S551 USE WHEN TESTS ARE RUN FROM TAPE 0003B 07 L0314041001BS88 ,, 0003B 08 L0314181001. STOP TO SET SW. ON WHEN RUN FROM TAPE 0003B 09 L0314191001/332 START TEST 0003B 10 L0314231001/ 0003B 11 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0003B 12 L0314321001D436603 MOVE 6 INTO LOC 603 & 608 FOR 1ST OPER. 0003B 13 L0314391001D436608 ,, 0003B 14 L0314461001L`20220 LOAD NINES IN -COUNTERS SHOULD BE- FIELD0003B 15 L0314531001L`60250 LOAD ZEROS IN -COUNTERS ARE- FIELD 0003B 16 L0314601001,234237 SET WORD MARKS IN ALL COUNTERS 0003B 17 L0314671001,240243 ,, 0003B 18 L0314741001,246249 ,, 0003B 19 L0314811001B471B B ON TO ADD 0003B 20 L0314861001B478 0003B 21 L0314901001A/09235 ADD 1 TO B CTR 0003B 22 L0314971001B487C C ON TO ADD 0003B 23 L0315021001B494 0003B 24 L0315061001A/09238 ADD 1 TO C CTR 0003B 25 L0315131001B503D D ON TO ADD 0003B 26 L0315181001B510 0003B 27 L0315221001A/09241 ADD 1 TO D CTR 0003B 28 L0315291001B519E E ON TO ADD 0003B 29 L0315341001B526 0003B 30 L0315381001A/09244 ADD 1 TO E CTR 0003B 31 L0315451001B535F F ON TO ADD 0003B 32 L0315501001B542 0003B 33 L0315541001A/09247 ADD 1 TO F CTR 0003B 34 L0315611001B551G G ON TO ADD 0003B 35 L0315661001B558 0003B 36 L0315701001A/09250 ADD 1 TO G CTR 0003B 37 L0315771001A/09232 ADD 1 TO CYCLE CTR 0003B 38 L0315841001C202232 TEST FOR 99 IN CYCLE CTR 0003B 39 L0315911001B462/ BR TO REPEAT IF NOT 99 0003B 40 L0315961001)237240 CLEAR WORD MARKS FROM COUNTERS 0003B 41 L0316031001)243246 ,, 0003B 42 L0316101001)249 ,, 0003B 43 L0316141001C220250 TEST FOR ERROR IN CTRS- ERROR IF UNEQ 0003B 44 L0316211001B650/ CHANGED TO B850/ FOR SECOND OPERATION 0003B 45 L0316261001B673 CHANGED TO B873 FOR SECOND OPERATION 0003B 46 L0316691001L/14285 ERROR PRINT ROUTINE WITH SWITCHES ON 0003B 47 L0316761001B669S521 ,, 0003B 48 L0316841001.696 ,, 0003B 49 L03168810012696 ,, 0003B 50 L0316921001L/19285 CORRECT PRINT ROUTINE WITH SWITCHES ON 0003B 51 L0316991001B692S521 ,, 0003B 52 L0317071001B696 ,, 0003B 53 L03171110012696 ,, 0003B 54 L0317151001.700 STOP TO SET ALL SWITCHES OFF OR CHANGE 0003B 55 L0317151001.700 .700 TO B413 TO REPEAT ON OPERATION 0003B 56 L0317191001L`40220 LOAD 99 AND 12 ZEROS IN CTRS SH BE FIELD0003B 57 L0317261001D858603 MOVE 8 INTO LOC 603 & 608 FOR 2ND OPER. 0003B 58 L0317331001D858608 ,, 0003B 59 L0317401001B434 BRANCH TO EXECUTE SECOND OPERATION 0003B 60 L0318691001L/14285 ERROR PRINT ROUTINE WITH SWITCHES OFF 0003B 61 L0318761001B869S521 ,, 0003B 62 L0318841001.896 ,, 0003B 63 L03188810012896 ,, 0003B 64 L0318921001L/19285 CORRECT PRINT ROUTINE WITH SWITCHES OFF 0003B 65 L0318991001B892S521 ,, 0003B 66 L0319071001B896 ,, 0003B 67 L03191110012896 ,, 0003B 68 L0319151001.900 STOP TO SET SW.FOR NEXT TEST OR CHANGE 0003B 69 L0319151001.900 .900 TO B700 TO REPEAT OFF OPERATION 0003B 70 L0319191001B348 BRANCH TO READ NEXT RECORD 0003B 71 L031`20100199 99 99 99 99 99 99 CYCLE,B,C,D,E,F&G CTRS AFTER ON OPER. 0003B 72 L031`40100199 00 00 00 00 00 00 CYCLE,B,C,D,E,F&G CTRS AFTER OFF OPER. 0003B 73 L031`60100100 00 00 00 00 00 00 CONSTANTS TO SET CTRS TO ZERO 0003B 74 L031/2810011 CONSTANT TO INCREMENT CYCLE COUNTERS 0003B 75 L031/291001ERROR CONSTANTS 0003B 76 L031/341001 ,, 0003B 77 L031/391001COUNTERS SHOULD BE ,, 0003B 78 L031/591001 COUNTERS A ,, 0003B 79 L031/791001RE ,, 0003B 80 L031/991001 ,, 0003B 81 ,019027,031,038042B031T98"B400L046352BW04BS88 SENSE SWITCHES 0003B 82