	SUBROUTINE DUMPREG (LUN,ICOUNT,DATA1)
C
C Version:	'V04-000'
C
C****************************************************************************
C*									    *
C*  COPYRIGHT (c) 1978, 1980, 1982, 1984 BY				    *
C*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
C*  ALL RIGHTS RESERVED.						    *
C* 									    *
C*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
C*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
C*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
C*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
C*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
C*  TRANSFERRED.							    *
C* 									    *
C*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
C*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
C*  CORPORATION.							    *
C* 									    *
C*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
C*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
C* 									    *
C*									    *
C****************************************************************************
C
C
C
C	AUTHOR	BRIAN PORTER		CREATION DATE	28-OCT-1979
C
C Modified by:
C
C	V03-001	EAD0134		Elliott A. Drayton		 9-Apr-1984
C		Removed data statements and made them equates.
C




	BYTE		LUN

	INTEGER*2	ICOUNT

	INTEGER*2	DATA1_LEN

	INTEGER*4	DATA1(1:128)

	INTEGER*4	COMPRESS4

	CHARACTER*4	DATA2

	CHARACTER*3	FAO_CONTROL

	CHARACTER*4	DATA3

	LOGICAL*4	SYS$FAO

	EXTERNAL	SYS$FAO

	LOGICAL*4	LIB$SCOPY_R_DX

	EXTERNAL	LIB$SCOPY_R_DX

	FAO_CONTROL = '!AF'

	DATA1_LEN = 4


	IF (ICOUNT .GT. 0) THEN

	DO 20,I = 1,MIN(127,ICOUNT)

	CALL LINCHK (LUN,2)

	WRITE(LUN,5) I,DATA1(I)
5	FORMAT(' ',T8,'LONGWORD ',I<COMPRESS4 (I)>,'.',T24,Z8.8)

	IF (LIB$SCOPY_R_DX(%REF(DATA1_LEN),%REF(DATA1(I)),DATA2)) THEN

	IF (SYS$FAO(FAO_CONTROL,,DATA3,%VAL(4),%REF(DATA2))) THEN

	WRITE(LUN,10) DATA3
10	FORMAT(' ',T40,'/',A4,'/')
	ENDIF
	ENDIF

20	CONTINUE
	ENDIF

	RETURN

	END
