.TITLE MODIFY
	.GLOBL MODIFY,ADOUT,FIRST,DUMMY,INSERT,IDLE,MOD3,GETOUT,BUFCNT
/
/  19 SEPT 73 - SUBROUTINE FOR USE BY DEV TO ONLY COUNT CLOCK INTERRUPTS
/		 DURING ACTIVE PERIODS OF HIS DATA
/
MODIFY	XX
	LAW	-1
	TAD	INSERT
	DAC*	(AUTO13	/SET STARTING ADDRESS FOR CODE INSERTION
	LAC	(NOP
	DAC*	MOD3	/INHIBIT COLLECTION OF VOLTAGES
	DAC*	ADOUT	/INHIBIT COUNTER OF VOLTAGE VALUES
	LAC	IDLE
	AND	ADDR
	XOR	(LAC
	DAC*	AUTO13	/LAC IDLE
	LAC	(1
	DAC*	DUMMY
	LAC	DUMMY
	AND	ADDR
	XOR	(TAD
	DAC*	AUTO13	/TAD (1
	LAC	(DAC* AUTO10
	DAC*	AUTO13	/DAC* 10
	LAC	BUFCNT
	AND	ADDR
	XOR	(ISZ
	DAC*	AUTO13	/ISZ BUFCNT
	LAC	(NOP
	DAC*	AUTO13	/NOP
	LAC	GETOUT
	AND	ADDR
	XOR	(JMP
	DAC*	AUTO13
	JMP*	MODIFY
/
AUTO10=10
AUTO13=13
/
ADDR	17777
PNTR
/
	.END