#include "u.h"#include "../port/lib.h"#include "mem.h"#include "dat.h"#include "fns.h"#include "io.h"#include "../port/error.h" #include "devtab.h"#define nelem(x) (sizeof(x)/sizeof(x[0]))/* * Driver for an NS16450 serial port */enum{ /* * register numbers */ Data= 0, /* xmit/rcv buffer */ Iena= 1, /* interrupt enable */ Ircv= (1<<0), /* for char rcv'd */ Ixmt= (1<<1), /* for xmit buffer empty */ Irstat=(1<<2), /* for change in rcv'er status */ Imstat=(1<<3), /* for change in modem status */ Istat= 2, /* interrupt flag (read) */ Fenabd=(3<<6), /* on if fifo's enabled */ Fifoctl=2, /* fifo control (write) */ Fenab= (1<<0), /* enable xmit/rcv fifos */ Ftrig= (1<<6), /* trigger after 4 input characters */ Fclear=(3<<1), /* clear xmit & rcv fifos */ Format= 3, /* byte format */ Bits8= (3<<0), /* 8 bits/byte */ Stop2= (1<<2), /* 2 stop bits */ Pena= (1<<3), /* generate parity */ Peven= (1<<4), /* even parity */ Pforce=(1<<5), /* force parity */ Break= (1<<6), /* generate a break */ Dra= (1<<7), /* address the divisor */ Mctl= 4, /* modem control */ Dtr= (1<<0), /* data terminal ready */ Rts= (1<<1), /* request to send */ Ri= (1<<2), /* ring */ Inton= (1<<3), /* turn on interrupts */ Loop= (1<<4), /* loop back */ Lstat= 5, /* line status */ Inready=(1<<0), /* receive buffer full */ Oerror=(1<<1), /* receiver overrun */ Perror=(1<<2), /* receiver parity error */ Ferror=(1<<3), /* rcv framing error */ Outready=(1<<5), /* output buffer full */ Mstat= 6, /* modem status */ Ctsc= (1<<0), /* clear to send changed */ Dsrc= (1<<1), /* data set ready changed */ Rire= (1<<2), /* rising edge of ring indicator */ Dcdc= (1<<3), /* data carrier detect changed */ Cts= (1<<4), /* complement of clear to send line */ Dsr= (1<<5), /* complement of data set ready line */ Ring= (1<<6), /* complement of ring indicator line */ Dcd= (1<<7), /* complement of data carrier detect line */ Scratch=7, /* scratchpad */ Dlsb= 0, /* divisor lsb */ Dmsb= 1, /* divisor msb */ Serial= 0, Modem= 1,}; typedef struct Uart Uart;struct Uart{ QLock; int port; uchar sticky[8]; /* sticky write register values */ int printing; /* true if printing */ int enabled; int cts; /* fifo control */ int fifoon; int nofifo; int istat; /* console interface */ int special; /* can't use the stream interface */ IOQ *iq; /* input character queue */ IOQ *oq; /* output character queue */ /* stream interface */ Queue *wq; /* write queue */ Rendez r; /* kproc waiting for input */ int kstarted; /* kproc started */ /* error statistics */ ulong frame; ulong overrun;}; typedef struct Scard{ ISAConf; /* card configuration */ int first; /* number of first port */} Scard; Uart uart[34];int Nuart; /* total no of uarts in the machine */int Nscard; /* number of serial cards */Scard scard[5]; /* configs for the serial card */ #define UartFREQ 1843200 #define uartwrreg(u,r,v) outb((u)->port + r, (u)->sticky[r] | (v))#define uartrdreg(u,r) inb((u)->port + r) void uartintr(Ureg*, void*);void mp008intr(Ureg*, void*); /* * set the baud rate by calculating and setting the baudrate * generator constant. This will work with fairly non-standard * baud rates. */voiduartsetbaud(Uart *up, int rate){ ulong brconst; brconst = (UartFREQ+8*rate-1)/(16*rate); uartwrreg(up, Format, Dra); outb(up->port+Dmsb, (brconst>>8) & 0xff); outb(up->port+Dlsb, brconst & 0xff); uartwrreg(up, Format, 0);} /* * toggle DTR */voiduartdtr(Uart *up, int n){ if(n) up->sticky[Mctl] |= Dtr; else up->sticky[Mctl] &= ~Dtr; uartwrreg(up, Mctl, 0);} /* * toggle RTS */voiduartrts(Uart *up, int n){ if(n) up->sticky[Mctl] |= Rts; else up->sticky[Mctl] &= ~Rts; uartwrreg(up, Mctl, 0);} /* * send break */voiduartbreak(Uart *up, int ms){ if(ms == 0) ms = 200; uartwrreg(up, Format, Break); tsleep(&u->p->sleep, return0, 0, ms); uartwrreg(up, Format, 0);} /* * set bits/char */voiduartbits(Uart *up, int bits){ if(bits < 5 || bits > 8) error(Ebadarg); up->sticky[Format] &= ~3; up->sticky[Format] |= bits-5; uartwrreg(up, Format, 0);} /* * set parity */voiduartparity(Uart *up, int c){ switch(c&0xff){ case 'e': up->sticky[Format] |= Pena|Peven; break; case 'o': up->sticky[Format] &= ~Peven; up->sticky[Format] |= Pena; break; default: up->sticky[Format] &= ~(Pena|Peven); break; } uartwrreg(up, Format, 0);} /* * set stop bits */voiduartstop(Uart *up, int n){ switch(n){ case 1: up->sticky[Format] &= ~Stop2; break; case 2: default: up->sticky[Format] |= Stop2; break; } uartwrreg(up, Format, 0);} voiduartfifoon(Uart *p){ ulong i, x; if(p->nofifo) return; x = splhi(); /* empty buffer */ for(i = 0; i < 16; i++) uartrdreg(p, Data); uartintr(0, p); /* turn on fifo */ p->fifoon = 1; uartwrreg(p, Fifoctl, Fenab|Ftrig); uartintr(0, p); if((p->istat & Fenabd) == 0){ /* didn't work, must be an earlier chip type */ p->nofifo = 1; } splx(x);} /* * modem flow control on/off (rts/cts) */voiduartmflow(Uart *up, int n){ if(n){ up->sticky[Iena] |= Imstat; uartwrreg(up, Iena, 0); up->cts = uartrdreg(up, Mstat) & Cts; /* turn on fifo's */ uartfifoon(up); } else { up->sticky[Iena] &= ~Imstat; uartwrreg(up, Iena, 0); up->cts = 1; /* turn off fifo's */ if(up->fifoon){ up->fifoon = 0; uartwrreg(up, Fifoctl, 0); } }} /* * default is 9600 baud, 1 stop bit, 8 bit chars, no interrupts, * transmit and receive enabled, interrupts disabled. */voiduartsetup(void){ Uart *up; Scard *sc; int i, j, baddr; static int already; if(already) return; already = 1; /* * set port addresses */ uart[0].port = 0x3F8; uart[1].port = 0x2F8; setvec(Uart0vec, uartintr, &uart[0]); setvec(Uart1vec, uartintr, &uart[1]); Nuart = 2; for(i = 0; isaconfig("serial", i, &scard[i]) && i < nelem(scard); i++) { sc = &scard[i]; if(strcmp(sc->type, "mp008") == 0 || strcmp(sc->type, "MP008") == 0){ /* * port gives base port address for uarts * irq is interrupt * mem is the polling port * size is the number of serial ports on the same polling port */ sc->first = Nuart; if(sc->size == 0) sc->size = 8; setvec(Int0vec + sc->irq, mp008intr, &scard[i]); baddr = sc->port; for(j=0, up = &uart[Nuart]; j < sc->size; baddr += 8, j++, up++){ up->port = baddr; Nuart++; } } else { /* * port gives base port address for uarts * irq is interrupt * size is the number of serial ports on the same polling port */ if(sc->size == 0) sc->size = 1; baddr = sc->port; for(j=0, up = &uart[Nuart]; j < sc->size; baddr += 8, j++, up++){ setvec(Int0vec + sc->irq, uartintr, &uart[Nuart]); up->port = baddr; Nuart++; } } } Nscard = i; for(up = uart; up < &uart[Nuart]; up++){ memset(up->sticky, 0, sizeof(up->sticky)); /* * set rate to 9600 baud. * 8 bits/character. * 1 stop bit. * interrupts enabled. */ uartsetbaud(up, 9600); up->sticky[Format] = Bits8; uartwrreg(up, Format, 0); up->sticky[Mctl] |= Inton; uartwrreg(up, Mctl, 0x0); }} /* * Queue n characters for output; if queue is full, we lose characters. * Get the output going if it isn't already. */voiduartputs(IOQ *cq, char *s, int n){ Uart *up = cq->ptr; int ch, x, multiprocessor; int tries; multiprocessor = active.machs > 1; x = splhi(); if(multiprocessor) lock(cq); puts(cq, s, n); if(up->printing == 0){ ch = getc(cq); if(ch >= 0){ up->printing = 1; for(tries = 0; tries<10000 && !(uartrdreg(up, Lstat)&Outready); tries++) ; outb(up->port + Data, ch); } } if(multiprocessor) unlock(cq); splx(x);} /* * a uart interrupt (a damn lot of work for one character) */voiduartintr(Ureg *ur, void *a){ int ch; IOQ *cq; int s, l, multiprocessor; Uart *up = a; USED(ur, a); multiprocessor = active.machs > 1; for(;;){ s = uartrdreg(up, Istat); switch(s & 0x3F){ case 6: /* receiver line status */ l = uartrdreg(up, Lstat); if(l & Ferror) up->frame++; if(l & Oerror) up->overrun++; break; case 4: /* received data available */ case 12: ch = uartrdreg(up, Data) & 0xff; cq = up->iq; if(cq == 0) break; if(cq->putc) (*cq->putc)(cq, ch); else putc(cq, ch); break; case 2: /* transmitter empty */ cq = up->oq; if(cq == 0) break; if(multiprocessor) lock(cq); if(up->cts == 0) up->printing = 0; else { ch = getc(cq); if(ch < 0){ up->printing = 0; wakeup(&cq->r); }else outb(up->port + Data, ch); } if(multiprocessor) unlock(cq); break; case 0: /* modem status */ ch = uartrdreg(up, Mstat); if(ch & Ctsc){ up->cts = ch & Cts; cq = up->oq; if(cq == 0) break; if(multiprocessor) lock(cq); if(up->cts && up->printing == 0){ ch = getc(cq); if(ch >= 0){ up->printing = 1; outb(up->port + Data, ch); } else wakeup(&cq->r); } if(multiprocessor) unlock(cq); } break; default: if(s&1) return; print("weird modem interrupt #%2.2ux\n", s); break; } }} voidmp008intr(Ureg *ur, void *a){ uchar i, n; Scard *sc = a; USED(ur); n = ~inb(sc->mem); for(i = 0; n; i++){ if(n & 1) uartintr(ur, &uart[sc->first + i]); n >>= 1; }} voiduartclock(void){ Uart *up; IOQ *cq; for(up = uart; up < &uart[Nuart]; up++){ cq = up->iq;Lines 1–500 of 963. Load more
#include "u.h" #include "../port/lib.h" #include "mem.h" #include "dat.h" #include "fns.h" #include "io.h" #include "../port/error.h" #include "devtab.h" #define nelem(x) (sizeof(x)/sizeof(x[0])) /* * Driver for an NS16450 serial port */ enum { /* * register numbers */ Data= 0, /* xmit/rcv buffer */ Iena= 1, /* interrupt enable */ Ircv= (1<<0), /* for char rcv'd */ Ixmt= (1<<1), /* for xmit buffer empty */ Irstat=(1<<2), /* for change in rcv'er status */ Imstat=(1<<3), /* for change in modem status */ Istat= 2, /* interrupt flag (read) */ Fenabd=(3<<6), /* on if fifo's enabled */ Fifoctl=2, /* fifo control (write) */ Fenab= (1<<0), /* enable xmit/rcv fifos */ Ftrig= (1<<6), /* trigger after 4 input characters */ Fclear=(3<<1), /* clear xmit & rcv fifos */ Format= 3, /* byte format */ Bits8= (3<<0), /* 8 bits/byte */ Stop2= (1<<2), /* 2 stop bits */ Pena= (1<<3), /* generate parity */ Peven= (1<<4), /* even parity */ Pforce=(1<<5), /* force parity */ Break= (1<<6), /* generate a break */ Dra= (1<<7), /* address the divisor */ Mctl= 4, /* modem control */ Dtr= (1<<0), /* data terminal ready */ Rts= (1<<1), /* request to send */ Ri= (1<<2), /* ring */ Inton= (1<<3), /* turn on interrupts */ Loop= (1<<4), /* loop back */ Lstat= 5, /* line status */ Inready=(1<<0), /* receive buffer full */ Oerror=(1<<1), /* receiver overrun */ Perror=(1<<2), /* receiver parity error */ Ferror=(1<<3), /* rcv framing error */ Outready=(1<<5), /* output buffer full */ Mstat= 6, /* modem status */ Ctsc= (1<<0), /* clear to send changed */ Dsrc= (1<<1), /* data set ready changed */ Rire= (1<<2), /* rising edge of ring indicator */ Dcdc= (1<<3), /* data carrier detect changed */ Cts= (1<<4), /* complement of clear to send line */ Dsr= (1<<5), /* complement of data set ready line */ Ring= (1<<6), /* complement of ring indicator line */ Dcd= (1<<7), /* complement of data carrier detect line */ Scratch=7, /* scratchpad */ Dlsb= 0, /* divisor lsb */ Dmsb= 1, /* divisor msb */ Serial= 0, Modem= 1, }; typedef struct Uart Uart; struct Uart { QLock; int port; uchar sticky[8]; /* sticky write register values */ int printing; /* true if printing */ int enabled; int cts; /* fifo control */ int fifoon; int nofifo; int istat; /* console interface */ int special; /* can't use the stream interface */ IOQ *iq; /* input character queue */ IOQ *oq; /* output character queue */ /* stream interface */ Queue *wq; /* write queue */ Rendez r; /* kproc waiting for input */ int kstarted; /* kproc started */ /* error statistics */ ulong frame; ulong overrun; }; typedef struct Scard { ISAConf; /* card configuration */ int first; /* number of first port */ } Scard; Uart uart[34]; int Nuart; /* total no of uarts in the machine */ int Nscard; /* number of serial cards */ Scard scard[5]; /* configs for the serial card */ #define UartFREQ 1843200 #define uartwrreg(u,r,v) outb((u)->port + r, (u)->sticky[r] | (v)) #define uartrdreg(u,r) inb((u)->port + r) void uartintr(Ureg*, void*); void mp008intr(Ureg*, void*); /* * set the baud rate by calculating and setting the baudrate * generator constant. This will work with fairly non-standard * baud rates. */ void uartsetbaud(Uart *up, int rate) { ulong brconst; brconst = (UartFREQ+8*rate-1)/(16*rate); uartwrreg(up, Format, Dra); outb(up->port+Dmsb, (brconst>>8) & 0xff); outb(up->port+Dlsb, brconst & 0xff); uartwrreg(up, Format, 0); } /* * toggle DTR */ void uartdtr(Uart *up, int n) { if(n) up->sticky[Mctl] |= Dtr; else up->sticky[Mctl] &= ~Dtr; uartwrreg(up, Mctl, 0); } /* * toggle RTS */ void uartrts(Uart *up, int n) { if(n) up->sticky[Mctl] |= Rts; else up->sticky[Mctl] &= ~Rts; uartwrreg(up, Mctl, 0); } /* * send break */ void uartbreak(Uart *up, int ms) { if(ms == 0) ms = 200; uartwrreg(up, Format, Break); tsleep(&u->p->sleep, return0, 0, ms); uartwrreg(up, Format, 0); } /* * set bits/char */ void uartbits(Uart *up, int bits) { if(bits < 5 || bits > 8) error(Ebadarg); up->sticky[Format] &= ~3; up->sticky[Format] |= bits-5; uartwrreg(up, Format, 0); } /* * set parity */ void uartparity(Uart *up, int c) { switch(c&0xff){ case 'e': up->sticky[Format] |= Pena|Peven; break; case 'o': up->sticky[Format] &= ~Peven; up->sticky[Format] |= Pena; break; default: up->sticky[Format] &= ~(Pena|Peven); break; } uartwrreg(up, Format, 0); } /* * set stop bits */ void uartstop(Uart *up, int n) { switch(n){ case 1: up->sticky[Format] &= ~Stop2; break; case 2: default: up->sticky[Format] |= Stop2; break; } uartwrreg(up, Format, 0); } void uartfifoon(Uart *p) { ulong i, x; if(p->nofifo) return; x = splhi(); /* empty buffer */ for(i = 0; i < 16; i++) uartrdreg(p, Data); uartintr(0, p); /* turn on fifo */ p->fifoon = 1; uartwrreg(p, Fifoctl, Fenab|Ftrig); uartintr(0, p); if((p->istat & Fenabd) == 0){ /* didn't work, must be an earlier chip type */ p->nofifo = 1; } splx(x); } /* * modem flow control on/off (rts/cts) */ void uartmflow(Uart *up, int n) { if(n){ up->sticky[Iena] |= Imstat; uartwrreg(up, Iena, 0); up->cts = uartrdreg(up, Mstat) & Cts; /* turn on fifo's */ uartfifoon(up); } else { up->sticky[Iena] &= ~Imstat; uartwrreg(up, Iena, 0); up->cts = 1; /* turn off fifo's */ if(up->fifoon){ up->fifoon = 0; uartwrreg(up, Fifoctl, 0); } } } /* * default is 9600 baud, 1 stop bit, 8 bit chars, no interrupts, * transmit and receive enabled, interrupts disabled. */ void uartsetup(void) { Uart *up; Scard *sc; int i, j, baddr; static int already; if(already) return; already = 1; /* * set port addresses */ uart[0].port = 0x3F8; uart[1].port = 0x2F8; setvec(Uart0vec, uartintr, &uart[0]); setvec(Uart1vec, uartintr, &uart[1]); Nuart = 2; for(i = 0; isaconfig("serial", i, &scard[i]) && i < nelem(scard); i++) { sc = &scard[i]; if(strcmp(sc->type, "mp008") == 0 || strcmp(sc->type, "MP008") == 0){ /* * port gives base port address for uarts * irq is interrupt * mem is the polling port * size is the number of serial ports on the same polling port */ sc->first = Nuart; if(sc->size == 0) sc->size = 8; setvec(Int0vec + sc->irq, mp008intr, &scard[i]); baddr = sc->port; for(j=0, up = &uart[Nuart]; j < sc->size; baddr += 8, j++, up++){ up->port = baddr; Nuart++; } } else { /* * port gives base port address for uarts * irq is interrupt * size is the number of serial ports on the same polling port */ if(sc->size == 0) sc->size = 1; baddr = sc->port; for(j=0, up = &uart[Nuart]; j < sc->size; baddr += 8, j++, up++){ setvec(Int0vec + sc->irq, uartintr, &uart[Nuart]); up->port = baddr; Nuart++; } } } Nscard = i; for(up = uart; up < &uart[Nuart]; up++){ memset(up->sticky, 0, sizeof(up->sticky)); /* * set rate to 9600 baud. * 8 bits/character. * 1 stop bit. * interrupts enabled. */ uartsetbaud(up, 9600); up->sticky[Format] = Bits8; uartwrreg(up, Format, 0); up->sticky[Mctl] |= Inton; uartwrreg(up, Mctl, 0x0); } } /* * Queue n characters for output; if queue is full, we lose characters. * Get the output going if it isn't already. */ void uartputs(IOQ *cq, char *s, int n) { Uart *up = cq->ptr; int ch, x, multiprocessor; int tries; multiprocessor = active.machs > 1; x = splhi(); if(multiprocessor) lock(cq); puts(cq, s, n); if(up->printing == 0){ ch = getc(cq); if(ch >= 0){ up->printing = 1; for(tries = 0; tries<10000 && !(uartrdreg(up, Lstat)&Outready); tries++) ; outb(up->port + Data, ch); } } if(multiprocessor) unlock(cq); splx(x); } /* * a uart interrupt (a damn lot of work for one character) */ void uartintr(Ureg *ur, void *a) { int ch; IOQ *cq; int s, l, multiprocessor; Uart *up = a; USED(ur, a); multiprocessor = active.machs > 1; for(;;){ s = uartrdreg(up, Istat); switch(s & 0x3F){ case 6: /* receiver line status */ l = uartrdreg(up, Lstat); if(l & Ferror) up->frame++; if(l & Oerror) up->overrun++; break; case 4: /* received data available */ case 12: ch = uartrdreg(up, Data) & 0xff; cq = up->iq; if(cq == 0) break; if(cq->putc) (*cq->putc)(cq, ch); else putc(cq, ch); break; case 2: /* transmitter empty */ cq = up->oq; if(cq == 0) break; if(multiprocessor) lock(cq); if(up->cts == 0) up->printing = 0; else { ch = getc(cq); if(ch < 0){ up->printing = 0; wakeup(&cq->r); }else outb(up->port + Data, ch); } if(multiprocessor) unlock(cq); break; case 0: /* modem status */ ch = uartrdreg(up, Mstat); if(ch & Ctsc){ up->cts = ch & Cts; cq = up->oq; if(cq == 0) break; if(multiprocessor) lock(cq); if(up->cts && up->printing == 0){ ch = getc(cq); if(ch >= 0){ up->printing = 1; outb(up->port + Data, ch); } else wakeup(&cq->r); } if(multiprocessor) unlock(cq); } break; default: if(s&1) return; print("weird modem interrupt #%2.2ux\n", s); break; } } } void mp008intr(Ureg *ur, void *a) { uchar i, n; Scard *sc = a; USED(ur); n = ~inb(sc->mem); for(i = 0; n; i++){ if(n & 1) uartintr(ur, &uart[sc->first + i]); n >>= 1; } } void uartclock(void) { Uart *up; IOQ *cq; for(up = uart; up < &uart[Nuart]; up++){ cq = up->iq;