.TITLE COPY1 I/O EXAMBLE 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 ; DOES ONE COPY THEN EXITS ; .MCALL .EXIT .GLOBL SETUP,CPYRTN,CLSCHN,PRGCHN ; EMTARG:: .BLKW 6 ; START: CALL SETUP ;GET FILE NAMES, OPEN FILES BCS 1$ ;IF NO GOOD, THEN EXIT CALL CPYRTN ;EXECUTE COPY ROUTINE BCS 1$ ;IF C-BIT SET, BAD COPY: DON'T CLOSE CALL CLSHN ;IF GOOD COPY, MAKE FILE PERMANENT 1$: .EXIT .END START