X-Git-Url: http://rtime.felk.cvut.cz/gitweb/lincan.git/blobdiff_plain/8d06c4e166846c170775c086d1565a0e281d6dbc..5f3731f0f3ee5b9b2b7e475a01cca9411ba27415:/lincan/src/ts7kv.c?ds=sidebyside
diff --git a/lincan/src/ts7kv.c b/lincan/src/ts7kv.c
new file mode 100644
index 0000000..c5f20e4
--- /dev/null
+++ b/lincan/src/ts7kv.c
@@ -0,0 +1,434 @@
+/* ts7kv.c
+ * Linux CAN-bus device driver.
+ * Written by Arnaud Westenberg email:arnaud@wanadoo.nl
+ * Rewritten for new CAN queues by Pavel Pisa - OCERA team member
+ * email:pisa@cmp.felk.cvut.cz
+ * This software is released under the GPL-License.
+ * Version lincan-0.3 17 Jun 2004
+ *
+ * The support for TS-CAN1 and TS-7KV provided by Ronald Gomes
+ * from Technologic Systems
+ */
+
+#include "../include/can.h"
+#include "../include/can_sysdep.h"
+#include "../include/main.h"
+#include "../include/sja1000p.h"
+
+#include
+#include "../include/modparms.h"
+#include "../include/devcommon.h"
+
+#include "../include/ts7kv.h"
+
+static CAN_DEFINE_SPINLOCK(ts7kv_win_lock);
+
+#ifdef CONFIG_OC_LINCAN_CARD_tscan1
+
+extern unsigned long tsxxx_base;
+
+#else /*CONFIG_OC_LINCAN_CARD_tscan1*/
+
+#if defined(TSXXX_BASE_IO)
+unsigned long tsxxx_base=TSXXX_BASE_IO;
+#else
+unsigned long tsxxx_base=0;
+#endif
+
+#if (LINUX_VERSION_CODE < KERNEL_VERSION(2,6,12))
+MODULE_PARM(tsxxx_base, "1i");
+#else /* LINUX_VERSION_CODE >= 2,6,12 */
+module_param(tsxxx_base, ulong, 0);
+#endif /* LINUX_VERSION_CODE >= 2,6,12 */
+
+MODULE_PARM_DESC(tscanio,"TSCAN CAN controller IO address for each board");
+MODULE_PARM_DESC(tsxxx_base,"The base of the ISA/8-bit IO space for TSxxx CAN peripherals in the system");
+
+#endif /*CONFIG_OC_LINCAN_CARD_tscan1*/
+
+/**
+ * ts7kv_request_io: - reserve io or memory range for can board
+ * @candev: pointer to candevice/board which asks for io. Field @io_addr
+ * of @candev is used in most cases to define start of the range
+ *
+ * The function ts7kv_request_io() is used to reserve the io-memory. If your
+ * hardware uses a dedicated memory range as hardware control registers you
+ * will have to add the code to reserve this memory as well.
+ * %IO_RANGE is the io-memory range that gets reserved, please adjust according
+ * your hardware. Example: #define IO_RANGE 0x100 for i82527 chips or
+ * #define IO_RANGE 0x20 for sja1000 chips in basic CAN mode.
+ * Return Value: The function returns zero on success or %-ENODEV on failure
+ * File: src/ts7kv.c
+ */
+int ts7kv_request_io(struct candevice_t *candev)
+{
+ if (!can_request_io_region(candev->io_addr, TS7KV_CAN_RANGE, "ts7kv-can")) {
+ CANMSG("Unable to request CAN IO port: 0x%lx\n", candev->io_addr);
+ return -ENODEV;
+ } else {
+ DEBUGMSG("Registered CAN IO port: 0x%lx - 0x%lx\n",
+ candev->io_addr, candev->io_addr+TS7KV_CAN_RANGE-1);
+ }
+
+ return 0;
+}
+
+/**
+ * ts7kv_release_io - free reserved io memory range
+ * @candev: pointer to candevice/board which releases io
+ *
+ * The function ts7kv_release_io() is used to free reserved io-memory.
+ * In case you have reserved more io memory, don't forget to free it here.
+ * IO_RANGE is the io-memory range that gets released, please adjust according
+ * your hardware. Example: #define IO_RANGE 0x100 for i82527 chips or
+ * #define IO_RANGE 0x20 for sja1000 chips in basic CAN mode.
+ * Return Value: The function always returns zero
+ * File: src/ts7kv.c
+ */
+int ts7kv_release_io(struct candevice_t *candev)
+{
+ can_release_io_region(candev->io_addr, TS7KV_CAN_RANGE);
+ return 0;
+}
+
+/**
+ * ts7kv_reset - hardware reset routine
+ * @candev: Pointer to candevice/board structure
+ *
+ * The function ts7kv_reset() is used to give a hardware reset. This is
+ * rather hardware specific so I haven't included example code. Don't forget to
+ * check the reset status of the chip before returning.
+ * Return Value: The function returns zero on success or %-ENODEV on failure
+ * File: src/ts7kv.c
+ */
+int ts7kv_reset(struct candevice_t *candev)
+{
+ unsigned short i=0, chipnr;
+ struct canchip_t *chip;
+
+ DEBUGMSG("Resetting %s hardware ...\n", candev->hwname);
+
+ for(chipnr=0;chipnrnr_sja1000_chips;chipnr++) {
+ chip=candev->chip[chipnr];
+ can_write_reg(chip, sjaMOD_RM, SJAMOD);
+ udelay(1000);
+ can_write_reg(chip, 0x00, SJAIER);
+ udelay(1000);
+ i=20;
+ while (can_read_reg(chip, SJAMOD)&sjaMOD_RM){
+ if(!i--) return -ENODEV;
+ udelay(1000);
+ can_write_reg(chip, 0, SJAMOD);
+ }
+ udelay(1000);
+ can_write_reg(chip, sjaCDR_PELICAN, SJACDR);
+ can_write_reg(chip, 0x00, SJAIER);
+ }
+
+ return 0;
+}
+
+int ts7kv_check_presence(unsigned long remap_io_addr, int *pjmp)
+{
+ int result = -ENODEV;
+
+ if (!can_request_io_region(remap_io_addr, TS7KV_IO_RANGE, "ts7kv-probe"))
+ return -ENODEV;
+
+ do {
+ if (can_inb(remap_io_addr+TS7KV_ID0_REG)!=TS7KV_ID0 ||
+ can_inb(remap_io_addr+TS7KV_ID1_REG)!=TS7KV_ID1)
+ break;
+
+ if(pjmp)
+ *pjmp = can_inb(remap_io_addr+TS7KV_JMP_REG);
+
+ result = 0;
+ } while (0);
+
+ can_release_io_region(remap_io_addr, TS7KV_IO_RANGE);
+
+ return result;
+}
+
+#define RESET_ADDR 0x100
+#define NR_82527 0
+#define NR_SJA1000 1
+
+/**
+ * ts7kv_init_hw_data - Initialize hardware cards
+ * @candev: Pointer to candevice/board structure
+ *
+ * The function ts7kv_init_hw_data() is used to initialize the hardware
+ * structure containing information about the installed CAN-board.
+ * %RESET_ADDR represents the io-address of the hardware reset register.
+ * %NR_82527 represents the number of intel 82527 chips on the board.
+ * %NR_SJA1000 represents the number of philips sja1000 chips on the board.
+ * The flags entry can currently only be %CANDEV_PROGRAMMABLE_IRQ to indicate that
+ * the hardware uses programmable interrupts.
+ * Return Value: The function always returns zero
+ * File: src/ts7kv.c
+ */
+int ts7kv_init_hw_data(struct candevice_t *candev)
+{
+ int i, j, jmp;
+ unsigned long io_addr;
+ unsigned long remap_io_addr;
+ unsigned long can_io_addr;
+
+ io_addr = candev->io_addr;
+
+ if(io_addr && (io_addr != (unsigned long)-1)) {
+ remap_io_addr = io_addr + tsxxx_base;
+
+ if(ts7kv_check_presence(remap_io_addr, &jmp)){
+ CANMSG("No TS7KV card found at address 0x%lx\n",
+ remap_io_addr);
+ return -ENODEV;
+ }
+ } else {
+ DEBUGMSG("Scanning bus for TS7KV boards...\n");
+
+ for (i=0; 1;i++)
+ {
+ if(i >= 4) {
+ CANMSG("No TS7KV boards found for slot %d\n", candev->candev_idx);
+ return -ENODEV;
+ }
+
+ io_addr = TS7KV_BASE_IO + i*TS7KV_IO_RANGE;
+ remap_io_addr = io_addr + tsxxx_base;
+
+ for (j = 0; j < MAX_HW_CARDS; j++) {
+ if(io[j] == io_addr){
+ j = -1;
+ break;
+ }
+ }
+ if(j<0)
+ continue;
+
+ if(!ts7kv_check_presence(remap_io_addr, &jmp))
+ break;
+
+ }
+ DEBUGMSG("TS7KV board was found at 0x%lx for driver slot %d\n",
+ io_addr, candev->candev_idx);
+
+ io[candev->candev_idx] = io_addr;
+ }
+
+ can_io_addr = ((io_addr>>3)&0x03)*0x20;
+
+ /* dev_base_addr address is used to store remapped PLD base address */
+ candev->dev_base_addr = remap_io_addr;
+
+ /* dev_base_addr address is used to store remapped slave window address */
+ candev->io_addr = can_io_addr+tsxxx_base;
+
+ /* unused reset address is used to store jumper setting */
+ candev->res_addr = jmp;
+
+ candev->nr_82527_chips=NR_82527;
+ candev->nr_sja1000_chips=NR_SJA1000;
+ candev->nr_all_chips=NR_82527+NR_SJA1000;
+ candev->flags &= ~CANDEV_PROGRAMMABLE_IRQ;
+
+ DEBUGMSG("Memory region at 0x%lx assigned to sja1000 of driver %d/%s\n",
+ candev->io_addr, candev->candev_idx, candev->hwname);
+
+ return 0;
+}
+
+/**
+ * ts7kv_init_chip_data - Initialize chips
+ * @candev: Pointer to candevice/board structure
+ * @chipnr: Number of the CAN chip on the hardware card
+ *
+ * The function ts7kv_init_chip_data() is used to initialize the hardware
+ * structure containing information about the CAN chips.
+ * %CHIP_TYPE represents the type of CAN chip. %CHIP_TYPE can be "i82527" or
+ * "sja1000".
+ * The @chip_base_addr entry represents the start of the 'official' memory map
+ * of the installed chip. It's likely that this is the same as the @io_addr
+ * argument supplied at module loading time.
+ * The @clock entry holds the chip clock value in Hz.
+ * The entry @sja_cdr_reg holds hardware specific options for the Clock Divider
+ * register. Options defined in the %sja1000.h file:
+ * %sjaCDR_CLKOUT_MASK, %sjaCDR_CLK_OFF, %sjaCDR_RXINPEN, %sjaCDR_CBP, %sjaCDR_PELICAN
+ * The entry @sja_ocr_reg holds hardware specific options for the Output Control
+ * register. Options defined in the %sja1000.h file:
+ * %sjaOCR_MODE_BIPHASE, %sjaOCR_MODE_TEST, %sjaOCR_MODE_NORMAL, %sjaOCR_MODE_CLOCK,
+ * %sjaOCR_TX0_LH, %sjaOCR_TX1_ZZ.
+ * The entry @int_clk_reg holds hardware specific options for the Clock Out
+ * register. Options defined in the %i82527.h file:
+ * %iCLK_CD0, %iCLK_CD1, %iCLK_CD2, %iCLK_CD3, %iCLK_SL0, %iCLK_SL1.
+ * The entry @int_bus_reg holds hardware specific options for the Bus
+ * Configuration register. Options defined in the %i82527.h file:
+ * %iBUS_DR0, %iBUS_DR1, %iBUS_DT1, %iBUS_POL, %iBUS_CBY.
+ * Return Value: The function always returns zero
+ * File: src/ts7kv.c
+ */
+int ts7kv_init_chip_data(struct candevice_t *candev, int chipnr)
+{
+ unsigned long default_clk = 16000 * 1000;
+ int jmp;
+ int irq = -1;
+
+ /* unused reset address is used to store jumper setting */
+ jmp = candev->res_addr;
+
+ if (jmp&0x10 && jmp&0x20) irq=TSXXX_IRQ5;
+ else if (jmp&0x10) irq=TSXXX_IRQ6;
+ else if (jmp&0x20) irq=TSXXX_IRQ7;
+
+ if(irq<0) {
+ CANMSG("Jumpers select no IRQ for TS7KV CAN at 0x%lx of driver %d/%s\n",
+ candev->io_addr, candev->candev_idx, candev->hwname);
+ return -ENODEV;
+ }
+
+ candev->chip[chipnr]->chip_irq = irq;
+
+ sja1000p_fill_chipspecops(candev->chip[chipnr]);
+
+ if(candev->chip[chipnr]->clock <= 0)
+ candev->chip[chipnr]->clock = default_clk;
+ candev->chip[chipnr]->int_clk_reg = 0x0;
+ candev->chip[chipnr]->int_bus_reg = 0x0;
+ candev->chip[chipnr]->sja_cdr_reg = sjaCDR_CBP | sjaCDR_CLK_OFF;
+ candev->chip[chipnr]->sja_ocr_reg = sjaOCR_MODE_NORMAL | sjaOCR_TX0_LH;
+ candev->chip[chipnr]->chip_base_addr = candev->io_addr;
+
+ return 0;
+}
+
+/**
+ * ts7kv_init_obj_data - Initialize message buffers
+ * @chip: Pointer to chip specific structure
+ * @objnr: Number of the message buffer
+ *
+ * The function ts7kv_init_obj_data() is used to initialize the hardware
+ * structure containing information about the different message objects on the
+ * CAN chip. In case of the sja1000 there's only one message object but on the
+ * i82527 chip there are 15.
+ * The code below is for a i82527 chip and initializes the object base addresses
+ * The entry @obj_base_addr represents the first memory address of the message
+ * object. In case of the sja1000 @obj_base_addr is taken the same as the chips
+ * base address.
+ * Unless the hardware uses a segmented memory map, flags can be set zero.
+ * Return Value: The function always returns zero
+ * File: src/ts7kv.c
+ */
+int ts7kv_init_obj_data(struct canchip_t *chip, int objnr)
+{
+ chip->msgobj[objnr]->obj_base_addr = chip->chip_base_addr;
+ return 0;
+}
+
+/**
+ * ts7kv_program_irq - program interrupts
+ * @candev: Pointer to candevice/board structure
+ *
+ * The function ts7kv_program_irq() is used for hardware that uses
+ * programmable interrupts. If your hardware doesn't use programmable interrupts
+ * you should not set the @candevices_t->flags entry to %CANDEV_PROGRAMMABLE_IRQ and
+ * leave this function unedited. Again this function is hardware specific so
+ * there's no example code.
+ * Return value: The function returns zero on success or %-ENODEV on failure
+ * File: src/ts7kv.c
+ */
+int ts7kv_program_irq(struct candevice_t *candev)
+{
+ return 0;
+}
+
+/**
+ * ts7kv_write_register - Low level write register routine
+ * @data: data to be written
+ * @address: memory address to write to
+ *
+ * The function ts7kv_write_register() is used to write to hardware registers
+ * on the CAN chip. You should only have to edit this function if your hardware
+ * uses some specific write process.
+ * Return Value: The function does not return a value
+ * File: src/ts7kv.c
+ */
+void ts7kv_write_register(unsigned data, can_ioptr_t address)
+{
+ unsigned long addr=can_ioptr2ulong(address);
+ can_ioptr_t base = can_ulong2ioptr(addr & ~0x1f);
+ unsigned char nwin = 0x10;
+ unsigned char savewin;
+
+ can_spin_irqflags_t flags;
+
+ if((addr&0x1f) > 0x1d) {
+ nwin++;
+ address -= 0x10;
+ }
+
+ can_spin_lock_irqsave(&ts7kv_win_lock,flags);
+ savewin = can_inb(base+TS7KV_WIN_REG);
+ if(nwin == savewin) {
+ can_outb(data, address);
+ }else{
+ can_outb(nwin, base+TS7KV_WIN_REG);
+ can_outb(data, address);
+ can_outb(savewin, base+TS7KV_WIN_REG);
+ }
+ can_spin_unlock_irqrestore(&ts7kv_win_lock,flags);
+}
+
+/**
+ * ts7kv_read_register - Low level read register routine
+ * @address: memory address to read from
+ *
+ * The function ts7kv_read_register() is used to read from hardware registers
+ * on the CAN chip. You should only have to edit this function if your hardware
+ * uses some specific read process.
+ * Return Value: The function returns the value stored in @address
+ * File: src/ts7kv.c
+ */
+unsigned ts7kv_read_register(can_ioptr_t address)
+{
+ unsigned long addr=can_ioptr2ulong(address);
+ can_ioptr_t base = can_ulong2ioptr(addr & ~0x1f);
+ unsigned char nwin = 0x10;
+ unsigned char savewin;
+ unsigned val;
+
+ can_spin_irqflags_t flags;
+
+ if((addr&0x1f) > 0x1d) {
+ nwin++;
+ address -= 0x10;
+ }
+
+ can_spin_lock_irqsave(&ts7kv_win_lock,flags);
+ savewin = can_inb(base+TS7KV_WIN_REG);
+ if(nwin == savewin) {
+ val = can_inb(address);
+ }else{
+ can_outb(nwin, base+TS7KV_WIN_REG);
+ val = can_inb(address);
+ can_outb(savewin, base+TS7KV_WIN_REG);
+ }
+ can_spin_unlock_irqrestore(&ts7kv_win_lock,flags);
+
+ return val;
+}
+
+extern int ts7kv_register(struct hwspecops_t *hwspecops)
+{
+ hwspecops->request_io = ts7kv_request_io;
+ hwspecops->release_io = ts7kv_release_io;
+ hwspecops->reset = ts7kv_reset;
+ hwspecops->init_hw_data = ts7kv_init_hw_data;
+ hwspecops->init_chip_data = ts7kv_init_chip_data;
+ hwspecops->init_obj_data = ts7kv_init_obj_data;
+ hwspecops->write_register = ts7kv_write_register;
+ hwspecops->read_register = ts7kv_read_register;
+ hwspecops->program_irq = ts7kv_program_irq;
+ return 0;
+}