Directory of image this file is from
This file as a plain text file

PAGE



/******* THRESHOLD-COMPARES INPUT WITH AV. OF PRECEEDING PULSES *****



/CALL:	TRSHLD
/	INPUT
/	OUTPUT
/	THRESHOLD K	/THRESHOLD AT 2^K*AVERAGE
/	NR OF TAPS	/NR MUST BE POWER OF 2
/	DELAY LINE	/ADDRESS OF STORAGE AREA
/	STATE		/SHIFTREG POINTER



TRSHLD,	6
	

	BLOUT

	GETAD
	1
	DCA TM1POI

	JMS SZSIG
	JMP TRNOT0

TRZERO,	INBLIP

	COPY
	ZERO
	2

	BLEND


TRNOT0,	INBLIP

	COPY
	ZERO
	TRTEM1

	SHFTRG
	TRSHFT
	1

	BLOUT

	ACUM
	4
	CIA
	DCA TRCNT
	DCA TRTAPN

	CAM
	TAD TRCNT
	CIA
	NMI
	SCA CLA
	IAC
	TAD NM14
	ACUM
	3
	DCA TRSCAL


TRLOOP,	ISZ TRTAPN

	INBLIP

	TAP
	TRTAPN
	TRTEM2

	ADDER
	TRTEM1
	NNX14
	TRTEM2
	NNX14
	ZERO
	TRTEM1

	BLOUT

	ISZ TRCNT
	JMP TRLOOP

	INBLIP

	SCALSG
	TRTEM1
	NNX14
	TRSCAL
	TRTEM1


	COMPLM
	TRTEM1
	TRTEM2

	ADDER
	1
	NNX14
	TRTEM2
	NNX14
	ONE
	TRTEM2

	HWR
	TRTEM2
	NNX14
	TRTEM2

	BLOUT

	TAD TRTM2P
	DCA TM1POI
	JMS SZSIG
	JMP TROUT
	JMP TRZERO

TROUT,	INBLIP

	COPY
	1
	2

	BLEND



TRTEM1,	ZBLOCK N
TRTEM2,	ZBLOCK N
TRSHFT,	5
	4
	CN
	6
TRCNT,	0
TRSCAL,	0
TRTAPN,	0
TRTM2P,	TRTEM2




SZSIG,	0		/SKP ON ZERO SIGNAL
	CLA		/TM1POI POINTS TO SIGNAL
	TAD WORDCT
	DCA CNT
SKPLOP,	TAD I TM1POI
	SZA CLA
	JMP I SZSIG
	ISZ TM1POI
	ISZ COUNT
	JMP SKPLOP
	ISZ SZSIG
	JMP I SZSIG