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 (T4,A2,O1,':',
	1' [',O3,',',O3,'] ',I6,'./',I6,'. blocks in',I6,'. file(s)')
C
	KSU = KSU + KUSED
	KSA = KSA + KALLOC
	NFILSU = NFILSU + NFILES
	RETURN
	END