iq80310_7seg.c revision 1.2.4.3
1 1.2.4.3 nathanw /* $NetBSD: iq80310_7seg.c,v 1.2.4.3 2002/02/28 04:09:14 nathanw Exp $ */ 2 1.2.4.2 nathanw 3 1.2.4.2 nathanw /* 4 1.2.4.2 nathanw * Copyright (c) 2001 Wasabi Systems, Inc. 5 1.2.4.2 nathanw * All rights reserved. 6 1.2.4.2 nathanw * 7 1.2.4.2 nathanw * Written by Jason R. Thorpe for Wasabi Systems, Inc. 8 1.2.4.2 nathanw * 9 1.2.4.2 nathanw * Redistribution and use in source and binary forms, with or without 10 1.2.4.2 nathanw * modification, are permitted provided that the following conditions 11 1.2.4.2 nathanw * are met: 12 1.2.4.2 nathanw * 1. Redistributions of source code must retain the above copyright 13 1.2.4.2 nathanw * notice, this list of conditions and the following disclaimer. 14 1.2.4.2 nathanw * 2. Redistributions in binary form must reproduce the above copyright 15 1.2.4.2 nathanw * notice, this list of conditions and the following disclaimer in the 16 1.2.4.2 nathanw * documentation and/or other materials provided with the distribution. 17 1.2.4.2 nathanw * 3. All advertising materials mentioning features or use of this software 18 1.2.4.2 nathanw * must display the following acknowledgement: 19 1.2.4.2 nathanw * This product includes software developed for the NetBSD Project by 20 1.2.4.2 nathanw * Wasabi Systems, Inc. 21 1.2.4.2 nathanw * 4. The name of Wasabi Systems, Inc. may not be used to endorse 22 1.2.4.2 nathanw * or promote products derived from this software without specific prior 23 1.2.4.2 nathanw * written permission. 24 1.2.4.2 nathanw * 25 1.2.4.2 nathanw * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND 26 1.2.4.2 nathanw * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 27 1.2.4.2 nathanw * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 28 1.2.4.2 nathanw * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC 29 1.2.4.2 nathanw * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 30 1.2.4.2 nathanw * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 31 1.2.4.2 nathanw * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 32 1.2.4.2 nathanw * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 33 1.2.4.2 nathanw * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 34 1.2.4.2 nathanw * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 35 1.2.4.2 nathanw * POSSIBILITY OF SUCH DAMAGE. 36 1.2.4.2 nathanw */ 37 1.2.4.2 nathanw 38 1.2.4.2 nathanw /* 39 1.2.4.2 nathanw * Support for the 7-segment display on the Intel IQ80310. 40 1.2.4.2 nathanw */ 41 1.2.4.2 nathanw 42 1.2.4.2 nathanw #include <sys/param.h> 43 1.2.4.2 nathanw #include <sys/systm.h> 44 1.2.4.2 nathanw 45 1.2.4.2 nathanw #include <machine/bus.h> 46 1.2.4.2 nathanw 47 1.2.4.2 nathanw #include <evbarm/iq80310/iq80310reg.h> 48 1.2.4.3 nathanw #include <evbarm/iq80310/iq80310var.h> 49 1.2.4.2 nathanw #include <evbarm/iq80310/obiovar.h> 50 1.2.4.2 nathanw 51 1.2.4.2 nathanw #define ASCIIMAP_START '0' 52 1.2.4.2 nathanw #define ASCIIMAP_END '9' 53 1.2.4.2 nathanw 54 1.2.4.2 nathanw static int snakestate; 55 1.2.4.2 nathanw 56 1.2.4.2 nathanw static const uint8_t asciimap[] = { 57 1.2.4.2 nathanw /* +#####+ 58 1.2.4.2 nathanw * # # 59 1.2.4.2 nathanw * # # 60 1.2.4.2 nathanw * # # 61 1.2.4.2 nathanw * +-----+ 62 1.2.4.2 nathanw * # # 63 1.2.4.2 nathanw * # # 64 1.2.4.2 nathanw * # # 65 1.2.4.2 nathanw * +#####+ 66 1.2.4.2 nathanw */ 67 1.2.4.2 nathanw SEG_G, 68 1.2.4.2 nathanw 69 1.2.4.2 nathanw /* +-----+ 70 1.2.4.2 nathanw * | # 71 1.2.4.2 nathanw * | # 72 1.2.4.2 nathanw * | # 73 1.2.4.2 nathanw * +-----+ 74 1.2.4.2 nathanw * | # 75 1.2.4.2 nathanw * | # 76 1.2.4.2 nathanw * | # 77 1.2.4.2 nathanw * +-----+ 78 1.2.4.2 nathanw */ 79 1.2.4.2 nathanw SEG_A|SEG_D|SEG_E|SEG_F|SEG_G, 80 1.2.4.2 nathanw 81 1.2.4.2 nathanw /* +#####+ 82 1.2.4.2 nathanw * | # 83 1.2.4.2 nathanw * | # 84 1.2.4.2 nathanw * | # 85 1.2.4.2 nathanw * +#####+ 86 1.2.4.2 nathanw * # | 87 1.2.4.2 nathanw * # | 88 1.2.4.2 nathanw * # | 89 1.2.4.2 nathanw * +#####+ 90 1.2.4.2 nathanw */ 91 1.2.4.2 nathanw SEG_C|SEG_F, 92 1.2.4.2 nathanw 93 1.2.4.2 nathanw /* +#####+ 94 1.2.4.2 nathanw * | # 95 1.2.4.2 nathanw * | # 96 1.2.4.2 nathanw * | # 97 1.2.4.2 nathanw * +#####+ 98 1.2.4.2 nathanw * | # 99 1.2.4.2 nathanw * | # 100 1.2.4.2 nathanw * | # 101 1.2.4.2 nathanw * +#####+ 102 1.2.4.2 nathanw */ 103 1.2.4.2 nathanw SEG_E|SEG_F, 104 1.2.4.2 nathanw 105 1.2.4.2 nathanw /* +-----+ 106 1.2.4.2 nathanw * # # 107 1.2.4.2 nathanw * # # 108 1.2.4.2 nathanw * # # 109 1.2.4.2 nathanw * +#####+ 110 1.2.4.2 nathanw * | # 111 1.2.4.2 nathanw * | # 112 1.2.4.2 nathanw * | # 113 1.2.4.2 nathanw * +-----+ 114 1.2.4.2 nathanw */ 115 1.2.4.2 nathanw SEG_A|SEG_D|SEG_E, 116 1.2.4.2 nathanw 117 1.2.4.2 nathanw /* +#####+ 118 1.2.4.2 nathanw * # | 119 1.2.4.2 nathanw * # | 120 1.2.4.2 nathanw * # | 121 1.2.4.2 nathanw * +#####+ 122 1.2.4.2 nathanw * | # 123 1.2.4.2 nathanw * | # 124 1.2.4.2 nathanw * | # 125 1.2.4.2 nathanw * +#####+ 126 1.2.4.2 nathanw */ 127 1.2.4.2 nathanw SEG_B|SEG_E, 128 1.2.4.2 nathanw 129 1.2.4.2 nathanw /* +#####+ 130 1.2.4.2 nathanw * # | 131 1.2.4.2 nathanw * # | 132 1.2.4.2 nathanw * # | 133 1.2.4.2 nathanw * +#####+ 134 1.2.4.2 nathanw * # # 135 1.2.4.2 nathanw * # # 136 1.2.4.2 nathanw * # # 137 1.2.4.2 nathanw * +#####+ 138 1.2.4.2 nathanw */ 139 1.2.4.2 nathanw SEG_B, 140 1.2.4.2 nathanw 141 1.2.4.2 nathanw /* +#####+ 142 1.2.4.2 nathanw * | # 143 1.2.4.2 nathanw * | # 144 1.2.4.2 nathanw * | # 145 1.2.4.2 nathanw * +-----+ 146 1.2.4.2 nathanw * | # 147 1.2.4.2 nathanw * | # 148 1.2.4.2 nathanw * | # 149 1.2.4.2 nathanw * +-----+ 150 1.2.4.2 nathanw */ 151 1.2.4.2 nathanw SEG_D|SEG_E|SEG_F, 152 1.2.4.2 nathanw 153 1.2.4.2 nathanw /* +#####+ 154 1.2.4.2 nathanw * # # 155 1.2.4.2 nathanw * # # 156 1.2.4.2 nathanw * # # 157 1.2.4.2 nathanw * +#####+ 158 1.2.4.2 nathanw * # # 159 1.2.4.2 nathanw * # # 160 1.2.4.2 nathanw * # # 161 1.2.4.2 nathanw * +#####+ 162 1.2.4.2 nathanw */ 163 1.2.4.2 nathanw 0, 164 1.2.4.2 nathanw 165 1.2.4.2 nathanw /* +#####+ 166 1.2.4.2 nathanw * # # 167 1.2.4.2 nathanw * # # 168 1.2.4.2 nathanw * # # 169 1.2.4.2 nathanw * +#####+ 170 1.2.4.2 nathanw * | # 171 1.2.4.2 nathanw * | # 172 1.2.4.2 nathanw * | # 173 1.2.4.2 nathanw * +-----+ 174 1.2.4.2 nathanw */ 175 1.2.4.2 nathanw SEG_D|SEG_E, 176 1.2.4.2 nathanw }; 177 1.2.4.2 nathanw 178 1.2.4.2 nathanw void 179 1.2.4.2 nathanw iq80310_7seg(char a, char b) 180 1.2.4.2 nathanw { 181 1.2.4.2 nathanw uint8_t msb, lsb; 182 1.2.4.2 nathanw 183 1.2.4.2 nathanw if (a < ASCIIMAP_START || a > ASCIIMAP_END) 184 1.2.4.2 nathanw msb = 0xff; 185 1.2.4.2 nathanw else 186 1.2.4.2 nathanw msb = asciimap[a - ASCIIMAP_START] | SEG_DP; 187 1.2.4.2 nathanw 188 1.2.4.2 nathanw if (b < ASCIIMAP_START || b > ASCIIMAP_END) 189 1.2.4.2 nathanw lsb = 0xff; 190 1.2.4.2 nathanw else 191 1.2.4.2 nathanw lsb = asciimap[b - ASCIIMAP_START] | SEG_DP; 192 1.2.4.2 nathanw 193 1.2.4.2 nathanw snakestate = 0; 194 1.2.4.2 nathanw 195 1.2.4.2 nathanw CPLD_WRITE(IQ80310_7SEG_MSB, msb); 196 1.2.4.2 nathanw CPLD_WRITE(IQ80310_7SEG_LSB, lsb); 197 1.2.4.2 nathanw } 198 1.2.4.2 nathanw 199 1.2.4.2 nathanw static const uint8_t snakemap[][2] = { 200 1.2.4.2 nathanw 201 1.2.4.2 nathanw /* +#####+ +#####+ 202 1.2.4.2 nathanw * | | | | 203 1.2.4.2 nathanw * | | | | 204 1.2.4.2 nathanw * | | | | 205 1.2.4.2 nathanw * +-----+ +-----+ 206 1.2.4.2 nathanw * | | | | 207 1.2.4.2 nathanw * | | | | 208 1.2.4.2 nathanw * | | | | 209 1.2.4.2 nathanw * +-----+ +-----+ 210 1.2.4.2 nathanw */ 211 1.2.4.2 nathanw { ~SEG_A, ~SEG_A }, 212 1.2.4.2 nathanw 213 1.2.4.2 nathanw /* +-----+ +-----+ 214 1.2.4.2 nathanw * # | | # 215 1.2.4.2 nathanw * # | | # 216 1.2.4.2 nathanw * # | | # 217 1.2.4.2 nathanw * +-----+ +-----+ 218 1.2.4.2 nathanw * | | | | 219 1.2.4.2 nathanw * | | | | 220 1.2.4.2 nathanw * | | | | 221 1.2.4.2 nathanw * +-----+ +-----+ 222 1.2.4.2 nathanw */ 223 1.2.4.2 nathanw { ~SEG_F, ~SEG_B }, 224 1.2.4.2 nathanw 225 1.2.4.2 nathanw /* +-----+ +-----+ 226 1.2.4.2 nathanw * | | | | 227 1.2.4.2 nathanw * | | | | 228 1.2.4.2 nathanw * | | | | 229 1.2.4.2 nathanw * +#####+ +#####+ 230 1.2.4.2 nathanw * | | | | 231 1.2.4.2 nathanw * | | | | 232 1.2.4.2 nathanw * | | | | 233 1.2.4.2 nathanw * +-----+ +-----+ 234 1.2.4.2 nathanw */ 235 1.2.4.2 nathanw { ~SEG_G, ~SEG_G }, 236 1.2.4.2 nathanw 237 1.2.4.2 nathanw /* +-----+ +-----+ 238 1.2.4.2 nathanw * | | | | 239 1.2.4.2 nathanw * | | | | 240 1.2.4.2 nathanw * | | | | 241 1.2.4.2 nathanw * +-----+ +-----+ 242 1.2.4.2 nathanw * | # # | 243 1.2.4.2 nathanw * | # # | 244 1.2.4.2 nathanw * | # # | 245 1.2.4.2 nathanw * +-----+ +-----+ 246 1.2.4.2 nathanw */ 247 1.2.4.2 nathanw { ~SEG_C, ~SEG_E }, 248 1.2.4.2 nathanw 249 1.2.4.2 nathanw /* +-----+ +-----+ 250 1.2.4.2 nathanw * | | | | 251 1.2.4.2 nathanw * | | | | 252 1.2.4.2 nathanw * | | | | 253 1.2.4.2 nathanw * +-----+ +-----+ 254 1.2.4.2 nathanw * | | | | 255 1.2.4.2 nathanw * | | | | 256 1.2.4.2 nathanw * | | | | 257 1.2.4.2 nathanw * +#####+ +#####+ 258 1.2.4.2 nathanw */ 259 1.2.4.2 nathanw { ~SEG_D, ~SEG_D }, 260 1.2.4.2 nathanw 261 1.2.4.2 nathanw /* +-----+ +-----+ 262 1.2.4.2 nathanw * | | | | 263 1.2.4.2 nathanw * | | | | 264 1.2.4.2 nathanw * | | | | 265 1.2.4.2 nathanw * +-----+ +-----+ 266 1.2.4.2 nathanw * # | | # 267 1.2.4.2 nathanw * # | | # 268 1.2.4.2 nathanw * # | | # 269 1.2.4.2 nathanw * +-----+ +-----+ 270 1.2.4.2 nathanw */ 271 1.2.4.2 nathanw { ~SEG_E, ~SEG_C }, 272 1.2.4.2 nathanw 273 1.2.4.2 nathanw /* +-----+ +-----+ 274 1.2.4.2 nathanw * | | | | 275 1.2.4.2 nathanw * | | | | 276 1.2.4.2 nathanw * | | | | 277 1.2.4.2 nathanw * +#####+ +#####+ 278 1.2.4.2 nathanw * | | | | 279 1.2.4.2 nathanw * | | | | 280 1.2.4.2 nathanw * | | | | 281 1.2.4.2 nathanw * +-----+ +-----+ 282 1.2.4.2 nathanw */ 283 1.2.4.2 nathanw { ~SEG_G, ~SEG_G }, 284 1.2.4.2 nathanw 285 1.2.4.2 nathanw /* +-----+ +-----+ 286 1.2.4.2 nathanw * | # # | 287 1.2.4.2 nathanw * | # # | 288 1.2.4.2 nathanw * | # # | 289 1.2.4.2 nathanw * +-----+ +-----+ 290 1.2.4.2 nathanw * | | | | 291 1.2.4.2 nathanw * | | | | 292 1.2.4.2 nathanw * | | | | 293 1.2.4.2 nathanw * +-----+ +-----+ 294 1.2.4.2 nathanw */ 295 1.2.4.2 nathanw { ~SEG_B, ~SEG_F }, 296 1.2.4.2 nathanw }; 297 1.2.4.2 nathanw 298 1.2.4.2 nathanw void 299 1.2.4.2 nathanw iq80310_7seg_snake(void) 300 1.2.4.2 nathanw { 301 1.2.4.2 nathanw int cur = snakestate; 302 1.2.4.2 nathanw 303 1.2.4.2 nathanw CPLD_WRITE(IQ80310_7SEG_MSB, snakemap[cur][0]); 304 1.2.4.2 nathanw CPLD_WRITE(IQ80310_7SEG_LSB, snakemap[cur][1]); 305 1.2.4.2 nathanw 306 1.2.4.2 nathanw snakestate = (cur + 1) & 7; 307 1.2.4.2 nathanw } 308
Indexes created Sun Oct 26 21:10:03 GMT 2025