root@mutley.UUCP (System Administrator) (02/24/88)
Bored with turning the knobs on the front of my 11/70 here, I zapped this
little program together to bounce the front panel lights a bit. I run it
in the background with a priority of +200 and it nibbles at the free cpu
cycles, resulting in a pretty fair indicator of cpu usage; the lights slow
down or stop depending on free cpu time.
This is written for V7 shared-data type kernels. It works on Venix but I
don't know about any others. Basically it just modifies real-memory
location 777570(Octal). This probably has do be done by uid 0.
Has anyone else plugged into to lights on the '70? I'd like to know.
=======================================
main()
{
int *addr;
unsigned int i,j,k;
phys(6,1,0177775);
addr = 0140070;
i=0140000;
loop: i = i >> 1; /* Playing with this line changes the pattern */
if(i & 01 ) i |= 0100000;
for(k=0;k<=06000;k++);
*addr = i;
goto loop;
}
=======================================
--
Scott G. Taylor Pmd Resources, 3709 Old Conejo Rd, Newbury Park, CA 91320
snidely!mutley!staylor@wlbr.eaton.com (805) 499-0367
..{ucbvax!voder,seismo!scgvaxd}!wlbr!snidely!mutley!staylor
"I am having fun yet."alan@numm.nu (Alan Hargreaves) (02/29/88)
In article <198@mutley.UUCP> root@mutley.UUCP (System Administrator) writes: >Has anyone else plugged into to lights on the '70? I'd like to know. We had a '45 ( and it was only decommisioned last year !!!) running AUSAM (A more secure V7).Similar code was shoved into the idle loop in the kernel to give the appearance of a cylon. It had the same same characteristics of displaying how busy the cpu was. alan. -- Alan Hargreaves ARPA: alan%numm.nu.oz.AU@uunet.uu.net ACSnet: alan@numm.nu.oz UUCP: {uunet,mcvax}!numm.nu.oz.AU!alan SNAIL: c/- Department of Computer Science, University of Newcastle, NSW 2308 Australia.