.TITLE COPY I/O EXAMPLE PROGRAM ; ; The following programs are used in the RT-11 User and RT-11 ; Programmer self paced instruction courses for RT-11 V4.They are also ; similar to programs used in the Programming with RT-11 series for ; RT-11 V5.0 or later. The name of the files are as specified in the ; self paced course. ; ; The code is supplied as a service as Digital does not supply these ; on diskette. ; Any copyright is the property of Digital Equipment Corporartion ; ; ; PROGRAM PERFORMS FILE-TO-FILE COPY ; .GLOBL SETUP,CPYRTN,CLSCHN,PRGCHN ; EMTARG:: .BLKW 6 ; START: CALL SETUP ;GET FILE NAMES, OPEN FILES BCS 1$ ;IF NO GOOD, CLEAN UP AND TRY AGAIN CALL CPYRTN ;EXECUTE COPY ROUTINE BCC 2$ ;BR IF COPY OK 1$: CALL PRGCHN ;IF BAD COPY, PURGE FILES BR START 2$: CALL CLSCHN ;IF GOOD COPY, CLOSE CHANNELS BR START .END START