/* * pci550x user program - DAC1 Single Sample Acquisition - Software Clock * * * This test program uses a software command to clock DAC1 by writing * to the DAC1_STATUS register.  The sample data is written directly to * the DAC1 FIFO register where it is moved to the DAC1 port and converted * to a voltage output.  This mode of operation is referred to as * "programmed I/O", meaning that no interrupts or DMA functions are * used to output the sample data.  This is the simplest method of * operating the DAC, in many cases the least efficient, and the least * prone to error. * * Invoke this test program from the command line as follows: * * $ ./pci550x_dac1_ssa -f /dev/pci550xN [-p] [-u] [-d USECS] * *      -f /dev/pci550xN	= device node (N=device #) *      -p              	= packed data mode *      -u              	= unipolar *      -d USECS		= delay between DAC conversions in microseconds * * EXAMPLE: run the test on device 3 in packed unipolar data mode *          converting every 100 microseconds * * $ ./pci550x_dac1_ssa -f /dev/pci550x3 -p -u -d100 */#include <stdio.h>#include <errno.h>#include <sys/types.h>#include <sys/stat.h>#include <sys/fcntl.h>#include <sys/ioctl.h>#include <signal.h>#include <limits.h>#include <unistd.h> #include <getopt.h>#define __USE_GNU#include <string.h>#define _PCI550X_USE_DAC_RANGE_TABLES#include "pci550x.h"/* GLOBLA DATA */int i,c;int dac1_status;int packed = PCI550X_DISABLE;int bipolar = PCI550X_ENABLE;unsigned long delay = PCI550X_NOMINAL_DAC_RATE;int fd, rc;int brd_type;char device[PATH_MAX] = "/dev/pci550x0";union {unsigned int dac_fifo;short bp_dac_fifo[2];unsigned short up_dac_fifo[2];} u1;void sighandler(int signum) {	/* user wants to quit */	printf("received signal: %s, cleaning up...\n", strsignal(signum));	/* drain the DAC1 FIFO */	rc = ioctl(fd, PCI550X_IOCG_DA1_STATUS, &dac1_status);	if(rc == -1) {		perror("ioctl PCI550X_IOCG_DA1_STATUS");		exit(1);	}	while (dac1_status & DA1_STATUS_FNE) {		/* wait for ready */		while (!(dac1_status & DA1_STATUS_READY)) {			rc = ioctl(fd, PCI550X_IOCG_DA1_STATUS, &dac1_status);			if(rc == -1) {				perror("ioctl PCI550X_IOCG_DA1_STATUS");				exit(1);			}		}		/* start conversion */		rc = ioctl(fd, PCI550X_IOC_DA1_STATUS_CONV, NULL);		if(rc == -1) {			perror("ioctl PCI550X_IOC_DA1_STATUS_CONV");			exit(1);		}		if (packed && bipolar)			printf("%s:%s DAC1 data (P,B): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.bp_dac_fifo[0],				u1.bp_dac_fifo[0] * drt.bp_res);		else if (packed && (!bipolar))			printf("%s:%s DAC1 data (P,U): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.up_dac_fifo[0],				u1.up_dac_fifo[0] * drt.up_res);		else if (bipolar)			printf("%s:%s DAC1 data (U,B): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.bp_dac_fifo[0],				u1.bp_dac_fifo[0] * drt.bp_res);		else			printf("%s:%s DAC1 data (U,U): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.up_dac_fifo[0],				u1.up_dac_fifo[0] * drt.up_res);		rc = ioctl(fd, PCI550X_IOCG_DA1_STATUS, &dac1_status);		if(rc == -1) {			perror("ioctl PCI550X_IOCG_DA1_STATUS");			exit(1);		}	}	printf("DAC1 FIFO Empty\n");	/* disable DAC1 to do conversions */	rc = ioctl(fd, PCI550X_IOCT_DA1_CVEN, PCI550X_DISABLE);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_CVEN");		exit(1);	} else {		printf("DAC1 disabled to do conversions\n");	}	/* disable DAC1 FIFO */	rc = ioctl(fd, PCI550X_IOCT_DA1_STATUS_FFEN, PCI550X_DISABLE);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_STATUS_FFEN");		exit(1);	} else {		printf("DAC1 FIFO disabled\n");	}	close(fd);	exit(0);}int main(int argc, char **argv) {        /* get command line args */        opterr = 0;        while ((c = getopt(argc, argv, "f:uphd:")) != -1)                 switch(c) {                 case 'd':                        if ((sscanf(optarg, "%ld", &delay)) == 0)                                delay = 0;                        break;                case 'f':                        strncpy(device, optarg, PATH_MAX);                        break;                case 'u':                        bipolar = PCI550X_DISABLE;                        break;                case 'p':                        packed = PCI550X_ENABLE;                        break;                case 'h':                        printf("usage: pci550x_dac1_ssa -f /dev/pci550xN "                                "[-p] [-u] [-d USECS] "				"[-g | -G | -t | -T] \n");			printf("-f /dev/pci550xN where N = board number\n");                        printf("-p, packed data mode\n");                        printf("-u, unipolar mode\n");                        printf("-d USECS = microseconds delay between "                                "conversions\n"); 			printf("-g, DAC external gate DATGIN (active low)\n"); 			printf("-G, DAC external gate DATGIN (active high)\n"); 			printf("-t, DAC external trigger (falling edge)\n"); 			printf("-T, DAC external trigger (rising edge)\n");                        exit(0);                default:                        break;                }	/* open the device */	fd = open(device, O_RDWR);	if(fd == -1) {		perror("open failed");		exit(1);	} else {		printf("open succeeded on %s\n", device);	}	/* query device type */	rc = ioctl(fd, PCI550X_IOCG_BRD_TYPE, &brd_type);	if(rc == -1) {		perror("ioctl PCI550X_IOCG_BRD_TYPE");		exit(1);	} else {		printf("ADAC Board Type:  %s\n", brd_names[brd_type]);	}        /* install the signal handler */        signal(SIGINT, &sighandler);	/* select Software Convert as DAC1 Pacer Clock Source */	rc = ioctl(fd, PCI550X_IOCT_DA1_CLOCK_SOURCE, DAC1_SW_CLK);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_CLOCK_SOURCE");		exit(1);	} else {		printf("Software Convert enabled\n");	}	/* disable/enable packed data mode */	rc = ioctl(fd, PCI550X_IOCT_DA1_PDM, packed);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_PDM");		exit(1);	} else {		if (packed)			printf("Packed Data Mode\n");		else			printf("Unpacked Data Mode\n");	}	/* enable DAC1 to do conversions */	rc = ioctl(fd, PCI550X_IOCT_DA1_CVEN, PCI550X_ENABLE);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_CVEN");		exit(1);	} else {		printf("DAC1 enabled to do conversions\n");	}	/* enable DAC1 FIFO */	rc = ioctl(fd, PCI550X_IOCT_DA1_STATUS_FFEN, PCI550X_ENABLE);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_STATUS_FFEN");		exit(1);	} else {		printf("DAC1 FIFO enabled\n");	}	/* select bipolar/unipolar mode */	rc = ioctl(fd, PCI550X_IOCT_DA1_UB, bipolar);	if(rc == -1) {		perror("ioctl PCI550X_IOCT_DA1_UB");		exit(1);	} else {		if (bipolar) {			printf("Bipolar mode enabled\n");		} else {			printf("Unipolar mode enabled\n");		}	}	/* set initial DAC value at minimum of the range */	if (packed && bipolar) {		u1.bp_dac_fifo[0] = drt.bp_min;		u1.bp_dac_fifo[1] = drt.bp_min + 1;	} else if (packed && (!(bipolar))) {		u1.up_dac_fifo[0] = drt.up_min;		u1.up_dac_fifo[1] = drt.up_min + 1;	} else if (bipolar) {		u1.bp_dac_fifo[0] = drt.bp_min;		u1.bp_dac_fifo[1] = 0;	} else {		u1.up_dac_fifo[0] = drt.up_min;		u1.up_dac_fifo[1] = 0;	}	while(1) {	/* write data to DAC1 FIFO */	rc = ioctl(fd, PCI550X_IOCS_DA1_FIFO, &u1.dac_fifo);	if(rc == -1) {		perror("ioctl PCI550X_IOCS_DA1_FIFO");		exit(1);	}	/* delay */	if (delay)		usleep(delay);	else {		/* wait for ready */		do {			rc = ioctl(fd, PCI550X_IOCG_DA1_STATUS, &dac1_status);			if(rc == -1) {				perror("ioctl PCI550X_IOCG_DA1_STATUS");				exit(1);			}		}		while (!(dac1_status & DA1_STATUS_READY));	}	while(1) {		/* start conversion */		rc = ioctl(fd, PCI550X_IOC_DA1_STATUS_CONV, NULL);		if(rc == -1) {			if (errno == EAGAIN)				printf("DAC gated OFF"				" or waiting for trigger\n");			else {				perror("ioctl PCI550X_IOC_DA1_STATUS_CONV");				exit(1);			}		 } else			break;	}	if (packed && bipolar)		printf("%s:%s DAC1 data (P,B): 0x%04hx = "			"%f Volts\n",			device, brd_names[brd_type],			u1.bp_dac_fifo[0],			u1.bp_dac_fifo[0] * drt.bp_res);	else if (packed && (!bipolar))		printf("%s:%s DAC1 data (P,U): 0x%04hx = "			"%f Volts\n",			device, brd_names[brd_type],			u1.up_dac_fifo[0],			u1.up_dac_fifo[0] * drt.up_res);	else if (bipolar)		printf("%s:%s DAC1 data (U,B): 0x%04hx = "			"%f Volts\n",			device, brd_names[brd_type],			u1.bp_dac_fifo[0],			u1.bp_dac_fifo[0] * drt.bp_res);	else		printf("%s:%s DAC1 data (U,U): 0x%04hx = "			"%f Volts\n",			device, brd_names[brd_type],			u1.up_dac_fifo[0],			u1.up_dac_fifo[0] * drt.up_res);	if (packed) {		/* delay */		if (delay)			usleep(delay);		else {			/* wait for ready */			do {				rc = ioctl(fd, PCI550X_IOCG_DA1_STATUS,					&dac1_status);				if(rc == -1) {					perror("ioctl PCI550X_IOCG_DA1_STATUS");					exit(1);				}			}		while (!(dac1_status & DA1_STATUS_READY));		}		while(1) {		/* start conversion */		rc = ioctl(fd, PCI550X_IOC_DA1_STATUS_CONV, NULL);		if(rc == -1) {			if (errno == EAGAIN)				printf("DAC gated OFF"				" or waiting for trigger\n");			else {				perror("ioctl PCI550X_IOC_DA1_STATUS_CONV");				exit(1);			}		 } else			break;		}		if (packed && bipolar)			printf("%s:%s DAC1 data (P,B): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.bp_dac_fifo[1],				u1.bp_dac_fifo[1] * drt.bp_res);		else if (packed && (!bipolar))			printf("%s:%s DAC1 data (P,U): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.up_dac_fifo[1],				u1.up_dac_fifo[1] * drt.up_res);		else if (bipolar)			printf("%s:%s DAC1 data (U,B): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.bp_dac_fifo[0],				u1.bp_dac_fifo[0] * drt.bp_res);		else			printf("%s:%s DAC1 data (U,U): 0x%04hx = "				"%f Volts\n",				device, brd_names[brd_type],				u1.up_dac_fifo[0],				u1.up_dac_fifo[0] * drt.up_res);	}	/* ramp the output values */	if (packed && bipolar)		if (u1.bp_dac_fifo[1] >= (drt.bp_max)) {			u1.bp_dac_fifo[0] = drt.bp_min;			u1.bp_dac_fifo[1] = drt.bp_min + 1;		} else {			u1.bp_dac_fifo[0] += 2;			u1.bp_dac_fifo[1] += 2;		}	else if (packed && (!bipolar))		if (u1.up_dac_fifo[1] >= (drt.up_max)) {			u1.up_dac_fifo[0] = drt.up_min;			u1.up_dac_fifo[1] = drt.up_min + 1;		} else {			u1.up_dac_fifo[0] += 2;			u1.up_dac_fifo[1] += 2;		}	else if (bipolar)		if (u1.bp_dac_fifo[0] >= (drt.bp_max)) {			u1.bp_dac_fifo[0] = drt.bp_min;		} else {			u1.bp_dac_fifo[0] ++;		}	else 		if (u1.up_dac_fifo[1] >= (drt.up_max)) {			u1.up_dac_fifo[0] = drt.up_min;		} else {			u1.up_dac_fifo[0] += 1;		}	} /* end while */	close(fd);	return(0);	}