+#include <linux/delay.h>
+#include <linux/timer.h>
+
+#include <linux/module.h>
+#include <linux/mm.h>
+#include <linux/init.h>
+#include <linux/fs.h>
+#include <linux/blkpg.h>
+#include <linux/hdreg.h>
+#include <linux/major.h>
+#include <asm/uaccess.h>
+#include <asm/io.h>
+
+#define DEVICE_NAME "mmc"
+#define DEVICE_NR(device) (MINOR(device))
+#define DEVICE_ON(device)
+#define DEVICE_OFF(device)
+#define MAJOR_NR 121
+
+#include <linux/blk.h>
+
+MODULE_AUTHOR("Madsuk/Rohde");
+MODULE_DESCRIPTION("Driver MMC/SD-Cards");
+MODULE_SUPPORTED_DEVICE("WRT54G");
+MODULE_LICENSE("GPL");
+
+#define SD_DI 0x20
+#define SD_DO 0x10
+#define SD_CLK 0x08
+#define SD_CS 0x80
+
+/* we have only one device */
+static int hd_sizes[1<<6];
+static int hd_blocksizes[1<<6];
+static int hd_hardsectsizes[1<<6];
+static int hd_maxsect[1<<6];
+static struct hd_struct hd[1<<6];
+
+static struct timer_list mmc_timer;
+static int mmc_media_detect = 0;
+static int mmc_media_changed = 1;
+
+typedef unsigned int uint32;
+
+static unsigned char port_state = 0x00;
+static volatile uint32 *gpioaddr_input = (uint32 *)0xb8000060;
+static volatile uint32 *gpioaddr_output = (uint32 *)0xb8000064;
+static volatile uint32 *gpioaddr_enable = (uint32 *)0xb8000068;
+static volatile uint32 *gpioaddr_control = (uint32 *)0xb800006c;
+
+static void mmc_spi_cs_low(void)
+{
+ port_state &= ~(SD_CS);
+ *gpioaddr_output = port_state;
+}
+
+static void mmc_spi_cs_high(void)
+{
+ port_state |= SD_CS;
+ *gpioaddr_output = port_state;
+}
+
+static unsigned char mmc_spi_io(unsigned char data_out)
+{
+ int i;
+ unsigned char result = 0, tmp_data = 0;
+
+ for(i=0; i<8; i++) {
+ if(data_out & (0x01 << (7-i)))
+ port_state |= SD_DI;
+ else
+ port_state &= ~SD_DI;
+
+ *gpioaddr_output = port_state;
+ port_state |= SD_CLK;
+ *gpioaddr_output = port_state;
+
+ tmp_data = *gpioaddr_input;
+
+ port_state &= ~SD_CLK;
+ *gpioaddr_output = port_state;
+
+ result <<= 1;
+
+ if(tmp_data & SD_DO)
+ result |= 1;
+ }
+
+ return(result);
+}
+
+static int mmc_write_block(unsigned int dest_addr, unsigned char *data)
+{
+ unsigned int address;
+ unsigned char r = 0;
+ unsigned char ab0, ab1, ab2, ab3;
+ int i;
+
+ address = dest_addr;
+
+ ab3 = 0xff & (address >> 24);
+ ab2 = 0xff & (address >> 16);
+ ab1 = 0xff & (address >> 8);
+ ab0 = 0xff & address;
+ mmc_spi_cs_low();
+ for (i = 0; i < 4; i++) mmc_spi_io(0xff);
+ mmc_spi_io(0x58);
+ mmc_spi_io(ab3); /* msb */
+ mmc_spi_io(ab2);
+ mmc_spi_io(ab1);
+ mmc_spi_io(ab0); /* lsb */
+ mmc_spi_io(0xff);
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0x00) break;
+ }
+ if (r != 0x00)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(1);
+ }
+
+ mmc_spi_io(0xfe);
+ for (i = 0; i < 512; i++) mmc_spi_io(data[i]);
+ for (i = 0; i < 2; i++) mmc_spi_io(0xff);
+
+ for (i = 0; i < 1000000; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0xff) break;
+ }
+ if (r != 0xff)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(3);
+ }
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(0);
+}
+
+static int mmc_read_block(unsigned char *data, unsigned int src_addr)
+{
+ unsigned int address;
+ unsigned char r = 0;
+ unsigned char ab0, ab1, ab2, ab3;
+ int i;
+
+ address = src_addr;
+
+ ab3 = 0xff & (address >> 24);
+ ab2 = 0xff & (address >> 16);
+ ab1 = 0xff & (address >> 8);
+ ab0 = 0xff & address;
+
+ mmc_spi_cs_low();
+ for (i = 0; i < 4; i++) mmc_spi_io(0xff);
+ mmc_spi_io(0x51);
+ mmc_spi_io(ab3); /* msb */
+ mmc_spi_io(ab2);
+ mmc_spi_io(ab1);
+ mmc_spi_io(ab0); /* lsb */
+
+ mmc_spi_io(0xff);
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0x00) break;
+ }
+ if (r != 0x00)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(1);
+ }
+ for (i = 0; i < 100000; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0xfe) break;
+ }
+ if (r != 0xfe)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(2);
+ }
+ for (i = 0; i < 512; i++)
+ {
+ r = mmc_spi_io(0xff);
+ data[i] = r;
+ }
+ for (i = 0; i < 2; i++)
+ {
+ r = mmc_spi_io(0xff);
+ }
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+
+ return(0);
+}
+
+static void mmc_request(request_queue_t *q)
+{
+ unsigned int mmc_address;
+ unsigned char *buffer_address;
+ int nr_sectors;
+ int i;
+ int cmd;
+ int rc, code;
+
+ (void)q;
+ while (1)
+ {
+ code = 1; // Default is success
+ INIT_REQUEST;
+ mmc_address = (CURRENT->sector + hd[MINOR(CURRENT->rq_dev)].start_sect) * hd_hardsectsizes[0];
+ buffer_address = CURRENT->buffer;
+ nr_sectors = CURRENT->current_nr_sectors;
+ cmd = CURRENT->cmd;
+ if (((CURRENT->sector + CURRENT->current_nr_sectors + hd[MINOR(CURRENT->rq_dev)].start_sect) > hd[0].nr_sects) || (mmc_media_detect == 0))
+ {
+ code = 0;
+ }
+ else if (cmd == READ)
+ {
+ spin_unlock_irq(&io_request_lock);
+ for (i = 0; i < nr_sectors; i++)
+ {
+ rc = mmc_read_block(buffer_address, mmc_address);
+ if (rc != 0)
+ {
+ printk("mmc: error in mmc_read_block (%d)\n", rc);
+ code = 0;
+ break;
+ }
+ else
+ {
+ mmc_address += hd_hardsectsizes[0];
+ buffer_address += hd_hardsectsizes[0];
+ }
+ }
+ spin_lock_irq(&io_request_lock);
+ }
+ else if (cmd == WRITE)
+ {
+ spin_unlock_irq(&io_request_lock);
+ for (i = 0; i < nr_sectors; i++)
+ {
+ rc = mmc_write_block(mmc_address, buffer_address);
+ if (rc != 0)
+ {
+ printk("mmc: error in mmc_write_block (%d)\n", rc);
+ code = 0;
+ break;
+ }
+ else
+ {
+ mmc_address += hd_hardsectsizes[0];
+ buffer_address += hd_hardsectsizes[0];
+ }
+ }
+ spin_lock_irq(&io_request_lock);
+ }
+ else
+ {
+ code = 0;
+ }
+ end_request(code);
+ }
+}
+
+
+static int mmc_open(struct inode *inode, struct file *filp)
+{
+ int device;
+ (void)filp;
+
+ if (mmc_media_detect == 0) return -ENODEV;
+
+#if defined(MODULE)
+ MOD_INC_USE_COUNT;
+#endif
+ return 0;
+}
+
+static int mmc_release(struct inode *inode, struct file *filp)
+{
+ (void)filp;
+ fsync_dev(inode->i_rdev);
+ invalidate_buffers(inode->i_rdev);
+
+#if defined(MODULE)
+ MOD_DEC_USE_COUNT;
+#endif
+ return 0;
+}
+
+extern struct gendisk hd_gendisk;
+static int mmc_revalidate(kdev_t dev)
+{
+ int target, max_p, start, i;
+ if (mmc_media_detect == 0) return -ENODEV;
+
+ target = DEVICE_NR(dev);
+
+ max_p = hd_gendisk.max_p;
+ start = target << 6;
+ for (i = max_p - 1; i >= 0; i--) {
+ int minor = start + i;
+ invalidate_device(MKDEV(MAJOR_NR, minor), 1);
+ hd_gendisk.part[minor].start_sect = 0;
+ hd_gendisk.part[minor].nr_sects = 0;
+ }
+
+ grok_partitions(&hd_gendisk, target, 1 << 6,
+ hd_sizes[0] * 2);
+
+ return 0;
+}
+
+static int mmc_ioctl(struct inode *inode, struct file *filp, unsigned int cmd, unsigned long arg)
+{
+ if (!inode || !inode->i_rdev)
+ return -EINVAL;
+
+ switch(cmd) {
+ case BLKGETSIZE:
+ return put_user(hd[MINOR(inode->i_rdev)].nr_sects, (unsigned long *)arg);
+ case BLKGETSIZE64:
+ return put_user((u64)hd[MINOR(inode->i_rdev)].
+ nr_sects, (u64 *) arg);
+ case BLKRRPART:
+ if (!capable(CAP_SYS_ADMIN))
+ return -EACCES;
+
+ return mmc_revalidate(inode->i_rdev);
+ case HDIO_GETGEO:
+ {
+ struct hd_geometry *loc, g;
+ loc = (struct hd_geometry *) arg;
+ if (!loc)
+ return -EINVAL;
+ g.heads = 4;
+ g.sectors = 16;
+ g.cylinders = hd[0].nr_sects / (4 * 16);
+ g.start = hd[MINOR(inode->i_rdev)].start_sect;
+ return copy_to_user(loc, &g, sizeof(g)) ? -EFAULT : 0;
+ }
+ default:
+ return blk_ioctl(inode->i_rdev, cmd, arg);
+ }
+}
+
+static int mmc_card_init(void)
+{
+ unsigned char r = 0;
+ short i, j;
+ unsigned long flags;
+
+ save_flags(flags);
+ cli();
+
+ printk("mmc Card init\n");
+ mmc_spi_cs_high();
+ for (i = 0; i < 20; i++) mmc_spi_io(0xff);
+
+ mmc_spi_cs_low();
+
+ mmc_spi_io(0x40);
+ for (i = 0; i < 4; i++) mmc_spi_io(0x00);
+ mmc_spi_io(0x95);
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0x01) break;
+ }
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ if (r != 0x01)
+ {
+ restore_flags(flags);
+ return(1);
+ }
+
+ printk("mmc Card init *1*\n");
+ for (j = 0; j < 10000; j++)
+ {
+ mmc_spi_cs_low();
+
+ mmc_spi_io(0x41);
+ for (i = 0; i < 4; i++) mmc_spi_io(0x00);
+ mmc_spi_io(0xff);
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0x00) break;
+ }
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ if (r == 0x00)
+ {
+ restore_flags(flags);
+ printk("mmc Card init *2*\n");
+ return(0);
+ }
+ }
+ restore_flags(flags);
+
+ return(2);
+}
+
+static int mmc_card_config(void)
+{
+ unsigned char r = 0;
+ short i;
+ unsigned char csd[32];
+ unsigned int c_size;
+ unsigned int c_size_mult;
+ unsigned int mult;
+ unsigned int read_bl_len;
+ unsigned int blocknr = 0;
+ unsigned int block_len = 0;
+ unsigned int size = 0;
+
+ mmc_spi_cs_low();
+ for (i = 0; i < 4; i++) mmc_spi_io(0xff);
+ mmc_spi_io(0x49);
+ for (i = 0; i < 4; i++) mmc_spi_io(0x00);
+ mmc_spi_io(0xff);
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0x00) break;
+ }
+ if (r != 0x00)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(1);
+ }
+ for (i = 0; i < 8; i++)
+ {
+ r = mmc_spi_io(0xff);
+ if (r == 0xfe) break;
+ }
+ if (r != 0xfe)
+ {
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ return(2);
+ }
+ for (i = 0; i < 16; i++)
+ {
+ r = mmc_spi_io(0xff);
+ csd[i] = r;
+ }
+ for (i = 0; i < 2; i++)
+ {
+ r = mmc_spi_io(0xff);
+ }
+ mmc_spi_cs_high();
+ mmc_spi_io(0xff);
+ if (r == 0x00) return(3);
+
+ c_size = csd[8] + csd[7] * 256 + (csd[6] & 0x03) * 256 * 256;
+ c_size >>= 6;
+ c_size_mult = csd[10] + (csd[9] & 0x03) * 256;
+ c_size_mult >>= 7;
+ read_bl_len = csd[5] & 0x0f;
+ mult = 1;
+ mult <<= c_size_mult + 2;
+ blocknr = (c_size + 1) * mult;
+ block_len = 1;
+ block_len <<= read_bl_len;
+ size = block_len * blocknr;
+ size >>= 10;
+
+ for(i=0; i<(1<<6); i++) {
+ hd_blocksizes[i] = 1024;
+ hd_hardsectsizes[i] = block_len;
+ hd_maxsect[i] = 256;
+ }
+ hd_sizes[0] = size;
+ hd[0].nr_sects = blocknr;
+
+
+ printk("Size = %d, hardsectsize = %d, sectors = %d\n",
+ size, block_len, blocknr);
+
+ return 0;
+}
+
+static int mmc_hardware_init(void)
+{
+ unsigned char gpio_outen;
+
+ // Set inputs/outputs here
+ printk("mmc Hardware init\n");
+ gpio_outen = *gpioaddr_enable;
+
+ gpio_outen = (gpio_outen | SD_DI | SD_CLK | SD_CS) & ~SD_DO;
+ *gpioaddr_enable = gpio_outen;
+
+ port_state = *gpioaddr_input;
+
+ // Clock low
+ port_state &= ~(SD_CLK | SD_DI | SD_CS);
+ *gpioaddr_output = port_state;
+
+ return 0;
+}
+
+static int mmc_check_media_change(kdev_t dev)
+{
+ (void)dev;
+ if (mmc_media_changed == 1)
+ {
+ mmc_media_changed = 0;
+ return 1;
+ }
+ else return 0;
+}
+
+static struct block_device_operations mmc_bdops =
+{
+ open: mmc_open,
+ release: mmc_release,
+ ioctl: mmc_ioctl,
+#if 0
+ check_media_change: mmc_check_media_change,
+ revalidate: mmc_revalidate,
+#endif
+};
+
+static struct gendisk hd_gendisk = {
+ major: MAJOR_NR,
+ major_name: DEVICE_NAME,
+ minor_shift: 6,
+ max_p: 1 << 6,
+ part: hd,
+ sizes: hd_sizes,
+ fops: &mmc_bdops,
+};
+
+static int mmc_init(void)
+{
+ int rc;
+
+ rc = mmc_hardware_init();
+
+ if ( rc != 0)
+ {
+ printk("mmc: error in mmc_hardware_init (%d)\n", rc);
+ return -1;
+ }
+
+ rc = mmc_card_init();
+ if ( rc != 0)
+ {
+ // Give it an extra shot
+ rc = mmc_card_init();
+ if ( rc != 0)
+ {
+ printk("mmc: error in mmc_card_init (%d)\n", rc);
+ return -1;
+ }
+ }
+
+ memset(hd_sizes, 0, sizeof(hd_sizes));
+ rc = mmc_card_config();
+ if ( rc != 0)
+ {
+ printk("mmc: error in mmc_card_config (%d)\n", rc);
+ return -1;
+ }
+
+
+ blk_size[MAJOR_NR] = hd_sizes;
+
+ memset(hd, 0, sizeof(hd));
+ hd[0].nr_sects = hd_sizes[0]*2;
+
+ blksize_size[MAJOR_NR] = hd_blocksizes;
+ hardsect_size[MAJOR_NR] = hd_hardsectsizes;
+ max_sectors[MAJOR_NR] = hd_maxsect;
+
+ hd_gendisk.nr_real = 1;
+
+ register_disk(&hd_gendisk, MKDEV(MAJOR_NR,0), 1<<6,
+ &mmc_bdops, hd_sizes[0]*2);
+
+ return 0;
+}
+
+static void mmc_exit(void)
+{
+ blk_size[MAJOR_NR] = NULL;
+ blksize_size[MAJOR_NR] = NULL;
+ hardsect_size[MAJOR_NR] = NULL;
+ max_sectors[MAJOR_NR] = NULL;
+ hd[0].nr_sects = 0;
+}
+
+static void mmc_check_media(void)
+{
+ int old_state;
+ int rc;
+
+ old_state = mmc_media_detect;
+
+ // TODO: Add card detection here
+ mmc_media_detect = 1;
+ if (old_state != mmc_media_detect)
+ {
+ mmc_media_changed = 1;
+ if (mmc_media_detect == 1)
+ {
+ rc = mmc_init();
+ if (rc != 0) printk("mmc: error in mmc_init (%d)\n", rc);
+ }
+ else
+ {
+ mmc_exit();
+ }
+ }
+
+ /* del_timer(&mmc_timer);
+ mmc_timer.expires = jiffies + 10*HZ;
+ add_timer(&mmc_timer); */
+}
+
+static int __init mmc_driver_init(void)
+{
+ int rc;
+
+ rc = devfs_register_blkdev(MAJOR_NR, DEVICE_NAME, &mmc_bdops);
+ if (rc < 0)
+ {
+ printk(KERN_WARNING "mmc: can't get major %d\n", MAJOR_NR);
+ return rc;
+ }
+
+ blk_init_queue(BLK_DEFAULT_QUEUE(MAJOR_NR), mmc_request);
+
+ read_ahead[MAJOR_NR] = 8;
+ add_gendisk(&hd_gendisk);
+
+ mmc_check_media();
+
+ /*init_timer(&mmc_timer);
+ mmc_timer.expires = jiffies + HZ;
+ mmc_timer.function = (void *)mmc_check_media;
+ add_timer(&mmc_timer);*/
+
+ return 0;
+}
+
+static void __exit mmc_driver_exit(void)
+{
+ int i;
+ del_timer(&mmc_timer);
+
+ for (i = 0; i < (1 << 6); i++)
+ fsync_dev(MKDEV(MAJOR_NR, i));
+
+ blk_cleanup_queue(BLK_DEFAULT_QUEUE(MAJOR_NR));
+ del_gendisk(&hd_gendisk);
+ devfs_unregister_blkdev(MAJOR_NR, DEVICE_NAME);
+ mmc_exit();
+}
+
+module_init(mmc_driver_init);
+module_exit(mmc_driver_exit);
projects / openwrt.git / commitdiff