Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - common.c11
There is 1 other file named common.c11 in the archive. Click here to see a list.
 REP 10/11	;11C1
	ND	A00MCO,^D11474		;HIGHEST MCO IN THIS LOAD (26-BITS)
 WIT
	ND	A00MCO,^D12199		;HIGHEST MCO IN THIS LOAD (26-BITS)
 INS 28/28	;11C2
		  ZZZ==.
		  LOC KDL'N'PG+KDLUSR
		  EXP M.'N'KDP
		  LOC ZZZ
 INS 42/73	;11C3
	JBTHSQ::BLOCK	1		;HEADER FOR JOBS WAITING FOR A HIGH SEG
 INS 45/73	;11C4
		HSQ==:JBTJIL-JBTHSQ
 REP 23/123	;11C5
	TAPCNT==TAPN

		$ABS
	GENTAB::
	IFN TAPN,<
		..KON==0
		REPEAT	TAPCNT,<TGNRIC (\..KON)
			     ..KON==..KON+1>
		>
 WIT
		$ABS

	GENTAB::
	IFN TAPN,<
		IFE FTAUTC,<TAPCNT==TAPN>
		IFN FTAUTC,<TAPCNT==<<TAPN*2>*M.CPU>>
		ZZ==0
		REPEAT	TAPCNT,<
			TGNRIC (\ZZ)
			ZZ==ZZ+1
		> ;END REPEAT TAPCNT
	> ;END IFN TAPN

 INS 197/204	;11C6
	IFN FTKLP,<
		MOVE	P,.CPXPT	;GET SPT SAVED BY SYSTR0
		MOVEM	P,.CPSPT	;RESTORE IT
	>; END IFN FTKLP
 SUM 103145