#include	"u.h"#include	"../port/lib.h"#include	"mem.h"#include	"dat.h"#include	"fns.h"#include	"../port/error.h" #include	"io.h" /* * MPC8xx real time clock * optional board option switch * optional nvram * interrupt statistics */ enum{	Qdir,	Qrtc,	Qswitch,	Qnvram,	Qintstat, 	Qporta,	Qportb,	Qportc, 	/* sccr */	RTDIV=	1<<24,	RTSEL=	1<<23, 	/* rtcsc */	RTE=	1<<0,	R38K=	1<<4,}; static	QLock	rtclock;		/* mutex on clock operations */ static Dirtab rtcdir[]={	".",		{Qdir,0,QTDIR},	0,	0555,	"rtc",		{Qrtc, 0},	12,	0664,	"switch",	{Qswitch, 0}, 0, 0444,	"intstat",	{Qintstat, 0}, 0, 0444,	"porta",	{Qporta, 0}, 0, 0444,	"portb",	{Qportb, 0}, 0, 0444,	"portc",	{Qportc, 0}, 0, 0444,	"nvram",	{Qnvram, 0},	0,	0660,};static long nrtc = nelem(rtcdir)-1;	/* excludes nvram */ static	long	readport(int, ulong, char*, long); static voidrtcreset(void){	IMM *io;	int n; 	io = m->iomem;	io->rtcsck = KEEP_ALIVE_KEY;	n = (RTClevel<<8)|RTE;	if(m->clockgen == 5*MHz)		n |= R38K;	io->rtcsc = n;	io->rtcsck = ~KEEP_ALIVE_KEY;	if(conf.nvramsize != 0){		rtcdir[nrtc].length = conf.nvramsize;		nrtc++;	}} static Chan*rtcattach(char *spec){	return devattach('r', spec);} static Walkqid*rtcwalk(Chan *c, Chan *nc, char **name, int nname){	return devwalk(c, nc, name, nname, rtcdir, nrtc, devgen);} static intrtcstat(Chan *c, uchar *dp, int n){	return devstat(c, dp, n, rtcdir, nrtc, devgen);} static Chan*rtcopen(Chan *c, int omode){	return devopen(c, omode, rtcdir, nrtc, devgen);} static void	 rtcclose(Chan*){} static long	 rtcread(Chan *c, void *buf, long n, vlong off){	ulong offset = off;	ulong t;	char *b; 	if(c->qid.type & QTDIR)		return devdirread(c, buf, n, rtcdir, nrtc, devgen); 	switch((ulong)c->qid.path){	case Qrtc:		t = m->iomem->rtc;		n = readnum(offset, buf, n, t, 12);		return n;	case Qswitch:		return readnum(offset, buf, n, archoptionsw(), 12);	case Qintstat:		b = malloc(2048);		if(waserror()){			free(b);			nexterror();		}		intrstats(b, 2048);		t = readstr(offset, buf, n, b);		poperror();		free(b);		return t;	case Qporta:	case Qportb:	case Qportc:		return readport(c->qid.path, offset, buf, n);	case Qnvram:		if(offset < 0 || offset >= conf.nvramsize)			return 0;		if(offset + n > conf.nvramsize)			n = conf.nvramsize - offset;		memmove(buf, (char*)conf.nvrambase+offset, n);		return n;	}	error(Egreg);	return 0;		/* not reached */} static long	 rtcwrite(Chan *c, void *buf, long n, vlong off){	ulong offset = off;	ulong secs;	char *cp, sbuf[32];	IMM *io; 	switch((ulong)c->qid.path){	case Qrtc:		/*		 *  read the time		 */		if(offset != 0 || n >= sizeof(sbuf)-1)			error(Ebadarg);		memmove(sbuf, buf, n);		sbuf[n] = '\0';		cp = sbuf;		while(*cp){			if(*cp>='0' && *cp<='9')				break;			cp++;		}		secs = strtoul(cp, 0, 0);		/*		 * set it		 */		io = ioplock();		io->rtck = KEEP_ALIVE_KEY;		io->rtc = secs;		io->rtck = ~KEEP_ALIVE_KEY;		iopunlock();		return n;	case Qnvram:		if(offset < 0 || offset >= conf.nvramsize)			return 0;		if(offset + n > conf.nvramsize)			n = conf.nvramsize - offset;		memmove((char*)conf.nvrambase+offset, buf, n);		return n;	}	error(Egreg);	return 0;		/* not reached */} static longreadport(int p, ulong offset, char *buf, long n){	long t;	char *b;	int v[4], i;	IMM *io; 	io = m->iomem;	for(i=0;i<nelem(v); i++)		v[i] = 0;	switch(p){	case Qporta:		v[0] = io->padat;		v[1] = io->padir;		v[2] = io->papar;		break;	case Qportb:		v[0] = io->pbdat;		v[1] = io->pbdir;		v[2] = io->pbpar;		break;	case Qportc:		v[0] = io->pcdat;		v[1] = io->pcdir;		v[2] = io->pcpar;		v[3] = io->pcso;		break;	}	b = malloc(READSTR);	if(waserror()){		free(b);		nexterror();	}	t = 0;	for(i=0; i<nelem(v); i++)		t += snprint(b+t, READSTR-t, " %8.8ux", v[i]);	t = readstr(offset, buf, n, b);	poperror();	free(b);	return t;} longrtctime(void){	return m->iomem->rtc;} Dev rtcdevtab = {	'r',	"rtc", 	rtcreset,	devinit,	devshutdown,	rtcattach,	rtcwalk,	rtcstat,	rtcopen,	devcreate,	rtcclose,	rtcread,	devbread,	rtcwrite,	devbwrite,	devremove,	devwstat,};