	SUBROUTINE BRIEF (LUN,NUMREG,REGISTERS,REG_HERALD,NAME,UNIT)
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	18-SEP-1979
C
C
C	Modified by:
C
C	V03-001	SAR0063		Sharon A. Reynolds,	20-Jun-1983
C		Changed carriage control in the 'format' statements 
C		for use in ERF.
C
C	v02-002	BP0002		Brian Porter,	 	29-JUN-1981
C		Removed code to display name and unit.
C
C	V02-001	SR0001		Sharon Reynolds,	19-Nov-1980
C		Added code to determine whether BRIEF was called from
C		CRYPTK to fix the problem with the device registers
C		being printed twice on the cryptk report.
C
C**


	Include	'SRC$:SYECOM.FOR /nolist'


	BYTE		LUN

	BYTE		NUMREG

	INTEGER*2	UNIT

	INTEGER*4	REGISTERS(0:NUMREG-1)

	INTEGER*4	FIELD

	INTEGER*4	COMPRESS4

	INTEGER*4	COMPRESSC

	CHARACTER*(*)	REG_HERALD(0:NUMREG-1)

	CHARACTER*3	NAME




	ENTRY BRIEF16 (LUN,NUMREG,REGISTERS,REG_HERALD,NAME,UNIT)




	IF (NUMREG .GT. 12) NUMREG = 12

	CALL LINCHK (LUN,3)

	WRITE(LUN,10) (REG_HERALD(I),I = 0,NUMREG - 1)
10	FORMAT(/' ',<NUMREG>(:,T<(I*5)+8>,A<COMPRESSC (REG_HERALD(I))>),/)


	If (cryptk_flag) then 
	Return
	Endif


	ENTRY BRIEF16_A (LUN,NUMREG,REGISTERS)




	IF (NUMREG .GT. 12) NUMREG = 12

	CALL LINCHK (LUN,1)

	WRITE(LUN,20) (JIAND(REGISTERS(I),'FFFF'X),I = 0,NUMREG - 1)
20	FORMAT(' ',<NUMREG>(:,T<(I*5)+8>,Z4.4))

	RETURN



	ENTRY BRIEF32 (LUN,NUMREG,REGISTERS,REG_HERALD,NAME,UNIT)



	IF (NUMREG .GT. 7) NUMREG = 7

	CALL LINCHK (LUN,3)

	WRITE(LUN,30) (REG_HERALD(I),I = 0,NUMREG - 1)
30	FORMAT(/' ',<NUMREG>(:,T<(I*9)+8>,
	1 A<COMPRESSC (REG_HERALD(I))>),/)


	If (cryptk_flag) then
	Return
	Endif


	ENTRY BRIEF32_A (LUN,NUMREG,REGISTERS)



	IF (NUMREG .GT. 7) NUMREG = 7

	CALL LINCHK (LUN,1)

	WRITE(LUN,40) (REGISTERS(I),I = 0,NUMREG - 1)
40	FORMAT(' ',<NUMREG>(:,T<(I*9)+8>,Z8.8))

	RETURN

	END
