********************IMPULS GENERATOR*****************************



/CALL	:	IMPULS
/		OUTPUT
/		IMPULS
/		DISTANCE BETWEEN IMPULSES
/		STATE



IMPULS,	4

	BLOTNT
	IMPINT


IMPDO,	GETAD
	4
	DCA IMPPTR

	ISZ I IMPPTR
	JMP IMPNO

	ACUM
	3
	CIA
	DCA I IMPPTR

	INBLIP
	COPY
	2
	1


	BLEND


IMPNO,	INBLIP
	

	COPY
	ZERO
	1


	BLEND


IMPINT,	CLA
	ACUM
	3
	CMA
	PUT
	4
	JMP IMPDO



IMPPTR,	0