Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - clock1.c11
There is 1 other file named clock1.c11 in the archive. Click here to see a list.
 REP 13/60	;11C1
		JRST	CPOPJ1##	;NO--DELAY
 WIT
		JRST	CHKUT1		;NO, CHECK FOR EVENT WAIT
 INS 20/60	;11C2

	CHKUT1:	CAIE	T3,EWQ##	;EVENT WAIT?
		JRST	CPOPJ1##	;NO--DELAY
		PUSH	P,T1		;SAVE T1
		LDB	T1,JBYEWT##	;GET STATE SUB-CODE
		MOVE	T3,EWCCMK	;GET MASK BITS
		LSH	T3,-1(T1)	;POSITION TO SIGN BIT
		JUMPL	T3,TPOPJ1##	;BIT SET--DELAY TRAP
		JRST	TPOPJ##		;BIT CLEAR--OKAY TO TRAP NOW
 SUM 149497