new_cmsis/usb/serial.c

   1 /*----------------------------------------------------------------------------
   2  *      Name:    serial.c
   3  *      Purpose: serial port handling for LPC17xx
   4  *      Version: V1.20
   5  *----------------------------------------------------------------------------
   6  *      This software is supplied "AS IS" without any warranties, express,
   7  *      implied or statutory, including but not limited to the implied
   8  *      warranties of fitness for purpose, satisfactory quality and
   9  *      noninfringement. Keil extends you a royalty-free right to reproduce
  10  *      and distribute executable files created using this software for use
  11  *      on NXP Semiconductors LPC microcontroller devices only. Nothing else
  12  *      gives you the right to use this software.
  13  *
  14  * Copyright (c) 2009 Keil - An ARM Company. All rights reserved.
  15  *---------------------------------------------------------------------------*/
  16 #include <board.h>                                   // LPC17xx definitions
  17 #include "lpc_types.h"
  18 #include "serial.h"
  19
  20
  21 /*----------------------------------------------------------------------------
  22   Defines for ring buffers
  23  *---------------------------------------------------------------------------*/
  24 #define SER_BUF_SIZE               (128)               // serial buffer in bytes (power 2)
  25 #define SER_BUF_MASK               (SER_BUF_SIZE-1ul)  // buffer size mask
  26
  27 /* Buffer read / write macros */
  28 #define SER_BUF_RESET(serBuf)      (serBuf.rdIdx = serBuf.wrIdx = 0)
  29 #define SER_BUF_WR(serBuf, dataIn) (serBuf.data[SER_BUF_MASK & serBuf.wrIdx++] = (dataIn))
  30 #define SER_BUF_RD(serBuf)         (serBuf.data[SER_BUF_MASK & serBuf.rdIdx++])
  31 #define SER_BUF_EMPTY(serBuf)      (serBuf.rdIdx == serBuf.wrIdx)
  32 #define SER_BUF_FULL(serBuf)       (serBuf.rdIdx == serBuf.wrIdx+1)
  33 #define SER_BUF_COUNT(serBuf)      (SER_BUF_MASK & (serBuf.wrIdx - serBuf.rdIdx))
  34
  35 // buffer type
  36 typedef struct __SER_BUF_T {
  37   unsigned char data[SER_BUF_SIZE];
  38   unsigned int wrIdx;
  39   unsigned int rdIdx;
  40 } SER_BUF_T;
  41
  42 unsigned long          ser_txRestart;                  // NZ if TX restart is required
  43 unsigned short         ser_lineState;                  // ((msr << 8) | (lsr))
  44 SER_BUF_T              ser_out;                        // Serial data buffers
  45 SER_BUF_T              ser_in;
  46
  47 /*----------------------------------------------------------------------------
  48   open the serial port
  49  *---------------------------------------------------------------------------*/
  50 void ser_OpenPort (char portNum) {
  51
  52   if ( portNum == 0 )
  53   {
  54         /* Port 0 */
  55         NVIC_DisableIRQ(UART0_IRQn);
  56         PINCON->PINSEL0 &= ~0x000000F0;
  57         PINCON->PINSEL0 |= 0x00000050;     /* RxD0 is P0.3 and TxD0 is P0.2 */
  58   }
  59   else
  60   {
  61         /* Port 1 */
  62         NVIC_DisableIRQ(UART1_IRQn);
  63         PINCON->PINSEL4 &= ~0x0000000F;
  64         PINCON->PINSEL4 |= 0x0000000A;    /* Enable RxD1 P2.1, TxD1 P2.0 */
  65   }
  66   return;
  67 }
  68
  69 /*----------------------------------------------------------------------------
  70   close the serial port
  71  *---------------------------------------------------------------------------*/
  72 void ser_ClosePort (char portNum ) {
  73   if ( portNum == 0 )
  74   {
  75         /* POrt 0 */
  76         PINCON->PINSEL0 &= ~0x000000F0;
  77         /* Disable the interrupt in the VIC and UART controllers */
  78         UART0->IER = 0;
  79         NVIC_DisableIRQ(UART0_IRQn);
  80   }
  81   else
  82   {
  83         /* Port 1 */
  84         PINCON->PINSEL4 &= ~0x0000000F;
  85         /* Disable the interrupt in the VIC and UART controllers */
  86         UART1->IER = 0;
  87         NVIC_DisableIRQ(UART1_IRQn);
  88   }
  89   return;
  90 }
  91
  92 /*----------------------------------------------------------------------------
  93   initialize the serial port
  94  *---------------------------------------------------------------------------*/
  95 void ser_InitPort0 (unsigned long baudrate, unsigned int  databits,
  96                   unsigned int  parity,   unsigned int  stopbits) {
  97
  98   unsigned char lcr_p, lcr_s, lcr_d;
  99   unsigned int dll;
 100   unsigned int pclkdiv, pclk;
 101
 102   switch (databits) {
 103     case 5:                                            // 5 Data bits
 104       lcr_d = 0x00;
 105     break;
 106     case 6:                                            // 6 Data bits
 107       lcr_d = 0x01;
 108     break;
 109     case 7:                                            // 7 Data bits
 110       lcr_d = 0x02;
 111     break;
 112     case 8:                                            // 8 Data bits
 113     default:
 114       lcr_d = 0x03;
 115     break;
 116   }
 117
 118   switch (stopbits) {
 119     case 1:                                            // 1,5 Stop bits
 120     case 2:                                            // 2   Stop bits
 121       lcr_s = 0x04;
 122     break;
 123     case 0:                                            // 1   Stop bit
 124     default:
 125       lcr_s = 0x00;
 126     break;
 127   }
 128
 129   switch (parity) {
 130     case 1:                                            // Parity Odd
 131       lcr_p = 0x08;
 132     break;
 133     case 2:                                            // Parity Even
 134       lcr_p = 0x18;
 135     break;
 136     case 3:                                            // Parity Mark
 137       lcr_p = 0x28;
 138     break;
 139     case 4:                                            // Parity Space
 140       lcr_p = 0x38;
 141     break;
 142     case 0:                                            // Parity None
 143     default:
 144       lcr_p = 0x00;
 145     break;
 146   }
 147
 148   SER_BUF_RESET(ser_out);                              // reset out buffer
 149   SER_BUF_RESET(ser_in);                               // reset in buffer
 150
 151   /* Bit 6~7 is for UART0 */
 152   pclkdiv = (SC->PCLKSEL0 >> 6) & 0x03;
 153
 154   switch ( pclkdiv )
 155   {
 156         case 0x00:
 157         default:
 158           pclk = SystemFrequency/4;
 159           break;
 160         case 0x01:
 161           pclk = SystemFrequency;
 162           break;
 163         case 0x02:
 164           pclk = SystemFrequency/2;
 165           break;
 166         case 0x03:
 167           pclk = SystemFrequency/8;
 168           break;
 169   }
 170
 171   dll = (pclk/16)/baudrate ;    /*baud rate */
 172   UART0->FDR = 0;                             // Fractional divider not used
 173   UART0->LCR = 0x80 | lcr_d | lcr_p | lcr_s;  // Data bits, Parity,   Stop bit
 174   UART0->DLL = dll;                           // Baud Rate depending on PCLK
 175   UART0->DLM = (dll >> 8);                    // High divisor latch
 176   UART0->LCR = 0x00 | lcr_d | lcr_p | lcr_s;  // DLAB = 0
 177   UART0->IER = 0x03;                          // Enable TX/RX interrupts
 178
 179   UART0->FCR = 0x07;                            /* Enable and reset TX and RX FIFO. */
 180   ser_txRestart = 1;                                   // TX fifo is empty
 181
 182   /* Enable the UART Interrupt */
 183   NVIC_EnableIRQ(UART0_IRQn);
 184   return;
 185 }
 186
 187 /*----------------------------------------------------------------------------
 188   initialize the serial port
 189  *---------------------------------------------------------------------------*/
 190 void ser_InitPort1 (unsigned long baudrate, unsigned int  databits,
 191                   unsigned int  parity,   unsigned int  stopbits) {
 192
 193   unsigned char lcr_p, lcr_s, lcr_d;
 194   unsigned int dll;
 195   unsigned int pclkdiv, pclk;
 196
 197   switch (databits) {
 198     case 5:                                            // 5 Data bits
 199       lcr_d = 0x00;
 200     break;
 201     case 6:                                            // 6 Data bits
 202       lcr_d = 0x01;
 203     break;
 204     case 7:                                            // 7 Data bits
 205       lcr_d = 0x02;
 206     break;
 207     case 8:                                            // 8 Data bits
 208     default:
 209       lcr_d = 0x03;
 210     break;
 211   }
 212
 213   switch (stopbits) {
 214     case 1:                                            // 1,5 Stop bits
 215     case 2:                                            // 2   Stop bits
 216       lcr_s = 0x04;
 217     break;
 218     case 0:                                            // 1   Stop bit
 219     default:
 220       lcr_s = 0x00;
 221     break;
 222   }
 223
 224   switch (parity) {
 225     case 1:                                            // Parity Odd
 226       lcr_p = 0x08;
 227     break;
 228     case 2:                                            // Parity Even
 229       lcr_p = 0x18;
 230     break;
 231     case 3:                                            // Parity Mark
 232       lcr_p = 0x28;
 233     break;
 234     case 4:                                            // Parity Space
 235       lcr_p = 0x38;
 236     break;
 237     case 0:                                            // Parity None
 238     default:
 239       lcr_p = 0x00;
 240     break;
 241   }
 242
 243   SER_BUF_RESET(ser_out);                              // reset out buffer
 244   SER_BUF_RESET(ser_in);                               // reset in buffer
 245
 246   /* Bit 8,9 are for UART1 */
 247   pclkdiv = (SC->PCLKSEL0 >> 8) & 0x03;
 248
 249   switch ( pclkdiv )
 250   {
 251         case 0x00:
 252         default:
 253           pclk = SystemFrequency/4;
 254           break;
 255         case 0x01:
 256           pclk = SystemFrequency;
 257           break;
 258         case 0x02:
 259           pclk = SystemFrequency/2;
 260           break;
 261         case 0x03:
 262           pclk = SystemFrequency/8;
 263           break;
 264   }
 265
 266   dll = (pclk/16)/baudrate ;    /*baud rate */
 267   UART1->FDR = 0;                             // Fractional divider not used
 268   UART1->LCR = 0x80 | lcr_d | lcr_p | lcr_s;  // Data bits, Parity,   Stop bit
 269   UART1->DLL = dll;                           // Baud Rate depending on PCLK
 270   UART1->DLM = (dll >> 8);                    // High divisor latch
 271   UART1->LCR = 0x00 | lcr_d | lcr_p | lcr_s;  // DLAB = 0
 272   UART1->IER = 0x03;                          // Enable TX/RX interrupts
 273
 274   UART1->FCR = 0x07;                            /* Enable and reset TX and RX FIFO. */
 275   ser_txRestart = 1;                                   // TX fifo is empty
 276
 277   /* Enable the UART Interrupt */
 278   NVIC_EnableIRQ(UART1_IRQn);
 279   return;
 280 }
 281
 282 /*----------------------------------------------------------------------------
 283   read data from serial port
 284  *---------------------------------------------------------------------------*/
 285 int ser_Read (char *buffer, const int *length) {
 286   int bytesToRead, bytesRead;
 287
 288   /* Read *length bytes, block if *bytes are not avaialable     */
 289   bytesToRead = *length;
 290   bytesToRead = (bytesToRead < (*length)) ? bytesToRead : (*length);
 291   bytesRead = bytesToRead;
 292
 293   while (bytesToRead--) {
 294     while (SER_BUF_EMPTY(ser_in));                     // Block until data is available if none
 295     *buffer++ = SER_BUF_RD(ser_in);
 296   }
 297   return (bytesRead);
 298 }
 299
 300 /*----------------------------------------------------------------------------
 301   write data to the serial port
 302  *---------------------------------------------------------------------------*/
 303 int ser_Write (char portNum, const char *buffer, int *length) {
 304   int  bytesToWrite, bytesWritten;
 305
 306   // Write *length bytes
 307   bytesToWrite = *length;
 308   bytesWritten = bytesToWrite;
 309
 310   while (!SER_BUF_EMPTY(ser_out));               // Block until space is available if none
 311   while (bytesToWrite) {
 312       SER_BUF_WR(ser_out, *buffer++);            // Read Rx FIFO to buffer
 313       bytesToWrite--;
 314   }
 315
 316   if (ser_txRestart) {
 317     ser_txRestart = 0;
 318         if ( portNum == 0 )
 319         {
 320           UART0->THR = SER_BUF_RD(ser_out);             // Write to the Tx Register
 321     }
 322         else
 323         {
 324       UART1->THR = SER_BUF_RD(ser_out);             // Write to the Tx Register
 325         }
 326   }
 327
 328   return (bytesWritten);
 329 }
 330
 331 /*----------------------------------------------------------------------------
 332   check if character(s) are available at the serial interface
 333  *---------------------------------------------------------------------------*/
 334 void ser_AvailChar (int *availChar) {
 335
 336   *availChar = SER_BUF_COUNT(ser_in);
 337
 338 }
 339
 340 /*----------------------------------------------------------------------------
 341   read the line state of the serial port
 342  *---------------------------------------------------------------------------*/
 343 void ser_LineState (unsigned short *lineState) {
 344
 345   *lineState = ser_lineState;
 346   ser_lineState = 0;
 347
 348 }
 349
 350 /*----------------------------------------------------------------------------
 351   serial port 0 interrupt
 352  *---------------------------------------------------------------------------*/
 353 void UART0_IRQHandler(void)
 354 {
 355   volatile unsigned long iir;
 356
 357   iir = UART0->IIR;
 358
 359   if ((iir & 0x4) || (iir & 0xC)) {            // RDA or CTI pending
 360     while (UART0->LSR & 0x01) {                 // Rx FIFO is not empty
 361       SER_BUF_WR(ser_in, UART0->RBR);           // Read Rx FIFO to buffer
 362     }
 363   }
 364   if ((iir & 0x2)) {                           // TXMIS pending
 365         if (SER_BUF_COUNT(ser_out) != 0) {
 366       UART0->THR = SER_BUF_RD(ser_out);         // Write to the Tx FIFO
 367       ser_txRestart = 0;
 368     }
 369         else {
 370       ser_txRestart = 1;
 371         }
 372   }
 373   ser_lineState = UART0->LSR & 0x1E;            // update linestate
 374   return;
 375 }
 376
 377 /*----------------------------------------------------------------------------
 378   serial port 1 interrupt
 379  *---------------------------------------------------------------------------*/
 380 void UART1_IRQHandler(void)
 381 {
 382   volatile unsigned long iir;
 383
 384   iir = UART1->IIR;
 385
 386   if ((iir & 0x4) || (iir & 0xC)) {            // RDA or CTI pending
 387     while (UART1->LSR & 0x01) {                 // Rx FIFO is not empty
 388       SER_BUF_WR(ser_in, UART1->RBR);           // Read Rx FIFO to buffer
 389     }
 390   }
 391   if ((iir & 0x2)) {                           // TXMIS pending
 392         if (SER_BUF_COUNT(ser_out) != 0) {
 393       UART1->THR = SER_BUF_RD(ser_out);         // Write to the Tx FIFO
 394       ser_txRestart = 0;
 395     }
 396         else {
 397       ser_txRestart = 1;
 398         }
 399   }
 400   ser_lineState = ((UART1->MSR<<8)|UART1->LSR) & 0xE01E;    // update linestate
 401   return;
 402 }
 403
 404