adc.c revision 1.1 1 1.1 uwe /* $NetBSD: adc.c,v 1.1 2003/10/18 01:27:18 uwe Exp $ */
2 1.1 uwe
3 1.1 uwe /*
4 1.1 uwe * Copyright (c) 2003 Valeriy E. Ushakov
5 1.1 uwe * All rights reserved.
6 1.1 uwe *
7 1.1 uwe * Redistribution and use in source and binary forms, with or without
8 1.1 uwe * modification, are permitted provided that the following conditions
9 1.1 uwe * are met:
10 1.1 uwe * 1. Redistributions of source code must retain the above copyright
11 1.1 uwe * notice, this list of conditions and the following disclaimer.
12 1.1 uwe * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 uwe * notice, this list of conditions and the following disclaimer in the
14 1.1 uwe * documentation and/or other materials provided with the distribution.
15 1.1 uwe * 3. The name of the author may not be used to endorse or promote products
16 1.1 uwe * derived from this software without specific prior written permission
17 1.1 uwe *
18 1.1 uwe * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 1.1 uwe * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 1.1 uwe * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 1.1 uwe * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 1.1 uwe * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23 1.1 uwe * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24 1.1 uwe * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 1.1 uwe * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 1.1 uwe * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 1.1 uwe * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 1.1 uwe */
29 1.1 uwe
30 1.1 uwe #include <sys/param.h>
31 1.1 uwe #include <sys/kernel.h>
32 1.1 uwe #include <sys/device.h>
33 1.1 uwe #include <sys/malloc.h>
34 1.1 uwe #include <sys/systm.h>
35 1.1 uwe #ifdef GPROF
36 1.1 uwe #include <sys/gmon.h>
37 1.1 uwe #endif
38 1.1 uwe
39 1.1 uwe #include <sh3/adcreg.h>
40 1.1 uwe
41 1.1 uwe #define ADC_(x) (*((volatile uint8_t *)SH7709_AD ## x))
42 1.1 uwe
43 1.1 uwe
44 1.1 uwe struct adc_softc {
45 1.1 uwe struct device sc_dev;
46 1.1 uwe };
47 1.1 uwe
48 1.1 uwe static int adc_match(struct device *, struct cfdata *, void *);
49 1.1 uwe static void adc_attach(struct device *, struct device *, void *);
50 1.1 uwe
51 1.1 uwe CFATTACH_DECL(adc, sizeof(struct adc_softc),
52 1.1 uwe adc_match, adc_attach, NULL, NULL);
53 1.1 uwe
54 1.1 uwe static int adc_search(struct device *, struct cfdata *, void *);
55 1.1 uwe static int adc_print(void *, const char *);
56 1.1 uwe
57 1.1 uwe extern int adc_sample_channel(int); /* XXX: adcvar.h */
58 1.1 uwe
59 1.1 uwe
60 1.1 uwe static int
61 1.1 uwe adc_match(struct device *parent, struct cfdata *cfp, void *aux)
62 1.1 uwe {
63 1.1 uwe
64 1.1 uwe /* REMINDER: also in 7727 and 7729 */
65 1.1 uwe if ((cpu_product != CPU_PRODUCT_7709)
66 1.1 uwe && (cpu_product != CPU_PRODUCT_7709A))
67 1.1 uwe return (0);
68 1.1 uwe
69 1.1 uwe if (strcmp(cfp->cf_name, "adc") != 0)
70 1.1 uwe return (0);
71 1.1 uwe
72 1.1 uwe return (1);
73 1.1 uwe }
74 1.1 uwe
75 1.1 uwe
76 1.1 uwe static void
77 1.1 uwe adc_attach(struct device *parent, struct device *self, void *aux)
78 1.1 uwe {
79 1.1 uwe /* struct adc_softc *sc = (struct adc_softc *)self; */
80 1.1 uwe
81 1.1 uwe ADC_(CSR) = 0;
82 1.1 uwe ADC_(CR) = 0;
83 1.1 uwe
84 1.1 uwe printf("\n");
85 1.1 uwe config_search(adc_search, self, NULL);
86 1.1 uwe }
87 1.1 uwe
88 1.1 uwe
89 1.1 uwe static int
90 1.1 uwe adc_search(struct device *parent, struct cfdata *cf, void *aux)
91 1.1 uwe {
92 1.1 uwe
93 1.1 uwe if (config_match(parent, cf, NULL) > 0)
94 1.1 uwe config_attach(parent, cf, NULL, adc_print);
95 1.1 uwe
96 1.1 uwe return (0);
97 1.1 uwe }
98 1.1 uwe
99 1.1 uwe
100 1.1 uwe static int
101 1.1 uwe adc_print(void *aux, const char *pnp)
102 1.1 uwe {
103 1.1 uwe
104 1.1 uwe return (pnp ? QUIET : UNCONF);
105 1.1 uwe }
106 1.1 uwe
107 1.1 uwe
108 1.1 uwe /*
109 1.1 uwe * Sample specified ADC channel.
110 1.1 uwe * Must be called at spltty().
111 1.1 uwe */
112 1.1 uwe int
113 1.1 uwe adc_sample_channel(int chan)
114 1.1 uwe {
115 1.1 uwe volatile uint8_t *hireg;
116 1.1 uwe volatile uint8_t *loreg;
117 1.1 uwe int regoff;
118 1.1 uwe uint8_t csr;
119 1.1 uwe int timo;
120 1.1 uwe #ifdef DIAGNOSTIC
121 1.1 uwe uint8_t cr;
122 1.1 uwe char bits[128];
123 1.1 uwe #endif
124 1.1 uwe if ((chan < 0) || (chan >= 8))
125 1.1 uwe return (-1);
126 1.1 uwe
127 1.1 uwe regoff = (chan & 0x03) << 2;
128 1.1 uwe hireg = (volatile uint8_t *)(SH7709_ADDRAH + regoff);
129 1.1 uwe loreg = (volatile uint8_t *)(SH7709_ADDRAL + regoff);
130 1.1 uwe
131 1.1 uwe /* the loop below typically takes 27 iterations on j680 */
132 1.1 uwe timo = 300;
133 1.1 uwe
134 1.1 uwe #ifdef DIAGNOSTIC
135 1.1 uwe csr = ADC_(CSR);
136 1.1 uwe if ((csr & SH7709_ADCSR_ADST) != 0) {
137 1.1 uwe /* another conversion is in progress?! */
138 1.1 uwe printf("adc_sample_channel(%d): CSR=%s", chan,
139 1.1 uwe bitmask_snprintf(csr, SH7709_ADCSR_BITS,
140 1.1 uwe bits, sizeof(bits)));
141 1.1 uwe cr = ADC_(CR);
142 1.1 uwe cr &= ~0x07; /* three lower bits always read as 1s */
143 1.1 uwe printf(", CR=%s\n",
144 1.1 uwe bitmask_snprintf(cr, SH7709_ADCR_BITS,
145 1.1 uwe bits, sizeof(bits)));
146 1.1 uwe return (-1);
147 1.1 uwe }
148 1.1 uwe #endif
149 1.1 uwe
150 1.1 uwe /* start scanning */
151 1.1 uwe ADC_(CSR) = chan | SH7709_ADCSR_ADST | SH7709_ADCSR_CKS;
152 1.1 uwe
153 1.1 uwe do {
154 1.1 uwe csr = ADC_(CSR);
155 1.1 uwe if (timo-- == 0)
156 1.1 uwe break;
157 1.1 uwe } while ((csr & SH7709_ADCSR_ADF) == 0);
158 1.1 uwe
159 1.1 uwe /* stop scanning */
160 1.1 uwe csr &= ~(SH7709_ADCSR_ADF | SH7709_ADCSR_ADST);
161 1.1 uwe ADC_(CSR) = csr;
162 1.1 uwe
163 1.1 uwe if (timo <= 0) {
164 1.1 uwe printf("adc_sample_channel(%d): timed out\n", chan);
165 1.1 uwe return (-1);
166 1.1 uwe }
167 1.1 uwe
168 1.1 uwe /*
169 1.1 uwe * 10 bit of data: bits [9..2] in the high register, bits
170 1.1 uwe * [1..0] in the bits [7..6] of the low register.
171 1.1 uwe */
172 1.1 uwe return (((*hireg << 8) | *loreg) >> 6);
173 1.1 uwe }
174