1 /* 2 * Compaq iPAQ h3xxx Atmel microcontroller companion support 3 * 4 * This is an Atmel AT90LS8535 with a special flashed-in firmware that 5 * implements the special protocol used by this driver. 6 * 7 * based on previous kernel 2.4 version by Andrew Christian 8 * Author : Alessandro Gardich <gremlin@gremlin.it> 9 * Author : Dmitry Artamonow <mad_soft@inbox.ru> 10 * Author : Linus Walleij <linus.walleij@linaro.org> 11 * 12 * This program is free software; you can redistribute it and/or modify 13 * it under the terms of the GNU General Public License version 2 as 14 * published by the Free Software Foundation. 15 */ 16 17 #include <linux/module.h> 18 #include <linux/init.h> 19 #include <linux/interrupt.h> 20 #include <linux/pm.h> 21 #include <linux/delay.h> 22 #include <linux/device.h> 23 #include <linux/platform_device.h> 24 #include <linux/io.h> 25 #include <linux/mfd/core.h> 26 #include <linux/mfd/ipaq-micro.h> 27 #include <linux/string.h> 28 #include <linux/random.h> 29 #include <linux/slab.h> 30 #include <linux/list.h> 31 32 #include <mach/hardware.h> 33 34 static void ipaq_micro_trigger_tx(struct ipaq_micro *micro) 35 { 36 struct ipaq_micro_txdev *tx = µ->tx; 37 struct ipaq_micro_msg *msg = micro->msg; 38 int i, bp; 39 u8 checksum; 40 u32 val; 41 42 bp = 0; 43 tx->buf[bp++] = CHAR_SOF; 44 45 checksum = ((msg->id & 0x0f) << 4) | (msg->tx_len & 0x0f); 46 tx->buf[bp++] = checksum; 47 48 for (i = 0; i < msg->tx_len; i++) { 49 tx->buf[bp++] = msg->tx_data[i]; 50 checksum += msg->tx_data[i]; 51 } 52 53 tx->buf[bp++] = checksum; 54 tx->len = bp; 55 tx->index = 0; 56 print_hex_dump(KERN_DEBUG, "data: ", DUMP_PREFIX_OFFSET, 16, 1, 57 tx->buf, tx->len, true); 58 59 /* Enable interrupt */ 60 val = readl(micro->base + UTCR3); 61 val |= UTCR3_TIE; 62 writel(val, micro->base + UTCR3); 63 } 64 65 int ipaq_micro_tx_msg(struct ipaq_micro *micro, struct ipaq_micro_msg *msg) 66 { 67 unsigned long flags; 68 69 dev_dbg(micro->dev, "TX msg: %02x, %d bytes\n", msg->id, msg->tx_len); 70 71 spin_lock_irqsave(µ->lock, flags); 72 if (micro->msg) { 73 list_add_tail(&msg->node, µ->queue); 74 spin_unlock_irqrestore(µ->lock, flags); 75 return 0; 76 } 77 micro->msg = msg; 78 ipaq_micro_trigger_tx(micro); 79 spin_unlock_irqrestore(µ->lock, flags); 80 return 0; 81 } 82 EXPORT_SYMBOL(ipaq_micro_tx_msg); 83 84 static void micro_rx_msg(struct ipaq_micro *micro, u8 id, int len, u8 *data) 85 { 86 int i; 87 88 dev_dbg(micro->dev, "RX msg: %02x, %d bytes\n", id, len); 89 90 spin_lock(µ->lock); 91 switch (id) { 92 case MSG_VERSION: 93 case MSG_EEPROM_READ: 94 case MSG_EEPROM_WRITE: 95 case MSG_BACKLIGHT: 96 case MSG_NOTIFY_LED: 97 case MSG_THERMAL_SENSOR: 98 case MSG_BATTERY: 99 /* Handle synchronous messages */ 100 if (micro->msg && micro->msg->id == id) { 101 struct ipaq_micro_msg *msg = micro->msg; 102 103 memcpy(msg->rx_data, data, len); 104 msg->rx_len = len; 105 complete(µ->msg->ack); 106 if (!list_empty(µ->queue)) { 107 micro->msg = list_entry(micro->queue.next, 108 struct ipaq_micro_msg, 109 node); 110 list_del_init(µ->msg->node); 111 ipaq_micro_trigger_tx(micro); 112 } else 113 micro->msg = NULL; 114 dev_dbg(micro->dev, "OK RX message 0x%02x\n", id); 115 } else { 116 dev_err(micro->dev, 117 "out of band RX message 0x%02x\n", id); 118 if (!micro->msg) 119 dev_info(micro->dev, "no message queued\n"); 120 else 121 dev_info(micro->dev, "expected message %02x\n", 122 micro->msg->id); 123 } 124 break; 125 case MSG_KEYBOARD: 126 if (micro->key) 127 micro->key(micro->key_data, len, data); 128 else 129 dev_dbg(micro->dev, "key message ignored, no handle\n"); 130 break; 131 case MSG_TOUCHSCREEN: 132 if (micro->ts) 133 micro->ts(micro->ts_data, len, data); 134 else 135 dev_dbg(micro->dev, "touchscreen message ignored, no handle\n"); 136 break; 137 default: 138 dev_err(micro->dev, 139 "unknown msg %d [%d] ", id, len); 140 for (i = 0; i < len; ++i) 141 pr_cont("0x%02x ", data[i]); 142 pr_cont("\n"); 143 } 144 spin_unlock(µ->lock); 145 } 146 147 static void micro_process_char(struct ipaq_micro *micro, u8 ch) 148 { 149 struct ipaq_micro_rxdev *rx = µ->rx; 150 151 switch (rx->state) { 152 case STATE_SOF: /* Looking for SOF */ 153 if (ch == CHAR_SOF) 154 rx->state = STATE_ID; /* Next byte is the id and len */ 155 break; 156 case STATE_ID: /* Looking for id and len byte */ 157 rx->id = (ch & 0xf0) >> 4; 158 rx->len = (ch & 0x0f); 159 rx->index = 0; 160 rx->chksum = ch; 161 rx->state = (rx->len > 0) ? STATE_DATA : STATE_CHKSUM; 162 break; 163 case STATE_DATA: /* Looking for 'len' data bytes */ 164 rx->chksum += ch; 165 rx->buf[rx->index] = ch; 166 if (++rx->index == rx->len) 167 rx->state = STATE_CHKSUM; 168 break; 169 case STATE_CHKSUM: /* Looking for the checksum */ 170 if (ch == rx->chksum) 171 micro_rx_msg(micro, rx->id, rx->len, rx->buf); 172 rx->state = STATE_SOF; 173 break; 174 } 175 } 176 177 static void micro_rx_chars(struct ipaq_micro *micro) 178 { 179 u32 status, ch; 180 181 while ((status = readl(micro->base + UTSR1)) & UTSR1_RNE) { 182 ch = readl(micro->base + UTDR); 183 if (status & UTSR1_PRE) 184 dev_err(micro->dev, "rx: parity error\n"); 185 else if (status & UTSR1_FRE) 186 dev_err(micro->dev, "rx: framing error\n"); 187 else if (status & UTSR1_ROR) 188 dev_err(micro->dev, "rx: overrun error\n"); 189 micro_process_char(micro, ch); 190 } 191 } 192 193 static void ipaq_micro_get_version(struct ipaq_micro *micro) 194 { 195 struct ipaq_micro_msg msg = { 196 .id = MSG_VERSION, 197 }; 198 199 ipaq_micro_tx_msg_sync(micro, &msg); 200 if (msg.rx_len == 4) { 201 memcpy(micro->version, msg.rx_data, 4); 202 micro->version[4] = '\0'; 203 } else if (msg.rx_len == 9) { 204 memcpy(micro->version, msg.rx_data, 4); 205 micro->version[4] = '\0'; 206 /* Bytes 4-7 are "pack", byte 8 is "boot type" */ 207 } else { 208 dev_err(micro->dev, 209 "illegal version message %d bytes\n", msg.rx_len); 210 } 211 } 212 213 static void ipaq_micro_eeprom_read(struct ipaq_micro *micro, 214 u8 address, u8 len, u8 *data) 215 { 216 struct ipaq_micro_msg msg = { 217 .id = MSG_EEPROM_READ, 218 }; 219 u8 i; 220 221 for (i = 0; i < len; i++) { 222 msg.tx_data[0] = address + i; 223 msg.tx_data[1] = 1; 224 msg.tx_len = 2; 225 ipaq_micro_tx_msg_sync(micro, &msg); 226 memcpy(data + (i * 2), msg.rx_data, 2); 227 } 228 } 229 230 static char *ipaq_micro_str(u8 *wchar, u8 len) 231 { 232 char retstr[256]; 233 u8 i; 234 235 for (i = 0; i < len / 2; i++) 236 retstr[i] = wchar[i * 2]; 237 return kstrdup(retstr, GFP_KERNEL); 238 } 239 240 static u16 ipaq_micro_to_u16(u8 *data) 241 { 242 return data[1] << 8 | data[0]; 243 } 244 245 static void ipaq_micro_eeprom_dump(struct ipaq_micro *micro) 246 { 247 u8 dump[256]; 248 char *str; 249 250 ipaq_micro_eeprom_read(micro, 0, 128, dump); 251 str = ipaq_micro_str(dump, 10); 252 if (str) { 253 dev_info(micro->dev, "HM version %s\n", str); 254 kfree(str); 255 } 256 str = ipaq_micro_str(dump+10, 40); 257 if (str) { 258 dev_info(micro->dev, "serial number: %s\n", str); 259 /* Feed the random pool with this */ 260 add_device_randomness(str, strlen(str)); 261 kfree(str); 262 } 263 str = ipaq_micro_str(dump+50, 20); 264 if (str) { 265 dev_info(micro->dev, "module ID: %s\n", str); 266 kfree(str); 267 } 268 str = ipaq_micro_str(dump+70, 10); 269 if (str) { 270 dev_info(micro->dev, "product revision: %s\n", str); 271 kfree(str); 272 } 273 dev_info(micro->dev, "product ID: %u\n", ipaq_micro_to_u16(dump+80)); 274 dev_info(micro->dev, "frame rate: %u fps\n", 275 ipaq_micro_to_u16(dump+82)); 276 dev_info(micro->dev, "page mode: %u\n", ipaq_micro_to_u16(dump+84)); 277 dev_info(micro->dev, "country ID: %u\n", ipaq_micro_to_u16(dump+86)); 278 dev_info(micro->dev, "color display: %s\n", 279 ipaq_micro_to_u16(dump+88) ? "yes" : "no"); 280 dev_info(micro->dev, "ROM size: %u MiB\n", ipaq_micro_to_u16(dump+90)); 281 dev_info(micro->dev, "RAM size: %u KiB\n", ipaq_micro_to_u16(dump+92)); 282 dev_info(micro->dev, "screen: %u x %u\n", 283 ipaq_micro_to_u16(dump+94), ipaq_micro_to_u16(dump+96)); 284 print_hex_dump(KERN_DEBUG, "eeprom: ", DUMP_PREFIX_OFFSET, 16, 1, 285 dump, 256, true); 286 287 } 288 289 static void micro_tx_chars(struct ipaq_micro *micro) 290 { 291 struct ipaq_micro_txdev *tx = µ->tx; 292 u32 val; 293 294 while ((tx->index < tx->len) && 295 (readl(micro->base + UTSR1) & UTSR1_TNF)) { 296 writel(tx->buf[tx->index], micro->base + UTDR); 297 tx->index++; 298 } 299 300 /* Stop interrupts */ 301 val = readl(micro->base + UTCR3); 302 val &= ~UTCR3_TIE; 303 writel(val, micro->base + UTCR3); 304 } 305 306 static void micro_reset_comm(struct ipaq_micro *micro) 307 { 308 struct ipaq_micro_rxdev *rx = µ->rx; 309 u32 val; 310 311 if (micro->msg) 312 complete(µ->msg->ack); 313 314 /* Initialize Serial channel protocol frame */ 315 rx->state = STATE_SOF; /* Reset the state machine */ 316 317 /* Set up interrupts */ 318 writel(0x01, micro->sdlc + 0x0); /* Select UART mode */ 319 320 /* Clean up CR3 */ 321 writel(0x0, micro->base + UTCR3); 322 323 /* Format: 8N1 */ 324 writel(UTCR0_8BitData | UTCR0_1StpBit, micro->base + UTCR0); 325 326 /* Baud rate: 115200 */ 327 writel(0x0, micro->base + UTCR1); 328 writel(0x1, micro->base + UTCR2); 329 330 /* Clear SR0 */ 331 writel(0xff, micro->base + UTSR0); 332 333 /* Enable RX int, disable TX int */ 334 writel(UTCR3_TXE | UTCR3_RXE | UTCR3_RIE, micro->base + UTCR3); 335 val = readl(micro->base + UTCR3); 336 val &= ~UTCR3_TIE; 337 writel(val, micro->base + UTCR3); 338 } 339 340 static irqreturn_t micro_serial_isr(int irq, void *dev_id) 341 { 342 struct ipaq_micro *micro = dev_id; 343 struct ipaq_micro_txdev *tx = µ->tx; 344 u32 status; 345 346 status = readl(micro->base + UTSR0); 347 do { 348 if (status & (UTSR0_RID | UTSR0_RFS)) { 349 if (status & UTSR0_RID) 350 /* Clear the Receiver IDLE bit */ 351 writel(UTSR0_RID, micro->base + UTSR0); 352 micro_rx_chars(micro); 353 } 354 355 /* Clear break bits */ 356 if (status & (UTSR0_RBB | UTSR0_REB)) 357 writel(status & (UTSR0_RBB | UTSR0_REB), 358 micro->base + UTSR0); 359 360 if (status & UTSR0_TFS) 361 micro_tx_chars(micro); 362 363 status = readl(micro->base + UTSR0); 364 365 } while (((tx->index < tx->len) && (status & UTSR0_TFS)) || 366 (status & (UTSR0_RFS | UTSR0_RID))); 367 368 return IRQ_HANDLED; 369 } 370 371 static const struct mfd_cell micro_cells[] = { 372 { .name = "ipaq-micro-backlight", }, 373 { .name = "ipaq-micro-battery", }, 374 { .name = "ipaq-micro-keys", }, 375 { .name = "ipaq-micro-ts", }, 376 { .name = "ipaq-micro-leds", }, 377 }; 378 379 static int micro_resume(struct device *dev) 380 { 381 struct ipaq_micro *micro = dev_get_drvdata(dev); 382 383 micro_reset_comm(micro); 384 mdelay(10); 385 386 return 0; 387 } 388 389 static int micro_probe(struct platform_device *pdev) 390 { 391 struct ipaq_micro *micro; 392 struct resource *res; 393 int ret; 394 int irq; 395 396 micro = devm_kzalloc(&pdev->dev, sizeof(*micro), GFP_KERNEL); 397 if (!micro) 398 return -ENOMEM; 399 400 micro->dev = &pdev->dev; 401 402 res = platform_get_resource(pdev, IORESOURCE_MEM, 0); 403 if (!res) 404 return -EINVAL; 405 406 micro->base = devm_ioremap_resource(&pdev->dev, res); 407 if (IS_ERR(micro->base)) 408 return PTR_ERR(micro->base); 409 410 res = platform_get_resource(pdev, IORESOURCE_MEM, 1); 411 if (!res) 412 return -EINVAL; 413 414 micro->sdlc = devm_ioremap_resource(&pdev->dev, res); 415 if (IS_ERR(micro->sdlc)) 416 return PTR_ERR(micro->sdlc); 417 418 micro_reset_comm(micro); 419 420 irq = platform_get_irq(pdev, 0); 421 if (!irq) 422 return -EINVAL; 423 ret = devm_request_irq(&pdev->dev, irq, micro_serial_isr, 424 IRQF_SHARED, "ipaq-micro", 425 micro); 426 if (ret) { 427 dev_err(&pdev->dev, "unable to grab serial port IRQ\n"); 428 return ret; 429 } else 430 dev_info(&pdev->dev, "grabbed serial port IRQ\n"); 431 432 spin_lock_init(µ->lock); 433 INIT_LIST_HEAD(µ->queue); 434 platform_set_drvdata(pdev, micro); 435 436 ret = mfd_add_devices(&pdev->dev, pdev->id, micro_cells, 437 ARRAY_SIZE(micro_cells), NULL, 0, NULL); 438 if (ret) { 439 dev_err(&pdev->dev, "error adding MFD cells"); 440 return ret; 441 } 442 443 /* Check version */ 444 ipaq_micro_get_version(micro); 445 dev_info(&pdev->dev, "Atmel micro ASIC version %s\n", micro->version); 446 ipaq_micro_eeprom_dump(micro); 447 448 return 0; 449 } 450 451 static int micro_remove(struct platform_device *pdev) 452 { 453 struct ipaq_micro *micro = platform_get_drvdata(pdev); 454 u32 val; 455 456 mfd_remove_devices(&pdev->dev); 457 458 val = readl(micro->base + UTCR3); 459 val &= ~(UTCR3_RXE | UTCR3_RIE); /* disable receive interrupt */ 460 val &= ~(UTCR3_TXE | UTCR3_TIE); /* disable transmit interrupt */ 461 writel(val, micro->base + UTCR3); 462 463 return 0; 464 } 465 466 static const struct dev_pm_ops micro_dev_pm_ops = { 467 SET_SYSTEM_SLEEP_PM_OPS(NULL, micro_resume) 468 }; 469 470 static struct platform_driver micro_device_driver = { 471 .driver = { 472 .name = "ipaq-h3xxx-micro", 473 .pm = µ_dev_pm_ops, 474 }, 475 .probe = micro_probe, 476 .remove = micro_remove, 477 /* .shutdown = micro_suspend, // FIXME */ 478 }; 479 module_platform_driver(micro_device_driver); 480 481 MODULE_LICENSE("GPL"); 482 MODULE_DESCRIPTION("driver for iPAQ Atmel micro core and backlight"); 483