Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_atpch16_bb-fr67f-bb - cpnser.c16
There are 2 other files named cpnser.c16 in the archive. Click here to see a list.
 REP 3/29	;16C1
	LOKSCI::CONO	PI,SCNPIF##
 WIT
	LOKSCI::CONO	PI,PI.OFF	;NO PIS
		CONI	PI,.CPSCI##	;READ CURRENT STATE OF CHANNEL ENABLES
		CONO	PI,PI.ON+SCNPIF## ;TURN THE PI SYSTEM ON
 REP 10/29	;16C2
	UNLSCI::SETOM	SCNLOK##
		SETOM	INOSCN##
		CONO	PI,SCNPIN##
 WIT
	UNLSCI::EXCH	T1,.CPSCI##	;SAVE T1, GET STATE OF THE PI WHEN INTERLOCK WAS OBTAINED
		ANDI	T1,177		;ISOLATE CHANNEL ENABLES
		TRO	T1,PI.TNP	;TURN ON SELECTED CHANNELS
		EXCH	T1,.CPSCI##	;RESTORE T1, SET TO RESTORE PI SYSTEM
		SETOM	SCNLOK##
		SETOM	INOSCN##
		CONO	PI,@.CPSCI##	;RESTORE THE PI SYSTEM
 SUM 58893