C*	DSMOT	- OUTPUT FOR DSM
C
	SUBROUTINE DSMOT (BUIC, KUSED, KALLOC, NFILES, KSU, KSA, NFILSU)
C
	INCLUDE 'DSMCM.COM/NOLIST'
C
	DIMENSION BUIC(2)
C
	NOUT = 6
	WRITE (NOUT, 510) IUDEV,IUNIT,
	1	 BUIC(2),BUIC(1), KUSED, KALLOC, NFILES
 510	FORMAT (' ',A2,O1,':',
	1	' [',O3,',',O3,'] ',I6,'./',I6,'. BLOCKS IN',I6,'. FILE(S)')
C
	KSU = KSU + KUSED
	KSA = KSA + KALLOC
	NFILSU = NFILSU + NFILES
	RETURN
	END
