Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/dup1.ctl
There are no other files named dup1.ctl in the archive.
.SILENCE
.NOERROR
.DELETE M1FILE.TXT
.REVIVE
;THIS IS A SAMPLE BATCH DUP TEST USING DN61 SOFTWARE
.ERROR ?
;ARE THERE  LINES AVAILABLE ?
.R D60SPD
*STATUS ALL/P:12/L:0/D:0
*EXIT
.IF (NOERROR) .GOTO START
.PLEASE NO LINES AVAILABLE FOR TESTING  ^[
.GOTO END
START::
.CHKPNT INPUT::
!.PLEASE TESTING DUP'S WITH IBM/EMULATION^[
.SUB DUPS1.CTL[35,1414]/UNI:0/PRIO:15/AFT:+00:01/TAG:SEND,/DIS:DEL
.ERROR ?
.R D60SPD
*SET SIM/P:12/L:0/D:0
*INPUT M1FILE.TXT/TIME:360
*EXIT
.IF (NOERROR) .GOTO COMP
.PLEASE ***********************************
.PLEASE ERROR ON INPUT TO LINE DUP0^[
.PLEASE READ DUP1.LOG
.PLEASE ***********************************
COMP::
.ERROR %
.CHKPNT EQUAL::
.R FILCOM
*DUP1.SCM=M1FILE.TXT,dclpa.mem[35,1414]
*^C
.IF (NOERROR) .GOTO DONE
.PLEASE ***********************************
.PLEASE M1FILE.TXT CHECKSUM ERROR ^[
.PLEASE READ DUP1.LOG
.PLEASE ***********************************


.GOTO DONE
SEND::
.CHKPNT OUT::
;THIS FILE TALKS TO DUP0 USING THE IBM/EMULATORS
!.PLEASE DUPS NOW ATTEMPTING TO TRANSMIT DATA^[
.SET HPQ 5
.ERROR ?
.R D60SPD
*SET SUP/P:12/D:0/L:1
*OUTPUT dclpa.mem[35,1414]/TIME:360
*STATUS ALL/P:12/D:0/L:1
*EXIT
.IF (NOERROR) .GOTO END
.PLEASE ***********************************
.PLEASE ERROR TRANSMITTING FROM LINE DUP1^[
.PLEASE READ DUP1.LOG
.PLEASE ***********************************
.GOTO END
DONE::
.PLEASE  FINISHED ONE PASS OF DUP1 TEST^[
.SUB DUP1[35,1414]/TIME/UNI:0/AFT:+01::,/DIS:DEL
END::
%ERR::
.PLEASE ***********************************
.PLEASE UNKNOWN ERROR IN DUP1 TEST CHECK LOGS^[
.PLEASE READ DUP1.LOG
.PLEASE ***********************************
%FIN::