Google
 

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


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