1990/1214/power/clock.c (diff list | history)

power/clock.c on 1990/0227
1990/0227		#include "u.h" #include "lib.h" #include "mem.h" #include "dat.h" #include "fns.h" #include "io.h" #include "ureg.h" void delay(int ms) { ulong t, *p; int i; ms *= 7000; /* experimentally determined */ for(i=0; i<ms; i++) ; } /* * AMD 82C54 timer * * ctr2 is clocked at 3.6864 MHz. * ctr2 output clocks ctr0 and ctr1. * ctr0 drives INTR2. ctr1 drives INTR4. * To get 100Hz, 36864==9*4096=36*1024 so clock ctr2 every 1024 and ctr0 every 36. */ 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 */
1990/0731
1990/0802		/* #define PROFILING /**/
1990/0731		#ifdef PROFILING #undef TIME1 #define TIME1 211 /* profiling clock; prime; about 10ms per tick */ #define NPROF 50000 ulong profcnt[MAXMACH*NPROF]; #endif
1990/0227		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; }
1990/0731
1990/0227		void
1990/0731		clock(ulong n, ulong pc)
1990/0227		{
1990/1211		int i;
1990/0227		Proc *p; if(n&INTR2){ i = *CLRTIM0;
1990/1214		USED(i);
1990/0227		m->ticks++; if(m->machno == 0){ p = m->proc; if(p == 0) p = m->intrp; if(p) p->time[p->insyscall]++; for(i=1; i<conf.nmach; i++){ if(active.machs & (1<<i)){ p = MACHP(i)->proc; if(p && p!=m->intrp) p->time[p->insyscall]++; } } m->intrp = 0; printslave(); } if(active.exiting && active.machs&(1<<m->machno)){ print("someone's exiting\n"); exit(); }
1990/1211		checkalarms();
1990/0227		return; } if(n & INTR4){
1990/0731		extern ulong start;
1990/0227		i = *CLRTIM1;
1990/1214		USED(i);
1990/0731		#ifdef PROFILING pc -= (ulong)&start; pc /= sizeof(ulong); if(pc < NPROF) profcnt[m->machno*NPROF+pc]++; #endif
1990/0227		return; } }