C***
C       TITLE   RXINIT
C
C       Version 1.1     OCT1182
C
C
C    FACILITY:
C   TEST PROGRAMS FOR THE COMMUNICATIONS DRIVER PACKAGE CDPACK
C
C
C    ABSTRACT:
C   INITIALISATION SUBROUTINE FOR THE PARAMETERS OF THE TASK
C   RCVXMT
C
C
	SUBROUTINE RXINIT
C	INCLUDE FILE FOR RCVXMT TEST PROGRAM
C
C       VICKY WHITE, FNAL       JUN2282
C
	IMPLICIT INTEGER(A-Z)
        LOGICAL*1 RBSY,XBSY,STOP
	COMMON/CHANN/CHAN
	COMMON/ERRCOM/IERR
C
C  ARRAYS OF RECEIVER PTCS AND PARAMETERS FOR EACH RECEIVER PTC
C
        COMMON/OPPARS/
     &  RPTC(20),TOTRCV(20),RBSY(20),RWC(20),RDEV(20),RUNT(20),
     &  RCHAN(20),RMBN(20),RINDX(20),RERRS(20),RMODE(20),
     &  XPTC(20),TOTXMT(20),XBSY(20),XWC(20),XDEV(20),XUNT(20),
     &  XCHAN(20),XMBN(20),XNUM(20),XERRS(20),XMODE(20),
     &  XMTMAX,RCVMAX,NXMT,NRCV,MAXR,MAXX,MAXERR,ERRTOT,
     &  STOP                          !STOP ALWAYS AT END - 1 BYTE
C
	DATA RDEV,XDEV/40*'CD'/
	DATA RUNT,XUNT/40* 0  /
        DATA RBSY,XBSY/40*.TRUE./
	DATA RMODE/20*1/
	DATA RCHAN,XCHAN/40*2/
	DATA XWC/20*1000/
	DATA RWC/20*1000/
	DATA RCVLEN,XMTLEN/8000,4000/
	DATA RCVMAX,XMTMAX/1000,1000/
	DATA MAXR,MAXX/20,20/
	DATA MAXERR/5/
C
	DIMENSION STAT(2)
C
C  EACH RECEIVE PTC WILL BE ALLOCATED A PIECE OF THE BIG RCVBUF
C  RECEIVER BUFFER - STARTING AT THE CURRENT INDEX VALUE
C
C
C  READ IN SAVED SET OF PARAMETERS IF NEEDED
C
	CALL DLYENO(' USE PREDEFINED PARAMETERS ',PARS,PARS)
	IF(PARS.NE.1) GOTO 1
        CALL DLTXT(' FILE NAME ',,INFILE,32)
        CALL PARFIL(INFILE)
	CALL PARRD
	IF(IERR.NE.1) CALL DLOUT(' FILE READ ERROR ',IERR)
1       INDEX = 1
C
        DO 10 I=1,MAXR
        CALL DLDEC(' ENTER RCV PTC [CR=NO MORE]',,RPTC(I),1,256)
	IF(IERR.EQ.2) GOTO 20
	IF(IERR.EQ.3) GOTO 40
        CALL DLDEC(' ENTER CD UNIT NUMBER',0,RUNT(I),0,7)
11      CALL DLDEC(' MAX RCV BUF WC ',RWC(I),RWC(I))
	IF(INDEX+RWC(I) .LE. RCVLEN) GOTO 12
	CALL DLOUT(' NOT ENOUGH RCV BUFFER SPACE')
	GOTO 11
12	RINDX(I)=INDEX
	INDEX=INDEX+RWC(I)
C
C  ADD HERE ANY OTHER PARAMETERS FOR EACH RCV PTC
C
	CALL DLYENO(' Q RECEIVE QIOS',RMODE(I),RMODE(I))
10	CONTINUE
C
C  XMT PTC PARAMETERS
C
20	DO 30 I=1,MAXX
        CALL DLDEC(' ENTER XMT PTC [CR = NO MORE] ',,XPTC(I),1,256)
	IF(IERR.EQ.2) GOTO 40
        IF(IERR.EQ.3) GOTO 40
        CALL DLDEC(' ENTER CD UNIT NUMBER',0,XUNT(I),0,7)
        XBSY(I) = .FALSE.
	CALL DLDEC(' XMT BUF WC ',XWC(I),XWC(I),1,XMTLEN)
30      CONTINUE
40      CALL DLDEC(' MAX NO OF MSGS TO XMT ',XMTMAX,XMTMAX)
	CALL DLDEC(' MAX NO OF MSGS TO RCV ',RCVMAX,RCVMAX)
        CALL DLDEC(' MAX NO OF ERRORS ',MAXERR,MAXERR,1)
	CALL DLYENO(' SAVE CURRENT PARAMETERS ',SAV,SAV)
	IF(SAV.NE.1) GOTO 100
	CALL DLTXT(' FILE NAME ',INFILE,OUTFIL,32)
	CALL PARFIL(OUTFIL)
	CALL PARWT
	IF(IERR.NE.1) CALL DLOUT(' FILE WRITE ERROR ',IERR)
C
C  ASSIGN CHANNELS TO CD DRIVER.
100	CONTINUE
        DO 110 I=1,MAXR
        CALL CDASGN(RCHAN(I),'CD',RUNT(I),STAT)
        IF(STAT(1).NE.1) CALL CDERRM(STAT,MERR)
110	CONTINUE
	DO 120 I=1,XMAX
        CALL CDASGN(XCHAN(I),'CD',XUNT(I),STAT)
	IF(STAT(1).NE.1) CALL CDERRM(STAT,MERR)
120	CONTINUE
C	INCLUDE FILE FOR RCVXMT TEST PROGRAM
	END