| /* |
| * The DSP56001 Device Driver, saviour of the Free World(tm) |
| * |
| * Authors: Fredrik Noring <noring@nocrew.org> |
| * lars brinkhoff <lars@nocrew.org> |
| * Tomas Berndtsson <tomas@nocrew.org> |
| * |
| * First version May 1996 |
| * |
| * History: |
| * 97-01-29 Tomas Berndtsson, |
| * Integrated with Linux 2.1.21 kernel sources. |
| * 97-02-15 Tomas Berndtsson, |
| * Fixed for kernel 2.1.26 |
| * |
| * BUGS: |
| * Hmm... there must be something here :) |
| * |
| * Copyright (C) 1996,1997 Fredrik Noring, lars brinkhoff & Tomas Berndtsson |
| * |
| * This file is subject to the terms and conditions of the GNU General Public |
| * License. See the file COPYING in the main directory of this archive |
| * for more details. |
| */ |
| |
| #include <linux/module.h> |
| #include <linux/slab.h> /* for kmalloc() and kfree() */ |
| #include <linux/sched.h> /* for struct wait_queue etc */ |
| #include <linux/major.h> |
| #include <linux/types.h> |
| #include <linux/errno.h> |
| #include <linux/delay.h> /* guess what */ |
| #include <linux/fs.h> |
| #include <linux/mm.h> |
| #include <linux/init.h> |
| #include <linux/devfs_fs_kernel.h> |
| #include <linux/smp_lock.h> |
| #include <linux/device.h> |
| |
| #include <asm/atarihw.h> |
| #include <asm/traps.h> |
| #include <asm/uaccess.h> /* For put_user and get_user */ |
| |
| #include <asm/dsp56k.h> |
| |
| /* minor devices */ |
| #define DSP56K_DEV_56001 0 /* The only device so far */ |
| |
| #define TIMEOUT 10 /* Host port timeout in number of tries */ |
| #define MAXIO 2048 /* Maximum number of words before sleep */ |
| #define DSP56K_MAX_BINARY_LENGTH (3*64*1024) |
| |
| #define DSP56K_TX_INT_ON dsp56k_host_interface.icr |= DSP56K_ICR_TREQ |
| #define DSP56K_RX_INT_ON dsp56k_host_interface.icr |= DSP56K_ICR_RREQ |
| #define DSP56K_TX_INT_OFF dsp56k_host_interface.icr &= ~DSP56K_ICR_TREQ |
| #define DSP56K_RX_INT_OFF dsp56k_host_interface.icr &= ~DSP56K_ICR_RREQ |
| |
| #define DSP56K_TRANSMIT (dsp56k_host_interface.isr & DSP56K_ISR_TXDE) |
| #define DSP56K_RECEIVE (dsp56k_host_interface.isr & DSP56K_ISR_RXDF) |
| |
| #define handshake(count, maxio, timeout, ENABLE, f) \ |
| { \ |
| long i, t, m; \ |
| while (count > 0) { \ |
| m = min_t(unsigned long, count, maxio); \ |
| for (i = 0; i < m; i++) { \ |
| for (t = 0; t < timeout && !ENABLE; t++) \ |
| msleep(20); \ |
| if(!ENABLE) \ |
| return -EIO; \ |
| f; \ |
| } \ |
| count -= m; \ |
| if (m == maxio) msleep(20); \ |
| } \ |
| } |
| |
| #define tx_wait(n) \ |
| { \ |
| int t; \ |
| for(t = 0; t < n && !DSP56K_TRANSMIT; t++) \ |
| msleep(10); \ |
| if(!DSP56K_TRANSMIT) { \ |
| return -EIO; \ |
| } \ |
| } |
| |
| #define rx_wait(n) \ |
| { \ |
| int t; \ |
| for(t = 0; t < n && !DSP56K_RECEIVE; t++) \ |
| msleep(10); \ |
| if(!DSP56K_RECEIVE) { \ |
| return -EIO; \ |
| } \ |
| } |
| |
| /* DSP56001 bootstrap code */ |
| static char bootstrap[] = { |
| 0x0c, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
| 0x00, 0x00, 0x60, 0xf4, 0x00, 0x00, 0x00, 0x4f, 0x61, 0xf4, |
| 0x00, 0x00, 0x7e, 0xa9, 0x06, 0x2e, 0x80, 0x00, 0x00, 0x47, |
| 0x07, 0xd8, 0x84, 0x07, 0x59, 0x84, 0x08, 0xf4, 0xa8, 0x00, |
| 0x00, 0x04, 0x08, 0xf4, 0xbf, 0x00, 0x0c, 0x00, 0x00, 0xfe, |
| 0xb8, 0x0a, 0xf0, 0x80, 0x00, 0x7e, 0xa9, 0x08, 0xf4, 0xa0, |
| 0x00, 0x00, 0x01, 0x08, 0xf4, 0xbe, 0x00, 0x00, 0x00, 0x0a, |
| 0xa9, 0x80, 0x00, 0x7e, 0xad, 0x08, 0x4e, 0x2b, 0x44, 0xf4, |
| 0x00, 0x00, 0x00, 0x03, 0x44, 0xf4, 0x45, 0x00, 0x00, 0x01, |
| 0x0e, 0xa0, 0x00, 0x0a, 0xa9, 0x80, 0x00, 0x7e, 0xb5, 0x08, |
| 0x50, 0x2b, 0x0a, 0xa9, 0x80, 0x00, 0x7e, 0xb8, 0x08, 0x46, |
| 0x2b, 0x44, 0xf4, 0x45, 0x00, 0x00, 0x02, 0x0a, 0xf0, 0xaa, |
| 0x00, 0x7e, 0xc9, 0x20, 0x00, 0x45, 0x0a, 0xf0, 0xaa, 0x00, |
| 0x7e, 0xd0, 0x06, 0xc6, 0x00, 0x00, 0x7e, 0xc6, 0x0a, 0xa9, |
| 0x80, 0x00, 0x7e, 0xc4, 0x08, 0x58, 0x6b, 0x0a, 0xf0, 0x80, |
| 0x00, 0x7e, 0xad, 0x06, 0xc6, 0x00, 0x00, 0x7e, 0xcd, 0x0a, |
| 0xa9, 0x80, 0x00, 0x7e, 0xcb, 0x08, 0x58, 0xab, 0x0a, 0xf0, |
| 0x80, 0x00, 0x7e, 0xad, 0x06, 0xc6, 0x00, 0x00, 0x7e, 0xd4, |
| 0x0a, 0xa9, 0x80, 0x00, 0x7e, 0xd2, 0x08, 0x58, 0xeb, 0x0a, |
| 0xf0, 0x80, 0x00, 0x7e, 0xad}; |
| static int sizeof_bootstrap = 375; |
| |
| |
| static struct dsp56k_device { |
| long in_use; |
| long maxio, timeout; |
| int tx_wsize, rx_wsize; |
| } dsp56k; |
| |
| static struct class *dsp56k_class; |
| |
| static int dsp56k_reset(void) |
| { |
| u_char status; |
| |
| /* Power down the DSP */ |
| sound_ym.rd_data_reg_sel = 14; |
| status = sound_ym.rd_data_reg_sel & 0xef; |
| sound_ym.wd_data = status; |
| sound_ym.wd_data = status | 0x10; |
| |
| udelay(10); |
| |
| /* Power up the DSP */ |
| sound_ym.rd_data_reg_sel = 14; |
| sound_ym.wd_data = sound_ym.rd_data_reg_sel & 0xef; |
| |
| return 0; |
| } |
| |
| static int dsp56k_upload(u_char __user *bin, int len) |
| { |
| int i; |
| u_char *p; |
| |
| dsp56k_reset(); |
| |
| p = bootstrap; |
| for (i = 0; i < sizeof_bootstrap/3; i++) { |
| /* tx_wait(10); */ |
| dsp56k_host_interface.data.b[1] = *p++; |
| dsp56k_host_interface.data.b[2] = *p++; |
| dsp56k_host_interface.data.b[3] = *p++; |
| } |
| for (; i < 512; i++) { |
| /* tx_wait(10); */ |
| dsp56k_host_interface.data.b[1] = 0; |
| dsp56k_host_interface.data.b[2] = 0; |
| dsp56k_host_interface.data.b[3] = 0; |
| } |
| |
| for (i = 0; i < len; i++) { |
| tx_wait(10); |
| get_user(dsp56k_host_interface.data.b[1], bin++); |
| get_user(dsp56k_host_interface.data.b[2], bin++); |
| get_user(dsp56k_host_interface.data.b[3], bin++); |
| } |
| |
| tx_wait(10); |
| dsp56k_host_interface.data.l = 3; /* Magic execute */ |
| |
| return 0; |
| } |
| |
| static ssize_t dsp56k_read(struct file *file, char __user *buf, size_t count, |
| loff_t *ppos) |
| { |
| struct inode *inode = file->f_dentry->d_inode; |
| int dev = iminor(inode) & 0x0f; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| { |
| |
| long n; |
| |
| /* Don't do anything if nothing is to be done */ |
| if (!count) return 0; |
| |
| n = 0; |
| switch (dsp56k.rx_wsize) { |
| case 1: /* 8 bit */ |
| { |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_RECEIVE, |
| put_user(dsp56k_host_interface.data.b[3], buf+n++)); |
| return n; |
| } |
| case 2: /* 16 bit */ |
| { |
| short __user *data; |
| |
| count /= 2; |
| data = (short __user *) buf; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_RECEIVE, |
| put_user(dsp56k_host_interface.data.w[1], data+n++)); |
| return 2*n; |
| } |
| case 3: /* 24 bit */ |
| { |
| count /= 3; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_RECEIVE, |
| put_user(dsp56k_host_interface.data.b[1], buf+n++); |
| put_user(dsp56k_host_interface.data.b[2], buf+n++); |
| put_user(dsp56k_host_interface.data.b[3], buf+n++)); |
| return 3*n; |
| } |
| case 4: /* 32 bit */ |
| { |
| long __user *data; |
| |
| count /= 4; |
| data = (long __user *) buf; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_RECEIVE, |
| put_user(dsp56k_host_interface.data.l, data+n++)); |
| return 4*n; |
| } |
| } |
| return -EFAULT; |
| } |
| |
| default: |
| printk(KERN_ERR "DSP56k driver: Unknown minor device: %d\n", dev); |
| return -ENXIO; |
| } |
| } |
| |
| static ssize_t dsp56k_write(struct file *file, const char __user *buf, size_t count, |
| loff_t *ppos) |
| { |
| struct inode *inode = file->f_dentry->d_inode; |
| int dev = iminor(inode) & 0x0f; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| { |
| long n; |
| |
| /* Don't do anything if nothing is to be done */ |
| if (!count) return 0; |
| |
| n = 0; |
| switch (dsp56k.tx_wsize) { |
| case 1: /* 8 bit */ |
| { |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_TRANSMIT, |
| get_user(dsp56k_host_interface.data.b[3], buf+n++)); |
| return n; |
| } |
| case 2: /* 16 bit */ |
| { |
| const short __user *data; |
| |
| count /= 2; |
| data = (const short __user *)buf; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_TRANSMIT, |
| get_user(dsp56k_host_interface.data.w[1], data+n++)); |
| return 2*n; |
| } |
| case 3: /* 24 bit */ |
| { |
| count /= 3; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_TRANSMIT, |
| get_user(dsp56k_host_interface.data.b[1], buf+n++); |
| get_user(dsp56k_host_interface.data.b[2], buf+n++); |
| get_user(dsp56k_host_interface.data.b[3], buf+n++)); |
| return 3*n; |
| } |
| case 4: /* 32 bit */ |
| { |
| const long __user *data; |
| |
| count /= 4; |
| data = (const long __user *)buf; |
| handshake(count, dsp56k.maxio, dsp56k.timeout, DSP56K_TRANSMIT, |
| get_user(dsp56k_host_interface.data.l, data+n++)); |
| return 4*n; |
| } |
| } |
| |
| return -EFAULT; |
| } |
| default: |
| printk(KERN_ERR "DSP56k driver: Unknown minor device: %d\n", dev); |
| return -ENXIO; |
| } |
| } |
| |
| static int dsp56k_ioctl(struct inode *inode, struct file *file, |
| unsigned int cmd, unsigned long arg) |
| { |
| int dev = iminor(inode) & 0x0f; |
| void __user *argp = (void __user *)arg; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| |
| switch(cmd) { |
| case DSP56K_UPLOAD: |
| { |
| char __user *bin; |
| int r, len; |
| struct dsp56k_upload __user *binary = argp; |
| |
| if(get_user(len, &binary->len) < 0) |
| return -EFAULT; |
| if(get_user(bin, &binary->bin) < 0) |
| return -EFAULT; |
| |
| if (len == 0) { |
| return -EINVAL; /* nothing to upload?!? */ |
| } |
| if (len > DSP56K_MAX_BINARY_LENGTH) { |
| return -EINVAL; |
| } |
| |
| r = dsp56k_upload(bin, len); |
| if (r < 0) { |
| return r; |
| } |
| |
| break; |
| } |
| case DSP56K_SET_TX_WSIZE: |
| if (arg > 4 || arg < 1) |
| return -EINVAL; |
| dsp56k.tx_wsize = (int) arg; |
| break; |
| case DSP56K_SET_RX_WSIZE: |
| if (arg > 4 || arg < 1) |
| return -EINVAL; |
| dsp56k.rx_wsize = (int) arg; |
| break; |
| case DSP56K_HOST_FLAGS: |
| { |
| int dir, out, status; |
| struct dsp56k_host_flags __user *hf = argp; |
| |
| if(get_user(dir, &hf->dir) < 0) |
| return -EFAULT; |
| if(get_user(out, &hf->out) < 0) |
| return -EFAULT; |
| |
| if ((dir & 0x1) && (out & 0x1)) |
| dsp56k_host_interface.icr |= DSP56K_ICR_HF0; |
| else if (dir & 0x1) |
| dsp56k_host_interface.icr &= ~DSP56K_ICR_HF0; |
| if ((dir & 0x2) && (out & 0x2)) |
| dsp56k_host_interface.icr |= DSP56K_ICR_HF1; |
| else if (dir & 0x2) |
| dsp56k_host_interface.icr &= ~DSP56K_ICR_HF1; |
| |
| status = 0; |
| if (dsp56k_host_interface.icr & DSP56K_ICR_HF0) status |= 0x1; |
| if (dsp56k_host_interface.icr & DSP56K_ICR_HF1) status |= 0x2; |
| if (dsp56k_host_interface.isr & DSP56K_ISR_HF2) status |= 0x4; |
| if (dsp56k_host_interface.isr & DSP56K_ISR_HF3) status |= 0x8; |
| |
| return put_user(status, &hf->status); |
| } |
| case DSP56K_HOST_CMD: |
| if (arg > 31 || arg < 0) |
| return -EINVAL; |
| dsp56k_host_interface.cvr = (u_char)((arg & DSP56K_CVR_HV_MASK) | |
| DSP56K_CVR_HC); |
| break; |
| default: |
| return -EINVAL; |
| } |
| return 0; |
| |
| default: |
| printk(KERN_ERR "DSP56k driver: Unknown minor device: %d\n", dev); |
| return -ENXIO; |
| } |
| } |
| |
| /* As of 2.1.26 this should be dsp56k_poll, |
| * but how do I then check device minor number? |
| * Do I need this function at all??? |
| */ |
| #if 0 |
| static unsigned int dsp56k_poll(struct file *file, poll_table *wait) |
| { |
| int dev = iminor(file->f_dentry->d_inode) & 0x0f; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| /* poll_wait(file, ???, wait); */ |
| return POLLIN | POLLRDNORM | POLLOUT; |
| |
| default: |
| printk("DSP56k driver: Unknown minor device: %d\n", dev); |
| return 0; |
| } |
| } |
| #endif |
| |
| static int dsp56k_open(struct inode *inode, struct file *file) |
| { |
| int dev = iminor(inode) & 0x0f; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| |
| if (test_and_set_bit(0, &dsp56k.in_use)) |
| return -EBUSY; |
| |
| dsp56k.timeout = TIMEOUT; |
| dsp56k.maxio = MAXIO; |
| dsp56k.rx_wsize = dsp56k.tx_wsize = 4; |
| |
| DSP56K_TX_INT_OFF; |
| DSP56K_RX_INT_OFF; |
| |
| /* Zero host flags */ |
| dsp56k_host_interface.icr &= ~DSP56K_ICR_HF0; |
| dsp56k_host_interface.icr &= ~DSP56K_ICR_HF1; |
| |
| break; |
| |
| default: |
| return -ENODEV; |
| } |
| |
| return 0; |
| } |
| |
| static int dsp56k_release(struct inode *inode, struct file *file) |
| { |
| int dev = iminor(inode) & 0x0f; |
| |
| switch(dev) |
| { |
| case DSP56K_DEV_56001: |
| clear_bit(0, &dsp56k.in_use); |
| break; |
| default: |
| printk(KERN_ERR "DSP56k driver: Unknown minor device: %d\n", dev); |
| return -ENXIO; |
| } |
| |
| return 0; |
| } |
| |
| static struct file_operations dsp56k_fops = { |
| .owner = THIS_MODULE, |
| .read = dsp56k_read, |
| .write = dsp56k_write, |
| .ioctl = dsp56k_ioctl, |
| .open = dsp56k_open, |
| .release = dsp56k_release, |
| }; |
| |
| |
| /****** Init and module functions ******/ |
| |
| static char banner[] __initdata = KERN_INFO "DSP56k driver installed\n"; |
| |
| static int __init dsp56k_init_driver(void) |
| { |
| int err = 0; |
| |
| if(!MACH_IS_ATARI || !ATARIHW_PRESENT(DSP56K)) { |
| printk("DSP56k driver: Hardware not present\n"); |
| return -ENODEV; |
| } |
| |
| if(register_chrdev(DSP56K_MAJOR, "dsp56k", &dsp56k_fops)) { |
| printk("DSP56k driver: Unable to register driver\n"); |
| return -ENODEV; |
| } |
| dsp56k_class = class_create(THIS_MODULE, "dsp56k"); |
| if (IS_ERR(dsp56k_class)) { |
| err = PTR_ERR(dsp56k_class); |
| goto out_chrdev; |
| } |
| class_device_create(dsp56k_class, NULL, MKDEV(DSP56K_MAJOR, 0), NULL, "dsp56k"); |
| |
| printk(banner); |
| goto out; |
| |
| out_chrdev: |
| unregister_chrdev(DSP56K_MAJOR, "dsp56k"); |
| out: |
| return err; |
| } |
| module_init(dsp56k_init_driver); |
| |
| static void __exit dsp56k_cleanup_driver(void) |
| { |
| class_device_destroy(dsp56k_class, MKDEV(DSP56K_MAJOR, 0)); |
| class_destroy(dsp56k_class); |
| unregister_chrdev(DSP56K_MAJOR, "dsp56k"); |
| } |
| module_exit(dsp56k_cleanup_driver); |
| |
| MODULE_LICENSE("GPL"); |