Subversion Repositories xulalx25soc

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <ctype.h>
// #include <usb.h>
 
#include <libusb.h>
 
// /sys/bus/usb/devices/1-4/ is our device, as currently plugged in
//
// It supports
//	1 configuration
//	1 interface
// and has a product string of...
//	"XuLA - XESS Micro Logic Array"
// 
#define	VENDOR_ID	0x04d8
#define	PRODUCT_ID	0x0ff8c
#define	XESS_ENDPOINT_OUT	0x01
#define	XESS_ENDPOINT_IN	0x81
//
#define	JTAG_CMD	0x4f
#define	GET_TDO_MASK	0x01
#define	PUT_TMS_MASK	0x02
#define	TMS_VAL_MASK	0x04
#define	PUT_TDI_MASK	0x08
#define	TDI_VAL_MASK	0x10
//
#define	USER1_INSTR	0x02	// a SIX bit two
 
 
bool	gbl_transfer_received = false;
 
// libusbtransfer_cb_fn	callback;
extern "C" {
void	my_callback(libusb_transfer *tfr) {
	gbl_transfer_received = true;
 
	printf("Callback received!\n");
}
}
 
// All messages must be 32 bytes or less
//
 
 
// Walk us through the JTAG Chain:
//	5-1's to go to test/reset
//	0	to go to Run-Test/Idle
//	1	to go to select-dr-scan
//	1	to go to select-ir-scan
//	0	to go to capture-ir
//	0	to go to shift-ir
//	(6-bit code 0x02 through TDI to IR, while sending 0-bits to TMS)
//	1	to leave shift IR and go to exit1-ir
//	1	to go to update-ir
//	1	to go to select-dr-scan
//	0	to go to capture-dr
//	0	to go to shift-dr
#define	RESET_JTAG_LEN	12
const char	RESET_TO_USER_DR[RESET_JTAG_LEN] = {
	JTAG_CMD,
	21, // clocks
	0,0,0,	// Also clocks, higher order bits
	PUT_TMS_MASK | PUT_TDI_MASK, // flags
	(char)(0x0df),	// TMS: Five ones, then one zero, and two ones -- low bits first
	0x00,	// TDI: irrelevant here
	(char)(0x80),	// TMS: two zeros, then six zeros
	0x08,	// TDI: user command #1, bit reversed
	0x03,	// TMS: three ones, then two zeros
	0x00	// TDI byte -- irrelevant here
	//
	// 0xc0, // TDI byte -- user command #2
	// 0x40,	// TDI: user command #1
	// 0x0c, // TDI byte -- user command #2, bit reversed
};
 
//
//	TMS: 
/*
#define	TX_DR_LEN	12
const	char	TX_DR_BITS[TX_DR_LEN] = {
	JTAG_CMD,
	48, // clocks
	0,0,0,	// Also clocks, higher order bits
	PUT_TDI_MASK, // flags
	(char)0x0ff, 0, 0, 0, 0, 0	// Six data bytes
	// module_id = 255
	// 32'h(payload.length)
	// payload
	// module_id + payload.len + num_result_bits, length=32 + payload ???
};
*/
 
//
//	TMS: 
//	
#define	REQ_RX_LEN	6
const	char	REQ_RX_BITS[REQ_RX_LEN] = {
	JTAG_CMD,
	(char)((32-6)*8), // bits-requested
	0,0,0,	// Also clocks, higher order bits
	GET_TDO_MASK|TDI_VAL_MASK, // flags:TDI is kept low here, so no TDI flag
	// No data given, since there's no info to send or receive
	// Leave the result in shift-DR mode
};
 
#define	RETURN_TO_RESET_LEN	7
const char	RETURN_TO_RESET[RETURN_TO_RESET_LEN] = {
	JTAG_CMD,
	5, // clocks
	0,0,0,	// Also clocks, higher order bits
	PUT_TMS_MASK, // flags
	(char)(0x0ff), // Five ones
};
 
int	dec(int v) {
	int br = 0;
 
	/*
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
 
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
	br = (br<<1)|(v&1); v>>=1;
	*/
	br = v&0x07f;
 
	if (br == ' ')
		return br;
	else if (isgraph(br))
		return br;
	else
		return '.';
}
 
//
// If max packet length is 32, why do you waste 4 bytes on num_clocks?
// Why is the bit counter always from 8 to zero?
//
 
int main(int argc, char **argv) {
	libusb_context		*usb_context;
	libusb_device_handle	*xula_usb_device;
	int	config;
 
	if (0 != libusb_init(&usb_context)) {
		fprintf(stderr, "Error initializing the USB library\n");
		perror("O/S Err:");
		exit(-1);
	}
 
	xula_usb_device = libusb_open_device_with_vid_pid(usb_context,
		VENDOR_ID, PRODUCT_ID);
	if (!xula_usb_device) {
		fprintf(stderr, "Could not open XuLA device\n");
		perror("O/S Err:");
 
		libusb_exit(usb_context);
		exit(-1);
	}
 
	if (0 != libusb_get_configuration(xula_usb_device, &config)) {
		fprintf(stderr, "Could not get configuration\n");
		perror("O/S Err:");
 
		libusb_close(xula_usb_device);
		libusb_exit(usb_context);
		exit(-1);
	}
 
	printf("Current configuration is %d\n", config);
	int	interface = 0;
 
	if (0 != libusb_claim_interface(xula_usb_device, interface)) {
		fprintf(stderr, "Could not claim interface\n");
		perror("O/S Err:");
 
		libusb_close(xula_usb_device);
		libusb_exit(usb_context);
		exit(-1);
	}
 
	unsigned char	*abuf = new unsigned char[32];
	int	actual_length = 32;
	memcpy(abuf, RESET_TO_USER_DR, RESET_JTAG_LEN);
	int r = libusb_bulk_transfer(xula_usb_device, XESS_ENDPOINT_OUT,
		abuf, RESET_JTAG_LEN, &actual_length, 20);
	if ((r==0)&&(actual_length == RESET_JTAG_LEN)) {
		printf("Successfully sent RESET_TO_USER_DR!\n");
	} else {
		printf("Some error took place requesting RESET_TO_USER_DR\n");
		perror("O/S Err");
	}
 
	const char hello_world[] = "Hello, World!\n";
	abuf[0] = JTAG_CMD;
	abuf[1] = strlen(hello_world) * 8 + 8;
	abuf[2] = abuf[3] = abuf[4] = 0;
	abuf[5] = PUT_TDI_MASK | GET_TDO_MASK;
	strcpy((char *)&abuf[6], hello_world);
	// abuf[6] = 0xff;
	// abuf[7] = 0xff;
	// abuf[8] = 0x00;
	// abuf[9] = 0xff;
	// abuf[10] = 0x01;
	// abuf[11] = 0x02;
	// abuf[12] = 0x04;
	// abuf[13] = 0x08;
	r = libusb_bulk_transfer(xula_usb_device, XESS_ENDPOINT_OUT,
		abuf, strlen(hello_world)+6+1, &actual_length, 20);
	if ((r==0)&&(actual_length == strlen(hello_world)+6+1)) {
		printf("Successfully sent request for TDO bits!\n");
	} else {
		printf("Some error took place in requesting TDO bits\n");
		printf("r = %d, actual_length = %d (!= %d)\n", r,
			actual_length, (int)strlen(hello_world)+6);
		perror("O/S Err");
	}
 
	r = libusb_bulk_transfer(xula_usb_device, XESS_ENDPOINT_IN,
		abuf, strlen(hello_world)+1, &actual_length, 20);
	if ((r==0)&&(actual_length > 0)) {
		printf("Successfully read %d bytes from port!\n", actual_length);
		for(int i=0; i<(actual_length); i+=4)
			printf("%2d: %02x %02x %02x %02x -- %c%c%c%c\n", i,
				abuf[i+0], abuf[i+1], abuf[i+2], abuf[i+3],
				dec(abuf[i+0]),dec(abuf[i+1]), dec(abuf[i+2]), dec(abuf[i+3]));
	} else {
		printf("Some error took place in receiving\n");
		perror("O/S Err");
	}
 
 
	// Release our interface
	if (0 != libusb_release_interface(xula_usb_device, interface)) {
		fprintf(stderr, "Could not release interface\n");
		perror("O/S Err:");
 
		libusb_close(xula_usb_device);
		libusb_exit(usb_context);
		exit(-1);
	}
 
	// And then close our device with
	libusb_close(xula_usb_device);
 
	// And just before exiting, we free our USB context
	libusb_exit(usb_context);
}