Trailing-Edge
-
PDP-10 Archives
-
scratch
-
10,7/unscsp/lodtst/lodcpu.mac
There are 5 other files named lodcpu.mac in the archive. Click here to see a list.
TITLE LODCPU
SUBTTL PROGRAM TO DO CPU LOOP
SEARCH LODUNV
LODCPU: DEFINT
LOOP: PUSHJ P,RANCOR ;CHANGE CORE SIZE
PUSHJ P,RANCPU ;DO CPU LOOP
PUSHJ P,TESTEX ;SEE IF TEST IS OVER
JRST LOOP ;REPEAT
DEFALL
DEFCOR
DEFCPU
ERRSLP: EXP ^D10 ;SECONDS TO SLEEP ON ERROR
CORCNT: EXP ^D10 ;CHANGE CORE EVERY TENTH TIME
CORRNG: EXP 35.0 ;CORE SIZE RANGE IN PAGES
CORBAS: EXP 0.0 ;MINIMUM CORE SIZE
CPURNG: EXP 1.0 ;CPU LOOP RANGE, ONE SECOND
CPUBAS: EXP 0.5 ;MIN CPU, HALF SECOND
END LODCPU