,0080121001 BACKSPACE SKIP 5030B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5030B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5030B 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/2802413 CARD 1 OF 3 5030B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5030B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5030B 06 L0313961001BS88S68 USE WHEN TESTS ARE RUN FROM TAPE 5030B 07 L0314041001B400 ,, 5030B 08 L0314191001/332 START TEST 5030B 09 L0314231001/ 5030B 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5030B 11 L0314321001M`34`53 SET PASS COUNTER TO ONE 5030B 12 L0314391001U%U4R REWIND 5030B 13 L0314441001L432585 LOAD -N- IN LOCATION 585 5030B 14 L0314511001N NOP 5030B 15 L0314521001/299 CLEAR PRINT AREA 5030B 16 L0314561001M`53203 MOVE PASS NO. IN PRINT AREA 5030B 17 L0314631001M`64211 MOVE WORD -WRITE- IN PRINT AREA 5030B 18 L0314701001L`30226 LOAD RECORD 1 & GM IN PRINT AREA 5030B 19 L0314771001L`50260 LOAD RECORD 2 & GM IN PRINT AREA 5030B 20 L0314841001,226260 SET WM IN GM LOCATIONS 5030B 21 L0314911001L%U4216W WRITE RECORD 1 5030B 22 L0314991001B552L BRANCH IF TAPE WRITE ERROR 5030B 23 L0315041001B420K BRANCH IF END OF REEL 5030B 24 L0315091001M`33`56 SET RE-WRITE COUNTER TO ZERO 5030B 25 L0315161001L%U4250W WRITE RECORD 2 5030B 26 L0315241001B525B B ON TO SCOPE 5030B 27 L0315291001B575`551 BRANCH IF 10 IN RE-WRITE COUNTER 5030B 28 L0315371001A`20`56 ADD 1 TO RE-WRITE COUNTER 5030B 29 L0315441001B420K BRANCH IF END OF REEL 5030B 30 L0315491001U%U4B BACKSPACE 5030B 31 L0315541001U%U4E SKIP 5030B 32 L0315591001B497 BRANCH TO REWRITE RECORD 2 5030B 33 L0315711001L405585 LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 5030B 34 L0315781001M`72232 MOVE TAPE WRITE ERROR TO PRINT 5030B 35 L0315851001B485 BRANCH TO TEST FOR END OF REEL 5030B 36 L0315941001B607L BRANCH IF TAPE WRITE ERROR 5030B 37 L0315991001B420K BRANCH IF END OF REEL 5030B 38 L0316041001N630 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5030B 39 L0316091001B642C C ON TO CORRECT PRINT 5030B 40 L0316141001B694 BRANCH TO BEGIN READ PORTION OF TEST 5030B 41 L0316261001L405585 LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 5030B 42 L0316331001M`72266 MOVE TAPE WRITE ERROR TO PRINT 5030B 43 L0316401001B580 BRANCH TO TEST FOR END OF REEL 5030B 44 L0316491001M`84285 MOVE WORD ERROR TO PRINT AREA 5030B 45 L0316561001B646E E ON TO ERROR STOP 5030B 46 L03166110012694 PRINT 5030B 47 L0316651001. ERROR STOP 5030B 48 L0316661001B694 BRANCH TO BEGIN READ PORTION OF TEST 5030B 49 L0317131001L432803 LOAD -N- IN LOCATION 803 5030B 50 L0317201001/299 CLEAR PRINT AREA 5030B 51 L0317241001M`53203 MOVE PASS NO. IN PRINT AREA 5030B 52 L0317311001M`68210 MOVE WORD -READ- IN PRINT AREA 5030B 53 L0317381001LS50226 LOAD GM-WM FOR RECORD 1 5030B 54 L0317451001LS50260 LOAD GM-WM FOR RECORD 2 5030B 55 L0317521001U%U4B BACKSPACE 5030B 56 L0317571001U%U4B BACKSPACE 5030B 57 L0317621001L%U4216R READ RECORD 1 FROM TAPE 5030B 58 L0317701001B773B B ON TO SCOPE 5030B 59 L0317751001B867L BRANCH IF TAPE READ ERROR 5030B 60 L0317801001C225`29 COMPARE TAPE REC 1 WITH REC IN STORAGE 5030B 61 L0317871001B887/ BRANCH IF ERROR 5030B 62 L0317921001L%U4250R READ RECORD 2 FROM TAPE 5030B 63 L0318001001B694B B ON TO SCOPE 5030B 64 L0318051001B907L BRANCH IF TAPE READ ERROR 5030B 65 L0318101001C259`49 COMPARE TAPE REC 2 WITH REC IN STORAGE 5030B 66 L0318171001B927/ BRANCH IF ERROR 5030B 67 L0318221001N950 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5030B 68 L0318271001B962C C ON TO CORRECT PRINT 5030B 69 L0318321001B694D D ON TO REPEAT READ PORTION OF PROGRAM 5030B 70 L0318371001B850`521 BRANCH IF 10 IN PASS COUNTER 5030B 71 L0318451001A`20`53 ADD 1 TO PASS COUNTER 5030B 72 L0318521001B425 BRANCH TO REPEAT PROG. IF NOT 10TH PASS 5030B 73 L0318691001B425G G ON TO REPEAT TEST 5030B 74 L0318741001U%U4R REWIND 5030B 75 L0318791001/348299 CLEAR GM-WM & BRANCH TO LOAD NEXT PROG. 5030B 76 L0318861001L405803 LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 5030B 77 L0318931001M`72232 MOVE TAPE READ ERROR COMMENT TO PRINT 5030B 78 L0319001001B761 BRANCH TO TEST FOR COMPARE ERROR 5030B 79 L0319061001L405803 LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 5030B 80 L0319131001M`79244 MOVE COMPARE ERROR COMMENT TO PRINT 5030B 81 L0319201001B773 BRANCH TO READ RECORD 2 5030B 82 L0319261001L405803 LOAD -B- IN LOC 803 TO BRANCH ON ERROR 5030B 83 L0319331001M`72266 MOVE TAPE READ ERROR COMMMENT TO PRINT 5030B 84 L0319401001B791 BRANCH TO TEST FOR COMPARE ERROR 5030B 85 L0319461001L405803 LOAD -B- IN LOC 803 TO BRANCH ON ERROR 5030B 86 L0319531001M`79278 MOVE COMPARE ERROR COMMENT TO PRINT 5030B 87 L0319601001B803 BRANCH TO NOP OR BRANCH 5030B 88 L0319691001M`84285 MOVE WORD ERROR TO PRINT AREA 5030B 89 L0319761001B968E E ON TO ERROR STOP 5030B 90 L03198110012 PRINT 5030B 91 L03198210012813) PRINT WORD MARKS 5030B 92 L0319871001. ERROR STOP 5030B 93 L0319881001B813 BRANCH TO SENSE D 5030B 94 L031`3910011111111111" RECORD ONE GM IN `30 5030B 95 L031`5010010001 CONSTANT TO INCREMENT PASS & RE-WR. CTRS5030B 96 L031`591001RWRWRWRWRW" RECORD TWO GM IN `50 5030B 97 L031`711001XX COUNTER FOR COUNTING NO. OF PASSES 5030B 98 L031`731001XXX COUNTER FOR COUNTING NO. OF RE-WRITES 5030B 99 L031`791001WRITE CONSTANTS FOR PRINTOUTS 5030B100 L031`841001READ ,, 5030B101 L031`881001TAPE ,, 5030B102 L031`921001COMPARE ,, 5030B103 L031`991001ERROR ,, 5030B104 L031/391001PASS OPER. RECOR CONSTANTS FOR HEADINGS 5030B105 L031/591001D ONE TYPE OF ERR ,, 5030B106 L031/791001ORS RECORD TWO ,, 5030B107 L031/991001 TYPE OF ERRORS ,, 5030B108 L012S501001" TYPE OF ERRORS ,, 5030B109 ,019027,031,038042B031T98"B400L046352BW04BS88 BACKSPACE SKIP 5030B110