,0080121001 LOAD TAPE 5050C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5050C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5050C 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/2802413 CARD 1 OF 3 5050C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5050C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5050C 06 L0313961001BS88S68 USE WHEN TESTS ARE RUN FROM TAPE 5050C 07 L0314041001B400 ,, 5050C 08 L0314191001/332 START TEST 5050C 09 L0314231001/ 5050C 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5050C 11 L0314321001M`04`07 SET PASS COUNTER TO 001 5050C 12 L0314391001N0000 NOP 5050C 13 L0314441001,199 SET WM IN 199 5050C 14 L0314481001B886 BR TO SET MOD INSTR TO INITIAL COND. 5050C 15 L0314561001L%U4208W WRITE 15 CHARACTER RECORD 5050C 16 L0314641001B455B B ON TO SCOPE 5050C 17 L0314691001B637L BRANCH IF WRITE ERROR 5050C 18 L0314741001B628K BRANCH IF END OF REEL 5050C 19 L0314791001U%U4B BACKSPACE 5050C 20 L0314841001L%U4245R READ BACK SAME 15 CHARACTER RECORD 5050C 21 L0314921001B437B B ON TO SCOPE 5050C 22 L0314971001B664L BRANCH IF READ ERROR 5050C 23 L0315021001B750 BRANCH TO TEST FOR ERROR BY COMPARING 5050C 24 L0315061001Z`07203 MOVE PASS NUMBER 5050C 25 L0315131001N725 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5050C 26 L0315181001B737C C ON TO CORRECT ROUTINE 5050C 27 L0315231001B933D D ON TO REPEAT SAME RECORD 5050C 28 L0315281001C944`10 TEST IF LAST RECORD HAS BEEN WRITTEN 5050C 29 L0315351001B613/ BRANCH IF NOT LAST RECORD 5050C 30 L0315401001B601`061 BRANCH IF END OF 10TH PASS 5050C 31 L0315481001A`00`07 ADD 1 TO PASS COUNTER 5050C 32 L0315551001B886 BRANCH TO START NEXT PASS 5050C 33 L0316201001B413G G ON TO REPEAT TEST 5050C 34 L0316251001/348299 BRANCH TO READ NEXT PROGRAM 5050C 35 L0316321001,942 ADD 1 TO MOVE INSTR TO SET UP NEXT 5050C 36 L0316361001A`00944 RECORD TO BE WRITTEN 5050C 37 L0316431001B933 BRANCH TO SET UP NEXT RECORD 5050C 38 L0316471001U%U4R REWIND 5050C 39 L0316521001B933 BRANCH TO SET UP SAME RECORD 5050C 40 L0316561001L405494 CHANGE NOP TO BRANCH 5050C 41 L0316631001M`88230 MOVE TAPE WRITE ERROR COMMENT 5050C 42 L0316701001B660E E ON TO ERROR STOP 5050C 43 L0316751001B455 BRANCH TO TEST FOR END OF REEL 5050C 44 L0316791001.455 ERROR STOP IF TAPE WRITE ERROR 5050C 45 L0316831001L405494 CHANGE NOP TO BRANCH 5050C 46 L0316901001M`88267 MOVE TAPE READ ERROR COMMENT 5050C 47 L0316971001B687E E ON TO ERROR STOP 5050C 48 L0317021001B750 BRANCH TO TEST FOR ERROR BY COMPARING 5050C 49 L0317061001.750 ERROR STOP IF TAPE READ ERROR 5050C 50 L0317171001L405494 CHANGE NOP TO BRANCH 5050C 51 L0317241001M`95278 MOVE COMPARE ERROR COMMENT 5050C 52 L0317311001B721E E ON TO ERROR STOP 5050C 53 L0317361001B487 BRANCH TO MOVE PASS NUMBER 5050C 54 L0317401001.487 ERROR STOP IF ERROR DETECTED BY COMPARE 5050C 55 L0317441001M/00285 MOVE WORD ERROR TO PRINT 5050C 56 L0317511001B504E E OFF TO ERROR PRINT 5050C 57 L03175610012 PRINT 5050C 58 L03175710012) PRINT WORD MARKS 5050C 59 L0317591001B504 BRANCH TO SENSE D 5050C 60 L0317691001)260223 TEST FOR ERROR BY COMPARING 5050C 61 L0317761001C260223 ,, 5050C 62 L0317831001B698/ ,, 5050C 63 L0317881001C258221 ,, 5050C 64 L0317951001B698/ ,, 5050C 65 L0318001001C252215 ,, 5050C 66 L0318071001B698/ ,, 5050C 67 L0318121001V8052591 TEST FOR WORD MARKS 5050C 68 L0318201001B698 ,, 5050C 69 L0318241001V8172531 ,, 5050C 70 L0318321001B698 ,, 5050C 71 L0318361001V4872451 ,, 5050C 72 L0318441001B698 ,, 5050C 73 L0319051001M`14910 SET MODIFIED INSTR TO INITIAL COND 5050C 74 L0319121001M`18944 ,, 5050C 75 L0319191001)908/13 SET WORD MARKS THROUGHOUT TABLE 5050C 76 L0319261001,/01908 ,, 5050C 77 L0319331001V933/131 ,, 5050C 78 L0319411001A`00910 ,, 5050C 79 L0319481001B900 ,, 5050C 80 L0319521001/299 CLEAR PRINT AREA 5050C 81 L0319561001)942 SET UP 15 CHARACTER RECORD TO BE 5050C 82 L0319601001M/02209 WRITTEN ON TAPE 5050C 83 L0319671001L ,, 5050C 84 L0319681001M209211 ,, 5050C 85 L0319751001M211215 ,, 5050C 86 L0319821001L214222 ,, 5050C 87 L0319891001,222 ,, 5050C 88 L0319931001LS50223 ,, 5050C 89 L031`001001M/40494 CHANGE ERROR BRANCH TO NOP 5050C 90 L031`071001,246258 SET WORD MARKS IN TAPE READ AREA 5050C 91 L031`141001B437 BRANCH TO WRITE TAPE 5050C 92 L031`19100110001 CONSTANT 5050C 93 L031`241001XXX PASS COUNTER FOR NO. OF TEST PASSES 5050C 94 L031`271001/13,/01M/02 CONSTANT 5050C 95 L031/041001TAPE CONSTANTS FOR PRINTOUTS 5050C 96 L031/081001COMPARE ,, 5050C 97 L031/151001ERROR ,, 5050C 98 L031/201001AAKT4EOX8I-,@ CONSTANTS FOR TAPE RECORDS 5050C 99 L031/391001PASS RECORD WRITTE CONSTANTS FOR HEADINGS 5050C100 L031/591001N TYPE OF ERRORS ,, 5050C101 ,0080121001 MOVE BINARY TAPE 5070C 0A L031/791001 RECORD READ BACK ,, 5050C102 L031/991001 TYPE OF ERRORS ,, 5050C103 L012S501001" TYPE OF ERRORS ,, 5050C104 ,019027,031,038042B031T98"B400L046352BW04BS88 LOAD TAPE 5050C105