Google
 

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