.TITLE	DACOM - DEVICE ACTIVITY COMMON DATA
	.IDENT	/V01.00/
;
; COPYRIGHT (C) 1979, 1980 BY
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;
;
; MODULE DESCRIPTION:
;
;	COMMON DATA FOR DEVICE ACTIVITY DISPLAY
;
;
;
; RJDK - ATMOS - OXFORD
;
; IDENT HISTORY:
;
; 1.00	11-OCT-81
;

	.SBTTL	COMMON DATA

	.PSECT	COMMON,OVR,I,LCL
;
; THSE FOUR WORDS ARE DEFINED IN GBCOM
;
NFLDS:	.WORD	88.		; 88 FIELDS ON THIS PAGE
TMG:	.WORD	50.		; REFRESH ONCE EVERY 50 ticks
TUN:	.WORD	1		; ...(allow faster for useful monitoring)
CMDAV:	.WORD	1		; NON-ZERO MEANS COMMANDS AVAILABLE


	.SBTTL	$ATCLR - CLEAR TASK DATA

;+
;
; $DALCR - CLEAR THE DEVICE DATA
;
; INPUTS :
;	R4 = POINTER TO DEVICE DATA BLOCKS
;
; OUTPUTS:
;	THE SPECIFIED DEVICE DATA BLOCK IS CLEARED
;
;-

$DACLR::CLR	(R4)+		; CLEAR DEVICE NAME
	CLR	(R4)+		; And unit number
	CLR	(R4)+		; Clear status bytes U.STS. U.ST2
	CLR	(R4)+		; Clear SCB S.ST2
	CLR	(R4)+		; Clear SCB S.St3, S.STS
	.REPT 8.		; Clear all I/o packets
	CLR	(R4)+		; stored TASK NAME
	CLR	(R4)+
	.ENDR
	RETURN

	.END