#define PORTS_H 1

/* 
 * $Date: 1994/06/05 21:17:35 $
 * $Source: /home/src/dosemu0.60/RCS/ports.h,v $
 * $Revision: 1.15 $
 * $State: Exp $
 *
 * $Log: ports.h,v $
 * Revision 1.15  1994/06/05  21:17:35  root
 * Prep for pre51_24.
 *
 * Revision 1.14  1994/05/30  00:08:20  root
 * Prep for pre51_22 and temp kludge fix for dir a: error.
 *
 * Revision 1.13  1994/05/26  23:15:01  root
 * Prep. for pre51_21.
 *
 * Revision 1.12  1994/05/24  01:23:00  root
 * Lutz's latest, int_queue_run() update.
 *
 * Revision 1.11  1994/05/21  23:39:19  root
 * PRE51_19.TGZ with Lutz's latest updates.
 *
 * Revision 1.10  1994/05/18  00:15:51  root
 * pre15_17.
 *
 * Revision 1.9  1994/05/13  17:21:00  root
 * pre51_15.
 *
 * Revision 1.8  1994/05/10  23:08:10  root
 * pre51_14.
 *
 * Revision 1.7  1994/04/30  22:12:30  root
 * Prep for pre51_11.
 *
 * Revision 1.6  1994/04/27  23:39:57  root
 * Lutz's patches to get dosemu up under 1.1.9.
 *
 * Revision 1.5  1994/04/13  00:07:09  root
 * Lutz's patches
 *
 * Revision 1.4  1994/04/07  20:50:59  root
 * More updates.
 *
 * Revision 2.9  1994/04/06  00:56:56  root
 * Made serial config more flexible, and up to 4 ports.
 *
 * Revision 1.2  1994/04/04  22:51:55  root
 * Patches for PS/2 mouse.
 *
 * Revision 1.1  1994/03/24  00:47:10  root
 * Initial revision
 *
 * Revision 1.1  1994/03/23  23:45:12  root
 * Initial revision
 *
 */

/*
   Allow checks via inport 0x64 for available scan codes
*/
extern u_char keys_ready;
/* int port61 = 0xd0;           the pseudo-8255 device on AT's */
int port61 = 0x0e;              /* the pseudo-8255 device on AT's */
extern int fatalerr;
struct pit pit;
extern void set_leds(void);
extern inline void poscur(int, int);
extern int s3_8514_base;
u_short microsoft_port_check = 0;

inline int
inb(int port)
{
  /* for scanseq */
#define NEWCODE      1
#define BREAKCODE    2

  static unsigned int cga_r = 0;
  static unsigned int tmp = 0;

  port &= 0xffff;
  if (port_readable(port))
    return (read_port(port) & 0xFF);
#if 1
  if (config.chipset && port > 0x3b3 && port < 0x3df && config.mapped_bios)
    return (video_port_in(port));
  if ((config.chipset == S3) && ((port & 0x03fe) == s3_8514_base) && (port & 0xfc00))
  {
    int _v;
    iopl(3);
    _v = port_in(port) & 0xff;
    iopl(0);
    v_printf("S3 inb [0x%04x] = 0x%02x\n", port, _v);
    return _v;
  }
#endif

  switch (port) {
  case 0x60:
    if (keys_ready)
      microsoft_port_check = 0;
    k_printf("direct 8042 read1: 0x%02x microsoft=%d\n", *LASTSCAN_ADD, microsoft_port_check);
    /*	      tmp=*LASTSCAN_ADD;
	      *LASTSCAN_ADD=0; */
    if (microsoft_port_check)
      return microsoft_port_check;
    else
      return *LASTSCAN_ADD;

  case 0x64:
    tmp = 0x1c | (keys_ready || microsoft_port_check ? 1 : 0);	/* low bit set = sc ready */
    /* *LASTSCAN_ADD=0; */
    k_printf("direct 8042 0x64 status check: 0x%02x keys_ready=%d, microsoft=%d\n", tmp, keys_ready, microsoft_port_check);
    return tmp;
    
  case 0x61:
    k_printf("inb [0x61] =  0x%02x (8255 chip)\n", port61);
    return port61;

  case 0x70:
  case 0x71:
    return cmos_read(port);

  case 0x40:
#if 1 /* 05/17/94 Added to sigalrm */
    pit.CNTR0 += 0x2221;
#endif
    i_printf("inb [0x40] = 0x%02x  1st timer inb\n",
	     pit.CNTR0);
    return pit.CNTR0;
  case 0x41:
#if 1 /* 05/17/94 Added to sigalrm */
    pit.CNTR1 += 0x2221;
#endif
    i_printf("inb [0x41] = 0x%02x  2nd timer inb\n",
	     pit.CNTR1);
    return pit.CNTR1;
  case 0x42:
#if 1 /* 05/17/94 Added to sigalrm */
    pit.CNTR2 += 0x2221;
#endif
    i_printf("inb [0x42] = 0x%02x  3rd timer inb\n",
	     pit.CNTR2);
    return pit.CNTR2;

  case 0x3ba:
  case 0x3da:
    /* graphic status - many programs will use this port to sync with
     * the vert & horz retrace so as not to cause CGA snow */
    return (cga_r ^= 1) ? 0xcf : 0xc6;
  case 0x3bc:
    i_printf("printer port inb [0x3bc] = 0\n");
    return 0;
  case 0x3db:			/* light pen strobe reset */
    return 0;

  default:
    /* SERIAL PORT I/O.  The base serial port must be a multiple of 8. */
    for (tmp = 0; tmp < config.num_ser; tmp++)
      if ((port & ~7) == com[tmp].base_port) return (do_serial_in(tmp, port));

    /* The diamond bug */
    if (config.chipset == DIAMOND && (port >= 0x23c0) && (port <= 0x23cf)) {
      iopl(3);
      tmp = port_in(port);
      iopl(0);
      i_printf(" Diamond inb [0x%x] = 0x%x\n", port, tmp);
      return (tmp);
    }
    i_printf("default inb [0x%x] = 0x%02x\n", port, (LWORD(eax) & 0xFF));
    return 0xff;
  }
  return 0;
}

inline int
inw(int port)
{
  if ((config.chipset == S3) && ((port & 0x03ff) == s3_8514_base) && (port & 0xfc00))
  {
    int value;
    iopl(3);
    value = port_in_w(port) & 0xffff;
    iopl(0);
    v_printf("S3 inw [0x%04x] = 0x%04x\n", port, value);
    return value;
  }
  return ((inb(port + 1) << 8) + inb(port));
}


inline void
outb(int port, int byte)
{
  static int timer_beep = 0;
  static int lastport = 0;
  static unsigned int tmp = 0;

  port &= 0xffff;
  byte &= 0xff;

  if (port_writeable(port)) {
    write_port(byte, port);
    return;
  }

  if ( (port & 0xfffe) == bios_video_port )
    {
      /* Writing to the 6845 */
      static int last_port;
      static int last_byte;
      static int hi = 0, lo = 0;
      int pos;
      if ( (port == bios_video_port+1) && (last_port == bios_video_port) )
	{
	  /* We only take care of cursor positioning for now. */
	  /* This code should work most of the time, but can
	     be defeated if i/o permissions change (e.g. by a vt
	     switch) while a new cursor location is being written
	     to the 6845. */
	  if ( last_byte == 14 )
	    {
	      hi = (unsigned char)byte;
	      pos = (hi << 8) | lo;
	      poscur(pos%80, pos/80);
	    }
	  else if ( last_byte == 15 )
	    {
	      lo = (unsigned char)byte;
	      pos = (hi << 8) | lo;
	      poscur(pos%80, pos/80);
	    }
	}
      last_port = port; last_byte = byte;
    }

#if 1
  if (port > 0x3b3 && port < 0x3df && config.chipset && config.mapped_bios)
    video_port_out(byte, port);
  if ((config.chipset == S3) && ((port & 0x03fe) == s3_8514_base) && (port & 0xfc00))
  {
    iopl(3);
    port_out(byte, port);
    iopl(0);
    v_printf("S3 outb [0x%04x] = 0x%02x\n", port, byte);
    return;
  }
#endif

  /* The diamond bug */
  if (config.chipset == DIAMOND && (port >= 0x23c0) && (port <= 0x23cf)) {
    iopl(3);
    port_out(byte, port);
    iopl(0);
    i_printf(" Diamond outb [0x%x] = 0x%x\n", port, byte);
    return;
  }

  switch (port) {
  case 0x20:
  case 0x21:
    k_printf("OUTB 0x%x to byte=%x\n", port, byte);
#if 0 /* 94/04/30 */
    REG(eflags) |= VIF;
#endif
#if 1 /* 94/05/11 */
    *OUTB_ADD=1;
#endif
    if (port == 0x20 && byte != 0x20)
      set_leds();
    break;
  case 0x60:
    k_printf("keyboard 0x60 outb = 0x%x\n", byte);
    microsoft_port_check = 1;
    if (byte < 0xf0) {
      microsoft_port_check = 0xfe;
    }
    else {
      microsoft_port_check = 0xfa;
    }
    break;
  case 0x64:
    k_printf("keyboard 0x64 outb = 0x%x\n", byte);
    break;
  case 0x61:
    port61 = byte & 0x0f;
    k_printf("8255 0x61 outb = 0x%x\n", byte);
    if (((byte & 3) == 3) && (timer_beep == 1) &&
	(config.speaker == SPKR_EMULATED)) {
      i_printf("beep!\n");
      putchar('\007');
      timer_beep = 0;
    }
    else {
      timer_beep = 1;
    }
    break;
  case 0x70:
  case 0x71:
    cmos_write(port, byte);
    break;
  case 0x40:
  case 0x41:
  case 0x42:
  case 0x43:
    i_printf("timer outb 0x%02x\n", byte);
    if ((port == 0x42) && (lastport == 0x42)) {
      if ((timer_beep == 1) &&
	  (config.speaker == SPKR_EMULATED)) {
	putchar('\007');
	timer_beep = 0;
      }
      else {
	timer_beep = 1;
      }
    }
    break;

  default:
    /* SERIAL PORT I/O.  Avoids port==0 for safety.  */
    /* The base serial port must be a multiple of 8. */
    for (tmp = 0; tmp < config.num_ser; tmp++) {
      if ((port & ~7) == com[tmp].base_port) {
        do_serial_out(tmp, port, byte);
        lastport = port;
        return;
      }
    }
    i_printf("outb [0x%x] 0x%02x\n", port, byte);
  }
  lastport = port;
}

inline void
outw(int port, int value)
{
  if ((config.chipset == S3) && ((port & 0x03ff) == s3_8514_base) && (port & 0xfc00))
  {
    iopl(3);
    port_out_w(value, port);
    iopl(0);
    v_printf("S3 outw [0x%04x] = 0x%04x\n", port, value);
    return;
  }
  outb(port, value & 0xff);
  outb(port + 1, value >> 8);
}

#undef PORTS_H
