/*   VirtualNascom, a Nascom II emulator.
 
   Copyright (C) 2000  Tommy Thorn
   Copyright (C) 1995,1998  Frank D. Cringle.

NasEmu 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 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.

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.



   A Nascom consists of:

    - a Z80 CPU,
    - an UART,
    - a bitmapped keyboard,
    - memory:
        0000 - 07ff  2 KB ROM monitor,
        0800 - 0bff  1 KB screen memory,
        0c00 - 0fff  1 KB workspace
        1000 - dfff       memory
        e000 - ffff  8 KB of MS Basic

  With the Z80 emulator in place the first thing to get working is the
  screen memory.  The "correct" way to simulate screen memory is to
  trap upon writes, but that would be slow.  We do it any just to get
  started.


  */

#include <stdio.h>

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Xos.h>
#include <X11/cursorfont.h>
#include <X11/Xutil.h>
#include <X11/xpm.h>
/* added dhr */
#include <X11/XKBlib.h>

/* #define XK_MISCELLANY 1 */
#include <X11/keysymdef.h>

#include <ctype.h>

#include "simz80.h"
#include "xvirtualnascom.h"

#define INSCREEN(x) (((x) >> 10) == 2)

unsigned char keym[9] = 
{
  0,  /* ? ? ? Shift ? ? ? ? */
  0,  /* ?!TXF5BH  ! = Up*/
  0,  /* ?!YZD6NJ  ! = Left*/
  0,  /* ?!USE7MK  ! = Down */
  0,  /* ?!IAW8,L  ! = Right */
  0,  /* ??OQ39.; */
  0,  /* ?[P120/: */
  0,  /* ?]R C4VG */
  0   /* ? ? CR - Newline BS */
};

unsigned char keyp = 0;
unsigned char port0;

void out(unsigned int port, unsigned char value)
{
  unsigned int down_trans;

  if (0) fprintf(stdout, "[%02x] <- %02x\n", port, value);

  switch (port) {
  case 0:
    /* KBD */
    down_trans = port0 & ~value;
    port0 = value;

    if ((1 & down_trans) && keyp < 9) keyp++;
    if (2 & down_trans) keyp = 0;
    break;

  case 1:
    printf("wrt port1 %2X \n ", value); 
  break;

  case 2:
    printf("wrt port2 %2X \n ", value); 
  break;


  default: ;
  }
}

int in(unsigned int port)
{
  if (0) fprintf(stdout, "<- [%02x]\n", port);

  switch (port) {
  case 0:
    /* KBD */
    /* printf("[%d]", keyp); */
    return ~keym[keyp];
  break;
  case 2:
    /* Status port on the UART */
    /* printf("polling port2 \n "); */ 
    /* Port 2
     * bit signal from uart
     * 7 data received
     * 6 Transmit buffer empty
     * 5 nc - no connection
     * 4 nc - no connection
     * 3 frame error
     * 2 parity error
     * 1 overrun error
     * 0 nc - no connection
     */   
    return 0x40;
  break;
    
  default:
    return 0;
  }
}

void slow_write(unsigned int a, unsigned char v)
{
  if (INSCREEN(a)) 
    {
      unsigned int y = (a-0x800) / 64;
      unsigned int x = (a-0x800) % 64;
      /* fprintf(stdout, "putbyte %04x %02x '%c'\n", a, v, v); */
      if (10 <= x && x < 58 && ' ' <= v) {
	if (y == 15)
	  y = 0;
	else
	  ++y;

	xputch(x-10, y, v);
      }
    }
  if (0x800 <= a && a <= 0xE000)
    RAM(a) = v;
}

static char * kbd_translation[] = {
/* 0 */  "xxxxxxxx",
/* 1 */  "xyTXF5BH",
/* 2 */  "xyYZD6NJ",
/* 3 */  "xyUSE7MK",
/* 4 */  "xyIAW8,L",
/* 5 */  "xxOQ39.;",
/* 6 */  "x[P120/'",
/* 7 */  "x]R C4VG",
/* 8 */  "x\rxxx-\n\007"
};

void EventHandler(Widget w, caddr_t data, XEvent *ev)
{
  KeySym keysym;
  int i = -1, bit = 0;

  printf("EventHandler( %X %X \n",(unsigned int) keysym, ev->xany.type );

  if (ev->xany.type != KeyPress && ev->xany.type != KeyRelease)
    return;
/*
  keysym = XKeycodeToKeysym(dpy, ev->xkey.keycode, 0);
*/

  /* added by DHR */
  keysym = XkbKeycodeToKeysym(dpy, ev->xkey.keycode, 0, 0);

  printf("%X\n",(unsigned int) keysym);
  

  if ((unsigned long) keysym < 128) {
    int ch = toupper(keysym);
    for (i = 0; i < 9; ++i)
      for (bit = 0; bit < 8; ++bit)
	if (kbd_translation[i][7-bit] == ch)
	  goto found;
    i = -1;
  found:;
  } else 
    switch (keysym) {
    case XK_Shift_L:
    case XK_Shift_R:   i = 0, bit = 4; break;
    case XK_Up:        i = 1, bit = 6; break;
    case XK_Left:      i = 2, bit = 6; break;
    case XK_Down:      i = 3, bit = 6; break;
    case XK_Right:     i = 4, bit = 6; break;
    case XK_BackSpace: i = 8, bit = 0; break;
    case XK_Return:    i = 8, bit = 1; break;
    case XK_Home: printf("Home pressed \n"); pc = 0x0; break; /* needed for reset */


    case XK_End:
      {
	/* Undocumented hack */
	FILE *f;
	f = fopen("screendump", "w");
	fwrite((const void *) (ram+0x800), 1, 1024, f);
	fclose(f);
 	if (vflag) printf("Screen dumped\n");
      }
      break;
    }

  if (i != -1) {
    if (ev->xany.type == KeyPress)
      keym[i] |= 1 << bit;
    else
      keym[i] &= ~(1 << bit);
  }
}