Trailing-Edge
-
PDP-10 Archives
-
cust_sup_cusp_bb-x130c-sb
-
10,7/unscsp/lodtst/lodave.mac
There are 5 other files named lodave.mac in the archive. Click here to see a list.
TITLE LODAVE
SUBTTL PROGRAM TO DO A VARIETY OF ACTIVITY
SEARCH LODUNV
LODAVE: DEFINT ;PROGRAM INITIALIZATION
PUSHJ P,PCKSTR ;DISK INITIALIZATION
LOOP: PUSHJ P,RANCOR ;CHANGE CORE SIZE
PUSHJ P,RANSLP ;DO SLEEP LOOP
PUSHJ P,RANCPU ;DO CPU LOOP
PUSHJ P,RANDSK ;DO DISK IO
PUSHJ P,TESTEX ;SEE IF TIME TO EXIT
JRST LOOP ;REPEAT
DEFALL
DEFCOR
DEFDSK
DEFSLP
DEFCPU
ERRSLP: EXP ^D10 ;SECONDS TO SLEEP ON ERROR
CORCNT: EXP ^D10 ;HOW OFTEN TO CHANGE CORE
CORRNG: EXP 35.0 ;RANGE OF CORE SIZES IN PAGES
CORBAS: EXP 0.0 ;MIN CORE SIZE
BLKRNG: EXP 4096.0 ;RANGE OF DISK WORDS TO WRITE
BLKBAS: EXP 0.0 ;MIN NUMBER OF WORDS TO WRITE
SLPRNG: EXP 60.0 ;SLEEP RANGE IN SECONDS
SLPBAS: EXP 0.0 ;MIN SLEEP TIME
CPURNG: EXP 1.0 ;CPU LOOP RANGE, ONE SECOND
CPUBAS: EXP 0.5 ;MIN CPU LOOP, HALF SECOND
END LODAVE