*20
/DIALV2
/THE VERSION OF DIALV2 ON THIS TAPE
/IS CORRECTED AS OF DECEMBER, 1970
/
/ALSO IT IS PATCHED AS DESCRIBED BELOW
/TO PREVENT THE KNOB 3 CURSOR FROM
/JITTERING BETWEEN 2 ADJACENT CHARACTERS
/
/  MODIFY WORDS 22-27 IN BLOCK 304
	SEGMNT 3
	*22
	LDA	/SAVE RTN JMP
	0
	STC OLDSAM+5
	SAM 3
	DJR   /JMP TO REST OF SUBROUTINE
	JMP NEWSAM-1
/  MODIFY WORDS 221-244 IN BLOCK 307
	*1621
	STA I	/SAVE NEW SAMPLE
NEWSAM,	0
	COM /FORM NEGATIVE OF NEW SAMPLE
	ADD OLDSAM /OLDSAM - NEWSAM
	APO	/IS DIFFERENCE + ?
	COM	/IF NOT, MAKE IT +
	ADA I	/NOW SUBTRACT 2
	-2
	APO	/IS REMAINDER +
	JMP OLDSAM-1 /NO:KEEP OLDSAM,
		/ IGNOR NEWSAM
	LDA	/YES:NEWSAM DIFFERS FROM
		/OLDSAM BY MORE THAN 2
	NEWSAM  /GET THE NEW SAMPLE
	STC OLDSAM	/SAVE IT FOR USE
	LDA I	/LOAD SAMPLE TO BE USED
OLDSAM,	0
	ADA I	/INSTRUCTIONS FORMERLY
	-1000	/ IN LOCATIONS 6022-6027
	SCR 2	/ OF DIAL-2 EDITOR
	STC CURVAL
	JMP 0	/RTN JMP
	CURVAL=16
/END OF KNOB 3 CURSOR MODIFICATION
/
/END DIALV2
/6-6-71
/