Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93d-bb - 7,6/ap017/cpnser.c17
There is 1 other file named cpnser.c17 in the archive. Click here to see a list.
 REP 7/7	;17C1
		  POPJ	P,		;WIN
		MOVSI	T1,DVOFLN	;GET OFFLINE BIT
 WIT
		  SKIPA	T1,[DVOFLN,,0]	;GET OFFLINE BIT
		POPJ	P,		;IT'S ALIVE
 REP 28/7	;17C2
		JUMPN	T1,CPOPJ##	; IT CAN RUN ON ANY CPU
 WIT
		JUMPN	T1,CPOPJ1##	; IT CAN RUN ON ANY CPU
 REP 33/7	;17C3
		  AOS	(P)		;CPU NOT RUNNING
		POPJ	P,		;RETURN WHEN ON CPUN
 WIT
		  POPJ	P,		;CPU NOT RUNNING
		JRST	CPOPJ1##	;RETURN WHEN ON CPUN
 INS 8/32	;17C4


	;SUBROUTINE TO SET SP.CJn FOR JOB IN .CPJOB (CURRENT CPU)
	SETSJ0::MOVE	T2,.CPJOB##	;GET "CURRENT" JOB
		MOVSI	T1,(SP.CJ0)	;PICK UP RUN BIT FOR MASTER PROCESSOR
		LSH	T1,@.CPCPN##	;POSITION FOR THIS PROCESSOR
		IORM	T1,JBTSPS##(T2)	;TURN ON RUNBIT FOR "CURRENT" JOB
		POPJ	P,
 SUM 253825