Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/dupb.ctl
There are no other files named dupb.ctl in the archive.
.SILENCE
.NOERROR
.DELETE BFILE.TXT
.REVIVE
;THIS IS A SAMPLE BATCH DUP TEST USING DN61 SOFTWARE
.ERROR ?
;ARE THERE  LINES AVAILABLE ?
.R D60SPD
*STATUS ALL/P:11/L:2/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 DUPSB.CTL[35,1414]/UNI:0/PRIO:15/OUT:NOLOG/AFT:+00:01/TAG:SEND,/DIS:DEL
.ERROR ?
.R D60SPD
*SET SIM/P:11/L:2/D:0
*INPUT BFILE.TXT/TIME:360
*EXIT
.IF (NOERROR) .GOTO COMP
.PLEASE ERROR ON INPUT TO LINE DUP2^[
COMP::
.ERROR %
.CHKPNT EQUAL::
.R FILCOM
*DUPB.SCM=BFILE.TXT,dclpa.mem[35,1414]
*^C
.IF (NOERROR) .GOTO DONE
.PLEASE BFILE.TXT CHECKSUM ERROR ^[


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