Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

.SILENCE
.NOERROR
.DELETE MYFILE.TXT
.REVIVE
;THIS IS A SAMPLE BATCH DUP TEST USING DN61 SOFTWARE
.ERROR ?
;ARE THERE  LINES AVAILABLE ?
.R D60SPD
*STATUS ALL/P:11/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 DUPS.CTL[35,1414]/UNI:0/PRIO:15/OUT:NOLOG/AFT:+00:01/TAG:SEND,/DIS:DEL
.ERROR ?
.R D60SPD
*SET SIM/P:11/L:0/D:0
*INPUT MYFILE.TXT/TIME:360
*EXIT
.IF (NOERROR) .GOTO COMP
.PLEASE ERROR ON INPUT TO LINE DUP0^[
COMP::
.ERROR %
.CHKPNT EQUAL::
.R FILCOM
*DUP.SCM=MYFILE.TXT,dclpa.mem[35,1414]
*^C
.IF (NOERROR) .GOTO DONE
.PLEASE MYFILE.TXT CHECKSUM ERROR ^[


.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:11/D:0/L:1
*OUTPUT dclpa.mem[35,1414]/TIME:360
*STATUS ALL/P:11/D:0/L:1
*EXIT
.IF (NOERROR) .GOTO END
.PLEASE ERROR TRANSMITTING FROM LINE DUP1^[
.GOTO END
DONE::
;.PLEASE  FINISHED ONE PASS OF DUP TEST^[
.SUB DUP[35,1414]/TIME/UNI:0/OUT:ERROR/AFT:+01::,/DIS:DEL
END::
%ERR::
.PLEASE UNKNOWN ERROR IN DUP TEST CHECK LOGS^[
%FIN::