100 	DAD;	CURFRC		/ADD ON FRACTIONAL TIME
 110 	DAD;	DBLTMP		/SUBTRACT PREVIOUS
 120 	DAD;	THRES1		/COMPARE TO THRESHOLD
 130 	SMA CLA			/SKIP IF SHORT INTERVAL
 140 	JMP	SPKLUP		/TRY NEXT POINT
 150 	MOVE;	CURPTR;BFRPTR	/SAVE BURST BEGINNING POINTERS
 160 	DLD;	CURPTR		/GET CURRENT POINTER
 170 	DAD;	BCKUP1		/BACKUP AND POINT TO A PREVIOUS X
 180 	DST;	CURPTR		/STORE BACK
 190 	DST;	BRSTPTR		/SAVE AS PRE-BURST POINTER
 200 	EJECT
 210 LOBLUP,	JMS I	[LOCATE]	/FIND A BEGIN POINT
 220 	TAD	CURVAL		/GET VALUE
 230 	XLIST	OFF
 240 	IFNZRO	OKN	<
 250 	XLIST	ON
 260 	SPA			/SLOW PHASE?
 270 	JMP	LOBLUP		/YES, IGNORE IT
 280 	XLIST	OFF	>
 290 	XLIST	ON
 300 	AND	[BEGIN]		/IS IT A BEGIN POINT?
 310 	SNA CLA			/SKIP IF SO
 320 	JMP	LOBLUP		/JUMP IF NOT
 330 	TAD	CURVAL		/GET CURRENT VALUE
 340 	DCA	BVALUE		/SAVE IT
 350 	JMS I	[GETVAL]	/GET BEGIN X
 360 	DCA	BEGINX		/SAVE IT
 370 	NL0001			/SET Y OFFSET
 380 	JMS I	[GETVAL]	/GET BEGIN Y
 390 	DCA	BEGINY		/SAVE IT
 400 	MOVE;	CURPTR;MBGPTR	/SAVE MOVEMENT BEGIN POINTER VALUE
 410 LOELUP,	JMS I	[LOCATE]	/FIND AN END POINT
 420 	TAD	CURVAL		/GET LATEST
 430 	AND	[BEGIN]		/IS IT A BEGIN POINT?
 440 	SZA CLA			/BETTER NOT BE
 450 	JMP	LOBLUP+1	/FORGET THIS END!
 460 	TAD	CURVAL		/GET VALUE
 470 	XLIST	OFF
 480 	IFNZRO	OKN	<
 490 	XLIST	ON
 500 	SPA			/SLOW PHASE?
 510 	JMP	LOELUP		/YES, IGNORE IT
 520 	XLIST	OFF	>
 530 	XLIST	ON
 540 	AND	[END]		/IS IT AN END POINT?
 550 	SNA CLA			/SKIP IF SO
 560 	JMP	LOELUP		/JUMP IF NOT
 570 	JMS I	[GETVAL]	/GET END X
 580 	DCA	ENDX		/SAVE IT
 590 	NL0001			/SET Y OFFSET
 600 	JMS I	[GETVAL]	/GET END Y
 610 	DCA	ENDY		/SAVE IT
 620 	MOVE;	CURPTR;MENPTR	/SAVE MOVEMENT END POINTER VALUE
 630 	MOVE;	BFRPTR;CURPTR	/RESTORE PREVIOUS POINTER TO BURST
 640 /	NL7777			/RESET
 650 /	DCA	FFRST		/FIRST TIME SWITCH
 660 	DCA	SPKCNT		/CLEAR SPIKE COUNTER
 670 SPLUP2,	MOVE;	CURPTR;OFPTR2	/SAVE PREVIOUS SPIKE POINTER
 680 	JMS I	[FIND1]		/FIND ANOTHER SPIKE
 690 	ISZ	SPKCNT		/BUMP SPIKE COUNT
 700 /	ISZ	FFRST		/FIRST TIME?
 710 /	SKP			/SKIP IF NOT
 720 /	JMP	SPLUP2		/JUMP IF SO
 730 	EJECT
 740 	FRCTIME;OFPTR2		/SETUP PREVIOUS FRACTIONAL TIME
 750 	DLD;	OFPTR2		/GET PREVIOUS SPIKE TIME
 760 	XLIST	OFF
 770 	IFNZRO	CHAN		<
 780 	IFZERO	EAESET	<
 790 	XLIST	ON
 800 	SHL;	3-1		/*8
 810 	XLIST	OFF	>
 820 	IFNZRO	EAESET	<
 830 	XLIST	ON
 840 	SHL;	3		/*8
 850 	XLIST	OFF	>	>
 860 	IFZERO	CHAN		<
 870 	IFZERO	EAESET	<
 880 	XLIST	ON
 890 	SHL;	2-1		/*4
 900 	XLIST	OFF	>
 910 	IFNZRO	EAESET	<
 920 	XLIST	ON
 930 	SHL;	2		/*4
 940 	XLIST	OFF	>	>
 950 	XLIST	ON
 960 	DAD;	OFRAC2		/ADD ON FRACTION
 970 	DCM			/INVERT
 980 	DST;	DBLTMP		/SAVE IT
 990 	FRCTIME;CURPTR		/SETUP LATEST FRACTIONAL TIME
1000 	DLD;	CURPTR		/GET CURRENT SPIKE TIME
1010 	XLIST	OFF
1020 	IFNZRO	CHAN		<
1030 	IFZERO	EAESET	<
1040 	XLIST	ON
1050 	SHL;	3-1		/*8
1060 	XLIST	OFF	>
1070 	IFNZRO	EAESET	<
1080 	XLIST	ON
1090 	SHL;	3		/*8
1100 	XLIST	OFF	>	>
1110 	IFZERO	CHAN		<
1120 	IFZERO	EAESET	<
1130 	XLIST	ON
1140 	SHL;	2-1		/*4
1150 	XLIST	OFF	>
1160 	IFNZRO	EAESET	<
1170 	XLIST	ON
1180 	SHL;	2		/*4
1190 	XLIST	OFF	>	>
1200 	XLIST	ON
1210 	DAD;	CURFRC		/ADD ON FRACTION
1220 	DAD;	DBLTMP		/SUBTRACT PREVIOUS
1230 	DAD;	THRES2		/COMPARE TO THRESHOLD
1240 	SPA CLA			/SKIP IF LOW FREQUENCY
1250 	JMP	SPLUP2		/JUMP IF NOT
1260 	JMP I	(PRFREQ)	/JUMP IF SO
1270 
1280 DBLTMP,	ZBLOCK	2		/DOUBLE TEMPORARY
1290 
1300 	PAGE
1310 	EJECT