,0080121001 TAPE TO PUNCH/PRINTER 5010B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5010B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5010B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 5010B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5010B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5010B 06 L0313961001BS88S68 USE WHEN PROG. IS LOADED FROM TAPE 5010B 07 L0314041001B400 ,, 5010B 08 L0314191001/332 START TEST 5010B 09 L0314231001/ 5010B 10 L0314241001B961S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5010B 11 L0314321001B425S684 MOVE DRIVE NUMBER IN INSTRS IF NOT 4 5010B 12 L0314401001B700 ,, 5010B 13 L0314441001U%U4R REWIND 5010B 14 L0314491001/180 CLEAR PUNCH AREA 5010B 15 L0314531001LS50121 LOAD GM WM IN LOC 121 5010B 16 L0314601001L%U4101R READ TAPE 5010B 17 L0314681001B490K BRANCH IF END OF REEL 5010B 18 L0314731001B510B SENSE B ON TO SCOPE 5010B 19 L0314781001B893L BRANCH ON TAPE ERROR 5010B 20 L0314831001B943C C ON TO CORRECT PRINT ROUTINE 5010B 21 L03148810014 PUNCH 5010B 22 L0314891001B519D BRANCH TO BACKSPACE. SHORT RUNS ONLY 5010B 23 L0314891001B519D OR TAPE WILL BE DAMAGED 5010B 24 L0314941001B441 BRANCH 5010B 25 L0315091001B425G G ON TO REPEAT TEST 5010B 26 L0315141001/181 CLEAR GM WMS 5010B 27 L0315181001B348 BRANCH TO PROGRAM CHAINING ROUTINE 5010B 28 L0315291001B519D BRANCH TO BACKSPACE. SHORT RUNS ONLY 5010B 29 L0315341001B441 BRANCH TO READ TAPE 5010B 30 L0315381001U%U4B BACKSPACE 5010B 31 L0315431001B441 BRANCH TO READ TAPE 5010B 32 L0317191001DS68428 MODIFY TAPE READ INSTRUCTIONS 5010B 33 L0317261001DS68444 ,, 5010B 34 L0317331001DS68522 ,, 5010B 35 L0317401001B425 BRANCH TO REWIND 5010B 36 L0319121001L120220 LOAD ERROR TAPE RECORD IN PRINT AREA 5010B 37 L0319191001L986285 LOAD ERROR COMMENT IN PRINT AREA 5010B 38 L0319261001B916E E ON TO ERROR STOP 5010B 39 L03193110012470 ERROR PRINT - BRANCH TO SENSE D 5010B 40 L0319351001. ERROR STOP 5010B 41 L0319361001B470 BRANCH TO SENSE D 5010B 42 L0319621001L120220 LOAD CORRECT TAPE RECORD IN PRINT AREA 5010B 43 L0319691001L`06285 ,, 5010B 44 L03197610012470 CORRECT PRINT - BRANCH TO SENSE D 5010B 45 L0319801001DS68/88 MOVE DRIVE NUMBER TO TITLE PRINT 5010B 46 L0319871001BS00 BRANCH TO TITLE PRINT ROUTINE 5010B 47 L0319911001TAPE READ ERROR CONSTANT 5010B 48 L031`111001TAPE READ ,, 5010B 49 L031/391001TAPE RECORD ,, 5010B 50 L031/591001 ,, 5010B 51 L031/791001 ,, 5010B 52 L031/991001TAPE DR ,, 5010B 53 L012S501001" GROUP MARK IN S50 5010B 54 L031S8710014 ,, 5010B 55 ,019027,031,038042B031T98"B400L046352BW04BS88 TAPE TO PUNCH/PRINTER 5010B 56