2 comedi/drivers/pcm724.c
4 Drew Csillag <drew_csillag@yahoo.com>
6 hardware driver for Advantech card:
15 Description: Advantech PCM-3724
16 Author: Drew Csillag <drew_csillag@yahoo.com>
17 Devices: [Advantech] PCM-3724 (pcm724)
20 This is driver for digital I/O boards PCM-3724 with 48 DIO.
21 It needs 8255.o for operations and only immediate mode is supported.
22 See the source for configuration details.
24 Copy/pasted/hacked from pcm724.c
27 * check_driver overrides:
31 #include "../comedidev.h"
33 #include <linux/ioport.h>
34 #include <linux/delay.h>
38 #define PCM3724_SIZE 16
59 #define CR_B_MODE 0x04
62 #define CR_A_MODE(a) ((a)<<5)
65 static int pcm3724_attach(comedi_device
* dev
, comedi_devconfig
* it
);
66 static int pcm3724_detach(comedi_device
* dev
);
69 const char *name
; // driver name
70 int dio
; // num of DIO
71 int numofports
; // num of 8255 subdevices
72 unsigned int IRQbits
; // allowed interrupts
73 unsigned int io_range
; // len of IO space
76 //used to track configured dios
81 static const boardtype boardtypes
[] = {
82 {"pcm3724", 48, 2, 0x00fc, PCM3724_SIZE
,},
85 #define n_boardtypes (sizeof(boardtypes)/sizeof(boardtype))
86 #define this_board ((const boardtype *)dev->board_ptr)
88 static comedi_driver driver_pcm3724
= {
89 driver_name
:"pcm3724",
91 attach
:pcm3724_attach
,
92 detach
:pcm3724_detach
,
93 board_name
:&boardtypes
[0].name
,
94 num_names
:n_boardtypes
,
95 offset
:sizeof(boardtype
),
98 COMEDI_INITCLEANUP(driver_pcm3724
);
100 // (setq c-basic-offset 8)
102 static int subdev_8255_cb(int dir
, int port
, int data
, unsigned long arg
)
104 unsigned long iobase
= arg
;
105 unsigned char inbres
;
106 //printk("8255cb %d %d %d %lx\n", dir,port,data,arg);
108 //printk("8255 cb outb(%x, %lx)\n", data, iobase+port);
109 outb(data
, iobase
+ port
);
112 inbres
= inb(iobase
+ port
);
113 //printk("8255 cb inb(%lx) = %x\n", iobase+port, inbres);
118 static int compute_buffer(int config
, int devno
, comedi_subdevice
* s
)
120 /* 1 in io_bits indicates output */
121 if (s
->io_bits
& 0x0000ff) {
128 if (s
->io_bits
& 0x00ff00) {
135 if (s
->io_bits
& 0xff0000) {
145 static void do_3724_config(comedi_device
* dev
, comedi_subdevice
* s
,
150 unsigned long port_8255_cfg
;
155 /* 1 in io_bits indicates output, 1 in config indicates input */
156 if (!(s
->io_bits
& 0x0000ff)) {
159 if (!(s
->io_bits
& 0x00ff00)) {
162 if (!(s
->io_bits
& 0xff0000)) {
166 buffer_config
= compute_buffer(0, 0, dev
->subdevices
);
167 buffer_config
= compute_buffer(buffer_config
, 1, (dev
->subdevices
) + 1);
169 if (s
== dev
->subdevices
) {
170 port_8255_cfg
= dev
->iobase
+ _8255_CR
;
172 port_8255_cfg
= dev
->iobase
+ SIZE_8255
+ _8255_CR
;
174 outb(buffer_config
, dev
->iobase
+ 8); /* update buffer register */
175 //printk("pcm3724 buffer_config (%lx) %d, %x\n", dev->iobase + _8255_CR, chanspec, buffer_config);
176 outb(config
, port_8255_cfg
);
179 static void enable_chan(comedi_device
* dev
, comedi_subdevice
* s
, int chanspec
)
186 priv
= (priv_pcm3724
*) (dev
->private);
188 mask
= 1 << CR_CHAN(chanspec
);
189 if (s
== dev
->subdevices
) { // subdev 0
194 if (priv
->dio_1
& 0xff0000) {
197 if (priv
->dio_1
& 0xff00) {
200 if (priv
->dio_1
& 0xff) {
203 if (priv
->dio_2
& 0xff0000) {
206 if (priv
->dio_2
& 0xff00) {
209 if (priv
->dio_2
& 0xff) {
212 // printk("gate control %x\n", gatecfg);
213 outb(gatecfg
, dev
->iobase
+ 9);
216 /* overriding the 8255 insn config */
217 static int subdev_3724_insn_config(comedi_device
* dev
, comedi_subdevice
* s
,
218 comedi_insn
* insn
, lsampl_t
* data
)
223 mask
= 1 << CR_CHAN(insn
->chanspec
);
224 if (mask
& 0x0000ff) {
226 } else if (mask
& 0x00ff00) {
228 } else if (mask
& 0x0f0000) {
235 case INSN_CONFIG_DIO_INPUT
:
238 case INSN_CONFIG_DIO_OUTPUT
:
241 case INSN_CONFIG_DIO_QUERY
:
242 data
[1] = (s
->io_bits
& bits
) ? COMEDI_OUTPUT
: COMEDI_INPUT
;
249 do_3724_config(dev
, s
, insn
->chanspec
);
250 enable_chan(dev
, s
, insn
->chanspec
);
254 static int pcm3724_attach(comedi_device
* dev
, comedi_devconfig
* it
)
256 unsigned long iobase
;
257 unsigned int iorange
;
258 int ret
, i
, n_subdevices
;
260 iobase
= it
->options
[0];
261 iorange
= this_board
->io_range
;
262 if ((ret
= alloc_private(dev
, sizeof(priv_pcm3724
))) < 0)
265 ((priv_pcm3724
*) (dev
->private))->dio_1
= 0;
266 ((priv_pcm3724
*) (dev
->private))->dio_2
= 0;
268 printk("comedi%d: pcm3724: board=%s, 0x%03lx ", dev
->minor
,
269 this_board
->name
, iobase
);
270 if (!iobase
|| !request_region(iobase
, iorange
, "pcm3724")) {
271 printk("I/O port conflict\n");
275 dev
->iobase
= iobase
;
276 dev
->board_name
= this_board
->name
;
279 n_subdevices
= this_board
->numofports
;
281 if ((ret
= alloc_subdevices(dev
, n_subdevices
)) < 0)
284 for (i
= 0; i
< dev
->n_subdevices
; i
++) {
285 subdev_8255_init(dev
, dev
->subdevices
+ i
, subdev_8255_cb
,
286 (unsigned long)(dev
->iobase
+ SIZE_8255
* i
));
287 ((dev
->subdevices
) + i
)->insn_config
= subdev_3724_insn_config
;
292 static int pcm3724_detach(comedi_device
* dev
)
296 if (dev
->subdevices
) {
297 for (i
= 0; i
< dev
->n_subdevices
; i
++) {
298 subdev_8255_cleanup(dev
, dev
->subdevices
+ i
);
302 release_region(dev
->iobase
, this_board
->io_range
);