/* TT7PCLIB.C

Tattletale Mod. 7 Library Functions Modified for PC Compatibility */


#include "tt7pclib.h"

/************************************************************/

short AtoDReadWord(short chan){

  chan++;
  return 32760;

}

/************************************************************/

void DelayMilliSecs(unsigned long mS){

  delay(mS);
  return;

}

/************************************************************/

long MilliSecs(void){

  long mS;
  struct time t;

  gettime(&t);
/*
  printf("\nHour: %d", t.ti_hour);
  printf("\nMin: %d", t.ti_min);
  printf("\nSec: %d", t.ti_sec);
  printf("\nMsec: %d", t.ti_hund);
*/
  mS = (long)(t.ti_hour)*3600000 + (long)(t.ti_min)*60000
       + (long)(t.ti_sec)*1000  + (long)(t.ti_hund)*10;

  return mS;
}
/************************************************************/

long TensMilliSecs(void){

return( MilliSecs() / 10 );

}

/************************************************************/

void PChange(char port, unsigned short pin){

  printf(" Pin %c%d Changed", port,pin);
  return;
}

/************************************************************/


void PClear(char port, unsigned short pin){
/*
  printf(" Pin %c%d Cleared", port,pin);
*/
  return;
}

/************************************************************/


int Pin(char port, unsigned short pin){

  printf(" Pin %c%d Checked", port,pin);
  return 0;
}

/************************************************************/


void PSet(char port, unsigned short pin){
/*
  printf(" Pin %c%d Set", port,pin);
*/
  return;
}

/************************************************************/

void SerInFlush(void){

  return;
}

/************************************************************/

short SerGetByte(void)
{

  return (short)getch();
}

/************************************************************/

short SerGetByteLP(void){

  return (short)getch();
}

/************************************************************/

short SerTimedGetByte(register long msTimeout){

  return (short)getch();
}

/************************************************************/

void SerPutByte(ushort theByte){

  putch((int)theByte);
  return;
}

/************************************************************/

void SerPutStr(char *str){

  puts(str);
  return;
}

/************************************************************/

bool SerByteAvail(void){

  return (bool)kbhit();
}

/************************************************************/

int TPUGetPin(short chan){

  return 1;
}

/************************************************************/

void TPUSetPin(short chan, short pinval){

  return;
}

/************************************************************/

void SetTimeTM(struct tm *tp, vfptr sync){

  return;
}