1993/0501/power/clock.c (diff list | history)

power/clock.c on 1990/0227
1990/0227		#include "u.h"
1992/0321		#include "../port/lib.h"
1990/0227		#include "mem.h" #include "dat.h" #include "fns.h" #include "io.h" #include "ureg.h" void delay(int ms) { int i;
1993/0501		ms *= 7000; /* experimentally determined */
1990/0227		for(i=0; i<ms; i++) ; } /* * AMD 82C54 timer *
1993/0501		* ctr2 is clocked at 3.6864 MHz. ctr2 output clocks ctr0 and ctr1.
1990/0227		* ctr0 drives INTR2. ctr1 drives INTR4.
1993/0501		* To get 100Hz, 36864==9*4096=36*1024 so clock ctr2 * every 1024 and ctr0 every 36.
1990/0227		*/ struct Timer{ uchar cnt0, junk0[3]; uchar cnt1, junk1[3]; uchar cnt2, junk2[3]; uchar ctl, junk3[3]; };
1990/0731
1990/0227		#define TIME0 (36*MS2HZ/10)
1990/0731		#define TIME1 0xFFFFFFFF /* profiling disabled */
1990/0227		#define TIME2 1024 #define CTR(x) ((x)<<6) /* which counter x */ #define SET16 0x30 /* lsbyte then msbyte */ #define MODE2 0x04 /* interval timer */ void clockinit(void) { Timer *t; int i; t = TIMERREG; t->ctl = CTR(2)|SET16|MODE2; t->cnt2 = TIME2&0xFF; t->cnt2 = (TIME2>>8)&0xFF; t->ctl = CTR(1)|SET16|MODE2; t->cnt1 = TIME1&0xFF; t->cnt1 = (TIME1>>8)&0xFF; t->ctl = CTR(0)|SET16|MODE2; t->cnt0 = TIME0; t->cnt0 = (TIME0>>8)&0xFF; i = *CLRTIM0;
1990/1214		USED(i);
1990/0227		i = *CLRTIM1;
1990/1214		USED(i);
1990/0227		m->ticks = 0; } void
1991/0209		clock(Ureg *ur)
1990/0227		{ Proc *p;
1993/0501		int i, nrun;
1990/0227
1993/0501		if((ur->cause&INTR2) == 0) { if(ur->cause & INTR4) { i = *CLRTIM1; USED(i); } return; } nrun = 0; i = *CLRTIM0; USED(i);
1992/0509
1993/0501		m->ticks++; if(m->proc) m->proc->pc = ur->pc; if(m->machno == 0) { p = m->proc; if(p) { nrun++; p->time[p->insyscall]++; } for(i=1; i<conf.nmach; i++) { if(active.machs & (1<<i)) { p = MACHP(i)->proc; if(p) { p->time[p->insyscall]++; nrun++;
1990/0227		} } }
1993/0501		nrun = (nrdy+nrun)*1000; m->load = (m->load*19+nrun)/20; } duartslave(); if((active.machs&(1<<m->machno)) == 0)
1990/0227		return;
1993/0501		if(active.exiting && active.machs&(1<<m->machno)) { print("someone's exiting\n"); exit(0);
1990/0227		}
1990/0731
1993/0501		checkalarms(); kproftimer(ur->pc); if(up == 0 || (ur->status&IEP) == 0 || up->state != Running)
1990/0227		return;
1993/0501		if(anyready()) sched(); /* user profiling clock */ if(ur->status & KUP) (*(ulong*)(USTKTOP-BY2WD)) += TK2MS(1);
1990/0227		}