PROGRAM XMTTST
C
C       Version 2.0     5JUL84
C
C
C    FACILITY:
C   TEST PROGRAMS FOR THE COMMUNICATIONS DRIVER PACKAGE CDPACK
C
C
C    ABSTRACT:
C   MAKES CALLS TO THE ROUTINES OF CDPACK TO TRANSMIT MESSAGES
C
C
C    AUTHOR     Vicky White
C               Computing Department
C               Fermi National Accelerator Lab
C
C   CREATION DATE: JUN0382
C
C   MODIFIED BY:	David Berg	specify unit number and PTC
C
C***
	IMPLICIT INTEGER(A-Z)
	DIMENSION XBUF(4000)
	DIMENSION STAT(2)
	DATA MAXWC/4000/, PTC/1/
C
	DO 5 I=1,MAXWC
5	XBUF(I) = I
	CALL DLDEC(' CD UNIT NUMBER',UNIT,UNIT,0,)
        CALL CDASGN(2,'CD',UNIT,STAT)
	CALL DLOUTO(' ASSIGN STATUS ',STAT(1),STAT(2))
	CALL DLDEC(' ENTER PTC',PTC,PTC,,)
        CALL DLDEC(' ENTER WC TO SEND',MAXWC,XMTWC,,)
10      CALL CDXMT(2,PTC,XBUF,XMTWC,STAT)
        CALL DLOUTO(' XMT STATUS ',STAT(1),STAT(2))
	MBN = STAT(2)
	CALL CDWAIT(MBN)
	CALL CDSTAT(MBN,INF,STAT)
	CALL DLOUTO(' STATUS AFTER WAIT ',STAT(1),STAT(2),INF)
        CALL DLYENO(' EXIT?',EX,EX)
	IF(EX.NE.1) GOTO 10
	CALL EXIT
	END