2 comedi/drivers/pcl816.c
4 Author: Juan Grigera <juan@grigera.com.ar>
5 based on pcl818 by Michal Dobes <dobes@tesnet.cz> and bits of pcl812
7 hardware driver for Advantech cards:
13 Description: Advantech PCL-816 cards, PCL-814
14 Author: Juan Grigera <juan@grigera.com.ar>
15 Devices: [Advantech] PCL-816 (pcl816), PCL-814B (pcl814b)
17 Updated: Tue, 2 Apr 2002 23:15:21 -0800
19 PCL 816 and 814B have 16 SE/DIFF ADCs, 16 DACs, 16 DI and 16 DO.
20 Differences are at resolution (16 vs 12 bits).
22 The driver support AI command mode, other subdevices not written.
24 Analog output and digital input and output are not supported.
26 Configuration Options:
28 [1] - IRQ (0=disable, 2, 3, 4, 5, 6, 7)
29 [2] - DMA (0=disable, 1, 3)
30 [3] - 0, 10=10MHz clock for 8254
31 1= 1MHz clock for 8254
35 #include "../comedidev.h"
37 #include <linux/ioport.h>
38 #include <linux/mc146818rtc.h>
39 #include <linux/gfp.h>
40 #include <linux/delay.h>
44 #include "comedi_fc.h"
49 /* boards constants */
51 #define PCLx1x_RANGE 16
53 /* #define outb(x,y) printk("OUTB(%x, 200+%d)\n", x,y-0x200); outb(x,y) */
55 /* INTEL 8254 counters */
59 /* R: counter read-back register W: counter control */
60 #define PCL816_CTRCTL 7
62 /* R: A/D high byte W: A/D range control */
63 #define PCL816_RANGE 9
64 /* W: clear INT request */
65 #define PCL816_CLRINT 10
66 /* R: next mux scan channel W: mux scan channel & range control pointer */
68 /* R/W: operation control register */
69 #define PCL816_CONTROL 12
71 /* R: return status byte W: set DMA/IRQ */
72 #define PCL816_STATUS 13
73 #define PCL816_STATUS_DRDY_MASK 0x80
75 /* R: low byte of A/D W: soft A/D trigger */
76 #define PCL816_AD_LO 8
77 /* R: high byte of A/D W: A/D range control */
78 #define PCL816_AD_HI 9
80 /* type of interrupt handler */
81 #define INT_TYPE_AI1_INT 1
82 #define INT_TYPE_AI1_DMA 2
83 #define INT_TYPE_AI3_INT 4
84 #define INT_TYPE_AI3_DMA 5
86 #define INT_TYPE_AI1_DMA_RTC 9
87 #define INT_TYPE_AI3_DMA_RTC 10
91 #define RTC_IO_EXTENT 0x10
94 #define MAGIC_DMA_WORD 0x5a5a
96 static const struct comedi_lrange range_pcl816
= { 8, {
108 struct pcl816_board
{
110 const char *name
; /* board name */
111 int n_ranges
; /* len of range list */
112 int n_aichan
; /* num of A/D chans in diferencial mode */
113 unsigned int ai_ns_min
; /* minimal allowed delay between samples (in ns) */
114 int n_aochan
; /* num of D/A chans */
115 int n_dichan
; /* num of DI chans */
116 int n_dochan
; /* num of DO chans */
117 const struct comedi_lrange
*ai_range_type
; /* default A/D rangelist */
118 const struct comedi_lrange
*ao_range_type
; /* default D/A rangelist */
119 unsigned int io_range
; /* len of IO space */
120 unsigned int IRQbits
; /* allowed interrupts */
121 unsigned int DMAbits
; /* allowed DMA chans */
122 int ai_maxdata
; /* maxdata for A/D */
123 int ao_maxdata
; /* maxdata for D/A */
124 int ai_chanlist
; /* allowed len of channel list A/D */
125 int ao_chanlist
; /* allowed len of channel list D/A */
126 int i8254_osc_base
; /* 1/frequency of on board oscilator in ns */
130 static int RTC_lock
; /* RTC lock */
131 static int RTC_timer_lock
; /* RTC int lock */
134 struct pcl816_private
{
136 unsigned int dma
; /* used DMA, 0=don't use DMA */
137 int dma_rtc
; /* 1=RTC used with DMA, 0=no RTC alloc */
139 unsigned long rtc_iobase
; /* RTC port region */
140 unsigned int rtc_iosize
;
141 unsigned int rtc_irq
;
143 unsigned long dmabuf
[2]; /* pointers to begin of DMA buffers */
144 unsigned int dmapages
[2]; /* len of DMA buffers in PAGE_SIZEs */
145 unsigned int hwdmaptr
[2]; /* hardware address of DMA buffers */
146 unsigned int hwdmasize
[2]; /* len of DMA buffers in Bytes */
147 unsigned int dmasamplsize
; /* size in samples hwdmasize[0]/2 */
148 unsigned int last_top_dma
; /* DMA pointer in last RTC int */
149 int next_dma_buf
; /* which DMA buffer will be used next round */
150 long dma_runs_to_end
; /* how many we must permorm DMA transfer to end of record */
151 unsigned long last_dma_run
; /* how many bytes we must transfer on last DMA page */
153 unsigned int ai_scans
; /* len of scanlist */
154 unsigned char ai_neverending
; /* if=1, then we do neverending record (you must use cancel()) */
155 int irq_free
; /* 1=have allocated IRQ */
156 int irq_blocked
; /* 1=IRQ now uses any subdev */
158 int rtc_irq_blocked
; /* 1=we now do AI with DMA&RTC */
160 int irq_was_now_closed
; /* when IRQ finish, there's stored int816_mode for last interrupt */
161 int int816_mode
; /* who now uses IRQ - 1=AI1 int, 2=AI1 dma, 3=AI3 int, 4AI3 dma */
162 struct comedi_subdevice
*last_int_sub
; /* ptr to subdevice which now finish */
163 int ai_act_scan
; /* how many scans we finished */
164 unsigned int ai_act_chanlist
[16]; /* MUX setting for actual AI operations */
165 unsigned int ai_act_chanlist_len
; /* how long is actual MUX list */
166 unsigned int ai_act_chanlist_pos
; /* actual position in MUX list */
167 unsigned int ai_n_chan
; /* how many channels per scan */
168 unsigned int ai_poll_ptr
; /* how many sampes transfer poll */
169 struct comedi_subdevice
*sub_ai
; /* ptr to AI subdevice */
171 struct timer_list rtc_irq_timer
; /* timer for RTC sanity check */
172 unsigned long rtc_freq
; /* RTC int freq */
177 ==============================================================================
179 static int check_channel_list(struct comedi_device
*dev
,
180 struct comedi_subdevice
*s
,
181 unsigned int *chanlist
, unsigned int chanlen
);
182 static void setup_channel_list(struct comedi_device
*dev
,
183 struct comedi_subdevice
*s
,
184 unsigned int *chanlist
, unsigned int seglen
);
185 static int pcl816_ai_cancel(struct comedi_device
*dev
,
186 struct comedi_subdevice
*s
);
187 static void start_pacer(struct comedi_device
*dev
, int mode
,
188 unsigned int divisor1
, unsigned int divisor2
);
190 static int set_rtc_irq_bit(unsigned char bit
);
193 static int pcl816_ai_cmdtest(struct comedi_device
*dev
,
194 struct comedi_subdevice
*s
,
195 struct comedi_cmd
*cmd
);
196 static int pcl816_ai_cmd(struct comedi_device
*dev
, struct comedi_subdevice
*s
);
199 ==============================================================================
200 ANALOG INPUT MODE0, 816 cards, slow version
202 static int pcl816_ai_insn_read(struct comedi_device
*dev
,
203 struct comedi_subdevice
*s
,
204 struct comedi_insn
*insn
, unsigned int *data
)
209 DPRINTK("mode 0 analog input\n");
210 /* software trigger, DMA and INT off */
211 outb(0, dev
->iobase
+ PCL816_CONTROL
);
212 /* clear INT (conversion end) flag */
213 outb(0, dev
->iobase
+ PCL816_CLRINT
);
215 /* Set the input channel */
216 outb(CR_CHAN(insn
->chanspec
) & 0xf, dev
->iobase
+ PCL816_MUX
);
218 outb(CR_RANGE(insn
->chanspec
), dev
->iobase
+ PCL816_RANGE
);
220 for (n
= 0; n
< insn
->n
; n
++) {
222 outb(0, dev
->iobase
+ PCL816_AD_LO
); /* start conversion */
226 if (!(inb(dev
->iobase
+ PCL816_STATUS
) &
227 PCL816_STATUS_DRDY_MASK
)) {
228 /* return read value */
231 PCL816_AD_HI
) << 8) |
232 (inb(dev
->iobase
+ PCL816_AD_LO
)));
233 /* clear INT (conversion end) flag */
234 outb(0, dev
->iobase
+ PCL816_CLRINT
);
239 /* Return timeout error */
241 comedi_error(dev
, "A/D insn timeout\n");
243 /* clear INT (conversion end) flag */
244 outb(0, dev
->iobase
+ PCL816_CLRINT
);
253 ==============================================================================
254 analog input interrupt mode 1 & 3, 818 cards
255 one sample per interrupt version
257 static irqreturn_t
interrupt_pcl816_ai_mode13_int(int irq
, void *d
)
259 struct comedi_device
*dev
= d
;
260 struct pcl816_private
*devpriv
= dev
->private;
261 struct comedi_subdevice
*s
= &dev
->subdevices
[0];
263 int timeout
= 50; /* wait max 50us */
266 if (!(inb(dev
->iobase
+ PCL816_STATUS
) &
267 PCL816_STATUS_DRDY_MASK
))
271 if (!timeout
) { /* timeout, bail error */
272 outb(0, dev
->iobase
+ PCL816_CLRINT
); /* clear INT request */
273 comedi_error(dev
, "A/D mode1/3 IRQ without DRDY!");
274 pcl816_ai_cancel(dev
, s
);
275 s
->async
->events
|= COMEDI_CB_EOA
| COMEDI_CB_ERROR
;
276 comedi_event(dev
, s
);
282 low
= inb(dev
->iobase
+ PCL816_AD_LO
);
283 hi
= inb(dev
->iobase
+ PCL816_AD_HI
);
285 comedi_buf_put(s
->async
, (hi
<< 8) | low
);
287 outb(0, dev
->iobase
+ PCL816_CLRINT
); /* clear INT request */
289 if (++devpriv
->ai_act_chanlist_pos
>= devpriv
->ai_act_chanlist_len
)
290 devpriv
->ai_act_chanlist_pos
= 0;
292 s
->async
->cur_chan
++;
293 if (s
->async
->cur_chan
>= devpriv
->ai_n_chan
) {
294 s
->async
->cur_chan
= 0;
295 devpriv
->ai_act_scan
++;
298 if (!devpriv
->ai_neverending
)
299 /* all data sampled */
300 if (devpriv
->ai_act_scan
>= devpriv
->ai_scans
) {
301 /* all data sampled */
302 pcl816_ai_cancel(dev
, s
);
303 s
->async
->events
|= COMEDI_CB_EOA
;
305 comedi_event(dev
, s
);
310 ==============================================================================
311 analog input dma mode 1 & 3, 816 cards
313 static void transfer_from_dma_buf(struct comedi_device
*dev
,
314 struct comedi_subdevice
*s
, short *ptr
,
315 unsigned int bufptr
, unsigned int len
)
317 struct pcl816_private
*devpriv
= dev
->private;
320 s
->async
->events
= 0;
322 for (i
= 0; i
< len
; i
++) {
324 comedi_buf_put(s
->async
, ptr
[bufptr
++]);
326 if (++devpriv
->ai_act_chanlist_pos
>=
327 devpriv
->ai_act_chanlist_len
) {
328 devpriv
->ai_act_chanlist_pos
= 0;
331 s
->async
->cur_chan
++;
332 if (s
->async
->cur_chan
>= devpriv
->ai_n_chan
) {
333 s
->async
->cur_chan
= 0;
334 devpriv
->ai_act_scan
++;
337 if (!devpriv
->ai_neverending
)
338 /* all data sampled */
339 if (devpriv
->ai_act_scan
>= devpriv
->ai_scans
) {
340 pcl816_ai_cancel(dev
, s
);
341 s
->async
->events
|= COMEDI_CB_EOA
;
342 s
->async
->events
|= COMEDI_CB_BLOCK
;
347 comedi_event(dev
, s
);
350 static irqreturn_t
interrupt_pcl816_ai_mode13_dma(int irq
, void *d
)
352 struct comedi_device
*dev
= d
;
353 struct pcl816_private
*devpriv
= dev
->private;
354 struct comedi_subdevice
*s
= &dev
->subdevices
[0];
355 int len
, bufptr
, this_dma_buf
;
356 unsigned long dma_flags
;
359 disable_dma(devpriv
->dma
);
360 this_dma_buf
= devpriv
->next_dma_buf
;
362 /* switch dma bufs */
363 if ((devpriv
->dma_runs_to_end
> -1) || devpriv
->ai_neverending
) {
365 devpriv
->next_dma_buf
= 1 - devpriv
->next_dma_buf
;
366 set_dma_mode(devpriv
->dma
, DMA_MODE_READ
);
367 dma_flags
= claim_dma_lock();
368 /* clear_dma_ff (devpriv->dma); */
369 set_dma_addr(devpriv
->dma
,
370 devpriv
->hwdmaptr
[devpriv
->next_dma_buf
]);
371 if (devpriv
->dma_runs_to_end
) {
372 set_dma_count(devpriv
->dma
,
373 devpriv
->hwdmasize
[devpriv
->
376 set_dma_count(devpriv
->dma
, devpriv
->last_dma_run
);
378 release_dma_lock(dma_flags
);
379 enable_dma(devpriv
->dma
);
382 devpriv
->dma_runs_to_end
--;
383 outb(0, dev
->iobase
+ PCL816_CLRINT
); /* clear INT request */
385 ptr
= (short *)devpriv
->dmabuf
[this_dma_buf
];
387 len
= (devpriv
->hwdmasize
[0] >> 1) - devpriv
->ai_poll_ptr
;
388 bufptr
= devpriv
->ai_poll_ptr
;
389 devpriv
->ai_poll_ptr
= 0;
391 transfer_from_dma_buf(dev
, s
, ptr
, bufptr
, len
);
396 ==============================================================================
399 static irqreturn_t
interrupt_pcl816(int irq
, void *d
)
401 struct comedi_device
*dev
= d
;
402 struct pcl816_private
*devpriv
= dev
->private;
406 if (!dev
->attached
) {
407 comedi_error(dev
, "premature interrupt");
411 switch (devpriv
->int816_mode
) {
412 case INT_TYPE_AI1_DMA
:
413 case INT_TYPE_AI3_DMA
:
414 return interrupt_pcl816_ai_mode13_dma(irq
, d
);
415 case INT_TYPE_AI1_INT
:
416 case INT_TYPE_AI3_INT
:
417 return interrupt_pcl816_ai_mode13_int(irq
, d
);
420 outb(0, dev
->iobase
+ PCL816_CLRINT
); /* clear INT request */
421 if (!dev
->irq
|| !devpriv
->irq_free
|| !devpriv
->irq_blocked
||
422 !devpriv
->int816_mode
) {
423 if (devpriv
->irq_was_now_closed
) {
424 devpriv
->irq_was_now_closed
= 0;
425 /* comedi_error(dev,"last IRQ.."); */
428 comedi_error(dev
, "bad IRQ!");
431 comedi_error(dev
, "IRQ from unknown source!");
436 ==============================================================================
439 static void pcl816_cmdtest_out(int e
, struct comedi_cmd
*cmd
)
441 printk(KERN_INFO
"pcl816 e=%d startsrc=%x scansrc=%x convsrc=%x\n", e
,
442 cmd
->start_src
, cmd
->scan_begin_src
, cmd
->convert_src
);
443 printk(KERN_INFO
"pcl816 e=%d startarg=%d scanarg=%d convarg=%d\n", e
,
444 cmd
->start_arg
, cmd
->scan_begin_arg
, cmd
->convert_arg
);
445 printk(KERN_INFO
"pcl816 e=%d stopsrc=%x scanend=%x\n", e
,
446 cmd
->stop_src
, cmd
->scan_end_src
);
447 printk(KERN_INFO
"pcl816 e=%d stoparg=%d scanendarg=%d chanlistlen=%d\n",
448 e
, cmd
->stop_arg
, cmd
->scan_end_arg
, cmd
->chanlist_len
);
452 ==============================================================================
454 static int pcl816_ai_cmdtest(struct comedi_device
*dev
,
455 struct comedi_subdevice
*s
, struct comedi_cmd
*cmd
)
457 const struct pcl816_board
*board
= comedi_board(dev
);
459 int tmp
, divisor1
= 0, divisor2
= 0;
461 DEBUG(printk(KERN_INFO
"pcl816 pcl812_ai_cmdtest\n");
462 pcl816_cmdtest_out(-1, cmd
);
465 /* Step 1 : check if triggers are trivially valid */
467 err
|= cfc_check_trigger_src(&cmd
->start_src
, TRIG_NOW
);
468 err
|= cfc_check_trigger_src(&cmd
->scan_begin_src
, TRIG_FOLLOW
);
469 err
|= cfc_check_trigger_src(&cmd
->convert_src
, TRIG_EXT
| TRIG_TIMER
);
470 err
|= cfc_check_trigger_src(&cmd
->scan_end_src
, TRIG_COUNT
);
471 err
|= cfc_check_trigger_src(&cmd
->stop_src
, TRIG_COUNT
| TRIG_NONE
);
476 /* Step 2a : make sure trigger sources are unique */
478 err
|= cfc_check_trigger_is_unique(cmd
->convert_src
);
479 err
|= cfc_check_trigger_is_unique(cmd
->stop_src
);
481 /* Step 2b : and mutually compatible */
487 /* step 3: make sure arguments are trivially compatible */
488 if (cmd
->start_arg
!= 0) {
493 if (cmd
->scan_begin_arg
!= 0) {
494 cmd
->scan_begin_arg
= 0;
497 if (cmd
->convert_src
== TRIG_TIMER
) {
498 if (cmd
->convert_arg
< board
->ai_ns_min
) {
499 cmd
->convert_arg
= board
->ai_ns_min
;
502 } else { /* TRIG_EXT */
503 if (cmd
->convert_arg
!= 0) {
504 cmd
->convert_arg
= 0;
509 if (cmd
->scan_end_arg
!= cmd
->chanlist_len
) {
510 cmd
->scan_end_arg
= cmd
->chanlist_len
;
513 if (cmd
->stop_src
== TRIG_COUNT
) {
514 if (!cmd
->stop_arg
) {
518 } else { /* TRIG_NONE */
519 if (cmd
->stop_arg
!= 0) {
529 /* step 4: fix up any arguments */
530 if (cmd
->convert_src
== TRIG_TIMER
) {
531 tmp
= cmd
->convert_arg
;
532 i8253_cascade_ns_to_timer(board
->i8254_osc_base
,
533 &divisor1
, &divisor2
,
535 cmd
->flags
& TRIG_ROUND_MASK
);
536 if (cmd
->convert_arg
< board
->ai_ns_min
)
537 cmd
->convert_arg
= board
->ai_ns_min
;
538 if (tmp
!= cmd
->convert_arg
)
546 /* step 5: complain about special chanlist considerations */
549 if (!check_channel_list(dev
, s
, cmd
->chanlist
,
551 return 5; /* incorrect channels list */
557 static int pcl816_ai_cmd(struct comedi_device
*dev
, struct comedi_subdevice
*s
)
559 const struct pcl816_board
*board
= comedi_board(dev
);
560 struct pcl816_private
*devpriv
= dev
->private;
561 unsigned int divisor1
= 0, divisor2
= 0, dma_flags
, bytes
, dmairq
;
562 struct comedi_cmd
*cmd
= &s
->async
->cmd
;
565 if (cmd
->start_src
!= TRIG_NOW
)
567 if (cmd
->scan_begin_src
!= TRIG_FOLLOW
)
569 if (cmd
->scan_end_src
!= TRIG_COUNT
)
571 if (cmd
->scan_end_arg
!= cmd
->chanlist_len
)
573 /* if(cmd->chanlist_len>MAX_CHANLIST_LEN) return -EINVAL; */
574 if (devpriv
->irq_blocked
)
577 if (cmd
->convert_src
== TRIG_TIMER
) {
578 if (cmd
->convert_arg
< board
->ai_ns_min
)
579 cmd
->convert_arg
= board
->ai_ns_min
;
581 i8253_cascade_ns_to_timer(board
->i8254_osc_base
, &divisor1
,
582 &divisor2
, &cmd
->convert_arg
,
583 cmd
->flags
& TRIG_ROUND_MASK
);
585 /* PCL816 crash if any divisor is set to 1 */
596 start_pacer(dev
, -1, 0, 0); /* stop pacer */
598 seglen
= check_channel_list(dev
, s
, cmd
->chanlist
, cmd
->chanlist_len
);
601 setup_channel_list(dev
, s
, cmd
->chanlist
, seglen
);
604 devpriv
->ai_n_chan
= cmd
->chanlist_len
;
605 devpriv
->ai_act_scan
= 0;
606 s
->async
->cur_chan
= 0;
607 devpriv
->irq_blocked
= 1;
608 devpriv
->ai_poll_ptr
= 0;
609 devpriv
->irq_was_now_closed
= 0;
611 if (cmd
->stop_src
== TRIG_COUNT
) {
612 devpriv
->ai_scans
= cmd
->stop_arg
;
613 devpriv
->ai_neverending
= 0;
615 devpriv
->ai_scans
= 0;
616 devpriv
->ai_neverending
= 1;
619 /* don't we want wake up every scan? */
620 if ((cmd
->flags
& TRIG_WAKE_EOS
)) {
622 "pl816: You wankt WAKE_EOS but I dont want handle it");
623 /* devpriv->ai_eos=1; */
624 /* if (devpriv->ai_n_chan==1) */
625 /* devpriv->dma=0; // DMA is useless for this situation */
629 bytes
= devpriv
->hwdmasize
[0];
630 if (!devpriv
->ai_neverending
) {
632 bytes
= s
->async
->cmd
.chanlist_len
*
633 s
->async
->cmd
.chanlist_len
*
636 /* how many DMA pages we must fill */
637 devpriv
->dma_runs_to_end
= bytes
/
638 devpriv
->hwdmasize
[0];
640 /* on last dma transfer must be moved */
641 devpriv
->last_dma_run
= bytes
% devpriv
->hwdmasize
[0];
642 devpriv
->dma_runs_to_end
--;
643 if (devpriv
->dma_runs_to_end
>= 0)
644 bytes
= devpriv
->hwdmasize
[0];
646 devpriv
->dma_runs_to_end
= -1;
648 devpriv
->next_dma_buf
= 0;
649 set_dma_mode(devpriv
->dma
, DMA_MODE_READ
);
650 dma_flags
= claim_dma_lock();
651 clear_dma_ff(devpriv
->dma
);
652 set_dma_addr(devpriv
->dma
, devpriv
->hwdmaptr
[0]);
653 set_dma_count(devpriv
->dma
, bytes
);
654 release_dma_lock(dma_flags
);
655 enable_dma(devpriv
->dma
);
658 start_pacer(dev
, 1, divisor1
, divisor2
);
659 dmairq
= ((devpriv
->dma
& 0x3) << 4) | (dev
->irq
& 0x7);
661 switch (cmd
->convert_src
) {
663 devpriv
->int816_mode
= INT_TYPE_AI1_DMA
;
666 outb(0x32, dev
->iobase
+ PCL816_CONTROL
);
668 /* write irq and DMA to card */
669 outb(dmairq
, dev
->iobase
+ PCL816_STATUS
);
673 devpriv
->int816_mode
= INT_TYPE_AI3_DMA
;
675 /* Ext trig+IRQ+DMA */
676 outb(0x34, dev
->iobase
+ PCL816_CONTROL
);
678 /* write irq to card */
679 outb(dmairq
, dev
->iobase
+ PCL816_STATUS
);
683 DPRINTK("pcl816 END: pcl812_ai_cmd()\n");
687 static int pcl816_ai_poll(struct comedi_device
*dev
, struct comedi_subdevice
*s
)
689 struct pcl816_private
*devpriv
= dev
->private;
691 unsigned int top1
, top2
, i
;
694 return 0; /* poll is valid only for DMA transfer */
696 spin_lock_irqsave(&dev
->spinlock
, flags
);
698 for (i
= 0; i
< 20; i
++) {
699 top1
= get_dma_residue(devpriv
->dma
); /* where is now DMA */
700 top2
= get_dma_residue(devpriv
->dma
);
705 spin_unlock_irqrestore(&dev
->spinlock
, flags
);
709 /* where is now DMA in buffer */
710 top1
= devpriv
->hwdmasize
[0] - top1
;
711 top1
>>= 1; /* sample position */
712 top2
= top1
- devpriv
->ai_poll_ptr
;
713 if (top2
< 1) { /* no new samples */
714 spin_unlock_irqrestore(&dev
->spinlock
, flags
);
718 transfer_from_dma_buf(dev
, s
,
719 (short *)devpriv
->dmabuf
[devpriv
->next_dma_buf
],
720 devpriv
->ai_poll_ptr
, top2
);
722 devpriv
->ai_poll_ptr
= top1
; /* new buffer position */
723 spin_unlock_irqrestore(&dev
->spinlock
, flags
);
725 return s
->async
->buf_write_count
- s
->async
->buf_read_count
;
729 ==============================================================================
730 cancel any mode 1-4 AI
732 static int pcl816_ai_cancel(struct comedi_device
*dev
,
733 struct comedi_subdevice
*s
)
735 struct pcl816_private
*devpriv
= dev
->private;
737 /* DEBUG(printk("pcl816_ai_cancel()\n");) */
739 if (devpriv
->irq_blocked
> 0) {
740 switch (devpriv
->int816_mode
) {
742 case INT_TYPE_AI1_DMA_RTC
:
743 case INT_TYPE_AI3_DMA_RTC
:
744 set_rtc_irq_bit(0); /* stop RTC */
745 del_timer(&devpriv
->rtc_irq_timer
);
747 case INT_TYPE_AI1_DMA
:
748 case INT_TYPE_AI3_DMA
:
749 disable_dma(devpriv
->dma
);
750 case INT_TYPE_AI1_INT
:
751 case INT_TYPE_AI3_INT
:
752 outb(inb(dev
->iobase
+ PCL816_CONTROL
) & 0x73,
753 dev
->iobase
+ PCL816_CONTROL
); /* Stop A/D */
755 outb(0, dev
->iobase
+ PCL816_CONTROL
); /* Stop A/D */
758 outb(0xb0, dev
->iobase
+ PCL816_CTRCTL
);
759 outb(0x70, dev
->iobase
+ PCL816_CTRCTL
);
760 outb(0, dev
->iobase
+ PCL816_AD_LO
);
761 inb(dev
->iobase
+ PCL816_AD_LO
);
762 inb(dev
->iobase
+ PCL816_AD_HI
);
764 /* clear INT request */
765 outb(0, dev
->iobase
+ PCL816_CLRINT
);
768 outb(0, dev
->iobase
+ PCL816_CONTROL
);
769 devpriv
->irq_blocked
= 0;
770 devpriv
->irq_was_now_closed
= devpriv
->int816_mode
;
771 devpriv
->int816_mode
= 0;
772 devpriv
->last_int_sub
= s
;
778 DEBUG(printk("comedi: pcl816_ai_cancel() successful\n");)
783 ==============================================================================
786 static int pcl816_check(unsigned long iobase
)
788 outb(0x00, iobase
+ PCL816_MUX
);
790 if (inb(iobase
+ PCL816_MUX
) != 0x00)
791 return 1; /* there isn't card */
792 outb(0x55, iobase
+ PCL816_MUX
);
794 if (inb(iobase
+ PCL816_MUX
) != 0x55)
795 return 1; /* there isn't card */
796 outb(0x00, iobase
+ PCL816_MUX
);
798 outb(0x18, iobase
+ PCL816_CONTROL
);
800 if (inb(iobase
+ PCL816_CONTROL
) != 0x18)
801 return 1; /* there isn't card */
802 return 0; /* ok, card exist */
806 ==============================================================================
807 reset whole PCL-816 cards
809 static void pcl816_reset(struct comedi_device
*dev
)
811 /* outb (0, dev->iobase + PCL818_DA_LO); DAC=0V */
812 /* outb (0, dev->iobase + PCL818_DA_HI); */
814 /* outb (0, dev->iobase + PCL818_DO_HI); DO=$0000 */
815 /* outb (0, dev->iobase + PCL818_DO_LO); */
817 outb(0, dev
->iobase
+ PCL816_CONTROL
);
818 outb(0, dev
->iobase
+ PCL816_MUX
);
819 outb(0, dev
->iobase
+ PCL816_CLRINT
);
820 outb(0xb0, dev
->iobase
+ PCL816_CTRCTL
); /* Stop pacer */
821 outb(0x70, dev
->iobase
+ PCL816_CTRCTL
);
822 outb(0x30, dev
->iobase
+ PCL816_CTRCTL
);
823 outb(0, dev
->iobase
+ PCL816_RANGE
);
827 ==============================================================================
828 Start/stop pacer onboard pacer
831 start_pacer(struct comedi_device
*dev
, int mode
, unsigned int divisor1
,
832 unsigned int divisor2
)
834 outb(0x32, dev
->iobase
+ PCL816_CTRCTL
);
835 outb(0xff, dev
->iobase
+ PCL816_CTR0
);
836 outb(0x00, dev
->iobase
+ PCL816_CTR0
);
839 /* set counter 2 as mode 3 */
840 outb(0xb4, dev
->iobase
+ PCL816_CTRCTL
);
841 /* set counter 1 as mode 3 */
842 outb(0x74, dev
->iobase
+ PCL816_CTRCTL
);
846 DPRINTK("mode %d, divisor1 %d, divisor2 %d\n", mode
, divisor1
,
848 outb(divisor2
& 0xff, dev
->iobase
+ PCL816_CTR2
);
849 outb((divisor2
>> 8) & 0xff, dev
->iobase
+ PCL816_CTR2
);
850 outb(divisor1
& 0xff, dev
->iobase
+ PCL816_CTR1
);
851 outb((divisor1
>> 8) & 0xff, dev
->iobase
+ PCL816_CTR1
);
854 /* clear pending interrupts (just in case) */
855 /* outb(0, dev->iobase + PCL816_CLRINT); */
859 ==============================================================================
860 Check if channel list from user is builded correctly
861 If it's ok, then return non-zero length of repeated segment of channel list
864 check_channel_list(struct comedi_device
*dev
,
865 struct comedi_subdevice
*s
, unsigned int *chanlist
,
866 unsigned int chanlen
)
868 unsigned int chansegment
[16];
869 unsigned int i
, nowmustbechan
, seglen
, segpos
;
871 /* correct channel and range number check itself comedi/range.c */
873 comedi_error(dev
, "range/channel list is empty!");
878 /* first channel is every time ok */
879 chansegment
[0] = chanlist
[0];
880 for (i
= 1, seglen
= 1; i
< chanlen
; i
++, seglen
++) {
881 /* build part of chanlist */
882 DEBUG(printk(KERN_INFO
"%d. %d %d\n", i
,
883 CR_CHAN(chanlist
[i
]),
884 CR_RANGE(chanlist
[i
]));)
886 /* we detect loop, this must by finish */
887 if (chanlist
[0] == chanlist
[i
])
890 (CR_CHAN(chansegment
[i
- 1]) + 1) % chanlen
;
891 if (nowmustbechan
!= CR_CHAN(chanlist
[i
])) {
892 /* channel list isn't continuous :-( */
894 "comedi%d: pcl816: channel list must "
895 "be continuous! chanlist[%i]=%d but "
896 "must be %d or %d!\n", dev
->minor
,
897 i
, CR_CHAN(chanlist
[i
]), nowmustbechan
,
898 CR_CHAN(chanlist
[0]));
901 /* well, this is next correct channel in list */
902 chansegment
[i
] = chanlist
[i
];
905 /* check whole chanlist */
906 for (i
= 0, segpos
= 0; i
< chanlen
; i
++) {
907 DEBUG(printk("%d %d=%d %d\n",
908 CR_CHAN(chansegment
[i
% seglen
]),
909 CR_RANGE(chansegment
[i
% seglen
]),
910 CR_CHAN(chanlist
[i
]),
911 CR_RANGE(chanlist
[i
]));)
912 if (chanlist
[i
] != chansegment
[i
% seglen
]) {
914 "comedi%d: pcl816: bad channel or range"
915 " number! chanlist[%i]=%d,%d,%d and not"
916 " %d,%d,%d!\n", dev
->minor
, i
,
917 CR_CHAN(chansegment
[i
]),
918 CR_RANGE(chansegment
[i
]),
919 CR_AREF(chansegment
[i
]),
920 CR_CHAN(chanlist
[i
% seglen
]),
921 CR_RANGE(chanlist
[i
% seglen
]),
922 CR_AREF(chansegment
[i
% seglen
]));
923 return 0; /* chan/gain list is strange */
930 return seglen
; /* we can serve this with MUX logic */
934 ==============================================================================
935 Program scan/gain logic with channel list.
938 setup_channel_list(struct comedi_device
*dev
,
939 struct comedi_subdevice
*s
, unsigned int *chanlist
,
942 struct pcl816_private
*devpriv
= dev
->private;
945 devpriv
->ai_act_chanlist_len
= seglen
;
946 devpriv
->ai_act_chanlist_pos
= 0;
948 for (i
= 0; i
< seglen
; i
++) { /* store range list to card */
949 devpriv
->ai_act_chanlist
[i
] = CR_CHAN(chanlist
[i
]);
950 outb(CR_CHAN(chanlist
[0]) & 0xf, dev
->iobase
+ PCL816_MUX
);
952 outb(CR_RANGE(chanlist
[0]), dev
->iobase
+ PCL816_RANGE
);
956 /* select channel interval to scan */
957 outb(devpriv
->ai_act_chanlist
[0] |
958 (devpriv
->ai_act_chanlist
[seglen
- 1] << 4),
959 dev
->iobase
+ PCL816_MUX
);
964 ==============================================================================
965 Enable(1)/disable(0) periodic interrupts from RTC
967 static int set_rtc_irq_bit(unsigned char bit
)
974 if (RTC_timer_lock
> 1)
978 if (RTC_timer_lock
< 0)
980 if (RTC_timer_lock
> 0)
986 val
= CMOS_READ(RTC_CONTROL
);
992 CMOS_WRITE(val
, RTC_CONTROL
);
993 CMOS_READ(RTC_INTR_FLAGS
);
994 restore_flags(flags
);
999 static int pcl816_attach(struct comedi_device
*dev
, struct comedi_devconfig
*it
)
1001 const struct pcl816_board
*board
= comedi_board(dev
);
1002 struct pcl816_private
*devpriv
;
1004 unsigned long iobase
;
1005 unsigned int irq
, dma
;
1006 unsigned long pages
;
1008 struct comedi_subdevice
*s
;
1010 /* claim our I/O space */
1011 iobase
= it
->options
[0];
1012 printk("comedi%d: pcl816: board=%s, ioport=0x%03lx", dev
->minor
,
1013 board
->name
, iobase
);
1015 if (!request_region(iobase
, board
->io_range
, "pcl816")) {
1016 printk("I/O port conflict\n");
1020 dev
->iobase
= iobase
;
1022 if (pcl816_check(iobase
)) {
1023 printk(KERN_ERR
", I cann't detect board. FAIL!\n");
1027 devpriv
= kzalloc(sizeof(*devpriv
), GFP_KERNEL
);
1030 dev
->private = devpriv
;
1032 dev
->board_name
= board
->name
;
1036 if (board
->IRQbits
!= 0) { /* board support IRQ */
1037 irq
= it
->options
[1];
1038 if (irq
) { /* we want to use IRQ */
1039 if (((1 << irq
) & board
->IRQbits
) == 0) {
1041 (", IRQ %u is out of allowed range, "
1042 "DISABLING IT", irq
);
1043 irq
= 0; /* Bad IRQ */
1046 (irq
, interrupt_pcl816
, 0, "pcl816", dev
)) {
1048 (", unable to allocate IRQ %u, "
1049 "DISABLING IT", irq
);
1050 irq
= 0; /* Can't use IRQ */
1052 printk(KERN_INFO
", irq=%u", irq
);
1059 if (irq
) /* 1=we have allocated irq */
1060 devpriv
->irq_free
= 1;
1062 devpriv
->irq_free
= 0;
1064 devpriv
->irq_blocked
= 0; /* number of subdevice which use IRQ */
1065 devpriv
->int816_mode
= 0; /* mode of irq */
1068 /* grab RTC for DMA operations */
1069 devpriv
->dma_rtc
= 0;
1070 if (it
->options
[2] > 0) { /* we want to use DMA */
1071 if (RTC_lock
== 0) {
1072 if (!request_region(RTC_PORT(0), RTC_IO_EXTENT
,
1076 devpriv
->rtc_iobase
= RTC_PORT(0);
1077 devpriv
->rtc_iosize
= RTC_IO_EXTENT
;
1079 #ifdef UNTESTED_CODE
1080 if (!request_irq(RTC_IRQ
, interrupt_pcl816_ai_mode13_dma_rtc
, 0,
1081 "pcl816 DMA (RTC)", dev
)) {
1082 devpriv
->dma_rtc
= 1;
1083 devpriv
->rtc_irq
= RTC_IRQ
;
1084 printk(", dma_irq=%u", devpriv
->rtc_irq
);
1087 if (RTC_lock
== 0) {
1088 if (devpriv
->rtc_iobase
)
1089 release_region(devpriv
->rtc_iobase
,
1090 devpriv
->rtc_iosize
);
1092 devpriv
->rtc_iobase
= 0;
1093 devpriv
->rtc_iosize
= 0;
1096 printk("pcl816: RTC code missing");
1106 if ((devpriv
->irq_free
== 0) && (devpriv
->dma_rtc
== 0))
1107 goto no_dma
; /* if we haven't IRQ, we can't use DMA */
1109 if (board
->DMAbits
!= 0) { /* board support DMA */
1110 dma
= it
->options
[2];
1112 goto no_dma
; /* DMA disabled */
1114 if (((1 << dma
) & board
->DMAbits
) == 0) {
1115 printk(", DMA is out of allowed range, FAIL!\n");
1116 return -EINVAL
; /* Bad DMA */
1118 ret
= request_dma(dma
, "pcl816");
1121 ", unable to allocate DMA %u, FAIL!\n", dma
);
1122 return -EBUSY
; /* DMA isn't free */
1126 printk(KERN_INFO
", dma=%u", dma
);
1127 pages
= 2; /* we need 16KB */
1128 devpriv
->dmabuf
[0] = __get_dma_pages(GFP_KERNEL
, pages
);
1130 if (!devpriv
->dmabuf
[0]) {
1131 printk(", unable to allocate DMA buffer, FAIL!\n");
1133 * maybe experiment with try_to_free_pages()
1136 return -EBUSY
; /* no buffer :-( */
1138 devpriv
->dmapages
[0] = pages
;
1139 devpriv
->hwdmaptr
[0] = virt_to_bus((void *)devpriv
->dmabuf
[0]);
1140 devpriv
->hwdmasize
[0] = (1 << pages
) * PAGE_SIZE
;
1141 /* printk("%d %d %ld, ",devpriv->dmapages[0],devpriv->hwdmasize[0],PAGE_SIZE); */
1143 if (devpriv
->dma_rtc
== 0) { /* we must do duble buff :-( */
1144 devpriv
->dmabuf
[1] = __get_dma_pages(GFP_KERNEL
, pages
);
1145 if (!devpriv
->dmabuf
[1]) {
1147 ", unable to allocate DMA buffer, "
1151 devpriv
->dmapages
[1] = pages
;
1152 devpriv
->hwdmaptr
[1] =
1153 virt_to_bus((void *)devpriv
->dmabuf
[1]);
1154 devpriv
->hwdmasize
[1] = (1 << pages
) * PAGE_SIZE
;
1160 /* if (board->n_aochan > 0)
1161 subdevs[1] = COMEDI_SUBD_AO;
1162 if (board->n_dichan > 0)
1163 subdevs[2] = COMEDI_SUBD_DI;
1164 if (board->n_dochan > 0)
1165 subdevs[3] = COMEDI_SUBD_DO;
1168 ret
= comedi_alloc_subdevices(dev
, 1);
1172 s
= &dev
->subdevices
[0];
1173 if (board
->n_aichan
> 0) {
1174 s
->type
= COMEDI_SUBD_AI
;
1175 devpriv
->sub_ai
= s
;
1176 dev
->read_subdev
= s
;
1177 s
->subdev_flags
= SDF_READABLE
| SDF_CMD_READ
;
1178 s
->n_chan
= board
->n_aichan
;
1179 s
->subdev_flags
|= SDF_DIFF
;
1180 /* printk (", %dchans DIFF DAC - %d", s->n_chan, i); */
1181 s
->maxdata
= board
->ai_maxdata
;
1182 s
->len_chanlist
= board
->ai_chanlist
;
1183 s
->range_table
= board
->ai_range_type
;
1184 s
->cancel
= pcl816_ai_cancel
;
1185 s
->do_cmdtest
= pcl816_ai_cmdtest
;
1186 s
->do_cmd
= pcl816_ai_cmd
;
1187 s
->poll
= pcl816_ai_poll
;
1188 s
->insn_read
= pcl816_ai_insn_read
;
1190 s
->type
= COMEDI_SUBD_UNUSED
;
1194 case COMEDI_SUBD_AO
:
1195 s
->subdev_flags
= SDF_WRITABLE
| SDF_GROUND
;
1196 s
->n_chan
= board
->n_aochan
;
1197 s
->maxdata
= board
->ao_maxdata
;
1198 s
->len_chanlist
= board
->ao_chanlist
;
1199 s
->range_table
= board
->ao_range_type
;
1202 case COMEDI_SUBD_DI
:
1203 s
->subdev_flags
= SDF_READABLE
;
1204 s
->n_chan
= board
->n_dichan
;
1206 s
->len_chanlist
= board
->n_dichan
;
1207 s
->range_table
= &range_digital
;
1210 case COMEDI_SUBD_DO
:
1211 s
->subdev_flags
= SDF_WRITABLE
;
1212 s
->n_chan
= board
->n_dochan
;
1214 s
->len_chanlist
= board
->n_dochan
;
1215 s
->range_table
= &range_digital
;
1226 static void pcl816_detach(struct comedi_device
*dev
)
1228 const struct pcl816_board
*board
= comedi_board(dev
);
1229 struct pcl816_private
*devpriv
= dev
->private;
1232 pcl816_ai_cancel(dev
, devpriv
->sub_ai
);
1235 free_dma(devpriv
->dma
);
1236 if (devpriv
->dmabuf
[0])
1237 free_pages(devpriv
->dmabuf
[0], devpriv
->dmapages
[0]);
1238 if (devpriv
->dmabuf
[1])
1239 free_pages(devpriv
->dmabuf
[1], devpriv
->dmapages
[1]);
1241 if (devpriv
->rtc_irq
)
1242 free_irq(devpriv
->rtc_irq
, dev
);
1243 if ((devpriv
->dma_rtc
) && (RTC_lock
== 1)) {
1244 if (devpriv
->rtc_iobase
)
1245 release_region(devpriv
->rtc_iobase
,
1246 devpriv
->rtc_iosize
);
1251 free_irq(dev
->irq
, dev
);
1253 release_region(dev
->iobase
, board
->io_range
);
1255 if (devpriv
->dma_rtc
)
1260 static const struct pcl816_board boardtypes
[] = {
1261 {"pcl816", 8, 16, 10000, 1, 16, 16, &range_pcl816
,
1262 &range_pcl816
, PCLx1x_RANGE
,
1263 0x00fc, /* IRQ mask */
1264 0x0a, /* DMA mask */
1265 0xffff, /* 16-bit card */
1266 0xffff, /* D/A maxdata */
1268 1, /* ao chan list */
1270 {"pcl814b", 8, 16, 10000, 1, 16, 16, &range_pcl816
,
1271 &range_pcl816
, PCLx1x_RANGE
,
1274 0x3fff, /* 14 bit card */
1281 static struct comedi_driver pcl816_driver
= {
1282 .driver_name
= "pcl816",
1283 .module
= THIS_MODULE
,
1284 .attach
= pcl816_attach
,
1285 .detach
= pcl816_detach
,
1286 .board_name
= &boardtypes
[0].name
,
1287 .num_names
= ARRAY_SIZE(boardtypes
),
1288 .offset
= sizeof(struct pcl816_board
),
1290 module_comedi_driver(pcl816_driver
);
1292 MODULE_AUTHOR("Comedi http://www.comedi.org");
1293 MODULE_DESCRIPTION("Comedi low-level driver");
1294 MODULE_LICENSE("GPL");