Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
klser.c08
There is 1 other file named klser.c08 in the archive. Click here to see a list.
REP 4/5 ;08C1
CONSZ APR,@.CPACO## ;APR CHANNEL ON?
CONSZ APR,@.CPAPP## ;OR ANY PI'S IN PROGRESS
CAIA ;YES TO EITHER, LOCK IS OWNED
JRST [DIELOK ;GRAB THE DIE INTERLOCK
JRST .+1]
>
WIT
CONSZ PI,@.CPAPP## ;APR PI IN PROGRESS?
JRST PRTRPA ;YES, DIE INTERLOCK IS ALREADY OWNED
DIELOK ;NO, GRAB THE DIE INTERLOCK
PRTRPA:>
REP 15/16 ;08C2
CONSZ APR,@.CPACO## ;APR CHANNEL ON?
CONSZ APR,@.CPAPP## ;OR ANY PI'S IN PROGRESS
CAIA ;YES TO EITHER, LOCK MUST NOT BE GIVEN UP
JRST [DIENLK ;RETURN THE DIE INTERLOCK
WIT
CONSO PI,@.CPAPP## ;APR PI IN PROGRESS?
JRST [DIENLK ;NO, RETURN THE DIE INTERLOCK
REP 9/17 ;08C3
CONSZ APR,@.CPACO## ;APR CHANNEL ON?
CONSZ APR,@.CPAPP## ;OR ANY PI'S IN PROGRESS
CAIA ;YES TO EITHER, LOCK MUST NOT BE GIVEN UP
JRST [DIENLK ;RETURN THE DIE INTERLOCK
WIT
CONSO PI,@.CPAPP## ;APR PI IN PROGRESS?
JRST [DIENLK ;NO, RETURN THE DIE INTERLOCK
REP 30/17 ;08C4
CONSZ APR,@.CPACO## ;APR CHANNEL ON?
CONSZ APR,@.CPAPP## ;OR ANY PI'S IN PROGRESS
CAIA ;YES TO EITHER, LOCK MUST NOT BE GIVEN UP
JRST [DIENLK ;RETURN THE DIE INTERLOCK
WIT
CONSO PI,@.CPAPP## ;APR PI IN PROGRESS?
JRST [DIENLK ;NO, RETURN THE DIE INTERLOCK
REP 46/21 ;08C5
DIENLK ;GIVE BACK THE DIE LOCK
WIT
IFN FTMP,<
CONSO PI,@.CPAPP## ;APR PI IN PROGRESS?
JRST [DIENLK ;NO, RETURN THE DIE INTERLOCK
JRST .+1]
>
REP 26/29 ;08C6
HRLI T1,(LG.LUB) ;SET THE LOAD BIT
WIT
HRLI T1,(LG.LUB+LG.KPM) ;SET THE LOAD BIT
REP 19/32 ;08C7
TDO T1,[LG.LUB+LG.IAM] ;REQUEST LOADING OF UBR
WIT
TDO T1,[LG.LUB+LG.KPM+LG.IAM] ;REQUEST LOADING OF UBR
REP 15/36 ;08C8
TRO T1,LG.IAM ;DON'T UPDATE METERS
WIT
TDO T1,[LG.KPM+LG.IAM] ;DON'T UPDATE METERS
INS 26/48 ;08C9
SKIP @OUCHTB##+4
SKIP @OUCHTB##+5
SKIP @OUCHTB##+6
SKIP @OUCHTB##+7
REP 47/65 ;08C10
LDB T3,[POINT 4,.UPMUO,30] ;GET THE AC THE USER USED
WIT
LDB T3,[POINT 4,.USMUO,30] ;GET THE AC THE USER USED
SUM 246195