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