Trailing-Edge
-
PDP-10 Archives
-
bb-jr93e-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