/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE SUBROUTINE CLEAR
	.FSECT CLEAR1
	.GLOBAL STADD,EADD,FPTR,DAT
	.ENTRY CLR


/THIS ROUTINE IS USED TO SERVICE CALLS TO MACRO CLEAR
/TABLES MAY BE INITIALIZED TO ANY VALUE VIA DAT.

CLR,	0
	CLA
	TAD	T1
	RDF
	CDF	.FLD
	DCA	CLR2
	TAD 	CLR2
	TAD	T2
	DCA	CLR10
					/FORM EXIT
CLR2,	0
	TAD I	CLR
	DCA	STADD
	ISZ	CLR
	TAD I	CLR
	DCA	EADD
	ISZ	CLR
	TAD I	CLR
	DCA	DAT
	ISZ	CLR
					/GET PARAMETERS PASSED
FPTR,	0
	TAD	17
	DCA	HOLD
					/SAVE AUTOINDEX
	STA
	TAD	STADD
	DCA	17
	TAD I	17
	DCA	17
					/INITIALIZE 17. (ASSUMES TABLE
					/ADDRESS-1 IS PASSED.)
CLR1,	CLA
	TAD	DAT
	DCA I	17
					/INITIALIZE A LOCATION
	TAD	17
	CIA
	DCA	STOR1
	TAD 	EADD
	TAD	STOR1
	SZA
	JMP	CLR1
					/CHECK FOR LAST ADDRESS
	TAD	HOLD
	DCA	17
CLR10,	0
					/LAST ADDRESS,RETURN
	JMP I	CLR

HOLD,0
STADD,0
STOR1,0
EADD,0
DAT,0
T1,	CDF
T2,	2