Google
 

Trailing-Edge - PDP-10 Archives - tops10_703_distr_bb-x140b-sb - 10,7/cor/ttdint.cor
There are 2 other files named ttdint.cor in the archive. Click here to see a list.
 INS 17/6
		MOVEI	T2,TTDTIM##	;IRMA-LIKE VALUE FOR LTLACK
		DPB	T2,LDPTDT##	;SET TIMER LIMIT
 REP 26/13
		MOVSI	T1,LTLACK##	;MAKE SURE WE AREN'T WAITING
 WIT
		MOVSI	T1,LTLACK##!LTLTIM##	;MAKE SURE WE AREN'T WAITING
 REP 32/15
		MOVSI	T1,LTLACK##	;WAITING FOR ACK
 WIT
		MOVSI	T1,LTLACK##!LTLTIM##	;WAITING FOR ACK
 REP 11/16
		MOVSI	P3,LTLACK##	;WAITING FOR ACK
 WIT
		MOVSI	P3,LTLACK##!LTLTIM##	;WAITING FOR ACK
 INS 42/17

	;HERE ONCE A SECOND (CALLED FROM SCNSEC)

	TTDSIN::MOVSI	T2,LTLACK##	;GET BIT IMPLYING HUNG CHECKING IS DESIRED
		TDNN	T2,LDBTTD##(U)	;IS IT ON?
		POPJ	P,		;NO, NOTHING TO DO HERE
		LDB	T2,LDPTDT##	;YES, GET CURRENT TIMEOUT VALUE
		SOJLE	T2,TTDSI1	;GO IF EXPIRED
		DPB	T2,LDPTDT##	;STORE UPDATED VALUE IF NOT
		POPJ	P,		;DONE FOR THIS SECOND
	TTDSI1:	JUMPL	T2,CPOPJ##	;LTLACK MUST HAVE CLEARED WHILE WE WERE LOOKING
		MOVSI	T2,LTLACK##!LTLTIM## ;GET BITS TO CLEAR
		ANDCAM	T2,LDBTTD##(U)	;ALLOW THE LINE TO GO AGAIN
		PUSH	P,T1		;PRESERVE LDBDCH
		PUSHJ	P,TOPOKE##	;KICK THE LINE
		JRST	TPOPJ##		;RETURN HAPPY
 SUM 246685