nico@207: nico@207:
nico@207:00001 /* nico@207: 00002 This file is part of CanFestival, a library implementing CanOpen Stack. nico@207: 00003 nico@207: 00004 Copyright (C): Edouard TISSERANT and Francis DUPIN nico@207: 00005 nico@207: 00006 See COPYING file for copyrights details. nico@207: 00007 nico@207: 00008 This library is free software; you can redistribute it and/or nico@207: 00009 modify it under the terms of the GNU Lesser General Public nico@207: 00010 License as published by the Free Software Foundation; either nico@207: 00011 version 2.1 of the License, or (at your option) any later version. nico@207: 00012 nico@207: 00013 This library is distributed in the hope that it will be useful, nico@207: 00014 but WITHOUT ANY WARRANTY; without even the implied warranty of nico@207: 00015 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU nico@207: 00016 Lesser General Public License for more details. nico@207: 00017 nico@207: 00018 You should have received a copy of the GNU Lesser General Public nico@207: 00019 License along with this library; if not, write to the Free Software nico@207: 00020 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA nico@207: 00021 */ nico@207: 00022 nico@207: 00023 #define DEBUG_WAR_CONSOLE_ON nico@207: 00024 #define DEBUG_ERR_CONSOLE_ON nico@207: 00025 nico@207: 00026 #include <stddef.h> /* for NULL */ nico@207: 00027 nico@207: 00028 #include "../include/hcs12/asm-m68hc12/portsaccess.h" nico@207: 00029 #include "../include/hcs12/asm-m68hc12/ports_def.h" nico@207: 00030 #include "../include/hcs12/asm-m68hc12/ports.h" nico@207: 00031 #include "../include/data.h" nico@207: 00032 #include "../include/hcs12/applicfg.h" nico@207: 00033 #include "../include/hcs12/candriver.h" nico@207: 00034 #include "../include/hcs12/interrupt.h" nico@207: 00035 #include "../include/hcs12/canOpenDriver.h" nico@207: 00036 #include "../include/can.h" nico@207: 00037 #include "../include/objdictdef.h" nico@207: 00038 #include "../include/timer.h" nico@207: 00039 nico@207: 00040 nico@207: 00041 nico@207: 00042 nico@207: 00043 nico@207: 00044 nico@207: 00045 volatile static Message stackMsgRcv[NB_LINE_CAN][MAX_STACK_MSG_RCV]; nico@207: 00046 volatile static t_pointerStack ptrMsgRcv[NB_LINE_CAN]; nico@207: 00047 nico@207: 00048 volatile static TIMEVAL last_time_set = TIMEVAL_MAX; nico@207: 00049 static UNS8 timer_is_set = 0; nico@207: 00050 nico@207: 00051 /* Prototypes */ nico@207: 00052 UNS8 f_can_receive(UNS8 notused, Message *m); nico@207: 00053 UNS8 canSend(UNS8 notused, Message *m); nico@207: 00054 void __attribute__((interrupt)) timer4Hdl (void); nico@207: 00055 nico@207: 00056 #define max(a,b) a>b?a:b nico@207: 00057 nico@207: 00058 /******************************************************************************/ nico@207: 00059 void setTimer(TIMEVAL value) nico@207: 00060 { nico@207: 00061 IO_PORTS_16(TC4H) += value; nico@207: 00062 timer_is_set = 1; nico@207: 00063 } nico@207: 00064 nico@207: 00065 /******************************************************************************/ nico@207: 00066 TIMEVAL getElapsedTime() nico@207: 00067 { nico@207: 00068 return (IO_PORTS_16(TC4H) > last_time_set ? IO_PORTS_16(TC4H) - last_time_set : last_time_set - IO_PORTS_16(TC4H)); nico@207: 00069 } nico@207: 00070 nico@207: 00071 nico@207: 00072 /******************************************************************************/ nico@207: 00073 void resetTimer(void) nico@207: 00074 { nico@207: 00075 nico@207: 00076 } nico@207: 00077 nico@207: 00078 /******************************************************************************/ nico@207: 00079 void initTimer(void) nico@207: 00080 { nico@207: 00081 lock(); // Inhibition of interruptions nico@207: 00082 nico@207: 00083 // Configure the timer channel 4 nico@207: 00084 IO_PORTS_8(TIOS) |= 0x10; // Canal 4 in output nico@207: 00085 IO_PORTS_8(TCTL1) &= ~(0x01 + 0x02); // Canal 4 unconnected to pin output nico@207: 00086 IO_PORTS_8(TIE) |= 0x10; // allow interruption channel 4 nico@207: 00087 IO_PORTS_8(TSCR2) |= 0X05; // Pre-scaler = 32 nico@207: 00088 // If this value is changed, change must be done also nico@207: 00089 // in void __attribute__((interrupt)) timer4Hdl (void) nico@207: 00090 nico@207: 00091 IO_PORTS_8(TSCR1) |= 0x80; // Start timer nico@207: 00092 unlock(); // Allow interruptions nico@207: 00093 } nico@207: 00094 nico@207: 00095 /******************************************************************************/ nico@207: 00096 void __attribute__((interrupt)) timer4Hdl (void) nico@207: 00097 { nico@207: 00098 lock(); nico@207: 00099 last_time_set = IO_PORTS_16(TC4H); nico@207: 00100 IO_PORTS_8(TFLG1) = 0x10; // RAZ flag interruption timer channel 4 nico@207: 00101 // Compute the next event : When the timer reach the value of TC4, an interrupt is nico@207: 00102 // started nico@207: 00103 //IO_PORTS_16(TC4H) += 250; // To have an interruption every 1 ms nico@207: 00104 //timerInterrupt(0); nico@207: 00105 //MSG_WAR(0xFFFF, "timer4 IT", 0); nico@207: 00106 { nico@207: 00107 //MSG_WAR(0xFFFF, "t4 ", IO_PORTS_16(TCNTH) - IO_PORTS_16(TC4H)); nico@207: 00108 } nico@207: 00109 TimeDispatch(); nico@207: 00110 unlock(); nico@207: 00111 } nico@207: 00112 nico@207: 00113 nico@207: 00114 /******************************************************************************/ nico@207: 00115 void initSCI_0(void) nico@207: 00116 { nico@207: 00117 IO_PORTS_16(SCI0 + SCIBDH) = nico@207: 00118 ((1000000 / SERIAL_SCI0_BAUD_RATE) * BUS_CLOCK) >> 4 ; nico@207: 00119 IO_PORTS_8(SCI0 + SCICR1) = 0; // format 8N1 nico@207: 00120 IO_PORTS_8(SCI0 + SCICR2) = 0x08; // Transmit enable only nico@207: 00121 } nico@207: 00122 nico@207: 00123 /******************************************************************************/ nico@207: 00124 void initSCI_1(void) nico@207: 00125 { nico@207: 00126 IO_PORTS_16(SCI1 + SCIBDH) = nico@207: 00127 ((1000000 / SERIAL_SCI1_BAUD_RATE) * BUS_CLOCK) >> 4 ; nico@207: 00128 IO_PORTS_8(SCI1 + SCICR1) = 0; // format 8N1 nico@207: 00129 IO_PORTS_8(SCI1 + SCICR2) = 0x08; // Transmit enable only nico@207: 00130 } nico@207: 00131 nico@207: 00132 nico@207: 00133 /******************************************************************************/ nico@207: 00134 char * nico@207: 00135 hex_convert (char *buf, unsigned long value, char lastCar) nico@207: 00136 { nico@207: 00137 //Thanks to Stéphane Carrez for this function nico@207: 00138 char num[32]; nico@207: 00139 int pos; nico@207: 00140 nico@207: 00141 *buf++ = '0'; nico@207: 00142 *buf++ = 'x'; nico@207: 00143 nico@207: 00144 pos = 0; nico@207: 00145 while (value != 0) { nico@207: 00146 char c = value & 0x0F; nico@207: 00147 num[pos++] = "0123456789ABCDEF"[(unsigned) c]; nico@207: 00148 value = (value >> 4) & (0x0fffffffL); nico@207: 00149 } nico@207: 00150 if (pos == 0) nico@207: 00151 num[pos++] = '0'; nico@207: 00152 nico@207: 00153 while (--pos >= 0) nico@207: 00154 *buf++ = num[pos]; nico@207: 00155 nico@207: 00156 *buf++ = lastCar; nico@207: 00157 *buf = 0; nico@207: 00158 return buf; nico@207: 00159 } nico@207: 00160 nico@207: 00161 /******************************************************************************/ nico@207: 00162 void printSCI_str(char sci, const char * str) nico@207: 00163 { nico@207: 00164 char i = 0; nico@207: 00165 nico@207: 00166 while ((*(str + i) != 0) && (i < 0xFF)) { nico@207: 00167 if (*(str + i) == '\n') nico@207: 00168 { nico@207: 00169 while ((IO_PORTS_8(sci + SCISR1) & 0X80) == 0); // wait if buffer not empty nico@207: 00170 IO_PORTS_8(sci + SCIDRL) = 13; // return to start of line nico@207: 00171 } nico@207: 00172 while ((IO_PORTS_8(sci + SCISR1) & 0X80) == 0); // wait if buffer not empty nico@207: 00173 IO_PORTS_8(sci + SCIDRL) = *(str + i++); nico@207: 00174 } nico@207: 00175 nico@207: 00176 } nico@207: 00177 nico@207: 00178 /******************************************************************************/ nico@207: 00179 void printSCI_nbr(char sci, unsigned long nbr, char lastCar) nico@207: 00180 { nico@207: 00181 char strNbr[12]; nico@207: 00182 hex_convert(strNbr, nbr, lastCar); nico@207: 00183 printSCI_str(sci, strNbr); nico@207: 00184 } nico@207: 00185 nico@207: 00186 /******************************************************************************/ nico@207: 00187 // PLL 24 MHZ if quartz on board is 16 MHZ nico@207: 00188 void initPLL(void) nico@207: 00189 { nico@207: 00190 IO_PORTS_8(CLKSEL) &= ~0x80; // unselect the PLL nico@207: 00191 IO_PORTS_8(PLLCTL) |= 0X60; // PLL ON and bandwidth auto nico@207: 00192 IO_PORTS_8(SYNR) = 0x02; nico@207: 00193 IO_PORTS_8(REFDV) = 0x01; nico@207: 00194 while ((IO_PORTS_8(CRGFLG) & 0x08) == 0); nico@207: 00195 IO_PORTS_8(CLKSEL) |= 0x80; nico@207: 00196 } nico@207: 00197 nico@207: 00198 /******************************************************************************/ nico@207: 00199 void initHCS12(void) nico@207: 00200 { nico@207: 00201 nico@207: 00202 # ifdef USE_PLL nico@207: 00203 MSG_WAR(0x3620, "Use the PLL ", 0); nico@207: 00204 initPLL(); nico@207: 00205 # endif nico@207: 00206 nico@207: 00207 } nico@207: 00208 nico@207: 00209 /***************************************************************************/ nico@207: 00210 char canAddIdToFilter(UNS16 adrCAN, UNS8 nFilter, UNS16 id) nico@207: 00211 { nico@207: 00212 UNS8 fiMsb; nico@207: 00213 UNS8 fiLsb; nico@207: 00214 UNS8 idMsb = (UNS8) (id >> 3); nico@207: 00215 UNS8 idLsb = (UNS8) (id << 5); nico@207: 00216 nico@207: 00217 if (! canTestInitMode(adrCAN)) { nico@207: 00218 /* Error because not init mode */ nico@207: 00219 MSG_WAR(0X2600, "Not in init mode ", 0); nico@207: 00220 return 1; nico@207: 00221 } nico@207: 00222 switch (nFilter) { nico@207: 00223 case 0: nico@207: 00224 nFilter = CANIDAR0; /* First bank */ nico@207: 00225 break; nico@207: 00226 case 1: nico@207: 00227 nFilter = CANIDAR2; /* First bank */ nico@207: 00228 break; nico@207: 00229 case 2: nico@207: 00230 nFilter = CANIDAR4; /* Second bank */ nico@207: 00231 break; nico@207: 00232 case 3: nico@207: 00233 nFilter = CANIDAR6; /* Second bank */ nico@207: 00234 } nico@207: 00235 if (! IO_PORTS_16(adrCAN + nFilter)) { nico@207: 00236 /* if CANIDARx = 0 */ nico@207: 00237 IO_PORTS_8(adrCAN + nFilter) = idMsb; nico@207: 00238 IO_PORTS_8(adrCAN + nFilter + 1) = idLsb; nico@207: 00239 } nico@207: 00240 fiMsb = IO_PORTS_8(adrCAN + nFilter) ^ idMsb; nico@207: 00241 fiLsb = IO_PORTS_8(adrCAN + nFilter + 1) ^ idLsb; nico@207: 00242 /* address of CANIDMRx */ nico@207: 00243 IO_PORTS_8(adrCAN + nFilter + 4) = IO_PORTS_8(adrCAN + nFilter + 4) | fiMsb; nico@207: 00244 IO_PORTS_8(adrCAN + nFilter + 5) = IO_PORTS_8(adrCAN + nFilter + 5) | fiLsb; nico@207: 00245 IO_PORTS_8(adrCAN + nFilter + 5) |= 0x10; /* Not filtering on rtr value */ nico@207: 00246 return 0; nico@207: 00247 } nico@207: 00248 nico@207: 00249 /***************************************************************************/ nico@207: 00250 char canChangeFilter(UNS16 adrCAN, canBusFilterInit fi) nico@207: 00251 { nico@207: 00252 /* If not in init mode, go to sleep before going in init mode*/ nico@207: 00253 if (! canTestInitMode(adrCAN)) { nico@207: 00254 canSleepMode(adrCAN); nico@207: 00255 canInitMode(adrCAN); nico@207: 00256 } nico@207: 00257 //update the filters configuration nico@207: 00258 canInitFilter(adrCAN, fi); nico@207: 00259 canInitModeQ(adrCAN); nico@207: 00260 canSleepModeQ(adrCAN); nico@207: 00261 canSetInterrupt(adrCAN); nico@207: 00262 return 0; nico@207: 00263 } nico@207: 00264 nico@207: 00265 /***************************************************************************/ nico@207: 00266 char canEnable(UNS16 adrCAN) nico@207: 00267 { nico@207: 00268 /* Register CANCTL1 nico@207: 00269 bit 7 : 1 MSCAN enabled nico@207: 00270 Other bits : default reset values nico@207: 00271 */ nico@207: 00272 IO_PORTS_8(adrCAN + CANCTL1) = 0X80; nico@207: 00273 return 0; nico@207: 00274 } nico@207: 00275 nico@207: 00276 /***************************************************************************/ nico@207: 00277 char canInit(UNS16 adrCAN, canBusInit bi) nico@207: 00278 { nico@207: 00279 /* If not in init mode, go to sleep before going in init mode*/ nico@207: 00280 if (! canTestInitMode(adrCAN)) { nico@207: 00281 canSleepMode(adrCAN); nico@207: 00282 canInitMode(adrCAN); nico@207: 00283 } nico@207: 00284 nico@207: 00285 canEnable(adrCAN); /* Does nothing if already enable */ nico@207: 00286 /* The most secure way to go in init mode : put before MSCAN in sleep mode */ nico@207: 00287 //canSleepMode(adrCAN); nico@207: 00288 /* Put MSCAN in Init mode */ nico@207: 00289 //canInitMode(adrCAN); nico@207: 00290 canInitClock(adrCAN, bi.clk); nico@207: 00291 /* Init CANCTL1 register. Must be in init mode */ nico@207: 00292 IO_PORTS_8(adrCAN + CANCTL1) &=0xC4;// 0xCB; /* Clr the bits that may be modified */ nico@207: 00293 IO_PORTS_8(adrCAN + CANCTL1) = (bi.cane << 7) | (bi.loopb << 5 ) | nico@207: 00294 (bi.listen << 4) | (bi.wupm << 2); nico@207: 00295 /* Initialize the filters for received msgs */ nico@207: 00296 /* We should decide to accept all the msgs */ nico@207: 00297 canInitFilter(adrCAN, bi.fi); nico@207: 00298 /* Before to modify CANCTL0, we must leave the init mode */ nico@207: 00299 canInitModeQ(adrCAN); nico@207: 00300 /* Init CANCTL0 register. MSCAN must not be in init mode */ nico@207: 00301 /* Do not change the value of wupe (should be 0) and slprq (should be 1) */ nico@207: 00302 /* Do not change the value of initrq (should be 0) */ nico@207: 00303 /* rxfrm is cleared, mupe also (should be before)*/ nico@207: 00304 IO_PORTS_8(adrCAN + CANCTL0) &= 0x53; /* Clr the bits that may be modified */ nico@207: 00305 IO_PORTS_8(adrCAN + CANCTL0) = (bi.cswai << 5) | (bi.time << 3); nico@207: 00306 canSetInterrupt(adrCAN); nico@207: 00307 canInitModeQ(adrCAN); /* Leave the init mode */ nico@207: 00308 canSleepModeQ(adrCAN); /* Leave the sleep mode */ nico@207: 00309 return 0; nico@207: 00310 } nico@207: 00311 nico@207: 00312 /***************************************************************************/ nico@207: 00313 char canInitClock(UNS16 adrCAN, canBusTime clk) nico@207: 00314 { nico@207: 00315 if (! canTestInitMode(adrCAN)) { nico@207: 00316 /* Not in Init mode */ nico@207: 00317 MSG_WAR(0X2601, "not in init mode ", 0); nico@207: 00318 return 1; nico@207: 00319 } nico@207: 00320 /* Set or reset CLKSRC (register CANCTL1). Does not change the other bits*/ nico@207: 00321 clk.clksrc = clk.clksrc << 6; nico@207: 00322 IO_PORTS_8(adrCAN + CANCTL1) &= 0xBF; nico@207: 00323 IO_PORTS_8(adrCAN + CANCTL1) |= clk.clksrc; nico@207: 00324 /* Build the CANBTR0 register */ nico@207: 00325 IO_PORTS_8(adrCAN + CANBTR0) = 0x00; /* Clear before changes */ nico@207: 00326 IO_PORTS_8(adrCAN + CANBTR0) = (clk.sjw << 6) | (clk.brp); nico@207: 00327 /* Build the CANBTR1 register */ nico@207: 00328 IO_PORTS_8(adrCAN + CANBTR1) = 0x00; /* Clear before changes */ nico@207: 00329 IO_PORTS_8(adrCAN + CANBTR1) = (clk.samp << 7) | (clk.tseg2 << 4) | nico@207: 00330 (clk.tseg1); nico@207: 00331 return 0; nico@207: 00332 } nico@207: 00333 nico@207: 00334 /***************************************************************************/ nico@207: 00335 char canInit1Filter(UNS16 adrCAN, UNS8 nFilter, UNS16 ar, UNS16 mr) nico@207: 00336 { nico@207: 00337 if (! canTestInitMode(adrCAN)) { nico@207: 00338 /* Error because not init mode */ nico@207: 00339 MSG_WAR(0X2602, "not in init mode ", 0); nico@207: 00340 return 1; nico@207: 00341 } nico@207: 00342 switch (nFilter) { nico@207: 00343 case 0: nico@207: 00344 nFilter = CANIDAR0; /* First bank */ nico@207: 00345 break; nico@207: 00346 case 1: nico@207: 00347 nFilter = CANIDAR2; /* First bank */ nico@207: 00348 break; nico@207: 00349 case 2: nico@207: 00350 nFilter = CANIDAR4; /* Second bank */ nico@207: 00351 break; nico@207: 00352 case 3: nico@207: 00353 nFilter = CANIDAR6; /* Second bank */ nico@207: 00354 } nico@207: 00355 /* address of CANIDARx */ nico@207: 00356 IO_PORTS_8(adrCAN + nFilter) = (UNS8) (ar >> 8); nico@207: 00357 IO_PORTS_8(adrCAN + nFilter + 1) = (UNS8) (ar); nico@207: 00358 IO_PORTS_8(adrCAN + nFilter + 4) = (UNS8) (mr >> 8); nico@207: 00359 IO_PORTS_8(adrCAN + nFilter + 5) = (UNS8) (mr); nico@207: 00360 return 0; nico@207: 00361 } nico@207: 00362 nico@207: 00363 /***************************************************************************/ nico@207: 00364 char canInitFilter(UNS16 adrCAN, canBusFilterInit fi) nico@207: 00365 { nico@207: 00366 if (! canTestInitMode(adrCAN)) { nico@207: 00367 /* Error because not init mode */ nico@207: 00368 MSG_WAR(0X2603, "not in init mode ", 0); nico@207: 00369 return 1; nico@207: 00370 } nico@207: 00371 IO_PORTS_8(adrCAN + CANIDAC) = fi.idam << 4; nico@207: 00372 IO_PORTS_8(adrCAN + CANIDAR0) = fi.canidar0; nico@207: 00373 IO_PORTS_8(adrCAN + CANIDMR0) = fi.canidmr0; nico@207: 00374 IO_PORTS_8(adrCAN + CANIDAR1) = fi.canidar1; nico@207: 00375 IO_PORTS_8(adrCAN + CANIDMR1) = fi.canidmr1; nico@207: 00376 IO_PORTS_8(adrCAN + CANIDAR2) = fi.canidar2; nico@207: 00377 IO_PORTS_8(adrCAN + CANIDMR2) = fi.canidmr2; nico@207: 00378 IO_PORTS_8(adrCAN + CANIDAR3) = fi.canidar3; nico@207: 00379 IO_PORTS_8(adrCAN + CANIDMR3) = fi.canidmr3; nico@207: 00380 IO_PORTS_8(adrCAN + CANIDAR4) = fi.canidar4; nico@207: 00381 IO_PORTS_8(adrCAN + CANIDMR4) = fi.canidmr4; nico@207: 00382 IO_PORTS_8(adrCAN + CANIDAR5) = fi.canidar5; nico@207: 00383 IO_PORTS_8(adrCAN + CANIDMR5) = fi.canidmr5; nico@207: 00384 IO_PORTS_8(adrCAN + CANIDAR6) = fi.canidar6; nico@207: 00385 IO_PORTS_8(adrCAN + CANIDMR6) = fi.canidmr6; nico@207: 00386 IO_PORTS_8(adrCAN + CANIDAR7) = fi.canidar7; nico@207: 00387 IO_PORTS_8(adrCAN + CANIDMR7) = fi.canidmr7; nico@207: 00388 return 0; nico@207: 00389 } nico@207: 00390 nico@207: 00391 /***************************************************************************/ nico@207: 00392 char canInitMode(UNS16 adrCAN) nico@207: 00393 { nico@207: 00394 IO_PORTS_8(adrCAN + CANCTL0) |= 0x01; /* Set the bit INITRQ */ nico@207: 00395 while (! canTestInitMode(adrCAN)) { nico@207: 00396 } nico@207: 00397 return 0; nico@207: 00398 } nico@207: 00399 nico@207: 00400 /***************************************************************************/ nico@207: 00401 char canInitModeQ(UNS16 adrCAN) nico@207: 00402 { nico@207: 00403 IO_PORTS_8(adrCAN + CANCTL0) &= 0xFE; /* Clear the bit INITRQ */ nico@207: 00404 while (canTestInitMode(adrCAN)) { nico@207: 00405 } nico@207: 00406 return 0; nico@207: 00407 } nico@207: 00408 nico@207: 00409 /***************************************************************************/ nico@207: 00410 char canMsgTransmit(UNS16 adrCAN, Message msg) nico@207: 00411 { nico@207: 00412 /* Remind : only CAN A msg implemented. ie id on 11 bits, not 29 */ nico@207: 00413 UNS8 cantflg; nico@207: 00414 UNS8 i; nico@207: 00415 /* Looking for a free buffer */ nico@207: 00416 cantflg = IO_PORTS_8(adrCAN + CANTFLG); nico@207: 00417 if ( cantflg == 0) { /* all the TXEx are set */ nico@207: 00418 MSG_WAR(0X2604, "No buffer free. Msg to transmit is losted ", 0); nico@207: 00419 return 1; /* No buffer free */ nico@207: 00420 } nico@207: 00421 else{ nico@207: 00422 /* Selecting a buffer */ nico@207: 00423 IO_PORTS_8(adrCAN + CANTBSEL) = cantflg; nico@207: 00424 /* We put ide = 0 because id is on 11 bits only */ nico@207: 00425 IO_PORTS_8(adrCAN + CANTRSID) = (UNS8)(msg.cob_id.w >> 3); nico@207: 00426 IO_PORTS_8(adrCAN + CANTRSID + 1) = (UNS8)((msg.cob_id.w << 5)| nico@207: 00427 (msg.rtr << 4)); nico@207: 00428 nico@207: 00429 IO_PORTS_8(adrCAN + CANTRSLEN) = msg.len & 0X0F; nico@207: 00430 /* For the priority, we put the highter bits of the cob_id */ nico@207: 00431 IO_PORTS_8(adrCAN + CANTRSPRI) = IO_PORTS_8(adrCAN + CANTRSID); nico@207: 00432 for (i = 0 ; i < msg.len ; i++) { nico@207: 00433 IO_PORTS_8(adrCAN + CANTRSDTA + i) = msg.data[i]; nico@207: 00434 } nico@207: 00435 /* Transmitting the message */ nico@207: 00436 cantflg = IO_PORTS_8(adrCAN + CANTBSEL);/* to know which buf is selected */ nico@207: 00437 IO_PORTS_8(adrCAN + CANTBSEL) = 0x00; nico@207: 00438 IO_PORTS_8(adrCAN + CANTFLG) = cantflg; /* Ready to transmit ! */ nico@207: 00439 nico@207: 00440 } nico@207: 00441 return 0; nico@207: 00442 } nico@207: 00443 nico@207: 00444 /***************************************************************************/ nico@207: 00445 char canSetInterrupt(UNS16 adrCAN) nico@207: 00446 { nico@207: 00447 IO_PORTS_8(adrCAN + CANRIER) = 0X01; /* Allow interruptions on receive */ nico@207: 00448 IO_PORTS_8(adrCAN + CANTIER) = 0X00; /* disallow interruptions on transmit */ nico@207: 00449 return 0; nico@207: 00450 } nico@207: 00451 /***************************************************************************/ nico@207: 00452 char canSleepMode(UNS16 adrCAN) nico@207: 00453 { nico@207: 00454 IO_PORTS_8(adrCAN + CANCTL0) &= 0xFB; /* clr the bit WUPE to avoid a wake-up*/ nico@207: 00455 IO_PORTS_8(adrCAN + CANCTL0) |= 0x02; /* Set the bit SLPRQ. go to Sleep !*/ nico@207: 00456 nico@207: 00457 // IO_PORTS_8(adrCAN + CANCTL1) |= 0x04; nico@207: 00458 // IO_PORTS_8(adrCAN + CANCTL0) |= 0x02; /* Set the bit SLPRQ */ nico@207: 00459 while ( ! canTestSleepMode(adrCAN)) { nico@207: 00460 } nico@207: 00461 nico@207: 00462 return 0; nico@207: 00463 } nico@207: 00464 nico@207: 00465 /***************************************************************************/ nico@207: 00466 char canSleepModeQ(UNS16 adrCAN) nico@207: 00467 { nico@207: 00468 if (canTestInitMode(adrCAN)) { nico@207: 00469 /* Error because in init mode */ nico@207: 00470 MSG_WAR(0X2606, "not in init mode ", 0); nico@207: 00471 return 1; nico@207: 00472 } nico@207: 00473 IO_PORTS_8(adrCAN + CANCTL0) &= 0xFD; /* clr the bit SLPRQ */ nico@207: 00474 while ( canTestSleepMode(adrCAN)) { nico@207: 00475 } nico@207: 00476 return 0; nico@207: 00477 } nico@207: 00478 nico@207: 00479 /***************************************************************************/ nico@207: 00480 char canSleepWupMode(UNS16 adrCAN) nico@207: 00481 { nico@207: 00482 if (canTestInitMode(adrCAN)) { nico@207: 00483 MSG_WAR(0X2607, "not in init mode ", 0); nico@207: 00484 return 1; nico@207: 00485 } nico@207: 00486 IO_PORTS_8(adrCAN + CANCTL0) |= 0x06; /* Set the bits WUPE & SLPRQ */ nico@207: 00487 while ( ! canTestSleepMode(adrCAN)) { nico@207: 00488 } nico@207: 00489 return 0; nico@207: 00490 } nico@207: 00491 nico@207: 00492 /***************************************************************************/ nico@207: 00493 char canTestInitMode(UNS16 adrCAN) nico@207: 00494 { nico@207: 00495 return IO_PORTS_8(adrCAN + CANCTL1) & 0x01; /* Test the bit INITAK */ nico@207: 00496 } nico@207: 00497 nico@207: 00498 /***************************************************************************/ nico@207: 00499 char canTestSleepMode(UNS16 adrCAN) nico@207: 00500 { nico@207: 00501 return IO_PORTS_8(adrCAN + CANCTL1) & 0x02; /* Test the bit SLPAK */ nico@207: 00502 } nico@207: 00503 nico@207: 00504 /***************************************************************************/ nico@207: 00505 UNS8 canSend(UNS8 notused, Message *m) nico@207: 00506 { nico@207: 00507 canMsgTransmit(CANOPEN_LINE_NUMBER_USED, *m); nico@207: 00508 return 0; nico@207: 00509 } nico@207: 00510 nico@207: 00511 nico@207: 00512 /**************************************************************************/ nico@207: 00513 UNS8 f_can_receive(UNS8 notused, Message *msgRcv) nico@207: 00514 { nico@207: 00515 UNS8 i, j; nico@207: 00516 nico@207: 00517 switch (CANOPEN_LINE_NUMBER_USED) { nico@207: 00518 case CAN0 : j = 0; break; nico@207: 00519 case CAN1 : j = 1; break; nico@207: 00520 case CAN2 : j = 2; break; nico@207: 00521 case CAN3 : j = 3; break; nico@207: 00522 case CAN4 : j = 4; break; nico@207: 00523 } nico@207: 00524 nico@207: 00525 /* See if a message is pending in the stack */ nico@207: 00526 if (ptrMsgRcv[j].r == ptrMsgRcv[j].w) nico@207: 00527 return 0x0; // No new message nico@207: 00528 nico@207: 00529 /* Increment the reading pointer of the stack */ nico@207: 00530 if (ptrMsgRcv[j].r == (MAX_STACK_MSG_RCV - 1)) nico@207: 00531 ptrMsgRcv[j].r = 0; nico@207: 00532 else nico@207: 00533 ptrMsgRcv[j].r ++; nico@207: 00534 nico@207: 00535 /* Store the message from the stack*/ nico@207: 00536 msgRcv->cob_id.w = stackMsgRcv[j][ptrMsgRcv[j].r].cob_id.w; nico@207: 00537 msgRcv->len = stackMsgRcv[j][ptrMsgRcv[j].r].len; nico@207: 00538 msgRcv->rtr = stackMsgRcv[j][ptrMsgRcv[j].r].rtr; nico@207: 00539 for (i = 0 ; i < stackMsgRcv[j][ptrMsgRcv[j].r].len ; i++) nico@207: 00540 msgRcv->data[i] = stackMsgRcv[j][ptrMsgRcv[j].r].data[i]; nico@207: 00541 return 0xFF; nico@207: 00542 } nico@207: 00543 nico@207: 00544 nico@207: 00545 /****************************************************************************** nico@207: 00546 ******************************* CAN INTERRUPT *******************************/ nico@207: 00547 nico@207: 00548 void __attribute__((interrupt)) can0HdlTra (void) nico@207: 00549 { nico@207: 00550 nico@207: 00551 } nico@207: 00552 nico@207: 00553 void __attribute__((interrupt)) can0HdlRcv (void) nico@207: 00554 { nico@207: 00555 UNS8 i; nico@207: 00556 lock(); nico@207: 00557 IO_PORTS_8(PORTB) &= ~ 0x40; // led 6 port B : ON nico@207: 00558 UNS8 NewPtrW; nico@207: 00559 /* We are obliged to save the message while the interruption is pending */ nico@207: 00560 /* Increment the writing stack pointer before writing the msg */ nico@207: 00561 if (ptrMsgRcv[0].w == (MAX_STACK_MSG_RCV - 1)) nico@207: 00562 NewPtrW = 0; nico@207: 00563 else nico@207: 00564 NewPtrW = ptrMsgRcv[0].w + 1; nico@207: 00565 nico@207: 00566 if (NewPtrW == ptrMsgRcv[0].r) { nico@207: 00567 /* The stack is full. The last msg received before this one is lost */ nico@207: 00568 MSG_WAR(0X1620, "Stack for received msg is full", 0); nico@207: 00569 //IO_PORTS_8(PORTB) &= ~0x40; // led 6 : ON (for debogue) nico@207: 00570 } nico@207: 00571 else nico@207: 00572 ptrMsgRcv[0].w = NewPtrW; nico@207: 00573 nico@207: 00574 /* Store the message */ nico@207: 00575 stackMsgRcv[0][ptrMsgRcv[0].w].cob_id.w = IO_PORTS_16(CAN0 + CANRCVID) >> 5; nico@207: 00576 stackMsgRcv[0][ptrMsgRcv[0].w].len = IO_PORTS_8(CAN0 + CANRCVLEN) & 0x0F; nico@207: 00577 stackMsgRcv[0][ptrMsgRcv[0].w].rtr = (IO_PORTS_8(CAN0 + CANRCVID + 1) >> 4) & 0x01; nico@207: 00578 for (i = 0 ; i < stackMsgRcv[0][ptrMsgRcv[0].w].len ; i++) nico@207: 00579 stackMsgRcv[0][ptrMsgRcv[0].w].data[i] = IO_PORTS_8(CAN0 + CANRCVDTA + i); nico@207: 00580 nico@207: 00581 // The message is stored , so nico@207: 00582 // we can now release the receive foreground buffer nico@207: 00583 // and acknowledge the interruption nico@207: 00584 IO_PORTS_8(CAN0 + CANRFLG) |= 0x01; nico@207: 00585 // Not very usefull nico@207: 00586 IO_PORTS_8(CAN0 + CANCTL0) |= 0x80; nico@207: 00587 IO_PORTS_8(PORTB) |= 0x40; // led 6 port B : OFF nico@207: 00588 unlock(); nico@207: 00589 } nico@207: 00590 nico@207: 00591 void __attribute__((interrupt)) can0HdlWup (void) nico@207: 00592 { nico@207: 00593 nico@207: 00594 } nico@207: 00595 nico@207: 00596 void __attribute__((interrupt)) can0HdlErr (void) nico@207: 00597 { nico@207: 00598 nico@207: 00599 } nico@207: 00600 nico@207: 00601 void __attribute__((interrupt)) can1HdlTra (void) nico@207: 00602 { nico@207: 00603 nico@207: 00604 } nico@207: 00605 nico@207: 00606 void __attribute__((interrupt)) can1HdlRcv (void) nico@207: 00607 { nico@207: 00608 UNS8 i; nico@207: 00609 lock(); nico@207: 00610 UNS8 NewPtrW; nico@207: 00611 /* We are obliged to save the message while the interruption is pending */ nico@207: 00612 /* Increment the writing stack pointer before writing the msg */ nico@207: 00613 if (ptrMsgRcv[1].w == (MAX_STACK_MSG_RCV - 1)) nico@207: 00614 NewPtrW = 0; nico@207: 00615 else nico@207: 00616 NewPtrW = ptrMsgRcv[1].w + 1; nico@207: 00617 nico@207: 00618 if (NewPtrW == ptrMsgRcv[1].r) { nico@207: 00619 /* The stack is full. The last msg received before this one is lost */ nico@207: 00620 MSG_WAR(0X2620, "Stack for received msg is full", 0); nico@207: 00621 } nico@207: 00622 else nico@207: 00623 ptrMsgRcv[1].w = NewPtrW; nico@207: 00624 nico@207: 00625 /* Store the message */ nico@207: 00626 stackMsgRcv[1][ptrMsgRcv[1].w].cob_id.w = IO_PORTS_16(CAN1 + CANRCVID) >> 5; nico@207: 00627 stackMsgRcv[1][ptrMsgRcv[1].w].len = IO_PORTS_8(CAN1 + CANRCVLEN) & 0x0F; nico@207: 00628 stackMsgRcv[0][ptrMsgRcv[0].w].rtr = (IO_PORTS_8(CAN1 + CANRCVID + 1) >> 4) & 0x01; nico@207: 00629 for (i = 0 ; i < stackMsgRcv[1][ptrMsgRcv[1].w].len ; i++) nico@207: 00630 stackMsgRcv[1][ptrMsgRcv[1].w].data[i] = IO_PORTS_8(CAN1 + CANRCVDTA + i); nico@207: 00631 nico@207: 00632 // The message is stored , so nico@207: 00633 // we can now release the receive foreground buffer nico@207: 00634 // and acknowledge the interruption nico@207: 00635 IO_PORTS_8(CAN1 + CANRFLG) |= 0x01; nico@207: 00636 // Not very usefull nico@207: 00637 IO_PORTS_8(CAN1 + CANCTL0) |= 0x80; nico@207: 00638 unlock(); nico@207: 00639 } nico@207: 00640 nico@207: 00641 void __attribute__((interrupt)) can1HdlWup (void) nico@207: 00642 { nico@207: 00643 nico@207: 00644 } nico@207: 00645 nico@207: 00646 void __attribute__((interrupt)) can1HdlErr (void) nico@207: 00647 { nico@207: 00648 nico@207: 00649 } nico@207: 00650 nico@207: 00651 void __attribute__((interrupt)) can2HdlTra (void) nico@207: 00652 { nico@207: 00653 nico@207: 00654 } nico@207: 00655 nico@207: 00656 void __attribute__((interrupt)) can2HdlRcv (void) nico@207: 00657 { nico@207: 00658 nico@207: 00659 } nico@207: 00660 nico@207: 00661 void __attribute__((interrupt)) can2HdlWup (void) nico@207: 00662 { nico@207: 00663 nico@207: 00664 } nico@207: 00665 nico@207: 00666 void __attribute__((interrupt)) can2HdlErr (void) nico@207: 00667 { nico@207: 00668 nico@207: 00669 } nico@207: 00670 nico@207: 00671 void __attribute__((interrupt)) can3HdlTra (void) nico@207: 00672 { nico@207: 00673 nico@207: 00674 } nico@207: 00675 nico@207: 00676 void __attribute__((interrupt)) can3HdlRcv (void) nico@207: 00677 { nico@207: 00678 nico@207: 00679 } nico@207: 00680 nico@207: 00681 void __attribute__((interrupt)) can3HdlWup (void) nico@207: 00682 { nico@207: 00683 nico@207: 00684 } nico@207: 00685 nico@207: 00686 void __attribute__((interrupt)) can3HdlErr (void) nico@207: 00687 { nico@207: 00688 nico@207: 00689 } nico@207: 00690 nico@207: 00691 void __attribute__((interrupt)) can4HdlTra (void) nico@207: 00692 { nico@207: 00693 nico@207: 00694 } nico@207: 00695 nico@207: 00696 void __attribute__((interrupt)) can4HdlRcv (void) nico@207: 00697 { nico@207: 00698 nico@207: 00699 } nico@207: 00700 nico@207: 00701 void __attribute__((interrupt)) can4HdlWup (void) nico@207: 00702 { nico@207: 00703 nico@207: 00704 } nico@207: 00705 nico@207: 00706 void __attribute__((interrupt)) can4HdlErr (void) nico@207: 00707 { nico@207: 00708 nico@207: 00709 } nico@207: 00710 nico@207: 00711 nico@207: 00712 nico@207: