X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Fser-go32.c;h=89db6f85c05fb9da5ceebb705184ee3153670d83;hb=feb129926a8d12656f1ca4b7a8bb10268d3af4fb;hp=195f1d2cb68a65a6052c90dc7329d421e609fcf1;hpb=5fe932391d34c4369afa1ff42a386a708149be74;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/ser-go32.c b/gdb/ser-go32.c index 195f1d2cb6..89db6f85c0 100644 --- a/gdb/ser-go32.c +++ b/gdb/ser-go32.c @@ -1,338 +1,977 @@ -/* Remote serial interface for GO32, for GDB, the GNU Debugger. - Copyright 1992 Free Software Foundation, Inc. +/* Remote serial interface for local (hardwired) serial ports for + GO32. Copyright 1992, 1993 Free Software Foundation, Inc. -This file is part of GDB. + Contributed by Nigel Stephens, Algorithmics Ltd. (nigel@algor.co.uk). -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. + This version uses DPMI interrupts to handle buffered i/o + without the separate "asynctsr" program. -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + This file is part of GDB. -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. -/* This file shows most of the obvious problems of code written for - the IBM PC. FIXME. -- gnu@cygnus.com, Sep92 */ + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. -#include "defs.h" - -/* dummy */ -struct ttystate; + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ +#include "defs.h" +#include "gdbcmd.h" #include "serial.h" -#include -#define SIGNATURE 0x4154 -#define VERSION 1 -#define OFFSET 0x104 +/* + * NS16550 UART registers + */ + +#define COM1ADDR 0x3f8 +#define COM2ADDR 0x2f8 +#define COM3ADDR 0x3e8 +#define COM4ADDR 0x3e0 + +#define com_data 0 /* data register (R/W) */ +#define com_dlbl 0 /* divisor latch low (W) */ +#define com_ier 1 /* interrupt enable (W) */ +#define com_dlbh 1 /* divisor latch high (W) */ +#define com_iir 2 /* interrupt identification (R) */ +#define com_fifo 2 /* FIFO control (W) */ +#define com_lctl 3 /* line control register (R/W) */ +#define com_cfcr 3 /* line control register (R/W) */ +#define com_mcr 4 /* modem control register (R/W) */ +#define com_lsr 5 /* line status register (R/W) */ +#define com_msr 6 /* modem status register (R/W) */ + +/* + * Constants for computing 16 bit baud rate divisor (lower byte + * in com_dlbl, upper in com_dlbh) from 1.8432MHz crystal. Divisor is + * 1.8432 MHz / (16 * X) for X bps. If the baud rate can't be set + * to within +- (desired_rate*SPEED_TOLERANCE/1000) bps, we fail. + */ +#define COMTICK (1843200/16) +#define SPEED_TOLERANCE 30 /* thousandths; real == desired +- 3.0% */ + +/* interrupt enable register */ +#define IER_ERXRDY 0x1 /* int on rx ready */ +#define IER_ETXRDY 0x2 /* int on tx ready */ +#define IER_ERLS 0x4 /* int on line status change */ +#define IER_EMSC 0x8 /* int on modem status change */ + +/* interrupt identification register */ +#define IIR_FIFO_MASK 0xc0 /* set if FIFOs are enabled */ +#define IIR_IMASK 0xf /* interrupt cause mask */ +#define IIR_NOPEND 0x1 /* nothing pending */ +#define IIR_RLS 0x6 /* receive line status */ +#define IIR_RXRDY 0x4 /* receive ready */ +#define IIR_RXTOUT 0xc /* receive timeout */ +#define IIR_TXRDY 0x2 /* transmit ready */ +#define IIR_MLSC 0x0 /* modem status */ + + +/* fifo control register */ +#define FIFO_ENABLE 0x01 /* enable fifo */ +#define FIFO_RCV_RST 0x02 /* reset receive fifo */ +#define FIFO_XMT_RST 0x04 /* reset transmit fifo */ +#define FIFO_DMA_MODE 0x08 /* enable dma mode */ +#define FIFO_TRIGGER_1 0x00 /* trigger at 1 char */ +#define FIFO_TRIGGER_4 0x40 /* trigger at 4 chars */ +#define FIFO_TRIGGER_8 0x80 /* trigger at 8 chars */ +#define FIFO_TRIGGER_14 0xc0 /* trigger at 14 chars */ + +/* character format control register */ +#define CFCR_DLAB 0x80 /* divisor latch */ +#define CFCR_SBREAK 0x40 /* send break */ +#define CFCR_PZERO 0x30 /* zero parity */ +#define CFCR_PONE 0x20 /* one parity */ +#define CFCR_PEVEN 0x10 /* even parity */ +#define CFCR_PODD 0x00 /* odd parity */ +#define CFCR_PENAB 0x08 /* parity enable */ +#define CFCR_STOPB 0x04 /* 2 stop bits */ +#define CFCR_8BITS 0x03 /* 8 data bits */ +#define CFCR_7BITS 0x02 /* 7 data bits */ +#define CFCR_6BITS 0x01 /* 6 data bits */ +#define CFCR_5BITS 0x00 /* 5 data bits */ + +/* modem control register */ +#define MCR_LOOPBACK 0x10 /* loopback */ +#define MCR_IENABLE 0x08 /* output 2 = int enable */ +#define MCR_DRS 0x04 /* output 1 = xxx */ +#define MCR_RTS 0x02 /* enable RTS */ +#define MCR_DTR 0x01 /* enable DTR */ + +/* line status register */ +#define LSR_RCV_FIFO 0x80 /* error in receive fifo */ +#define LSR_TSRE 0x40 /* transmitter empty */ +#define LSR_TXRDY 0x20 /* transmitter ready */ +#define LSR_BI 0x10 /* break detected */ +#define LSR_FE 0x08 /* framing error */ +#define LSR_PE 0x04 /* parity error */ +#define LSR_OE 0x02 /* overrun error */ +#define LSR_RXRDY 0x01 /* receiver ready */ +#define LSR_RCV_MASK 0x1f + +/* modem status register */ +#define MSR_DCD 0x80 +#define MSR_RI 0x40 +#define MSR_DSR 0x20 +#define MSR_CTS 0x10 +#define MSR_DDCD 0x08 +#define MSR_TERI 0x04 +#define MSR_DDSR 0x02 +#define MSR_DCTS 0x01 + +#include +#include +#include +typedef unsigned long u_long; + +/* DPMI Communication */ +static union REGS dpmi_regs; +static struct SREGS dpmi_sregs; + +/* 16550 rx fifo trigger point */ +#define FIFO_TRIGGER FIFO_TRIGGER_4 + +/* input buffer size */ +#define CBSIZE 4096 + +/* return raw 18Hz clock count */ +extern long rawclock (void); + +#define RAWHZ 18 + +#ifdef DOS_STATS +#define CNT_RX 16 +#define CNT_TX 17 +#define CNT_STRAY 18 +#define CNT_ORUN 19 +#define NCNT 20 + +static int intrcnt; +static int cnts[NCNT]; +static char *cntnames[NCNT] = +{ + /* h/w interrupt counts. */ + "mlsc", "nopend", "txrdy", "?3", + "rxrdy", "?5", "rls", "?7", + "?8", "?9", "?a", "?b", + "rxtout", "?d", "?e", "?f", + /* s/w counts. */ + "rxcnt", "txcnt", "stray", "swoflo" +}; + +#define COUNT(x) cnts[x]++ +#else +#define COUNT(x) +#endif -/*#define MONO 1*/ +/* Main interrupt controller port addresses. */ +#define ICU_BASE 0x20 +#define ICU_OCW2 (ICU_BASE + 0) +#define ICU_MASK (ICU_BASE + 1) -#define dprintf if(0)printf +/* Original interrupt controller mask register. */ +unsigned char icu_oldmask; -#ifdef __GNUC__ -#define far -#define peek(a,b) (*(unsigned short *)(0xe0000000 + (a)*16 + (b))) -#endif +/* Maximum of 8 interrupts (we don't handle the slave icu yet). */ +#define NINTR 8 -typedef struct { - short jmp_op; - short signature; - short version; - short buffer_start; - short buffer_end; - short getp; - short putp; - short iov; -} ASYNC_STRUCT; - -static ASYNC_STRUCT far *async; -static int iov; -#define com_rb iov -#define com_tb iov -#define com_ier iov+1 -#define com_ifr iov+2 -#define com_bfr iov+3 -#define com_mcr iov+4 -#define com_lsr iov+5 -#define com_msr iov+6 - -static int fd; - - -#if MONO -#include -static int mono_pos=0; -#define mono_rx 0x07 -#define mono_tx 0x70 +static struct intrupt + { + char inuse; + struct dos_ttystate *port; + _go32_dpmi_seginfo old_rmhandler; + _go32_dpmi_seginfo old_pmhandler; + _go32_dpmi_seginfo new_rmhandler; + _go32_dpmi_seginfo new_pmhandler; + _go32_dpmi_registers regs; + } +intrupts[NINTR]; -void -mono_put(char byte, char attr) + +static struct dos_ttystate + { + int base; + int irq; + int refcnt; + struct intrupt *intrupt; + int fifo; + int baudrate; + unsigned char cbuf[CBSIZE]; + unsigned int first; + unsigned int count; + int txbusy; + unsigned char old_mcr; + int ferr; + int perr; + int oflo; + int msr; + } +ports[4] = +{ + { + COM1ADDR, 4 + } + , + { + COM2ADDR, 3 + } + , + { + COM3ADDR, 4 + } + , + { + COM4ADDR, 3 + } +}; + +static int dos_open PARAMS ((serial_t scb, const char *name)); +static void dos_raw PARAMS ((serial_t scb)); +static int dos_readchar PARAMS ((serial_t scb, int timeout)); +static int dos_setbaudrate PARAMS ((serial_t scb, int rate)); +static int dos_write PARAMS ((serial_t scb, const char *str, int len)); +static void dos_close PARAMS ((serial_t scb)); +static serial_ttystate dos_get_tty_state PARAMS ((serial_t scb)); +static int dos_set_tty_state PARAMS ((serial_t scb, serial_ttystate state)); +static int dos_baudconv PARAMS ((int rate)); + +#define inb(p,a) inportb((p)->base + (a)) +#define outb(p,a,v) outportb((p)->base + (a), (v)) +#define disable() asm volatile ("cli"); +#define enable() asm volatile ("sti"); + + +static int +dos_getc (port) + volatile struct dos_ttystate *port; { - ScreenSecondary[320+mono_pos+80] = 0x0720; - ScreenSecondary[320+mono_pos] = (attr<<8) | (byte&0xff); - mono_pos = (mono_pos+1) % 1200; + int c; + + if (port->count == 0) + return -1; + + c = port->cbuf[port->first]; + disable (); + port->first = (port->first + 1) & (CBSIZE - 1); + port->count--; + enable (); + return c; } -#endif -static char far * -aptr(short p) +static int +dos_putc (c, port) + int c; + struct dos_ttystate *port; { -#ifdef __GNUC__ - return (char *)((unsigned)async - OFFSET + p); -#else - return (char far *)MK_FP(FP_SEG(async), p); -#endif + if (port->count >= CBSIZE - 1) + return -1; + port->cbuf[(port->first + port->count) & (CBSIZE - 1)] = c; + port->count++; + return 0; } + + -static ASYNC_STRUCT far * -getivec(int which) +static void +dos_comisr (irq) + int irq; { - ASYNC_STRUCT far *a; + struct dos_ttystate *port; + unsigned char iir, lsr, c; - if (peek(0, which*4) != OFFSET) - return 0; -#ifdef __GNUC__ - a = (ASYNC_STRUCT *)(0xe0000000 + peek(0, which*4+2)*16 + peek(0, which*4)); + disable (); /* Paranoia */ + outportb (ICU_OCW2, 0x20); /* End-Of-Interrupt */ +#ifdef DOS_STATS + ++intrcnt; +#endif + port = intrupts[irq].port; + if (!port) + { + COUNT (CNT_STRAY); + return; /* not open */ + } + + while (1) + { + iir = inb (port, com_iir) & IIR_IMASK; + switch (iir) + { + + case IIR_RLS: + lsr = inb (port, com_lsr); + goto rx; + + case IIR_RXTOUT: + case IIR_RXRDY: + lsr = 0; + + rx: + do + { + c = inb (port, com_data); + if (lsr & (LSR_BI | LSR_FE | LSR_PE | LSR_OE)) + { + if (lsr & (LSR_BI | LSR_FE)) + port->ferr++; + else if (lsr & LSR_PE) + port->perr++; + if (lsr & LSR_OE) + port->oflo++; + } + + if (dos_putc (c, port) < 0) + { + COUNT (CNT_ORUN); + } + else + { + COUNT (CNT_RX); + } + } + while ((lsr = inb (port, com_lsr)) & LSR_RXRDY); + break; + + case IIR_MLSC: + /* could be used to flowcontrol Tx */ + port->msr = inb (port, com_msr); + break; + + case IIR_TXRDY: + port->txbusy = 0; + break; + + case IIR_NOPEND: + /* no more pending interrupts, all done */ + return; + + default: + /* unexpected interrupt, ignore */ + break; + } + COUNT (iir); + } +} + +#ifdef __STDC__ +#define ISRNAME(x) dos_comisr##x #else - a = (ASYNC_STRUCT far *)MK_FP(peek(0,which*4+2),peek(0,which*4)); +#define ISRNAME(x) dos_comisr/**/x #endif - if (a->signature != SIGNATURE) +#define ISR(x) static void ISRNAME(x)() {dos_comisr(x);} + +ISR (0) ISR (1) ISR (2) ISR (3) +ISR (4) ISR (5) ISR (6) ISR (7) + + typedef void (*isr_t) (); + + static isr_t isrs[NINTR] = + { + ISRNAME (0), ISRNAME (1), ISRNAME (2), ISRNAME (3), + ISRNAME (4), ISRNAME (5), ISRNAME (6), ISRNAME (7) +}; + + + + static struct intrupt * + dos_hookirq (irq) + unsigned int irq; +{ + struct intrupt *intr; + unsigned int vec; + isr_t isr; + + if (irq >= NINTR) return 0; - if (a->version != VERSION) + + intr = &intrupts[irq]; + if (intr->inuse) return 0; - return a; -} -int -dos_async_init() -{ - int i; - ASYNC_STRUCT far *a1; - ASYNC_STRUCT far *a2; - a1 = getivec(12); - a2 = getivec(11); - async = 0; - if (a1) - async = a1; - if (a2) - async = a2; - if (a1 && a2) - { - if (a1 < a2) - async = a1; - else - async = a2; - } - if (async == 0) - { - error("GDB can not connect to asynctsr program, check that it is installed\n\ -and that serial I/O is not being redirected (perhaps by NFS)\n\n\ -example configuration:\n\ -C> mode com2:9600,n,8,1,p\n\ -C> asynctsr 2\n\ -C> gdb \n"); + vec = 0x08 + irq; + isr = isrs[irq]; - } - iov = async->iov; - outportb(com_ier, 0x0f); - outportb(com_bfr, 0x03); - outportb(com_mcr, 0x0b); - async->getp = async->putp = async->buffer_start; - -#if MONO - for (i=0; i<1200; i++) - ScreenSecondary[320+i] = 0x0720; -#endif - if (iov > 0x300) - return 1; - else - return 2; + /* setup real mode handler */ + _go32_dpmi_get_real_mode_interrupt_vector (vec, &intr->old_rmhandler); + + intr->new_rmhandler.pm_selector = _go32_my_cs (); + intr->new_rmhandler.pm_offset = (u_long) isr; + if (_go32_dpmi_allocate_real_mode_callback_iret (&intr->new_rmhandler, + &intr->regs)) + { + return 0; + } + + if (_go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->new_rmhandler)) + { + return 0; + } + + /* setup protected mode handler */ + _go32_dpmi_get_protected_mode_interrupt_vector (vec, &intr->old_pmhandler); + + intr->new_pmhandler.pm_selector = _go32_my_cs (); + intr->new_pmhandler.pm_offset = (u_long) isr; + _go32_dpmi_allocate_iret_wrapper (&intr->new_pmhandler); + + if (_go32_dpmi_set_protected_mode_interrupt_vector (vec, &intr->new_pmhandler)) + { + return 0; + } + + /* setup interrupt controller mask */ + disable (); + outportb (ICU_MASK, inportb (ICU_MASK) & ~(1 << irq)); + enable (); + + intr->inuse = 1; + return intr; } -void -dos_async_tx(char c) + +static void +dos_unhookirq (intr) + struct intrupt *intr; { - dprintf("dos_async_tx: enter %x - with IOV %x", c, com_lsr); - fflush(stdout); - while (~inportb(com_lsr) & 0x20); - outportb(com_tb, c); -#if MONO - mono_put(c, mono_tx); -#endif - dprintf("exit\n"); + unsigned int irq, vec; + unsigned char mask; + + irq = intr - intrupts; + vec = 0x08 + irq; + + /* restore old interrupt mask bit */ + mask = 1 << irq; + disable (); + outportb (ICU_MASK, inportb (ICU_MASK) | (mask & icu_oldmask)); + enable (); + + /* remove real mode handler */ + _go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->old_rmhandler); + _go32_dpmi_free_real_mode_callback (&intr->new_rmhandler); + + /* remove protected mode handler */ + _go32_dpmi_set_protected_mode_interrupt_vector (vec, &intr->old_pmhandler); + _go32_dpmi_free_iret_wrapper (&intr->new_pmhandler); + intr->inuse = 0; } + -int -dos_async_ready() + +static int +dos_open (scb, name) + serial_t scb; + const char *name; { - return (async->getp != async->putp); + struct dos_ttystate *port; + int fd, i; + + if (strncasecmp (name, "/dev/", 5) == 0) + name += 5; + else if (strncasecmp (name, "\\dev\\", 5) == 0) + name += 5; + + if (strlen (name) != 4 || strncasecmp (name, "com", 3) != 0) + { + errno = ENOENT; + return -1; + } + + if (name[3] < '1' || name[3] > '4') + { + errno = ENOENT; + return -1; + } + + fd = name[3] - '1'; + port = &ports[fd]; + if (port->refcnt++ > 0) + { + /* Device already opened another user. Just point at it. */ + scb->fd = fd; + return 0; + } + + /* force access to ID reg */ + outb (port, com_cfcr, 0); + outb (port, com_iir, 0); + for (i = 0; i < 17; i++) + { + if ((inb (port, com_iir) & 0x38) == 0) + goto ok; + (void) inb (port, com_data); /* clear recv */ + } + errno = ENODEV; + return -1; + +ok: + /* disable all interrupts in chip */ + outb (port, com_ier, 0); + + /* tentatively enable 16550 fifo, and see if it responds */ + outb (port, com_fifo, FIFO_ENABLE | FIFO_RCV_RST | FIFO_XMT_RST | FIFO_TRIGGER); + sleep (1); + port->fifo = ((inb (port, com_iir) & IIR_FIFO_MASK) == IIR_FIFO_MASK); + + /* clear pending status reports. */ + (void) inb (port, com_lsr); + (void) inb (port, com_msr); + + /* enable external interrupt gate (to avoid floating IRQ) */ + outb (port, com_mcr, MCR_IENABLE); + + /* hook up interrupt handler and initialise icu */ + port->intrupt = dos_hookirq (port->irq); + if (!port->intrupt) + { + outb (port, com_mcr, 0); + outb (port, com_fifo, 0); + errno = ENODEV; + return -1; + } + + disable (); + + /* record port */ + port->intrupt->port = port; + scb->fd = fd; + + /* clear rx buffer, tx busy flag and overflow count */ + port->first = port->count = 0; + port->txbusy = 0; + port->oflo = 0; + + /* set default baud rate and mode: 9600,8,n,1 */ + i = dos_baudconv (port->baudrate = 9600); + outb (port, com_cfcr, CFCR_DLAB); + outb (port, com_dlbl, i & 0xff); + outb (port, com_dlbh, i >> 8); + outb (port, com_cfcr, CFCR_8BITS); + + /* enable all interrupts */ + outb (port, com_ier, IER_ETXRDY | IER_ERXRDY | IER_ERLS | IER_EMSC); + + /* enable DTR & RTS */ + outb (port, com_mcr, MCR_DTR | MCR_RTS | MCR_IENABLE); + + enable (); + + return 0; } -int -dos_async_rx() + +static void +dos_close (scb) + serial_t scb; { - char rv; - dprintf("dos_async_rx: enter - "); - fflush(stdout); - while (!dos_async_ready()) - if (kbhit()) - { - printf("abort!\n"); - return 0; - } - dprintf("async=%x getp=%x\n", async, async->getp); - fflush(stdout); - rv = *aptr(async->getp++); -#if MONO - mono_put(rv, mono_rx); -#endif - if (async->getp >= async->buffer_end) - async->getp = async->buffer_start; - dprintf("exit %x\n", rv); - return rv; + struct dos_ttystate *port; + struct intrupt *intrupt; + + if (!scb) + return; + + port = &ports[scb->fd]; + + if (port->refcnt-- > 1) + return; + + if (!(intrupt = port->intrupt)) + return; + + /* disable interrupts, fifo, flow control */ + disable (); + port->intrupt = 0; + intrupt->port = 0; + outb (port, com_fifo, 0); + outb (port, com_ier, 0); + enable (); + + /* unhook handler, and disable interrupt gate */ + dos_unhookirq (intrupt); + outb (port, com_mcr, 0); + + /* Check for overflow errors */ + if (port->oflo) + { + fprintf_unfiltered (gdb_stderr, + "Serial input overruns occurred.\n"); + fprintf_unfiltered (gdb_stderr, "This system %s handle %d baud.\n", + port->fifo ? "cannot" : "needs a 16550 to", + port->baudrate); + } } + + -int -dos_kb_ready() +static int +dos_noop (scb) + serial_t scb; { - return (peek(0x40,0x1a) != peek(0x40,0x1c)); + return 0; } -int -dos_kb_rx() +static void +dos_raw (scb) + serial_t scb; { -#ifdef __GNUC__ - return getkey(); -#else - return getch(); -#endif + /* Always in raw mode */ } -int -dosasync_read (int fd, char *buffer, int length, int timeout) +static int +dos_readchar (scb, timeout) + serial_t scb; + int timeout; { - long now, then; - int l = length; - time (&now); - then = now+timeout; - dprintf("dosasync_read: enter(%d,%d)\n", length, timeout); - while (l--) - { - if (timeout) + struct dos_ttystate *port = &ports[scb->fd]; + long then; + int c; + + then = rawclock () + (timeout * RAWHZ); + while ((c = dos_getc (port)) < 0) { - while (!dos_async_ready()) - { - time (&now); - if (now == then) - { - dprintf("dosasync_read: timeout(%d)\n", length-l-1); - return length-l-1; - } - } + if (timeout >= 0 && (rawclock () - then) >= 0) + return SERIAL_TIMEOUT; + notice_quit (); } - *buffer++ = dos_async_rx(); - } - dprintf("dosasync_read: exit %d\n", length); - return length; + + return c; } -int -dosasync_write(int fd, const char *buffer, int length) + +static serial_ttystate +dos_get_tty_state (scb) + serial_t scb; { - int l = length; - while (l--) - dos_async_tx(*buffer++); - return length; + struct dos_ttystate *port = &ports[scb->fd]; + struct dos_ttystate *state; + + state = (struct dos_ttystate *) xmalloc (sizeof *state); + *state = *port; + return (serial_ttystate) state; } +static int +dos_set_tty_state (scb, ttystate) + serial_t scb; + serial_ttystate ttystate; +{ + struct dos_ttystate *state; + state = (struct dos_ttystate *) ttystate; + dos_setbaudrate (scb, state->baudrate); + return 0; +} -char * -strlwr(char *s) +static int +dos_noflush_set_tty_state (scb, new_ttystate, old_ttystate) + serial_t scb; + serial_ttystate new_ttystate; + serial_ttystate old_ttystate; { - char *p = s; - while (*s) - { - if ((*s >= 'A') && (*s <= 'Z')) - *s += 'a'-'A'; - s++; - } - return p; + struct dos_ttystate *state; + + state = (struct dos_ttystate *) new_ttystate; + dos_setbaudrate (scb, state->baudrate); + return 0; } -sigsetmask() +static int +dos_flush_input (scb) + serial_t scb; { + struct dos_ttystate *port = &ports[scb->fd]; + disable (); + port->first = port->count = 0; + if (port->fifo) + outb (port, com_fifo, FIFO_ENABLE | FIFO_RCV_RST | FIFO_TRIGGER); + enable (); } - -const char * -serial_default_name () + +static void +dos_print_tty_state (scb, ttystate) + serial_t scb; + serial_ttystate ttystate; { - return "com1"; + /* Nothing to print */ + return; } - -void -serial_raw (fd, old) -int fd; -struct ttystate *old; +static int +dos_baudconv (rate) + int rate; { - /* Always in raw mode */ + long x, err; + + if (rate <= 0) + return -1; + +#define divrnd(n, q) (((n) * 2 / (q) + 1) / 2) /* divide and round off */ + x = divrnd (COMTICK, rate); + if (x <= 0) + return -1; + + err = divrnd (1000 * COMTICK, x * rate) - 1000; + if (err < 0) + err = -err; + if (err > SPEED_TOLERANCE) + return -1; +#undef divrnd + return x; } -int -serial_open (name) - const char *name; +static int +dos_setbaudrate (scb, rate) + serial_t scb; + int rate; { - fd = dos_async_init(); - if (fd) return 1; + struct dos_ttystate *port = &ports[scb->fd]; + + if (port->baudrate != rate) + { + int x; + unsigned char cfcr; + + x = dos_baudconv (rate); + if (x <= 0) + { + fprintf_unfiltered (gdb_stderr, "%d: impossible baudrate\n", rate); + errno = EINVAL; + return -1; + } + + disable (); + cfcr = inb (port, com_cfcr); + + outb (port, com_cfcr, CFCR_DLAB); + outb (port, com_dlbl, x & 0xff); + outb (port, com_dlbh, x >> 8); + outb (port, com_cfcr, cfcr); + port->baudrate = rate; + enable (); + } + return 0; } -int -serial_readchar (to) - int to; +static int +dos_setstopbits (scb, num) + serial_t scb; + int num; { - char buf; - if (dosasync_read(fd, &buf, 1, to)) - return buf; - else - return -2; /* Timeout, I guess */ + struct dos_ttystate *port = &ports[scb->fd]; + unsigned char cfcr; + + disable (); + cfcr = inb (port, com_cfcr); + + switch (num) + { + case SERIAL_1_STOPBITS: + outb (port, com_cfcr, cfcr & ~CFCR_STOPB); + break; + case SERIAL_1_AND_A_HALF_STOPBITS: + case SERIAL_2_STOPBITS: + outb (port, com_cfcr, cfcr | CFCR_STOPB); + break; + default: + enable (); + return 1; + } + enable (); + + return 0; } -int -serial_setbaudrate (rate) - int rate; +static int +dos_write (scb, str, len) + serial_t scb; + const char *str; + int len; { + volatile struct dos_ttystate *port = &ports[scb->fd]; + int fifosize = port->fifo ? 16 : 1; + long then; + int cnt; + + while (len > 0) + { + /* send the data, fifosize bytes at a time */ + cnt = fifosize > len ? len : fifosize; + port->txbusy = 1; + outportsb (port->base + com_data, str, cnt); + str += cnt; + len -= cnt; +#ifdef DOS_STATS + cnts[CNT_TX] += cnt; +#endif + /* wait for transmission to complete (max 1 sec) */ + then = rawclock () + RAWHZ; + while (port->txbusy) + { + if ((rawclock () - then) >= 0) + { + errno = EIO; + return SERIAL_ERROR; + } + } + } return 0; } -int -serial_nextbaudrate (rate) - int rate; + +static int +dos_sendbreak (scb) + serial_t scb; { + volatile struct dos_ttystate *port = &ports[scb->fd]; + unsigned char cfcr; + long then; + + cfcr = inb (port, com_cfcr); + outb (port, com_cfcr, cfcr | CFCR_SBREAK); + + /* 0.25 sec delay */ + then = rawclock () + RAWHZ / 4; + while ((rawclock () - then) < 0) + continue; + + outb (port, com_cfcr, cfcr); return 0; } -int -serial_write (str, len) - const char *str; - int len; + +static struct serial_ops dos_ops = +{ + "hardwire", + 0, + dos_open, + dos_close, + dos_readchar, + dos_write, + dos_noop, /* flush output */ + dos_flush_input, + dos_sendbreak, + dos_raw, + dos_get_tty_state, + dos_set_tty_state, + dos_print_tty_state, + dos_noflush_set_tty_state, + dos_setbaudrate, + dos_setstopbits, + dos_noop, /* wait for output to drain */ +}; + + +static void +dos_info (arg, from_tty) + char *arg; + int from_tty; { - dosasync_write(fd, str, len); + struct dos_ttystate *port; + int i; + + for (port = ports; port < &ports[4]; port++) + { + if (port->baudrate == 0) + continue; + printf_filtered ("Port:\tCOM%d (%sactive)\n", port - ports + 1, + port->intrupt ? "" : "not "); + printf_filtered ("Addr:\t0x%03x (irq %d)\n", port->base, port->irq); + printf_filtered ("16550:\t%s\n", port->fifo ? "yes" : "no"); + printf_filtered ("Speed:\t%d baud\n", port->baudrate); + printf_filtered ("Errs:\tframing %d parity %d overflow %d\n\n", + port->ferr, port->perr, port->oflo); + } + +#ifdef DOS_STATS + printf_filtered ("\nTotal interrupts: %d\n", intrcnt); + for (i = 0; i < NCNT; i++) + if (cnts[i]) + printf_filtered ("%s:\t%d\n", cntnames[i], cnts[i]); +#endif } + void -serial_close () +_initialize_ser_dos () { + struct cmd_list_element *c; + + serial_add_interface (&dos_ops); + + /* Save original interrupt mask register. */ + icu_oldmask = inportb (ICU_MASK); + + /* Mark fixed motherboard irqs as inuse. */ + intrupts[0].inuse = /* timer tick */ + intrupts[1].inuse = /* keyboard */ + intrupts[2].inuse = 1; /* slave icu */ + + add_show_from_set ( + add_set_cmd ("com1base", class_obscure, var_zinteger, + (char *) &ports[0].base, + "Set COM1 base i/o port address.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com1irq", class_obscure, var_zinteger, + (char *) &ports[0].irq, + "Set COM1 interrupt request.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com2base", class_obscure, var_zinteger, + (char *) &ports[1].base, + "Set COM2 base i/o port address.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com2irq", class_obscure, var_zinteger, + (char *) &ports[1].irq, + "Set COM2 interrupt request.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com3base", class_obscure, var_zinteger, + (char *) &ports[2].base, + "Set COM3 base i/o port address.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com3irq", class_obscure, var_zinteger, + (char *) &ports[2].irq, + "Set COM3 interrupt request.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com4base", class_obscure, var_zinteger, + (char *) &ports[3].base, + "Set COM4 base i/o port address.", + &setlist), + &showlist); + + add_show_from_set ( + add_set_cmd ("com4irq", class_obscure, var_zinteger, + (char *) &ports[3].irq, + "Set COM4 interrupt request.", + &setlist), + &showlist); + + add_info ("serial", dos_info, + "Print DOS serial port status."); }