int open_ifport (PORTPROP *pc)
{
OSVERSIONINFO vinfo = { sizeof(OSVERSIONINFO) };
LARGE_INTEGER val1;
BYTE cmdspi[6];
static const WORD PortsCom[] = { COM1ADR, COM2ADR, COM3ADR, COM4ADR };
static const WORD PortsLpt[] = { LPT1ADR, LPT2ADR, LPT3ADR };
char sComm[16];
DCB dcb = { sizeof(DCB),
9600, TRUE, FALSE, TRUE, FALSE,
DTR_CONTROL_DISABLE, FALSE,
TRUE, FALSE, FALSE, FALSE, FALSE,
RTS_CONTROL_DISABLE, FALSE, 0, 0,
10, 10,
8, NOPARITY, ONESTOPBIT, '\x11', '\x13', '\xFF', '\xFF', 0 };
COMMTIMEOUTS commtimeouts = { 0, 1, 100, 1, 300};
/* Check if high resolution timer is supported */
QueryPerformanceFrequency(&val1);
if (val1.QuadPart == 0) {
pc->Info1 = "Incompatible envilonment.\n";
return 1;
}
#if AVRSPX
if (pc->Delay < 0) { //@@x by t.k
PortDly = DEFAULT_DELAY_VALUE; //@@x
} else {
PortDly = pc->Delay; /* I/O delay for direct I/O control */
}
if (pc->Baud < 0) { //@@x by t.k
if (pc->PortClass == TY_RSCR)
dcb.BaudRate = 19200;
else {
dcb.BaudRate = DEFAULT_BAUDRATE;
}
} else {
dcb.BaudRate = pc->Baud; /* Bit rate for SPI bridge */
}
#else
PortDly = pc->Delay; /* I/O delay for direct I/O control */
dcb.BaudRate = pc->Baud; /* Bit rate for SPI bridge */
#endif
/* Open direct I/O driver if needed */
if(GetVersionEx(&vinfo) == FALSE) {
pc->Info1 = "Incompatible envilonment.\n";
return 1;
}
if((vinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
&& ((pc->PortClass == TY_COMM)||(pc->PortClass == TY_LPT))) {
if(init_driver()) {
pc->Info1 = "I/O driver, giveio.sys, is not available due to any reason.\n"
"To install giveio, type \"move giveio.sys %%windir%%\\system32\" and retry any function.\n";
return 1;
}
}
/* Use COM port in direct I/O */
if(pc->PortClass == TY_COMM) {
if((pc->PortNum < 1)||(pc->PortNum > 4)) {
pc->Info1 = "Invalid Port#.\n";
return 1;
}
PortBase = PortsCom[pc->PortNum - 1];
sprintf(str_info, "No COM%u(0x%X) port.\n", pc->PortNum, PortBase);
pc->Info1 = str_info;
if(check_comport()) {
if(vinfo.dwPlatformId != VER_PLATFORM_WIN32_NT) return 1;
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) return 1;
if(check_comport()) return 1;
}
_outp(COM_IMR, 0x00); /* Mask interrupts */
pc->Info1 = NULL;
PortType = TY_COMM;
#if AVRSPX
sprintf(str_info, "Use COM%u(0x%X) port in direct I/O.\n", pc->PortNum, PortBase);
pc->Info1 = str_info;
#endif
return 0;
}
#if AVRSPX
if (pc->PortClass == TY_HIDASP) { //@@+ by k-k
if (hidasp_init(pc->SerialNumber) == HIDASP_MODE_ERROR) {
sprintf(str_info, "HIDaspx(%s) not found.\n", pc->SerialNumber);
pc->Info1 = str_info;
return 1;
}
PortType = TY_HIDASP;
return 0;
}
#endif
/* Use COM port via API */
if(pc->PortClass == TY_VCOM) {
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) {
sprintf(str_info, "%s could not be opened.\n", sComm);
pc->Info1 = str_info;
return 1;
}
#if AVRSPX
if (SetCommState(hComm, &dcb)==0) {
sprintf(str_info, "%s (%dbps) parameter error. \n", sComm, (int)dcb.BaudRate);
pc->Info1 = str_info;
return 1;
}
#else
SetCommState(hComm, &dcb);
#endif
EscapeCommFunction(hComm, CLRRTS);
EscapeCommFunction(hComm, CLRDTR);
PortType = TY_VCOM;
#if AVRSPX
sprintf(str_info, "Use COM%u port via API.\n", pc->PortNum);
pc->Info1 = str_info;
#endif
return 0;
}
/* Use SPI bridge attached on COM port */
if(pc->PortClass == TY_BRIDGE) {
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) {
sprintf(str_info, "%s could not be opened.\n", sComm);
pc->Info1 = str_info;
return 1;
}
dcb.fOutxCtsFlow = TRUE;
dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
#if AVRSPX
if (SetCommState(hComm, &dcb)==0) {
sprintf(str_info, "%s (%dbps) parameter error. \n", sComm, (int)dcb.BaudRate);
pc->Info1 = str_info;
return 1;
}
#else
SetCommState(hComm, &dcb);
#endif
SetCommTimeouts(hComm, &commtimeouts);
EscapeCommFunction(hComm, SETDTR);
EscapeCommFunction(hComm, CLRDTR);
delay_ms(10);
while(read_bridge(cmdspi, sizeof(cmdspi)));
cmdspi[0] = FLAG-1;
cmdspi[1] = FLAG; cmdspi[2] = SPI_ENABLE; /* Enable Bridge */
#if AVRSPX
cmdspi[3] = FLAG; cmdspi[4] = SPI_SETDLY;
if (PortDly > 255) {
cmdspi[5] = 255; /* Set SPI delay */
} else {
cmdspi[5] = (BYTE)PortDly; /* Set SPI delay */
}
#else
cmdspi[3] = FLAG; cmdspi[4] = SPI_SETDLY; cmdspi[5] = (BYTE)PortDly; /* Set SPI delay */
#endif
send_bridge(cmdspi, 6); /* Send bridge initialization commands */
read_bridge(cmdspi, 2); /* Check if the commands are accepted */
if((cmdspi[0] != SPI_ENABLE) || (cmdspi[1] != SPI_SETDLY)) {
sprintf(str_info, "No SPI bridge on the %s.\n", sComm);
pc->Info1 = str_info;
return 1;
}
#if AVRSPX
cmdspi[0] = FLAG; cmdspi[1] = SPI_GETREV;
send_bridge(cmdspi, 2); /* Send f/w revision commands */
read_bridge(cmdspi, 1); /* Check if AVR specific command is supported */
BridgeRev = (cmdspi[0] == 0xFF) ? 0 : cmdspi[0];
if (BridgeRev < 4) {
sprintf(str_info, "*** Use SPI bridge R4+ for fast operation ***\n");
} else {
sprintf(str_info, "SPI bridge on the %s (baud=%d).\n", sComm, (int)dcb.BaudRate);
}
pc->Info1 = str_info;
#endif
PortType = TY_BRIDGE;
return 0;
}
/* Use LPT port in direct I/O */
if(pc->PortClass == TY_LPT) {
if((pc->PortNum < 1)||(pc->PortNum > 3)) {
pc->Info1 = "Invalid Port#.\n";
return 1;
}
PortBase = PortsLpt[pc->PortNum - 1];
if(check_lptport()) {
sprintf(str_info, "No LPT%u(0x%X) port.\n", pc->PortNum, PortBase);
pc->Info1 = str_info;
return 1;
}
_outp(LPT_DAT, 0x20); /* Check if the adapter is ByteBlasterMV (D5-ACK) */
if(_inp(LPT_STA) & S_ACK) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_ACK) == 0) {
_outp(LPT_CTL, BA_ENA);
pc->Info1 = "Altera ByteBlasterMV was found.\n";
PortType = TY_ALTERA;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x80); /* Check if the adapter is AVRSP (D7-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
_outp(LPT_DAT, B_ENA);
pc->Info1 = "AVRSP adapter was found.\n";
PortType = TY_AVRSP;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x40); /* Check if the adapter is Xilinx JTAG (D6-BUSY-PE) */
if((_inp(LPT_STA) & (S_PE | S_BUSY)) == S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & (S_PE | S_BUSY)) == S_BUSY) {
pc->Info1 = "Xilinx JTAG adapter was found.\n";
PortType = TY_XILINX;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x40); /* Check if the adapter is Lattice ISP (D6-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
pc->Info1 = "Lattice ISP adapter was found.\n";
PortType = TY_LATTICE;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x01); /* Check if the adapter is STK200 dongle (D0-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
pc->Info1 = "STK200 ISP dongle was found.\n";
PortType = TY_STK200;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
sprintf(str_info, "No ISP adapter on the LPT%u.\n", pc->PortNum);
pc->Info1 = str_info;
return 1;
}
#if AVRSPX
if (pc->PortClass == TY_USBASP) { //@@+ by t.k
if (usbasp_initialize(pc->SerialNumber) != 0) {
pc->Info1 = "USBasp not fonud.\n";
return 1;
}
PortType = TY_USBASP;
if (usbasp_connect(pc->Delay) != 0) {
pc->Info1 = "USBasp connection error!!.\n";
return 1;
}
return 0;
}
/* Use COM port via API */
if (pc->PortClass == TY_RSCR) { //@@+ by t.k
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if (hComm == INVALID_HANDLE_VALUE) {
sprintf(str_info, "%s could not be opened.\n", sComm);
pc->Info1 = str_info;
return 1;
}
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE;
dcb.fDtrControl = DTR_CONTROL_DISABLE;
dcb.fRtsControl = RTS_CONTROL_DISABLE;
#if AVRSPX
if (SetCommState(hComm, &dcb)==0) {
sprintf(str_info, "%s (%dbps) parameter error. \n", sComm, (int)dcb.BaudRate);
pc->Info1 = str_info;
return 1;
}
#else
SetCommState(hComm, &dcb);
#endif
EscapeCommFunction(hComm, CLRRTS);
EscapeCommFunction(hComm, CLRDTR);
PortType = TY_RSCR;
rscr_setup(hComm, dcb.BaudRate);
return 0;
}
#endif
pc->Info1 = "Invalid port class.\n";
return 1;
}
int open_ifport (PORTPROP *pc)
{
OSVERSIONINFO vinfo = { sizeof(OSVERSIONINFO) };
LARGE_INTEGER val1;
BYTE cmdspi[6];
static const WORD PortsCom[] = { COM1ADR, COM2ADR, COM3ADR, COM4ADR };
static const WORD PortsLpt[] = { LPT1ADR, LPT2ADR, LPT3ADR };
char sComm[16];
DCB dcb = { sizeof(DCB),
9600, TRUE, FALSE, TRUE, FALSE,
DTR_CONTROL_DISABLE, FALSE,
TRUE, FALSE, FALSE, FALSE, FALSE,
RTS_CONTROL_DISABLE, FALSE, 0, 0,
10, 10,
8, NOPARITY, ONESTOPBIT, '\x11', '\x13', '\xFF', '\xFF', 0 };
COMMTIMEOUTS commtimeouts = { 0, 1, 100, 1, 300};
/* Check if high resolution timer is supported */
QueryPerformanceFrequency(&val1);
if (val1.QuadPart == 0) {
pc->Info1 = "Incompatible envilonment.\n";
return 1;
}
PortDly = pc->Delay; /* I/O delay for direct I/O control */
dcb.BaudRate = pc->Baud; /* Bit rate for SPI bridge */
/* Open direct I/O driver if needed */
if(GetVersionEx(&vinfo) == FALSE) {
pc->Info1 = "Incompatible envilonment.\n";
return 1;
}
if((vinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
&& ((pc->PortClass == TY_COMM)||(pc->PortClass == TY_LPT))) {
if(init_driver()) {
pc->Info1 = "I/O driver initialization failed.\n";
return 1;
}
}
/* Use COM port in direct I/O */
if(pc->PortClass == TY_COMM) {
if((pc->PortNum < 1)||(pc->PortNum > 4)) {
pc->Info1 = "Invalid Port#.\n";
return 1;
}
PortBase = PortsCom[pc->PortNum - 1];
sprintf(str_info, "No COM%u(0x%X) port.\n", pc->PortNum, PortBase);
pc->Info1 = str_info;
if(check_comport()) {
if(vinfo.dwPlatformId != VER_PLATFORM_WIN32_NT) return 1;
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) return 1;
if(check_comport()) return 1;
}
_outp(COM_IMR, 0x00); /* Mask interrupts */
pc->Info1 = NULL;
PortType = TY_COMM;
return 0;
}
/* Use COM port via API */
if(pc->PortClass == TY_VCOM) {
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) {
sprintf(str_info, "%s could not be opened.\n", sComm);
pc->Info1 = str_info;
return 1;
}
SetCommState(hComm, &dcb);
EscapeCommFunction(hComm, CLRRTS);
EscapeCommFunction(hComm, CLRDTR);
PortType = TY_VCOM;
return 0;
}
/* Use SPI bridge attached on COM port */
if(pc->PortClass == TY_BRIDGE) {
sprintf(sComm, "\\\\.\\COM%u", pc->PortNum);
hComm = CreateFile(sComm, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hComm == INVALID_HANDLE_VALUE) {
sprintf(str_info, "%s could not be opened.\n", sComm);
pc->Info1 = str_info;
return 1;
}
dcb.fOutxCtsFlow = TRUE;
dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
SetCommState(hComm, &dcb);
SetCommTimeouts(hComm, &commtimeouts);
EscapeCommFunction(hComm, CLRDTR);
delay_ms(10);
while(read_bridge(cmdspi, sizeof(cmdspi)));
cmdspi[0] = FLAG-1;
cmdspi[1] = FLAG; cmdspi[2] = SPI_ENABLE; /* Enable Bridge */
cmdspi[3] = FLAG; cmdspi[4] = SPI_SETDLY; cmdspi[5] = (BYTE)PortDly; /* Set SPI delay */
send_bridge(cmdspi, 6); /* Send bridge initialization commands */
read_bridge(cmdspi, 2); /* Check if the commands are accepted */
if((cmdspi[0] != SPI_ENABLE) || (cmdspi[1] != SPI_SETDLY)) {
sprintf(str_info, "No SPI bridge on the %s.\n", sComm);
pc->Info1 = str_info;
return 1;
}
PortType = TY_BRIDGE;
return 0;
}
/* Use LPT port in direct I/O */
if(pc->PortClass == TY_LPT) {
if((pc->PortNum < 1)||(pc->PortNum > 3)) {
pc->Info1 = "Invalid Port#.\n";
return 1;
}
PortBase = PortsLpt[pc->PortNum - 1];
if(check_lptport()) {
sprintf(str_info, "No LPT%u(0x%X) port.\n", pc->PortNum, PortBase);
pc->Info1 = str_info;
return 1;
}
_outp(LPT_DAT, 0x20); /* Check if the adapter is ByteBlasterMV (D5-ACK) */
if(_inp(LPT_STA) & S_ACK) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_ACK) == 0) {
_outp(LPT_CTL, BA_ENA);
pc->Info1 = "Altera ByteBlasterMV was found.\n";
PortType = TY_ALTERA;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x80); /* Check if the adapter is AVRSP (D7-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
_outp(LPT_DAT, B_ENA);
pc->Info1 = "AVRSP adapter was found.\n";
PortType = TY_AVRSP;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x40); /* Check if the adapter is Xilinx JTAG (D6-BUSY-PE) */
if((_inp(LPT_STA) & (S_PE | S_BUSY)) == S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & (S_PE | S_BUSY)) == S_BUSY) {
pc->Info1 = "Xilinx JTAG adapter was found.\n";
PortType = TY_XILINX;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x40); /* Check if the adapter is Lattice ISP (D6-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
pc->Info1 = "Lattice ISP adapter was found.\n";
PortType = TY_LATTICE;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
_outp(LPT_DAT, 0x01); /* Check if the adapter is STK200 dongle (D0-PE) */
if(_inp(LPT_STA) & S_PE) {
_outp(LPT_DAT, 0);
if((_inp(LPT_STA) & S_PE) == 0) {
pc->Info1 = "STK200 ISP dongle was found.\n";
PortType = TY_STK200;
if(_inp(LPT_STA) & S_ERR) return 0; /* Check target power */
pc->Info2 = "But target power is OFF.\n";
return 1;
}
}
sprintf(str_info, "No ISP adapter on the LPT%u.\n", pc->PortNum);
pc->Info1 = str_info;
return 1;
}
pc->Info1 = "Invalid port class.\n";
return 1;
}
