;-----------------------------------------------------------------------------
; Program:	C L R B A T
;
; Purpose:	Resets Batch terminal status in internal buffer to No-Batch.
;
; Author:	Han Lasance, Digital Equipment B.V.
;		for Neurophysiology Group, Organon Intern. B.V., Oss, Holland
;
; Date:		V1.0	Nov-81
;              	V2.0	Nov-89
;
; Language:	Macro-11
;
; Building:	TKB @CLRBATBLD.CMD
;
; Description:	For each terminal on this system (8 ports) BADRV stores
;		one of three possible conditions:
;
;			 0 = No batch (default)
;			-1 = Batch, fill answerfile
;			 1 = Batch, read answerfile
;
;		in it's internal table BUSYTB:
;
;			   word 2     word 1
;			+----------+----------+
;			|   LUN 1  | status 1 |
;			+----------+----------+
;			|   LUN 2  | status 1 |
;			+----------+----------+
;			|     .    |     .    |
;			|     .    |     .    |
;			+----------+----------+
;			|   LUN 8  | status 8 |
;			+----------+----------+
;                       
;		where LUN values are in octal.
;
;		Function code IO.DIS is used to reset a particular LUN status
;		back to No-batch Mode. The modifier bit is used to 
;		differentiate between Create Mode and Use Mode.
;		RESCTL sets the status to No-Batch Mode for a particular lUN.
;-----------------------------------------------------------------------------



	.TITLE CLRBAT
	.IDENT	/V2.0/

	.GLOBL CLRBAT
	.MCALL QIO$S,EXIT$S
;
;
CLRBAT:	QIO$S #IO.DIS,#1
	EXIT$S

	.END CLRBAT