// C Source File
// Created 20/08/2004; 11:55:27

#include <tigcclib.h>

INT_HANDLER OldInt1 = NULL;
unsigned char scroll = 0;

void scrollleft()
{
  register unsigned short i;
  
  if(scroll == 1)
  {
    for(i=0;i<100;i++)
      memmove(LCD_MEM + i*30, LCD_MEM + 3 + i*30, 20);
    scroll = 0;
    PortSet(LCD_MEM, 239, 127);
  }
}

void scrollright()
{
  register unsigned short i;
  
  if(scroll == 0)
  {
    for(i=0;i<100;i++)
      memmove(LCD_MEM + 3 + i*30, LCD_MEM + i*30, 20);
    scroll = 1;
    PortSet(LCD_MEM + 3, 239, 127);
  }
}


DEFINE_INT_HANDLER(MyInt1)
{
  unsigned short column;
  column = _rowread (0xFFFE);
  char diamond, left, right;

  SetIntVec (AUTO_INT_1, DUMMY_HANDLER);
  ExecuteHandler (OldInt1);

  if(column & 0x02) left = 1;
  else left = 0;
  if(column & 0x08) right = 1;
  else right = 0;
  if(column & 0x40) diamond = 1;
  else diamond = 0;

  if(diamond & left)
  {
    scrollleft();
  }
  if(diamond & right)
  {
    scrollright();
  }
  SetIntVec (AUTO_INT_1, MyInt1);  
}

void _main(void)
{
  OldInt1 = GetIntVec (AUTO_INT_1);
  SetIntVec (AUTO_INT_1, MyInt1);
}