#include <tigcclib.h>


#define XR_stringPtr_addr (_rom_call_addr(293))
#define IsSupportedAMS300() (*(long long*)(XR_stringPtr_addr-116)\
==0x76021003261f4e75ll)
#define DetectLinkInterface ((unsigned char(*)(void))(XR_stringPtr_addr-158))
#define DetectReceiveInterface ((unsigned char(*)(short))(XR_stringPtr_addr\
-108))
#define DetectUSB (*(short(**)(void))(DetectLinkInterface+4))
#define USB_SendData ((short (*)(const void *, size_t, long))(DetectUSB-1518))
#define USB_RecvData ((short (*)(void *, size_t, long))(DetectUSB-1270))
#define USBLinkClose ((short(*)(void))(DetectUSB-1290))
#define USBLinkReset (*(void(**)(void))(DetectLinkInterface+36))



unsigned char master;
unsigned char linktype;
unsigned char send, recv;
volatile unsigned char recu = 0, timeout, second, quit;
volatile unsigned short nbrecu;

INT_HANDLER OldIntW = NULL;
INT_HANDLER OldIntR = NULL;

INT_HANDLER save_int_1;
INT_HANDLER save_int_5;

DEFINE_INT_HANDLER (masterWInt) {
  ExecuteHandler (OldIntW);
  if(recu) {
    if(linktype)
      USB_SendData(&send, 1, 2000);
    else
      OSWriteLinkBlock (&send, 1);
    recu = 0;
  }
  else {
    timeout++;
    if(timeout == 255) {printf_xy(0, 30, "Connection Lost !");
                        printf_xy(40, 40, "Press Enter"); quit = 1;}
  }
  second++;
  if(!second) {printf_xy(0,20, "%d   ", nbrecu);nbrecu = 0;}
}

DEFINE_INT_HANDLER (masterRInt) {
  ExecuteHandler (OldIntR);
  if(linktype) {
    if(!USB_RecvData(&recv, 1,2000)) {
      printf_xy(40,20, "%d", recv);
      timeout = 0;
      nbrecu++;
      recu = 1;
    }
  }
  else {
    if(OSReadLinkBlock (&recv, 1)) {
      printf_xy(40,20, "%d", recv);
      timeout = 0;
      nbrecu++;
      recu = 1;
    }
  }
}

DEFINE_INT_HANDLER (slaveTInt) {
  timeout++;
  if(timeout == 255) {printf_xy(0, 30, "Connection Lost !");
                      printf_xy(40, 40, "Press Enter"); quit = 1;}
  second++;
  if(!second) {printf_xy(0,20, "%d   ", nbrecu);nbrecu = 0;}  
}

DEFINE_INT_HANDLER (slaveRInt) {
  ExecuteHandler (OldIntR);


  if(linktype) {
    if(!USB_RecvData(&recv, 1,2000)) {
      printf_xy(40,20, "%d", recv);
      timeout = 0;
      nbrecu++;
      USB_SendData(&send, 1, 2000);
    }
  }
  else {
    if(OSReadLinkBlock (&recv, 1)) {
      printf_xy(40,20, "%d", recv);
      timeout = 0;
      nbrecu++;
      OSWriteLinkBlock (&send, 1);
    }
  }
}

char connect(void) {
  char c = 0;
  
  if(linktype) {
    if(master) {
      while(USB_RecvData (&c, 1, 2000)) if(_keytest(RR_ESC)) return 0;
      USB_SendData (&c, 1, 2000);
    }
    else {
      USB_SendData (&c, 1, 2000);
      while(USB_RecvData (&c, 1, 2000)) if(_keytest(RR_ESC)) return 0;
    }
  }
  else {
    if(master) {
      while(!OSReadLinkBlock (&c, 1)) if(_keytest(RR_ESC)) return 0;
      OSWriteLinkBlock (&c, 1);
    }
    else {
      OSWriteLinkBlock (&c, 1);    
      while(!OSReadLinkBlock (&c, 1)) if(_keytest(RR_ESC)) return 0;
    }    
  }
  return 1;
}

// Main Function
void _main(void)
{

  ESI argptr;
  
  InitArgPtr (argptr);
  if (GetArgType (argptr) != POSINT_TAG)
    return;
  master = (unsigned char)GetIntArg (argptr);

  if (GetArgType (argptr) != POSINT_TAG)
    return;
  linktype = (unsigned char)GetIntArg (argptr);

  if(linktype && !(TI89_TITANIUM))
    return;

  save_int_1 = GetIntVec (AUTO_INT_1);
  SetIntVec (AUTO_INT_1, DUMMY_HANDLER);
  save_int_5 = GetIntVec (AUTO_INT_5);
  SetIntVec (AUTO_INT_5, DUMMY_HANDLER);

  ST_helpMsg("connecting... [press Esc to abort]");

  if(!connect()) goto main_end;

  clrscr();

  switch(master) {
    case 0:
      printf("Slave Mode\n");      
      break;
    default:
      printf("Master Mode\n");
  }

  switch(linktype) {
    case 0:
      printf("Link Type : Normal");      
      break;
    default:
      printf("Link Type : USB");
  }
  
  recv = 0;
  second = 0;
  nbrecu = 0;
  timeout = 0;
  quit = 0;

  if(master) {
    send = 14;
    recu = 1;    
    OldIntW = GetIntVec (AUTO_INT_1);
    SetIntVec (AUTO_INT_1, masterWInt);
    if(linktype) {
      OldIntR = GetIntVec (AUTO_INT_3);
      SetIntVec (AUTO_INT_3, masterRInt);
    }
    else {
      OldIntR = GetIntVec (AUTO_INT_4);
      SetIntVec (AUTO_INT_4, masterRInt);
    }
   }
   else {
    send = 42;
    OldIntW = GetIntVec (AUTO_INT_1);
    SetIntVec (AUTO_INT_1, slaveTInt);
    if(linktype) {
      OldIntR = GetIntVec (AUTO_INT_3);
      SetIntVec (AUTO_INT_3, slaveRInt);
    }
    else {
      OldIntR = GetIntVec (AUTO_INT_4);
      SetIntVec (AUTO_INT_4, slaveRInt);
    }
  }

  while(!quit) {
    printf_xy(0, 40, ".  ");
    printf_xy(0, 40, " . ");
    printf_xy(0, 40, "  .");
    printf_xy(0, 40, "   ");
    if (_keytest (RR_ESC)) break;

  }
    
  if(linktype)
    SetIntVec (AUTO_INT_3, OldIntR);
  else
    SetIntVec (AUTO_INT_4, OldIntR);

  SetIntVec (AUTO_INT_1, OldIntW);

  if(quit) {
    while(!_keytest(RR_ENTER));
    while(_keytest(RR_ENTER));
  }
  
  main_end:
  
  SetIntVec (AUTO_INT_1, save_int_1);
  SetIntVec (AUTO_INT_5, save_int_5);

  if(linktype) {
    USBLinkClose();
    USBLinkReset();
  }
  else
    OSLinkReset();

}

  if(linktype) {
    if(master) {
      if (DetectReceiveInterface(FALSE)) return 0;
    }
    else {
      int err=DetectUSB();
      ST_eraseHelp();
      if (err) return 0;
    }
  }
  else {
...