Google
 
Trailing-Edge - PDP-10 Archives - bb-jr93e-bb - 7,6/ap014/cpnser.c14
There are 3 other files named cpnser.c14 in the archive. Click here to see a list.
 REP 1/1	;14C1
	TITLE	CPNSER - SECOND PROCESSOR CONTROL V434
	SUBTTL	M. CHURCH - LNS/MIT     P. HURLEY - DEC/JMF/TW/CDO/GMU/TARL 27 JAN 86
 WIT
	TITLE	CPNSER - SECOND PROCESSOR CONTROL V440
	SUBTTL	M. CHURCH - LNS/MIT     P. HURLEY - DEC/JMF/TW/CDO/GMU/TARL 20 MAY 86
 REP 17/1	;14C2
	XP VCP1SR,434	;VERSION NUMBER FOR LOADER STORAGE MAP
 WIT
	XP VCP1SR,440	;VERSION NUMBER FOR LOADER STORAGE MAP
 REP 11/4	;14C3
		HRRZ	T1,UNIKON##(T4)	;GET MASK FOR PRIME PORT
		MOVE	T1,KONCAM##(T1)
	IFN FTDUAL,<
		SKIPN	T4,UNI2ND##(T4)	;DUAL PORTED?
		JRST	CHKCP8		;NO
		HRRZ	T4,UNIKON##(T4)	;YES, ADD MASK FOR SECOND PORT
		OR	T1,KONCAM##(T4)
 WIT
		MOVE	T1,UNICAM##(T4)	;GET MASK FOR PRIME PORT
	IFN FTDUAL,<
		SKIPE	T4,UNI2ND##(T4)	;DUAL PORTED?
		IOR	T1,UNICAM##(T4)	;YES, ADD MASK FOR SECOND PORT
 REP 93/4	;14C4
	GETCAM::HRRZ	T2,UNIKON##(U)	;1ST KDB
		MOVE	T1,KONCAM##(T2)	;1ST MASK
	IFN FTDUAL,<
		SKIPN	T2,UNI2ND##(U)	;2ND UDB
		POPJ	P,		;SINGLE PORTED
		HRRZ	T2,UNIKON##(T2)	;2ND KDB
		OR	T1,KONCAM##(T2)	;2ND MASK
 WIT
	GETCAM::MOVE	T1,UNICAM##(U)	;1ST MASK
	IFN FTDUAL,<
		SKIPE	T2,UNI2ND##(U)	;2ND UDB
		IOR	T1,UNICAM##(T2)	;2ND MASK
 REP 33/13	;14C5
	DEDUNI:	HRRZ	T1,UNIKON##(T2)	;KONTROLLER
		MOVE	T1,KONCAM##(T1)	;CPU THIS KONTROLLER IS ON
 WIT
	DEDUNI:	MOVE	T1,UNICAM##(T2)	;CPU THIS UNIT LIVES ON
 REP 40/13	;14C6
		HRRZ	T3,UNIKON##(T3)	;YES, GET KDB
		MOVE	T3,KONCAM##(T3)	;SECOND PORT CPU
 WIT
		MOVE	T3,UNICAM##(T3)	;SECOND PORT CPU
 INS 12/37	;14C7
	SBCCSH::PUSHJ	P,SBSCD		;GET SCHEDULAR INTERLOCK
 REP 43/42	;14C8
	UNCAC1:	SKIPGE	.CPOK##-.CPCDB##(P1) ;DON'T WORRY ABOUT CPUS THAT AREN'T RUNNING
		SKIPN	.CPCSW##-.CPCDB##(P1) ;HAS HE SWEPT YET?
		POPJ	P,		;ITS MAP WILL BE FIXED WHEN IT GETS RESTARTED
 WIT
		MOVSI	T1,1		;MAKE HIM NON-CONTRL-CABLE
		SUBM	T1,JBTCCC##(J)	;..
	UNCAC1:	SKIPGE	.CPOK##-.CPCDB##(P1) ;DON'T WORRY ABOUT CPUS THAT AREN'T RUNNING
		SKIPN	.CPCSW##-.CPCDB##(P1) ;HAS HE SWEPT YET?
		JRST	DECCCC##	;LET HIM ^C NOW
 REP 27/45	;14C9
	>
 WIT
	IFN FTENET,<
		PUSHJ	P,KNISVP##	;DISABLE KLNI FOR DURATION OF STOPCODE
	>; END IFN FTENET
	>; END IFN FTKL10
 REP 18/48	;14C10
		SKIPA	T4,SECTAB+2(T2)	;YES, POINTER TO SECTION MAP WAS SETUP BY ONCE
		SKIPE	T4,SECTAB+2(T1)	;SECTION POINTER FROM BOOT CPU'S MAP
 WIT
		SKIPA	T4,SECTAB+<(MS.HGH)>(T2) ;YES, POINTER TO SECTION MAP WAS SETUP BY ONCE
		SKIPE	T4,SECTAB+<(MS.HGH)>(T1) ;SECTION POINTER FROM BOOT CPU'S MAP
 REP 23/48	;14C11
		MOVEM	T4,SECTAB+2(T2)	;STORE POINTER INTO OUR MAP
 WIT
		MOVEM	T4,SECTAB+<(MS.HGH)>(T2) ;STORE POINTER INTO OUR MAP
 SUM 199797