Google
 

Trailing-Edge - PDP-10 Archives - scratch - 10,7/unscsp/lodtst/lodio.mac
There are 5 other files named lodio.mac in the archive. Click here to see a list.
	TITLE	LODIO
	SUBTTL	PROGRAM TO DO DISK IO
	SEARCH	LODUNV

LODIO:	DEFINT			;PROGRAM INITIALIZATION
	PUSHJ	P,PCKSTR	;DISK INITIALIZATION
LOOP:	PUSHJ	P,RANCOR	;CHANGE CORE SIZE
	PUSHJ	P,RANDSK	;DO DISK IO
	PUSHJ	P,TESTEX	;SEE IF TIME TO STOP
	JRST	LOOP		;REPEAT

	DEFALL
	DEFDSK
	DEFCOR

ERRSLP:	EXP	^D10		;SECONDS TO SLEEP ON ERROR
CORCNT:	EXP	^D10		;CHANGE CORE EVERY TENTH TIME
CORRNG:	EXP	35.0		;CORE RANGE 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

	END	LODIO