/******************* CLEANER FOR RESIDUAL ***********************



/CALL:	CLEANR
/	INPUT
/	OUTPUT			/14 BITS MAX!!!!!!!!!!!



CLEANR,	2


	BLOTNT
	CLINIT

	ACUM
	1
	TAD CLOFST
	SPA
	CLA CLL CMA RAR
	CLL CIA
	TAD CLREG
	SMA CLA
	JMP CLREJ
	ACUM
	1
CLINIT,	DCA CLREG
	DCA CLCNT
	PUT
	2

	INEND

CLREJ,	ISZ CLCNT
	NOP
	TAD CLOTTP
	CIA
	TAD CLCNT
	CLA SNA
	TAD CLREG
	PUT
	2
	TAD CLCLTP
	CIA
	TAD CLCNT
	SNA CLA
	DCA CLREG

	INEND


CLCNT,	0
CLREG,	0
CLOTTP,	14
CLCLTP,	40
CLOFST,	10