PDP-10 Archive: autopatch/oprpar.c14 from bb-y390o-bm_tops20_v41_atpch

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/oprpar.c14

There is 1 other file named oprpar.c14 in the archive. Click here to see a list.

 REP 28/1	;14C1
		PAREDT==:101
 WIT
		PAREDT==:116
 REP 124/3	;14C2

 WIT
	116	5/19/86 Change the way P$INTR determines if the operator is typing
		a command upon an IPCF interrupt. This will prevent commands'
		responses from being occasionally delayed.
 REP 12/65	;14C3
		$CALL	CNTCHR			;COUNT THE CHARACTERS
		MOVE	T1,S1			;SAVE CHARACTER COUNT
		$CALL	K%TPOS			;ARE WE AT PROPER MARGIN
		CAME	S1,PRMTSZ		;SIZE OF THE PROMPT
		JRST	INTR.2			;CHECK TIMER
		SKIPE	T1			;ANY CHARACTERS IN BUFFER?
		JRST 	INTR.2			;YES, CHECK TIMER
 WIT
	;**;[116]Replace 7 lines with 7 lines at P$INTR:+6L  JCR  5/19/86
		MOVEI	S1,.PRIIN		;[116]Pick up the source designator
		SIBE%				;[116]Check the input buffer
		JRST INTR.2			;[116]Not empty, set timer
		MOVE S1,CMDBLK+.CMPTR		;[116]Get pointer to the next field
		CAMN S1,CMDBLK+.CMBFP		;[116]Check with start of buffer
		SKIPE CMDBLK+.CMINC		;[116]Any more characters to parse?
		JRST INTR.2			;[116]Yes, set the timer
 SUM 115823