.TITLE	ATCOM - ACTIVE TASK 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 ACTIVE TASK LIST DISPLAY
;
;
;
; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
;
; IDENT HISTORY:
;
; 1.00	03-MAR-80
;

	.SBTTL	COMMON DATA

	.PSECT	COMMON,OVR,I,LCL
;
; THSE FOUR WORDS ARE DEFINED IN GBCOM
;
NFLDS:	.WORD	124.		; 124 FIELDS ON THIS PAGE
TMG:	.WORD	1		; REFRESH ONCE EVERY SECOND
TUN:	.WORD	2		; ...
CMDAV:	.WORD	1		; NON-ZERO MEANS COMMANDS AVAILABLE


	.SBTTL	$ATCLR - CLEAR TASK DATA

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

$ATCLR::CLR	(R4)+		; CLEAR TASK NAME
	CLR	(R4)+		; ...
	CLR	(R4)+		; CLEAR OWNING TTY DEVICE
	MOV	#-1,(R4)	; CLEAR TTY UNIT NUMBER AND PRIORITY
	MOV	(R4)+,(R4)+	; ...
	MOV	#377,(R4)+	; CLEAR I/O COUNT AND LENGTH OF STATUS FIELD
	CLR	(R4)+		; CLEAR T.STAT
	CLR	(R4)+		; CLEAR T.ST2
	CLR	(R4)+		; CLEAR T.ST3
	RETURN

	.END