From 78ee7d5717807e6ac779293d0d3c78341de6130a Mon Sep 17 00:00:00 2001 From: "Konstantin Kirik (snegovick)" Date: Sun, 28 Dec 2025 12:27:31 +0300 Subject: Move existing boards into subdits split per arch --- os/ks32/clock.c | 287 -------------------------------------------------------- 1 file changed, 287 deletions(-) delete mode 100644 os/ks32/clock.c (limited to 'os/ks32/clock.c') diff --git a/os/ks32/clock.c b/os/ks32/clock.c deleted file mode 100644 index ef72988a..00000000 --- a/os/ks32/clock.c +++ /dev/null @@ -1,287 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -#include "ureg.h" - -static ulong timer_incr[2] = { 0, 0, }; - -#define DISABLE(t, x) t->mod &= (x ? ~0x08 : ~0x01) -#define ENABLE(t, x) t->mod = (t->mod & (x ? 0x38 : 0x7)) | (x ? (1 << 3) : (1 << 0)) - -typedef struct Clock0link Clock0link; -typedef struct Clock0link { - void (*clock)(void); - Clock0link* link; -} Clock0link; - -static Clock0link *clock0link; -static Lock clock0lock; -static void (*prof_fcn)(Ureg *, int); - -Timer* -addclock0link(void (*clock)(void), int) -{ - Clock0link *lp; - - if((lp = malloc(sizeof(Clock0link))) == 0){ - print("addclock0link: too many links\n"); - return nil; - } - ilock(&clock0lock); - lp->clock = clock; - lp->link = clock0link; - clock0link = lp; - iunlock(&clock0lock); - return nil; -} - -static void -profintr(Ureg *ur, void*) -{ -#ifdef PROF - OstmrReg *ost = OSTMRREG; - int t; - - if ((ost->osmr[3] - ost->oscr) < 2*TIMER_HZ) - { - /* less than 2 seconds before reset, say something */ - setpanic(); - clockpoll(); - dumpregs(ur); - panic("Watchdog timer will expire"); - } - - /* advance the profile clock tick */ - ost->osmr[2] += timer_incr[2]; - ost->ossr = (1 << 2); /* Clear the SR */ - t = 1; - while((ost->osmr[2] - ost->oscr) > 0x80000000) { - ost->osmr[2] += timer_incr[2]; - t++; - } - if (prof_fcn) - prof_fcn(ur, t); -#else - USED(ur); -#endif -} - -static void -clockintr(Ureg*, void*) -{ - Clock0link *lp; - - m->ticks++; - - checkalarms(); - - if(canlock(&clock0lock)){ - for(lp = clock0link; lp; lp = lp->link) - if (lp->clock) - lp->clock(); - unlock(&clock0lock); - } - intrclear(TIMERbit(0), 0); -} - -/* -int -cticks(void) -{ - return m->ticks; -} -*/ - -/* - * Synchronize to the next SCLK tick boundary at best SPI rate. - */ -void -spi_tsync(void) -{ - /* Why has this been commented out? */ - - // don't need to waste any time here - //ulong t0; - - //t0 = OSTMR->oscr; - //while (OSTMR->oscr == t0); -} - -void -timerdisable( int timer ) -{ - TimerReg *t = TIMERREG; - if ((timer < 0) || (timer > 1)) - return; - intrmask(TIMERbit(timer), 0); - DISABLE(t, timer); -} - -void -timerenable( int timer, int Hz, void (*f)(Ureg *, void*), void* a) -{ - TimerReg *t = TIMERREG; - if ((timer < 0) || (timer > 1)) - return; - timerdisable(timer); - timer_incr[timer] = TIMER_HZ/Hz; /* set up freq */ - t->data[timer] = timer_incr[timer]; - ENABLE(t, timer); - intrenable(TIMERbit(timer), f, a, 0); -} - -void -installprof(void (*pf)(Ureg *, int)) -{ -#ifdef PROF - prof_fcn = pf; - timerenable( 2, HZ+1, profintr, 0); - timer_incr[2] = timer_incr[0]+63; /* fine tuning */ -#else - USED(pf); -#endif -} - -void -clockinit(void) -{ - m->ticks = 0; - timerenable(0, HZ, clockintr, 0); -} - -void -clockpoll(void) -{ -} - -void -clockcheck(void) -{ -} - -// macros for fixed-point math - -ulong _mularsv(ulong m0, ulong m1, ulong a, ulong s); - -/* truncated: */ -#define FXDPTDIV(a,b,n) ((ulong)(((uvlong)(a) << (n)) / (b))) -#define MAXMUL(a,n) ((ulong)((((uvlong)1<<(n))-1)/(a))) -#define MULDIV(x,a,b,n) (((x)*FXDPTDIV(a,b,n)) >> (n)) -#define MULDIV64(x,a,b,n) ((ulong)_mularsv(x, FXDPTDIV(a,b,n), 0, (n))) - -/* rounded: */ -#define FXDPTDIVR(a,b,n) ((ulong)((((uvlong)(a) << (n))+((b)/2)) / (b))) -#define MAXMULR(a,n) ((ulong)((((uvlong)1<<(n))-1)/(a))) -#define MULDIVR(x,a,b,n) (((x)*FXDPTDIVR(a,b,n)+(1<<((n)-1))) >> (n)) -#define MULDIVR64(x,a,b,n) ((ulong)_mularsv(x, FXDPTDIVR(a,b,n), 1<<((n)-1), (n))) - - -// these routines are all limited to a maximum of 1165 seconds, -// due to the wrap-around of the OSTIMER - -ulong -timer_start(void) -{ - return TIMERREG->data[0]; -} - -ulong -timer_ticks(ulong t0) -{ - return TIMERREG->data[0] - t0; -} - -int -timer_devwait(ulong *adr, ulong mask, ulong val, int ost) -{ - int i; - ulong t0 = timer_start(); - while((*adr & mask) != val) - if(timer_ticks(t0) > ost) - return ((*adr & mask) == val) ? 0 : -1; - else - for (i = 0; i < 10; i++); /* don't pound OSCR too hard! (why not?) */ - return 0; -} - -void -timer_setwatchdog(int t) -{ - USED(t); -} - -void -timer_delay(int t) -{ - ulong t0 = timer_start(); - while(timer_ticks(t0) < t) - ; -} - - -ulong -us2tmr(int us) -{ - return MULDIV64(us, TIMER_HZ, 1000000, 24); -} - -int -tmr2us(ulong t) -{ - return MULDIV64(t, 1000000, TIMER_HZ, 24); -} - -void -microdelay(int us) -{ - ulong t0 = timer_start(); - ulong t = us2tmr(us); - while(timer_ticks(t0) <= t) - ; -} - - -ulong -ms2tmr(int ms) -{ - return MULDIV64(ms, TIMER_HZ, 1000, 20); -} - -int -tmr2ms(ulong t) -{ - return MULDIV64(t, 1000, TIMER_HZ, 32); -} - -void -delay(int ms) -{ - ulong t0 = timer_start(); - ulong t = ms2tmr(ms); - while(timer_ticks(t0) <= t) - clockpoll(); -} - -int -srand() -{ - return 0; -} - -int -time() -{ - return 0; -} - -uvlong -fastticks(uvlong *hz) -{ - if(hz) - *hz = HZ; - return m->ticks; -} -- cgit v1.2.3