Back to home page

OSCL-LXR

 
 

    


0001 // SPDX-License-Identifier: GPL-2.0
0002 /*
0003  * Serial driver for the amiga builtin port.
0004  *
0005  * This code was created by taking serial.c version 4.30 from kernel
0006  * release 2.3.22, replacing all hardware related stuff with the
0007  * corresponding amiga hardware actions, and removing all irrelevant
0008  * code. As a consequence, it uses many of the constants and names
0009  * associated with the registers and bits of 16550 compatible UARTS -
0010  * but only to keep track of status, etc in the state variables. It
0011  * was done this was to make it easier to keep the code in line with
0012  * (non hardware specific) changes to serial.c.
0013  *
0014  * The port is registered with the tty driver as minor device 64, and
0015  * therefore other ports should only use 65 upwards.
0016  *
0017  * Richard Lucock 28/12/99
0018  *
0019  *  Copyright (C) 1991, 1992  Linus Torvalds
0020  *  Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 
0021  *      1998, 1999  Theodore Ts'o
0022  *
0023  */
0024 
0025 /* Set of debugging defines */
0026 
0027 #undef SERIAL_DEBUG_INTR
0028 #undef SERIAL_DEBUG_OPEN
0029 #undef SERIAL_DEBUG_FLOW
0030 #undef SERIAL_DEBUG_RS_WAIT_UNTIL_SENT
0031 
0032 /*
0033  * End of serial driver configuration section.
0034  */
0035 
0036 #include <linux/bitops.h>
0037 #include <linux/circ_buf.h>
0038 #include <linux/console.h>
0039 #include <linux/delay.h>
0040 #include <linux/errno.h>
0041 #include <linux/fcntl.h>
0042 #include <linux/init.h>
0043 #include <linux/interrupt.h>
0044 #include <linux/ioport.h>
0045 #include <linux/kernel.h>
0046 #include <linux/major.h>
0047 #include <linux/mm.h>
0048 #include <linux/module.h>
0049 #include <linux/platform_device.h>
0050 #include <linux/ptrace.h>
0051 #include <linux/seq_file.h>
0052 #include <linux/serial.h>
0053 #include <linux/serial_reg.h>
0054 #include <linux/serial_core.h>
0055 #include <linux/sched.h>
0056 #include <linux/signal.h>
0057 #include <linux/slab.h>
0058 #include <linux/string.h>
0059 #include <linux/timer.h>
0060 #include <linux/tty_flip.h>
0061 #include <linux/tty.h>
0062 #include <linux/types.h>
0063 #include <linux/uaccess.h>
0064 
0065 #include <asm/amigahw.h>
0066 #include <asm/amigaints.h>
0067 #include <asm/irq.h>
0068 #include <asm/setup.h>
0069 
0070 struct serial_state {
0071     struct tty_port     tport;
0072     struct circ_buf     xmit;
0073     struct async_icount icount;
0074 
0075     unsigned long       port;
0076     int         baud_base;
0077     int         custom_divisor;
0078     int         read_status_mask;
0079     int         ignore_status_mask;
0080     int         timeout;
0081     int         quot;
0082     int         IER;    /* Interrupt Enable Register */
0083     int         MCR;    /* Modem control register */
0084     int         x_char; /* xon/xoff character */
0085 };
0086 
0087 static struct tty_driver *serial_driver;
0088 
0089 /* number of characters left in xmit buffer before we ask for more */
0090 #define WAKEUP_CHARS 256
0091 
0092 #define XMIT_FIFO_SIZE 1
0093 
0094 static unsigned char current_ctl_bits;
0095 
0096 static void change_speed(struct tty_struct *tty, struct serial_state *info,
0097         struct ktermios *old);
0098 static void rs_wait_until_sent(struct tty_struct *tty, int timeout);
0099 
0100 
0101 static struct serial_state serial_state;
0102 
0103 /* some serial hardware definitions */
0104 #define SDR_OVRUN   (1<<15)
0105 #define SDR_RBF     (1<<14)
0106 #define SDR_TBE     (1<<13)
0107 #define SDR_TSRE    (1<<12)
0108 
0109 #define SERPER_PARENB    (1<<15)
0110 
0111 #define AC_SETCLR   (1<<15)
0112 #define AC_UARTBRK  (1<<11)
0113 
0114 #define SER_DTR     (1<<7)
0115 #define SER_RTS     (1<<6)
0116 #define SER_DCD     (1<<5)
0117 #define SER_CTS     (1<<4)
0118 #define SER_DSR     (1<<3)
0119 
0120 static __inline__ void rtsdtr_ctrl(int bits)
0121 {
0122     ciab.pra = ((bits & (SER_RTS | SER_DTR)) ^ (SER_RTS | SER_DTR)) | (ciab.pra & ~(SER_RTS | SER_DTR));
0123 }
0124 
0125 /*
0126  * ------------------------------------------------------------
0127  * rs_stop() and rs_start()
0128  *
0129  * This routines are called before setting or resetting tty->flow.stopped.
0130  * They enable or disable transmitter interrupts, as necessary.
0131  * ------------------------------------------------------------
0132  */
0133 static void rs_stop(struct tty_struct *tty)
0134 {
0135     struct serial_state *info = tty->driver_data;
0136     unsigned long flags;
0137 
0138     local_irq_save(flags);
0139     if (info->IER & UART_IER_THRI) {
0140         info->IER &= ~UART_IER_THRI;
0141         /* disable Tx interrupt and remove any pending interrupts */
0142         amiga_custom.intena = IF_TBE;
0143         mb();
0144         amiga_custom.intreq = IF_TBE;
0145         mb();
0146     }
0147     local_irq_restore(flags);
0148 }
0149 
0150 static void rs_start(struct tty_struct *tty)
0151 {
0152     struct serial_state *info = tty->driver_data;
0153     unsigned long flags;
0154 
0155     local_irq_save(flags);
0156     if (info->xmit.head != info->xmit.tail
0157         && info->xmit.buf
0158         && !(info->IER & UART_IER_THRI)) {
0159         info->IER |= UART_IER_THRI;
0160         amiga_custom.intena = IF_SETCLR | IF_TBE;
0161         mb();
0162         /* set a pending Tx Interrupt, transmitter should restart now */
0163         amiga_custom.intreq = IF_SETCLR | IF_TBE;
0164         mb();
0165     }
0166     local_irq_restore(flags);
0167 }
0168 
0169 /*
0170  * ----------------------------------------------------------------------
0171  *
0172  * Here start the interrupt handling routines.
0173  *
0174  * -----------------------------------------------------------------------
0175  */
0176 
0177 static void receive_chars(struct serial_state *info)
0178 {
0179         int status;
0180     int serdatr;
0181     unsigned char ch, flag;
0182     struct  async_icount *icount;
0183     int oe = 0;
0184 
0185     icount = &info->icount;
0186 
0187     status = UART_LSR_DR; /* We obviously have a character! */
0188     serdatr = amiga_custom.serdatr;
0189     mb();
0190     amiga_custom.intreq = IF_RBF;
0191     mb();
0192 
0193     if((serdatr & 0x1ff) == 0)
0194         status |= UART_LSR_BI;
0195     if(serdatr & SDR_OVRUN)
0196         status |= UART_LSR_OE;
0197 
0198     ch = serdatr & 0xff;
0199     icount->rx++;
0200 
0201 #ifdef SERIAL_DEBUG_INTR
0202     printk("DR%02x:%02x...", ch, status);
0203 #endif
0204     flag = TTY_NORMAL;
0205 
0206     /*
0207      * We don't handle parity or frame errors - but I have left
0208      * the code in, since I'm not sure that the errors can't be
0209      * detected.
0210      */
0211 
0212     if (status & (UART_LSR_BI | UART_LSR_PE |
0213               UART_LSR_FE | UART_LSR_OE)) {
0214       /*
0215        * For statistics only
0216        */
0217       if (status & UART_LSR_BI) {
0218         status &= ~(UART_LSR_FE | UART_LSR_PE);
0219         icount->brk++;
0220       } else if (status & UART_LSR_PE)
0221         icount->parity++;
0222       else if (status & UART_LSR_FE)
0223         icount->frame++;
0224       if (status & UART_LSR_OE)
0225         icount->overrun++;
0226 
0227       /*
0228        * Now check to see if character should be
0229        * ignored, and mask off conditions which
0230        * should be ignored.
0231        */
0232       if (status & info->ignore_status_mask)
0233         goto out;
0234 
0235       status &= info->read_status_mask;
0236 
0237       if (status & (UART_LSR_BI)) {
0238 #ifdef SERIAL_DEBUG_INTR
0239         printk("handling break....");
0240 #endif
0241         flag = TTY_BREAK;
0242         if (info->tport.flags & ASYNC_SAK)
0243           do_SAK(info->tport.tty);
0244       } else if (status & UART_LSR_PE)
0245         flag = TTY_PARITY;
0246       else if (status & UART_LSR_FE)
0247         flag = TTY_FRAME;
0248       if (status & UART_LSR_OE) {
0249         /*
0250          * Overrun is special, since it's
0251          * reported immediately, and doesn't
0252          * affect the current character
0253          */
0254          oe = 1;
0255       }
0256     }
0257     tty_insert_flip_char(&info->tport, ch, flag);
0258     if (oe == 1)
0259         tty_insert_flip_char(&info->tport, 0, TTY_OVERRUN);
0260     tty_flip_buffer_push(&info->tport);
0261 out:
0262     return;
0263 }
0264 
0265 static void transmit_chars(struct serial_state *info)
0266 {
0267     amiga_custom.intreq = IF_TBE;
0268     mb();
0269     if (info->x_char) {
0270             amiga_custom.serdat = info->x_char | 0x100;
0271         mb();
0272         info->icount.tx++;
0273         info->x_char = 0;
0274         return;
0275     }
0276     if (info->xmit.head == info->xmit.tail
0277         || info->tport.tty->flow.stopped
0278         || info->tport.tty->hw_stopped) {
0279         info->IER &= ~UART_IER_THRI;
0280             amiga_custom.intena = IF_TBE;
0281         mb();
0282         return;
0283     }
0284 
0285     amiga_custom.serdat = info->xmit.buf[info->xmit.tail++] | 0x100;
0286     mb();
0287     info->xmit.tail = info->xmit.tail & (UART_XMIT_SIZE - 1);
0288     info->icount.tx++;
0289 
0290     if (CIRC_CNT(info->xmit.head,
0291              info->xmit.tail,
0292              UART_XMIT_SIZE) < WAKEUP_CHARS)
0293         tty_wakeup(info->tport.tty);
0294 
0295 #ifdef SERIAL_DEBUG_INTR
0296     printk("THRE...");
0297 #endif
0298     if (info->xmit.head == info->xmit.tail) {
0299             amiga_custom.intena = IF_TBE;
0300         mb();
0301         info->IER &= ~UART_IER_THRI;
0302     }
0303 }
0304 
0305 static void check_modem_status(struct serial_state *info)
0306 {
0307     struct tty_port *port = &info->tport;
0308     unsigned char status = ciab.pra & (SER_DCD | SER_CTS | SER_DSR);
0309     unsigned char dstatus;
0310     struct  async_icount *icount;
0311 
0312     /* Determine bits that have changed */
0313     dstatus = status ^ current_ctl_bits;
0314     current_ctl_bits = status;
0315 
0316     if (dstatus) {
0317         icount = &info->icount;
0318         /* update input line counters */
0319         if (dstatus & SER_DSR)
0320             icount->dsr++;
0321         if (dstatus & SER_DCD) {
0322             icount->dcd++;
0323         }
0324         if (dstatus & SER_CTS)
0325             icount->cts++;
0326         wake_up_interruptible(&port->delta_msr_wait);
0327     }
0328 
0329     if (tty_port_check_carrier(port) && (dstatus & SER_DCD)) {
0330 #if (defined(SERIAL_DEBUG_OPEN) || defined(SERIAL_DEBUG_INTR))
0331         printk("ttyS%d CD now %s...", info->line,
0332                (!(status & SER_DCD)) ? "on" : "off");
0333 #endif
0334         if (!(status & SER_DCD))
0335             wake_up_interruptible(&port->open_wait);
0336         else {
0337 #ifdef SERIAL_DEBUG_OPEN
0338             printk("doing serial hangup...");
0339 #endif
0340             if (port->tty)
0341                 tty_hangup(port->tty);
0342         }
0343     }
0344     if (tty_port_cts_enabled(port)) {
0345         if (port->tty->hw_stopped) {
0346             if (!(status & SER_CTS)) {
0347 #if (defined(SERIAL_DEBUG_INTR) || defined(SERIAL_DEBUG_FLOW))
0348                 printk("CTS tx start...");
0349 #endif
0350                 port->tty->hw_stopped = 0;
0351                 info->IER |= UART_IER_THRI;
0352                 amiga_custom.intena = IF_SETCLR | IF_TBE;
0353                 mb();
0354                 /* set a pending Tx Interrupt, transmitter should restart now */
0355                 amiga_custom.intreq = IF_SETCLR | IF_TBE;
0356                 mb();
0357                 tty_wakeup(port->tty);
0358                 return;
0359             }
0360         } else {
0361             if ((status & SER_CTS)) {
0362 #if (defined(SERIAL_DEBUG_INTR) || defined(SERIAL_DEBUG_FLOW))
0363                 printk("CTS tx stop...");
0364 #endif
0365                 port->tty->hw_stopped = 1;
0366                 info->IER &= ~UART_IER_THRI;
0367                 /* disable Tx interrupt and remove any pending interrupts */
0368                 amiga_custom.intena = IF_TBE;
0369                 mb();
0370                 amiga_custom.intreq = IF_TBE;
0371                 mb();
0372             }
0373         }
0374     }
0375 }
0376 
0377 static irqreturn_t ser_vbl_int( int irq, void *data)
0378 {
0379         /* vbl is just a periodic interrupt we tie into to update modem status */
0380     struct serial_state *info = data;
0381     /*
0382      * TBD - is it better to unregister from this interrupt or to
0383      * ignore it if MSI is clear ?
0384      */
0385     if(info->IER & UART_IER_MSI)
0386       check_modem_status(info);
0387     return IRQ_HANDLED;
0388 }
0389 
0390 static irqreturn_t ser_rx_int(int irq, void *dev_id)
0391 {
0392     struct serial_state *info = dev_id;
0393 
0394 #ifdef SERIAL_DEBUG_INTR
0395     printk("ser_rx_int...");
0396 #endif
0397 
0398     if (!info->tport.tty)
0399         return IRQ_NONE;
0400 
0401     receive_chars(info);
0402 #ifdef SERIAL_DEBUG_INTR
0403     printk("end.\n");
0404 #endif
0405     return IRQ_HANDLED;
0406 }
0407 
0408 static irqreturn_t ser_tx_int(int irq, void *dev_id)
0409 {
0410     struct serial_state *info = dev_id;
0411 
0412     if (amiga_custom.serdatr & SDR_TBE) {
0413 #ifdef SERIAL_DEBUG_INTR
0414       printk("ser_tx_int...");
0415 #endif
0416 
0417       if (!info->tport.tty)
0418         return IRQ_NONE;
0419 
0420       transmit_chars(info);
0421 #ifdef SERIAL_DEBUG_INTR
0422       printk("end.\n");
0423 #endif
0424     }
0425     return IRQ_HANDLED;
0426 }
0427 
0428 /*
0429  * -------------------------------------------------------------------
0430  * Here ends the serial interrupt routines.
0431  * -------------------------------------------------------------------
0432  */
0433 
0434 /*
0435  * ---------------------------------------------------------------
0436  * Low level utility subroutines for the serial driver:  routines to
0437  * figure out the appropriate timeout for an interrupt chain, routines
0438  * to initialize and startup a serial port, and routines to shutdown a
0439  * serial port.  Useful stuff like that.
0440  * ---------------------------------------------------------------
0441  */
0442 
0443 static int startup(struct tty_struct *tty, struct serial_state *info)
0444 {
0445     struct tty_port *port = &info->tport;
0446     unsigned long flags;
0447     int retval=0;
0448     unsigned long page;
0449 
0450     page = get_zeroed_page(GFP_KERNEL);
0451     if (!page)
0452         return -ENOMEM;
0453 
0454     local_irq_save(flags);
0455 
0456     if (tty_port_initialized(port)) {
0457         free_page(page);
0458         goto errout;
0459     }
0460 
0461     if (info->xmit.buf)
0462         free_page(page);
0463     else
0464         info->xmit.buf = (unsigned char *) page;
0465 
0466 #ifdef SERIAL_DEBUG_OPEN
0467     printk("starting up ttys%d ...", info->line);
0468 #endif
0469 
0470     /* Clear anything in the input buffer */
0471 
0472     amiga_custom.intreq = IF_RBF;
0473     mb();
0474 
0475     retval = request_irq(IRQ_AMIGA_VERTB, ser_vbl_int, 0, "serial status", info);
0476     if (retval) {
0477         if (capable(CAP_SYS_ADMIN)) {
0478             set_bit(TTY_IO_ERROR, &tty->flags);
0479             retval = 0;
0480         }
0481         goto errout;
0482     }
0483 
0484     /* enable both Rx and Tx interrupts */
0485     amiga_custom.intena = IF_SETCLR | IF_RBF | IF_TBE;
0486     mb();
0487     info->IER = UART_IER_MSI;
0488 
0489     /* remember current state of the DCD and CTS bits */
0490     current_ctl_bits = ciab.pra & (SER_DCD | SER_CTS | SER_DSR);
0491 
0492     info->MCR = 0;
0493     if (C_BAUD(tty))
0494       info->MCR = SER_DTR | SER_RTS;
0495     rtsdtr_ctrl(info->MCR);
0496 
0497     clear_bit(TTY_IO_ERROR, &tty->flags);
0498     info->xmit.head = info->xmit.tail = 0;
0499 
0500     /*
0501      * and set the speed of the serial port
0502      */
0503     change_speed(tty, info, NULL);
0504 
0505     tty_port_set_initialized(port, 1);
0506     local_irq_restore(flags);
0507     return 0;
0508 
0509 errout:
0510     local_irq_restore(flags);
0511     return retval;
0512 }
0513 
0514 /*
0515  * This routine will shutdown a serial port; interrupts are disabled, and
0516  * DTR is dropped if the hangup on close termio flag is on.
0517  */
0518 static void shutdown(struct tty_struct *tty, struct serial_state *info)
0519 {
0520     unsigned long   flags;
0521 
0522     if (!tty_port_initialized(&info->tport))
0523         return;
0524 
0525 #ifdef SERIAL_DEBUG_OPEN
0526     printk("Shutting down serial port %d ....\n", info->line);
0527 #endif
0528 
0529     local_irq_save(flags); /* Disable interrupts */
0530 
0531     /*
0532      * clear delta_msr_wait queue to avoid mem leaks: we may free the irq
0533      * here so the queue might never be waken up
0534      */
0535     wake_up_interruptible(&info->tport.delta_msr_wait);
0536 
0537     /*
0538      * Free the IRQ, if necessary
0539      */
0540     free_irq(IRQ_AMIGA_VERTB, info);
0541 
0542     free_page((unsigned long)info->xmit.buf);
0543     info->xmit.buf = NULL;
0544 
0545     info->IER = 0;
0546     amiga_custom.intena = IF_RBF | IF_TBE;
0547     mb();
0548 
0549     /* disable break condition */
0550     amiga_custom.adkcon = AC_UARTBRK;
0551     mb();
0552 
0553     if (C_HUPCL(tty))
0554         info->MCR &= ~(SER_DTR|SER_RTS);
0555     rtsdtr_ctrl(info->MCR);
0556 
0557     set_bit(TTY_IO_ERROR, &tty->flags);
0558 
0559     tty_port_set_initialized(&info->tport, 0);
0560     local_irq_restore(flags);
0561 }
0562 
0563 
0564 /*
0565  * This routine is called to set the UART divisor registers to match
0566  * the specified baud rate for a serial port.
0567  */
0568 static void change_speed(struct tty_struct *tty, struct serial_state *info,
0569              struct ktermios *old_termios)
0570 {
0571     struct tty_port *port = &info->tport;
0572     int quot = 0, baud_base, baud;
0573     unsigned cflag, cval = 0;
0574     int bits;
0575     unsigned long   flags;
0576 
0577     cflag = tty->termios.c_cflag;
0578 
0579     /* Byte size is always 8 bits plus parity bit if requested */
0580 
0581     cval = 3; bits = 10;
0582     if (cflag & CSTOPB) {
0583         cval |= 0x04;
0584         bits++;
0585     }
0586     if (cflag & PARENB) {
0587         cval |= UART_LCR_PARITY;
0588         bits++;
0589     }
0590     if (!(cflag & PARODD))
0591         cval |= UART_LCR_EPAR;
0592     if (cflag & CMSPAR)
0593         cval |= UART_LCR_SPAR;
0594 
0595     /* Determine divisor based on baud rate */
0596     baud = tty_get_baud_rate(tty);
0597     if (!baud)
0598         baud = 9600;    /* B0 transition handled in rs_set_termios */
0599     baud_base = info->baud_base;
0600     if (baud == 38400 && (port->flags & ASYNC_SPD_MASK) == ASYNC_SPD_CUST)
0601         quot = info->custom_divisor;
0602     else {
0603         if (baud == 134)
0604             /* Special case since 134 is really 134.5 */
0605             quot = (2*baud_base / 269);
0606         else if (baud)
0607             quot = baud_base / baud;
0608     }
0609     /* If the quotient is zero refuse the change */
0610     if (!quot && old_termios) {
0611         /* FIXME: Will need updating for new tty in the end */
0612         tty->termios.c_cflag &= ~CBAUD;
0613         tty->termios.c_cflag |= (old_termios->c_cflag & CBAUD);
0614         baud = tty_get_baud_rate(tty);
0615         if (!baud)
0616             baud = 9600;
0617         if (baud == 38400 &&
0618             (port->flags & ASYNC_SPD_MASK) == ASYNC_SPD_CUST)
0619             quot = info->custom_divisor;
0620         else {
0621             if (baud == 134)
0622                 /* Special case since 134 is really 134.5 */
0623                 quot = (2*baud_base / 269);
0624             else if (baud)
0625                 quot = baud_base / baud;
0626         }
0627     }
0628     /* As a last resort, if the quotient is zero, default to 9600 bps */
0629     if (!quot)
0630         quot = baud_base / 9600;
0631     info->quot = quot;
0632     info->timeout = (XMIT_FIFO_SIZE*HZ*bits*quot) / baud_base;
0633     info->timeout += HZ/50;     /* Add .02 seconds of slop */
0634 
0635     /* CTS flow control flag and modem status interrupts */
0636     info->IER &= ~UART_IER_MSI;
0637     if (port->flags & ASYNC_HARDPPS_CD)
0638         info->IER |= UART_IER_MSI;
0639     tty_port_set_cts_flow(port, cflag & CRTSCTS);
0640     if (cflag & CRTSCTS)
0641         info->IER |= UART_IER_MSI;
0642     tty_port_set_check_carrier(port, ~cflag & CLOCAL);
0643     if (~cflag & CLOCAL)
0644         info->IER |= UART_IER_MSI;
0645     /* TBD:
0646      * Does clearing IER_MSI imply that we should disable the VBL interrupt ?
0647      */
0648 
0649     /*
0650      * Set up parity check flag
0651      */
0652 
0653     info->read_status_mask = UART_LSR_OE | UART_LSR_DR;
0654     if (I_INPCK(tty))
0655         info->read_status_mask |= UART_LSR_FE | UART_LSR_PE;
0656     if (I_BRKINT(tty) || I_PARMRK(tty))
0657         info->read_status_mask |= UART_LSR_BI;
0658 
0659     /*
0660      * Characters to ignore
0661      */
0662     info->ignore_status_mask = 0;
0663     if (I_IGNPAR(tty))
0664         info->ignore_status_mask |= UART_LSR_PE | UART_LSR_FE;
0665     if (I_IGNBRK(tty)) {
0666         info->ignore_status_mask |= UART_LSR_BI;
0667         /*
0668          * If we're ignore parity and break indicators, ignore 
0669          * overruns too.  (For real raw support).
0670          */
0671         if (I_IGNPAR(tty))
0672             info->ignore_status_mask |= UART_LSR_OE;
0673     }
0674     /*
0675      * !!! ignore all characters if CREAD is not set
0676      */
0677     if ((cflag & CREAD) == 0)
0678         info->ignore_status_mask |= UART_LSR_DR;
0679     local_irq_save(flags);
0680 
0681     {
0682       short serper;
0683 
0684     /* Set up the baud rate */
0685       serper = quot - 1;
0686 
0687     /* Enable or disable parity bit */
0688 
0689     if(cval & UART_LCR_PARITY)
0690       serper |= (SERPER_PARENB);
0691 
0692     amiga_custom.serper = serper;
0693     mb();
0694     }
0695 
0696     local_irq_restore(flags);
0697 }
0698 
0699 static int rs_put_char(struct tty_struct *tty, unsigned char ch)
0700 {
0701     struct serial_state *info;
0702     unsigned long flags;
0703 
0704     info = tty->driver_data;
0705 
0706     if (!info->xmit.buf)
0707         return 0;
0708 
0709     local_irq_save(flags);
0710     if (CIRC_SPACE(info->xmit.head,
0711                info->xmit.tail,
0712                UART_XMIT_SIZE) == 0) {
0713         local_irq_restore(flags);
0714         return 0;
0715     }
0716 
0717     info->xmit.buf[info->xmit.head++] = ch;
0718     info->xmit.head &= UART_XMIT_SIZE - 1;
0719     local_irq_restore(flags);
0720     return 1;
0721 }
0722 
0723 static void rs_flush_chars(struct tty_struct *tty)
0724 {
0725     struct serial_state *info = tty->driver_data;
0726     unsigned long flags;
0727 
0728     if (info->xmit.head == info->xmit.tail
0729         || tty->flow.stopped
0730         || tty->hw_stopped
0731         || !info->xmit.buf)
0732         return;
0733 
0734     local_irq_save(flags);
0735     info->IER |= UART_IER_THRI;
0736     amiga_custom.intena = IF_SETCLR | IF_TBE;
0737     mb();
0738     /* set a pending Tx Interrupt, transmitter should restart now */
0739     amiga_custom.intreq = IF_SETCLR | IF_TBE;
0740     mb();
0741     local_irq_restore(flags);
0742 }
0743 
0744 static int rs_write(struct tty_struct * tty, const unsigned char *buf, int count)
0745 {
0746     int c, ret = 0;
0747     struct serial_state *info = tty->driver_data;
0748     unsigned long flags;
0749 
0750     if (!info->xmit.buf)
0751         return 0;
0752 
0753     local_irq_save(flags);
0754     while (1) {
0755         c = CIRC_SPACE_TO_END(info->xmit.head,
0756                       info->xmit.tail,
0757                       UART_XMIT_SIZE);
0758         if (count < c)
0759             c = count;
0760         if (c <= 0) {
0761             break;
0762         }
0763         memcpy(info->xmit.buf + info->xmit.head, buf, c);
0764         info->xmit.head = (info->xmit.head + c) & (UART_XMIT_SIZE - 1);
0765         buf += c;
0766         count -= c;
0767         ret += c;
0768     }
0769     local_irq_restore(flags);
0770 
0771     if (info->xmit.head != info->xmit.tail
0772         && !tty->flow.stopped
0773         && !tty->hw_stopped
0774         && !(info->IER & UART_IER_THRI)) {
0775         info->IER |= UART_IER_THRI;
0776         local_irq_disable();
0777         amiga_custom.intena = IF_SETCLR | IF_TBE;
0778         mb();
0779         /* set a pending Tx Interrupt, transmitter should restart now */
0780         amiga_custom.intreq = IF_SETCLR | IF_TBE;
0781         mb();
0782         local_irq_restore(flags);
0783     }
0784     return ret;
0785 }
0786 
0787 static unsigned int rs_write_room(struct tty_struct *tty)
0788 {
0789     struct serial_state *info = tty->driver_data;
0790 
0791     return CIRC_SPACE(info->xmit.head, info->xmit.tail, UART_XMIT_SIZE);
0792 }
0793 
0794 static unsigned int rs_chars_in_buffer(struct tty_struct *tty)
0795 {
0796     struct serial_state *info = tty->driver_data;
0797 
0798     return CIRC_CNT(info->xmit.head, info->xmit.tail, UART_XMIT_SIZE);
0799 }
0800 
0801 static void rs_flush_buffer(struct tty_struct *tty)
0802 {
0803     struct serial_state *info = tty->driver_data;
0804     unsigned long flags;
0805 
0806     local_irq_save(flags);
0807     info->xmit.head = info->xmit.tail = 0;
0808     local_irq_restore(flags);
0809     tty_wakeup(tty);
0810 }
0811 
0812 /*
0813  * This function is used to send a high-priority XON/XOFF character to
0814  * the device
0815  */
0816 static void rs_send_xchar(struct tty_struct *tty, char ch)
0817 {
0818     struct serial_state *info = tty->driver_data;
0819         unsigned long flags;
0820 
0821     info->x_char = ch;
0822     if (ch) {
0823         /* Make sure transmit interrupts are on */
0824 
0825             /* Check this ! */
0826             local_irq_save(flags);
0827         if(!(amiga_custom.intenar & IF_TBE)) {
0828             amiga_custom.intena = IF_SETCLR | IF_TBE;
0829             mb();
0830             /* set a pending Tx Interrupt, transmitter should restart now */
0831             amiga_custom.intreq = IF_SETCLR | IF_TBE;
0832             mb();
0833         }
0834         local_irq_restore(flags);
0835 
0836         info->IER |= UART_IER_THRI;
0837     }
0838 }
0839 
0840 /*
0841  * ------------------------------------------------------------
0842  * rs_throttle()
0843  * 
0844  * This routine is called by the upper-layer tty layer to signal that
0845  * incoming characters should be throttled.
0846  * ------------------------------------------------------------
0847  */
0848 static void rs_throttle(struct tty_struct * tty)
0849 {
0850     struct serial_state *info = tty->driver_data;
0851     unsigned long flags;
0852 #ifdef SERIAL_DEBUG_THROTTLE
0853     printk("throttle %s ....\n", tty_name(tty));
0854 #endif
0855 
0856     if (I_IXOFF(tty))
0857         rs_send_xchar(tty, STOP_CHAR(tty));
0858 
0859     if (C_CRTSCTS(tty))
0860         info->MCR &= ~SER_RTS;
0861 
0862     local_irq_save(flags);
0863     rtsdtr_ctrl(info->MCR);
0864     local_irq_restore(flags);
0865 }
0866 
0867 static void rs_unthrottle(struct tty_struct * tty)
0868 {
0869     struct serial_state *info = tty->driver_data;
0870     unsigned long flags;
0871 #ifdef SERIAL_DEBUG_THROTTLE
0872     printk("unthrottle %s ....\n", tty_name(tty));
0873 #endif
0874 
0875     if (I_IXOFF(tty)) {
0876         if (info->x_char)
0877             info->x_char = 0;
0878         else
0879             rs_send_xchar(tty, START_CHAR(tty));
0880     }
0881     if (C_CRTSCTS(tty))
0882         info->MCR |= SER_RTS;
0883     local_irq_save(flags);
0884     rtsdtr_ctrl(info->MCR);
0885     local_irq_restore(flags);
0886 }
0887 
0888 /*
0889  * ------------------------------------------------------------
0890  * rs_ioctl() and friends
0891  * ------------------------------------------------------------
0892  */
0893 
0894 static int get_serial_info(struct tty_struct *tty, struct serial_struct *ss)
0895 {
0896     struct serial_state *state = tty->driver_data;
0897     unsigned int close_delay, closing_wait;
0898 
0899     tty_lock(tty);
0900     close_delay = jiffies_to_msecs(state->tport.close_delay) / 10;
0901     closing_wait = state->tport.closing_wait;
0902     if (closing_wait != ASYNC_CLOSING_WAIT_NONE)
0903         closing_wait = jiffies_to_msecs(closing_wait) / 10;
0904 
0905     ss->line = tty->index;
0906     ss->port = state->port;
0907     ss->flags = state->tport.flags;
0908     ss->xmit_fifo_size = XMIT_FIFO_SIZE;
0909     ss->baud_base = state->baud_base;
0910     ss->close_delay = close_delay;
0911     ss->closing_wait = closing_wait;
0912     ss->custom_divisor = state->custom_divisor;
0913     tty_unlock(tty);
0914     return 0;
0915 }
0916 
0917 static int set_serial_info(struct tty_struct *tty, struct serial_struct *ss)
0918 {
0919     struct serial_state *state = tty->driver_data;
0920     struct tty_port *port = &state->tport;
0921     bool change_spd;
0922     int             retval = 0;
0923     unsigned int close_delay, closing_wait;
0924 
0925     tty_lock(tty);
0926     change_spd = ((ss->flags ^ port->flags) & ASYNC_SPD_MASK) ||
0927         ss->custom_divisor != state->custom_divisor;
0928     if (ss->irq || ss->port != state->port ||
0929             ss->xmit_fifo_size != XMIT_FIFO_SIZE) {
0930         tty_unlock(tty);
0931         return -EINVAL;
0932     }
0933 
0934     close_delay = msecs_to_jiffies(ss->close_delay * 10);
0935     closing_wait = ss->closing_wait;
0936     if (closing_wait != ASYNC_CLOSING_WAIT_NONE)
0937         closing_wait = msecs_to_jiffies(closing_wait * 10);
0938 
0939     if (!capable(CAP_SYS_ADMIN)) {
0940         if ((ss->baud_base != state->baud_base) ||
0941             (close_delay != port->close_delay) ||
0942             (closing_wait != port->closing_wait) ||
0943             ((ss->flags & ~ASYNC_USR_MASK) !=
0944              (port->flags & ~ASYNC_USR_MASK))) {
0945             tty_unlock(tty);
0946             return -EPERM;
0947         }
0948         port->flags = ((port->flags & ~ASYNC_USR_MASK) |
0949                    (ss->flags & ASYNC_USR_MASK));
0950         state->custom_divisor = ss->custom_divisor;
0951         goto check_and_exit;
0952     }
0953 
0954     if (ss->baud_base < 9600) {
0955         tty_unlock(tty);
0956         return -EINVAL;
0957     }
0958 
0959     /*
0960      * OK, past this point, all the error checking has been done.
0961      * At this point, we start making changes.....
0962      */
0963 
0964     state->baud_base = ss->baud_base;
0965     port->flags = ((port->flags & ~ASYNC_FLAGS) |
0966             (ss->flags & ASYNC_FLAGS));
0967     state->custom_divisor = ss->custom_divisor;
0968     port->close_delay = close_delay;
0969     port->closing_wait = closing_wait;
0970 
0971 check_and_exit:
0972     if (tty_port_initialized(port)) {
0973         if (change_spd) {
0974             /* warn about deprecation unless clearing */
0975             if (ss->flags & ASYNC_SPD_MASK)
0976                 dev_warn_ratelimited(tty->dev, "use of SPD flags is deprecated\n");
0977             change_speed(tty, state, NULL);
0978         }
0979     } else
0980         retval = startup(tty, state);
0981     tty_unlock(tty);
0982     return retval;
0983 }
0984 
0985 /*
0986  * get_lsr_info - get line status register info
0987  *
0988  * Purpose: Let user call ioctl() to get info when the UART physically
0989  *      is emptied.  On bus types like RS485, the transmitter must
0990  *      release the bus after transmitting. This must be done when
0991  *      the transmit shift register is empty, not be done when the
0992  *      transmit holding register is empty.  This functionality
0993  *      allows an RS485 driver to be written in user space. 
0994  */
0995 static int get_lsr_info(struct serial_state *info, unsigned int __user *value)
0996 {
0997     unsigned char status;
0998     unsigned int result;
0999     unsigned long flags;
1000 
1001     local_irq_save(flags);
1002     status = amiga_custom.serdatr;
1003     mb();
1004     local_irq_restore(flags);
1005     result = ((status & SDR_TSRE) ? TIOCSER_TEMT : 0);
1006     if (copy_to_user(value, &result, sizeof(int)))
1007         return -EFAULT;
1008     return 0;
1009 }
1010 
1011 
1012 static int rs_tiocmget(struct tty_struct *tty)
1013 {
1014     struct serial_state *info = tty->driver_data;
1015     unsigned char control, status;
1016     unsigned long flags;
1017 
1018     if (tty_io_error(tty))
1019         return -EIO;
1020 
1021     control = info->MCR;
1022     local_irq_save(flags);
1023     status = ciab.pra;
1024     local_irq_restore(flags);
1025     return    ((control & SER_RTS) ? TIOCM_RTS : 0)
1026         | ((control & SER_DTR) ? TIOCM_DTR : 0)
1027         | (!(status  & SER_DCD) ? TIOCM_CAR : 0)
1028         | (!(status  & SER_DSR) ? TIOCM_DSR : 0)
1029         | (!(status  & SER_CTS) ? TIOCM_CTS : 0);
1030 }
1031 
1032 static int rs_tiocmset(struct tty_struct *tty, unsigned int set,
1033                         unsigned int clear)
1034 {
1035     struct serial_state *info = tty->driver_data;
1036     unsigned long flags;
1037 
1038     if (tty_io_error(tty))
1039         return -EIO;
1040 
1041     local_irq_save(flags);
1042     if (set & TIOCM_RTS)
1043         info->MCR |= SER_RTS;
1044     if (set & TIOCM_DTR)
1045         info->MCR |= SER_DTR;
1046     if (clear & TIOCM_RTS)
1047         info->MCR &= ~SER_RTS;
1048     if (clear & TIOCM_DTR)
1049         info->MCR &= ~SER_DTR;
1050     rtsdtr_ctrl(info->MCR);
1051     local_irq_restore(flags);
1052     return 0;
1053 }
1054 
1055 /*
1056  * rs_break() --- routine which turns the break handling on or off
1057  */
1058 static int rs_break(struct tty_struct *tty, int break_state)
1059 {
1060     unsigned long flags;
1061 
1062     local_irq_save(flags);
1063     if (break_state == -1)
1064       amiga_custom.adkcon = AC_SETCLR | AC_UARTBRK;
1065     else
1066       amiga_custom.adkcon = AC_UARTBRK;
1067     mb();
1068     local_irq_restore(flags);
1069     return 0;
1070 }
1071 
1072 /*
1073  * Get counter of input serial line interrupts (DCD,RI,DSR,CTS)
1074  * Return: write counters to the user passed counter struct
1075  * NB: both 1->0 and 0->1 transitions are counted except for
1076  *     RI where only 0->1 is counted.
1077  */
1078 static int rs_get_icount(struct tty_struct *tty,
1079                 struct serial_icounter_struct *icount)
1080 {
1081     struct serial_state *info = tty->driver_data;
1082     struct async_icount cnow;
1083     unsigned long flags;
1084 
1085     local_irq_save(flags);
1086     cnow = info->icount;
1087     local_irq_restore(flags);
1088     icount->cts = cnow.cts;
1089     icount->dsr = cnow.dsr;
1090     icount->rng = cnow.rng;
1091     icount->dcd = cnow.dcd;
1092     icount->rx = cnow.rx;
1093     icount->tx = cnow.tx;
1094     icount->frame = cnow.frame;
1095     icount->overrun = cnow.overrun;
1096     icount->parity = cnow.parity;
1097     icount->brk = cnow.brk;
1098     icount->buf_overrun = cnow.buf_overrun;
1099 
1100     return 0;
1101 }
1102 
1103 static int rs_ioctl(struct tty_struct *tty,
1104             unsigned int cmd, unsigned long arg)
1105 {
1106     struct serial_state *info = tty->driver_data;
1107     struct async_icount cprev, cnow;    /* kernel counter temps */
1108     void __user *argp = (void __user *)arg;
1109     unsigned long flags;
1110     DEFINE_WAIT(wait);
1111     int ret;
1112 
1113     if ((cmd != TIOCSERCONFIG) &&
1114         (cmd != TIOCMIWAIT) && (cmd != TIOCGICOUNT)) {
1115         if (tty_io_error(tty))
1116             return -EIO;
1117     }
1118 
1119     switch (cmd) {
1120         case TIOCSERCONFIG:
1121             return 0;
1122 
1123         case TIOCSERGETLSR: /* Get line status register */
1124             return get_lsr_info(info, argp);
1125 
1126         /*
1127          * Wait for any of the 4 modem inputs (DCD,RI,DSR,CTS) to change
1128          * - mask passed in arg for lines of interest
1129          *   (use |'ed TIOCM_RNG/DSR/CD/CTS for masking)
1130          * Caller should use TIOCGICOUNT to see which one it was
1131          */
1132         case TIOCMIWAIT:
1133             local_irq_save(flags);
1134             /* note the counters on entry */
1135             cprev = info->icount;
1136             local_irq_restore(flags);
1137             while (1) {
1138                 prepare_to_wait(&info->tport.delta_msr_wait,
1139                         &wait, TASK_INTERRUPTIBLE);
1140                 local_irq_save(flags);
1141                 cnow = info->icount; /* atomic copy */
1142                 local_irq_restore(flags);
1143                 if (cnow.rng == cprev.rng && cnow.dsr == cprev.dsr && 
1144                     cnow.dcd == cprev.dcd && cnow.cts == cprev.cts) {
1145                     ret = -EIO; /* no change => error */
1146                     break;
1147                 }
1148                 if ( ((arg & TIOCM_RNG) && (cnow.rng != cprev.rng)) ||
1149                      ((arg & TIOCM_DSR) && (cnow.dsr != cprev.dsr)) ||
1150                      ((arg & TIOCM_CD)  && (cnow.dcd != cprev.dcd)) ||
1151                      ((arg & TIOCM_CTS) && (cnow.cts != cprev.cts)) ) {
1152                     ret = 0;
1153                     break;
1154                 }
1155                 schedule();
1156                 /* see if a signal did it */
1157                 if (signal_pending(current)) {
1158                     ret = -ERESTARTSYS;
1159                     break;
1160                 }
1161                 cprev = cnow;
1162             }
1163             finish_wait(&info->tport.delta_msr_wait, &wait);
1164             return ret;
1165 
1166         default:
1167             return -ENOIOCTLCMD;
1168         }
1169     return 0;
1170 }
1171 
1172 static void rs_set_termios(struct tty_struct *tty, struct ktermios *old_termios)
1173 {
1174     struct serial_state *info = tty->driver_data;
1175     unsigned long flags;
1176     unsigned int cflag = tty->termios.c_cflag;
1177 
1178     change_speed(tty, info, old_termios);
1179 
1180     /* Handle transition to B0 status */
1181     if ((old_termios->c_cflag & CBAUD) && !(cflag & CBAUD)) {
1182         info->MCR &= ~(SER_DTR|SER_RTS);
1183         local_irq_save(flags);
1184         rtsdtr_ctrl(info->MCR);
1185         local_irq_restore(flags);
1186     }
1187 
1188     /* Handle transition away from B0 status */
1189     if (!(old_termios->c_cflag & CBAUD) && (cflag & CBAUD)) {
1190         info->MCR |= SER_DTR;
1191         if (!C_CRTSCTS(tty) || !tty_throttled(tty))
1192             info->MCR |= SER_RTS;
1193         local_irq_save(flags);
1194         rtsdtr_ctrl(info->MCR);
1195         local_irq_restore(flags);
1196     }
1197 
1198     /* Handle turning off CRTSCTS */
1199     if ((old_termios->c_cflag & CRTSCTS) && !C_CRTSCTS(tty)) {
1200         tty->hw_stopped = 0;
1201         rs_start(tty);
1202     }
1203 
1204 #if 0
1205     /*
1206      * No need to wake up processes in open wait, since they
1207      * sample the CLOCAL flag once, and don't recheck it.
1208      * XXX  It's not clear whether the current behavior is correct
1209      * or not.  Hence, this may change.....
1210      */
1211     if (!(old_termios->c_cflag & CLOCAL) && C_CLOCAL(tty))
1212         wake_up_interruptible(&info->open_wait);
1213 #endif
1214 }
1215 
1216 /*
1217  * ------------------------------------------------------------
1218  * rs_close()
1219  * 
1220  * This routine is called when the serial port gets closed.  First, we
1221  * wait for the last remaining data to be sent.  Then, we unlink its
1222  * async structure from the interrupt chain if necessary, and we free
1223  * that IRQ if nothing is left in the chain.
1224  * ------------------------------------------------------------
1225  */
1226 static void rs_close(struct tty_struct *tty, struct file * filp)
1227 {
1228     struct serial_state *state = tty->driver_data;
1229     struct tty_port *port = &state->tport;
1230 
1231     if (tty_port_close_start(port, tty, filp) == 0)
1232         return;
1233 
1234     /*
1235      * At this point we stop accepting input.  To do this, we
1236      * disable the receive line status interrupts, and tell the
1237      * interrupt driver to stop checking the data ready bit in the
1238      * line status register.
1239      */
1240     state->read_status_mask &= ~UART_LSR_DR;
1241     if (tty_port_initialized(port)) {
1242             /* disable receive interrupts */
1243             amiga_custom.intena = IF_RBF;
1244         mb();
1245         /* clear any pending receive interrupt */
1246         amiga_custom.intreq = IF_RBF;
1247         mb();
1248 
1249         /*
1250          * Before we drop DTR, make sure the UART transmitter
1251          * has completely drained; this is especially
1252          * important if there is a transmit FIFO!
1253          */
1254         rs_wait_until_sent(tty, state->timeout);
1255     }
1256     shutdown(tty, state);
1257     rs_flush_buffer(tty);
1258         
1259     tty_ldisc_flush(tty);
1260     port->tty = NULL;
1261 
1262     tty_port_close_end(port, tty);
1263 }
1264 
1265 /*
1266  * rs_wait_until_sent() --- wait until the transmitter is empty
1267  */
1268 static void rs_wait_until_sent(struct tty_struct *tty, int timeout)
1269 {
1270     struct serial_state *info = tty->driver_data;
1271     unsigned long orig_jiffies, char_time;
1272     int lsr;
1273 
1274     orig_jiffies = jiffies;
1275 
1276     /*
1277      * Set the check interval to be 1/5 of the estimated time to
1278      * send a single character, and make it at least 1.  The check
1279      * interval should also be less than the timeout.
1280      * 
1281      * Note: we have to use pretty tight timings here to satisfy
1282      * the NIST-PCTS.
1283      */
1284     char_time = (info->timeout - HZ/50) / XMIT_FIFO_SIZE;
1285     char_time = char_time / 5;
1286     if (char_time == 0)
1287         char_time = 1;
1288     if (timeout)
1289       char_time = min_t(unsigned long, char_time, timeout);
1290     /*
1291      * If the transmitter hasn't cleared in twice the approximate
1292      * amount of time to send the entire FIFO, it probably won't
1293      * ever clear.  This assumes the UART isn't doing flow
1294      * control, which is currently the case.  Hence, if it ever
1295      * takes longer than info->timeout, this is probably due to a
1296      * UART bug of some kind.  So, we clamp the timeout parameter at
1297      * 2*info->timeout.
1298      */
1299     if (!timeout || timeout > 2*info->timeout)
1300         timeout = 2*info->timeout;
1301 #ifdef SERIAL_DEBUG_RS_WAIT_UNTIL_SENT
1302     printk("In rs_wait_until_sent(%d) check=%lu...", timeout, char_time);
1303     printk("jiff=%lu...", jiffies);
1304 #endif
1305     while(!((lsr = amiga_custom.serdatr) & SDR_TSRE)) {
1306 #ifdef SERIAL_DEBUG_RS_WAIT_UNTIL_SENT
1307         printk("serdatr = %d (jiff=%lu)...", lsr, jiffies);
1308 #endif
1309         msleep_interruptible(jiffies_to_msecs(char_time));
1310         if (signal_pending(current))
1311             break;
1312         if (timeout && time_after(jiffies, orig_jiffies + timeout))
1313             break;
1314     }
1315     __set_current_state(TASK_RUNNING);
1316 
1317 #ifdef SERIAL_DEBUG_RS_WAIT_UNTIL_SENT
1318     printk("lsr = %d (jiff=%lu)...done\n", lsr, jiffies);
1319 #endif
1320 }
1321 
1322 /*
1323  * rs_hangup() --- called by tty_hangup() when a hangup is signaled.
1324  */
1325 static void rs_hangup(struct tty_struct *tty)
1326 {
1327     struct serial_state *info = tty->driver_data;
1328 
1329     rs_flush_buffer(tty);
1330     shutdown(tty, info);
1331     info->tport.count = 0;
1332     tty_port_set_active(&info->tport, 0);
1333     info->tport.tty = NULL;
1334     wake_up_interruptible(&info->tport.open_wait);
1335 }
1336 
1337 /*
1338  * This routine is called whenever a serial port is opened.  It
1339  * enables interrupts for a serial port, linking in its async structure into
1340  * the IRQ chain.   It also performs the serial-specific
1341  * initialization for the tty structure.
1342  */
1343 static int rs_open(struct tty_struct *tty, struct file * filp)
1344 {
1345     struct tty_port *port = tty->port;
1346     struct serial_state *info = container_of(port, struct serial_state,
1347             tport);
1348     int retval;
1349 
1350     port->count++;
1351     port->tty = tty;
1352     tty->driver_data = info;
1353 
1354     retval = startup(tty, info);
1355     if (retval) {
1356         return retval;
1357     }
1358 
1359     return tty_port_block_til_ready(port, tty, filp);
1360 }
1361 
1362 /*
1363  * /proc fs routines....
1364  */
1365 
1366 static inline void line_info(struct seq_file *m, int line,
1367         struct serial_state *state)
1368 {
1369     char    stat_buf[30], control, status;
1370     unsigned long flags;
1371 
1372     seq_printf(m, "%d: uart:amiga_builtin", line);
1373 
1374     local_irq_save(flags);
1375     status = ciab.pra;
1376     control = tty_port_initialized(&state->tport) ? state->MCR : status;
1377     local_irq_restore(flags);
1378 
1379     stat_buf[0] = 0;
1380     stat_buf[1] = 0;
1381     if(!(control & SER_RTS))
1382         strcat(stat_buf, "|RTS");
1383     if(!(status & SER_CTS))
1384         strcat(stat_buf, "|CTS");
1385     if(!(control & SER_DTR))
1386         strcat(stat_buf, "|DTR");
1387     if(!(status & SER_DSR))
1388         strcat(stat_buf, "|DSR");
1389     if(!(status & SER_DCD))
1390         strcat(stat_buf, "|CD");
1391 
1392     if (state->quot)
1393         seq_printf(m, " baud:%d", state->baud_base / state->quot);
1394 
1395     seq_printf(m, " tx:%d rx:%d", state->icount.tx, state->icount.rx);
1396 
1397     if (state->icount.frame)
1398         seq_printf(m, " fe:%d", state->icount.frame);
1399 
1400     if (state->icount.parity)
1401         seq_printf(m, " pe:%d", state->icount.parity);
1402 
1403     if (state->icount.brk)
1404         seq_printf(m, " brk:%d", state->icount.brk);
1405 
1406     if (state->icount.overrun)
1407         seq_printf(m, " oe:%d", state->icount.overrun);
1408 
1409     /*
1410      * Last thing is the RS-232 status lines
1411      */
1412     seq_printf(m, " %s\n", stat_buf+1);
1413 }
1414 
1415 static int rs_proc_show(struct seq_file *m, void *v)
1416 {
1417     seq_printf(m, "serinfo:1.0 driver:4.30\n");
1418     line_info(m, 0, &serial_state);
1419     return 0;
1420 }
1421 
1422 /*
1423  * ---------------------------------------------------------------------
1424  * rs_init() and friends
1425  *
1426  * rs_init() is called at boot-time to initialize the serial driver.
1427  * ---------------------------------------------------------------------
1428  */
1429 
1430 static const struct tty_operations serial_ops = {
1431     .open = rs_open,
1432     .close = rs_close,
1433     .write = rs_write,
1434     .put_char = rs_put_char,
1435     .flush_chars = rs_flush_chars,
1436     .write_room = rs_write_room,
1437     .chars_in_buffer = rs_chars_in_buffer,
1438     .flush_buffer = rs_flush_buffer,
1439     .ioctl = rs_ioctl,
1440     .throttle = rs_throttle,
1441     .unthrottle = rs_unthrottle,
1442     .set_termios = rs_set_termios,
1443     .stop = rs_stop,
1444     .start = rs_start,
1445     .hangup = rs_hangup,
1446     .break_ctl = rs_break,
1447     .send_xchar = rs_send_xchar,
1448     .wait_until_sent = rs_wait_until_sent,
1449     .tiocmget = rs_tiocmget,
1450     .tiocmset = rs_tiocmset,
1451     .get_icount = rs_get_icount,
1452     .set_serial = set_serial_info,
1453     .get_serial = get_serial_info,
1454     .proc_show = rs_proc_show,
1455 };
1456 
1457 static int amiga_carrier_raised(struct tty_port *port)
1458 {
1459     return !(ciab.pra & SER_DCD);
1460 }
1461 
1462 static void amiga_dtr_rts(struct tty_port *port, int raise)
1463 {
1464     struct serial_state *info = container_of(port, struct serial_state,
1465             tport);
1466     unsigned long flags;
1467 
1468     if (raise)
1469         info->MCR |= SER_DTR|SER_RTS;
1470     else
1471         info->MCR &= ~(SER_DTR|SER_RTS);
1472 
1473     local_irq_save(flags);
1474     rtsdtr_ctrl(info->MCR);
1475     local_irq_restore(flags);
1476 }
1477 
1478 static const struct tty_port_operations amiga_port_ops = {
1479     .carrier_raised = amiga_carrier_raised,
1480     .dtr_rts = amiga_dtr_rts,
1481 };
1482 
1483 /*
1484  * The serial driver boot-time initialization code!
1485  */
1486 static int __init amiga_serial_probe(struct platform_device *pdev)
1487 {
1488     struct serial_state *state = &serial_state;
1489     struct tty_driver *driver;
1490     unsigned long flags;
1491     int error;
1492 
1493     driver = tty_alloc_driver(1, TTY_DRIVER_REAL_RAW);
1494     if (IS_ERR(driver))
1495         return PTR_ERR(driver);
1496 
1497     /* Initialize the tty_driver structure */
1498 
1499     driver->driver_name = "amiserial";
1500     driver->name = "ttyS";
1501     driver->major = TTY_MAJOR;
1502     driver->minor_start = 64;
1503     driver->type = TTY_DRIVER_TYPE_SERIAL;
1504     driver->subtype = SERIAL_TYPE_NORMAL;
1505     driver->init_termios = tty_std_termios;
1506     driver->init_termios.c_cflag =
1507         B9600 | CS8 | CREAD | HUPCL | CLOCAL;
1508     tty_set_operations(driver, &serial_ops);
1509 
1510     memset(state, 0, sizeof(*state));
1511     state->port = (int)&amiga_custom.serdatr; /* Just to give it a value */
1512     tty_port_init(&state->tport);
1513     state->tport.ops = &amiga_port_ops;
1514     tty_port_link_device(&state->tport, driver, 0);
1515 
1516     error = tty_register_driver(driver);
1517     if (error)
1518         goto fail_tty_driver_kref_put;
1519 
1520     printk(KERN_INFO "ttyS0 is the amiga builtin serial port\n");
1521 
1522     /* Hardware set up */
1523 
1524     state->baud_base = amiga_colorclock;
1525 
1526     /* set ISRs, and then disable the rx interrupts */
1527     error = request_irq(IRQ_AMIGA_TBE, ser_tx_int, 0, "serial TX", state);
1528     if (error)
1529         goto fail_unregister;
1530 
1531     error = request_irq(IRQ_AMIGA_RBF, ser_rx_int, 0,
1532                 "serial RX", state);
1533     if (error)
1534         goto fail_free_irq;
1535 
1536     local_irq_save(flags);
1537 
1538     /* turn off Rx and Tx interrupts */
1539     amiga_custom.intena = IF_RBF | IF_TBE;
1540     mb();
1541 
1542     /* clear any pending interrupt */
1543     amiga_custom.intreq = IF_RBF | IF_TBE;
1544     mb();
1545 
1546     local_irq_restore(flags);
1547 
1548     /*
1549      * set the appropriate directions for the modem control flags,
1550      * and clear RTS and DTR
1551      */
1552     ciab.ddra |= (SER_DTR | SER_RTS);   /* outputs */
1553     ciab.ddra &= ~(SER_DCD | SER_CTS | SER_DSR);  /* inputs */
1554 
1555     platform_set_drvdata(pdev, state);
1556 
1557     serial_driver = driver;
1558 
1559     return 0;
1560 
1561 fail_free_irq:
1562     free_irq(IRQ_AMIGA_TBE, state);
1563 fail_unregister:
1564     tty_unregister_driver(driver);
1565 fail_tty_driver_kref_put:
1566     tty_port_destroy(&state->tport);
1567     tty_driver_kref_put(driver);
1568     return error;
1569 }
1570 
1571 static int __exit amiga_serial_remove(struct platform_device *pdev)
1572 {
1573     struct serial_state *state = platform_get_drvdata(pdev);
1574 
1575     tty_unregister_driver(serial_driver);
1576     tty_driver_kref_put(serial_driver);
1577     tty_port_destroy(&state->tport);
1578 
1579     free_irq(IRQ_AMIGA_TBE, state);
1580     free_irq(IRQ_AMIGA_RBF, state);
1581 
1582     return 0;
1583 }
1584 
1585 static struct platform_driver amiga_serial_driver = {
1586     .remove = __exit_p(amiga_serial_remove),
1587     .driver   = {
1588         .name   = "amiga-serial",
1589     },
1590 };
1591 
1592 module_platform_driver_probe(amiga_serial_driver, amiga_serial_probe);
1593 
1594 
1595 #if defined(CONFIG_SERIAL_CONSOLE) && !defined(MODULE)
1596 
1597 /*
1598  * ------------------------------------------------------------
1599  * Serial console driver
1600  * ------------------------------------------------------------
1601  */
1602 
1603 static void amiga_serial_putc(char c)
1604 {
1605     amiga_custom.serdat = (unsigned char)c | 0x100;
1606     while (!(amiga_custom.serdatr & 0x2000))
1607         barrier();
1608 }
1609 
1610 /*
1611  *  Print a string to the serial port trying not to disturb
1612  *  any possible real use of the port...
1613  *
1614  *  The console must be locked when we get here.
1615  */
1616 static void serial_console_write(struct console *co, const char *s,
1617                 unsigned count)
1618 {
1619     unsigned short intena = amiga_custom.intenar;
1620 
1621     amiga_custom.intena = IF_TBE;
1622 
1623     while (count--) {
1624         if (*s == '\n')
1625             amiga_serial_putc('\r');
1626         amiga_serial_putc(*s++);
1627     }
1628 
1629     amiga_custom.intena = IF_SETCLR | (intena & IF_TBE);
1630 }
1631 
1632 static struct tty_driver *serial_console_device(struct console *c, int *index)
1633 {
1634     *index = 0;
1635     return serial_driver;
1636 }
1637 
1638 static struct console sercons = {
1639     .name =     "ttyS",
1640     .write =    serial_console_write,
1641     .device =   serial_console_device,
1642     .flags =    CON_PRINTBUFFER,
1643     .index =    -1,
1644 };
1645 
1646 /*
1647  *  Register console.
1648  */
1649 static int __init amiserial_console_init(void)
1650 {
1651     if (!MACH_IS_AMIGA)
1652         return -ENODEV;
1653 
1654     register_console(&sercons);
1655     return 0;
1656 }
1657 console_initcall(amiserial_console_init);
1658 
1659 #endif /* CONFIG_SERIAL_CONSOLE && !MODULE */
1660 
1661 MODULE_LICENSE("GPL");
1662 MODULE_ALIAS("platform:amiga-serial");