AUTOCODER RUN THRU OUTPUT JOB COPY ASALT SYSTEM FILES TP-TP CTL 311 0PPP11 00201 DIOCS IODEVICES TAPE WLRCHECK YES READERROR SCAN LABELDEF STANDARD,B DTF ITAPE FILETYPE TAPE,INPUT IOAREAS INTAPE INDEXREG X1 RECFORM FIXED,BLOCKED BLOCKSIZE 1600 SIZEREC 80 CHANDRIVE 1 EOFADDR TAPEND REWIND UNLOAD TYPELABEL STANDARD,B CHECKLABEL IDENT HEADER ASALT SYS ,67300,999 TOTALS RECORD WLRADDR WLR DTF OTAPE FILETYPE TAPE,OUTPUT IOAREAS OUTAPE INDEXREG X2 RECFORM FIXED,BLOCKED BLOCKSIZE 1600 SIZEREC 80 CHANDRIVE 2 PADDING 9 REWIND UNLOAD TYPELABEL STANDARD,B CHECKLABEL ALL SERIALNUM 99999 HEADER ASALT SYS ,999 TOTALS RECORD SKIPN INTAPE DA 20X80,X1,G,C IMAGEI 1,80 OUTAPE DA 20X80,X2,G,C IMAGEO 1,80 ********** START OPEN ITAPE,OTAPE SBR IOCRX1,1600-80 READ GET ITAPE A *-6,COUNT#5 MLC IMAGEI,IMAGEO PUT ,OTAPE B READ TAPEND CS 332 CS MLC @ RECORDS READ AND RECORDED ON TAPE.@,280 MCS CC A W CLOSEITAPE,OTAPE NOP 999 H B *-8 WLR NOP 8888 H H IOCRMV PRESS START TO SKIP BSP 1 PRESS START RESET, START TO B READ RETRY READ END START