FIELD 2


*6400



/*************** CLEANER FOR NNX14 BIT WORDS ************************




/CALL:	PCLEAN
/	INPUT
/	INPUT PRECISION
/	OUTPUT
/	OUTPUT TAP
/	CLEAR TAP
/	COUNT			/ONE WORD STATE
/	REGISTER		/ZBLOCK N STATE



PCLEAN,	7

	BLOUT

	GETAD
	6
	DCA CLCNTP

	INBLIP

	BLOTNT
	CLINIT

	INBLIP

	COMPLM
	1
	CLTEM1

	ADDER
	CLTEM1
	NNX14
	7
	NNX14
	ONE
	CLTEM1

	BLOUT

	CLA
	TAD CLTM1P
	DCA TM2POI
	ACUM
	2
	DCA PRECIS
	JMS SIGNSR
	SNL CLA
	JMP CLREJ
CLINIT,	DCA I CLCNTP	/RESET COUNT

	INBLIP

	COPY			/INPUT BIGGER THAN REG.
	1
	7

	COPY
	ZERO
	3

	BLEND

CLREJ,	ISZ I CLCNTP		/INPUT SMALLES THAN REG.
	NOP
	ACUM
	4
	CIA
	TAD I CLCNTP
	CLA SZA
	JMP CLOVER

	INBLIP

	COPY			/DO OUTPUT
	7
	3

	BLOUT

CLCONT,	ACUM			/CHECK FOR CLEAR REG.
	5
	CIA
	TAD I CLCNTP
	SMA CLA
	JMP CLCLER
	INEND

	
CLOVER,	INBLIP			/NO OUTPUT BUT CHECK FOR CLEAR

	COPY
	ZERO
	3

	BLOUT
	JMP CLCONT


CLCLER,	DCA I CLCNTP		/CLEAR REGISTER AND COUNT

	INBLIP

	COPY
	ZERO
	7

	BLEND



CLTEM1,	ZBLOCK N
CLTM1P,	CLTEM1
CLCNTP,	0