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