/*===========================================================================*/
/* Module :  RLIN_driver.c                                                          */
/* Version:  V1.00                                                           */
/*===========================================================================*/
/*                                  COPYRIGHT                                */
/*===========================================================================*/
/* Copyright (c) 2012 by Renesas Electronics Europe GmbH,                    */
/*               a company of the Renesas Electronics Corporation            */
/*===========================================================================*/
/* Purpose: main routine of QB-R5F10PMF-TB startup sample                    */
/*                                                                           */
/*===========================================================================*/
/* In case of any question please do not hesitate to contact:                */
/*                                                                           */
/*        Technical Product Support                                          */
/*                                                                           */
/*        Renesas Electronics Europe GmbH                                    */
/*        Arcadiastrasse 10                                                  */
/*        D-40472 Duesseldorf, Germany                                       */
/*                                                                           */
/*        e-mail: device_support.rl78-eu@lm.renesas.com                      */
/*        FAX:   +49 - (0)211 / 65 03 - 12 79                                */
/*                                                                           */
/*===========================================================================*/
/* Warranty Disclaimer                                                       */
/*                                                                           */
/* Because the Product(s) is licensed free of charge, there is no warranty   */
/* of any kind whatsoever and expressly disclaimed and excluded by Renesas,  */
/* either expressed or implied, including but not limited to those for       */
/* non-infringement of intellectual property, merchantability and/or         */
/* fitness for the particular purpose.                                       */
/* Renesas shall not have any obligation to maintain, service or provide bug */
/* fixes for the supplied Product(s) and/or the Application.                 */
/*                                                                           */
/* Each User is solely responsible for determining the appropriateness of    */
/* using the Product(s) and assumes all risks associated with its exercise   */
/* of rights under this Agreement, including, but not limited to the risks   */
/* and costs of program errors, compliance with applicable laws, damage to   */
/* or loss of data, programs or equipment, and unavailability or             */
/* interruption of operations.                                               */
/*                                                                           */
/* Limitation of Liability                                                   */
/*                                                                           */
/* In no event shall Renesas be liable to the User for any incidental,       */
/* consequential, indirect, or punitive damage (including but not limited    */
/* to lost profits) regardless of whether such liability is based on breach  */
/* of contract, tort, strict liability, breach of warranties, failure of     */
/* essential purpose or otherwise and even if advised of the possibility of  */
/* such damages. Renesas shall not be liable for any services or products    */
/* provided by third party vendors, developers or consultants identified or  */
/* referred to the User by Renesas in connection with the Product(s) and/or  */
/* the Application.                                                          */
/*                                                                           */
/*===========================================================================*/
/* Environment:                                                              */
/*              Device:          R5F10PMF                                    */
/*              Target Hardware: QB-R5F10PMF-TB                              */
/*              IDE:             IAR Systems                                 */
/*                               Embedded Workbench for RL78 V1.20.x         */
/*                                                                           */
/*===========================================================================*/
/* History:                                                                  */
/*              V1.00: Initial version                                       */
/*                                                                           */
/*===========================================================================*/

/***********************************************************************************************************************
* File Name    : RLIN_driver.c
* Device(s)    : R5F10PMF
* Tool-Chain   : IAR Systems iccrl78
* Description  : This file implements device driver for PORT module.
* Creation Date: 15.07.2013
***********************************************************************************************************************/

/***********************************************************************************************************************
Includes
***********************************************************************************************************************/

#include "r_cg_macrodriver.h"
#include "RLIN_driver.h"
#include "r_cg_userdefine.h"


#define RLIN_DateBuffer      0x6D8//LDB01

#ifdef RLIN_Master 
uint8_t Master_TxData1[]={0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00};   /*Transmission data store array*/
uint8_t Master_TxData2[]={0x49,0x40,0x10};   /*Transmission data store array*/
uint8_t Master_TxData3[]={0xCA,0x0F,0x0F};   /*Transmission data store array*/

uint8_t Master_RxData1[8];
uint8_t Master_RxData2[8];
uint8_t Master_RxData3[8];
#endif



#ifdef RLIN_Slave
/***********************************************************************************************************************
* Function Name: RLIN_Slave_Init(void)
* Description  : This function initializes the RLIN Slave node, setting clock supply,baud rate,ect.
* Arguments    : None
* Return Value : None
***********************************************************************************************************************/

void RLIN_Slave_Init(void)
{
   
  LCHSEL = 0x00;      /*  Selects RLIN0 */
  PER2  |= 0x04;      /*  Enable input clock supply RLIN0*/
  LINCKSEL=0x00;      /*  selects the  fclk=32MHz  clock to RLIN0.*/
  LWBR0 =  0x34;      /*  b3-b1=010: Prescaler Clock Selcet 32/4, bit sampling count select b7-b4=0011 : 4 sampling. */ 
  LBRP00 = 0x67;      /*  lower 8bit : 0X67=103D, Baud rate= 32M/ (103+1)*16= 19230 bps*/
  LBRP01 = 0x00;      /*  upper 8 bits in the 16bit counter of the baud rate prescaler*/
  
  LIN0RVCIF = 0U;      /*  Clear interrupt request signal */
  LIN0TRMIF = 0U;      /*  Clear interrupt request signal */
  LIN0WUPIF = 0U;      /*  Clear interrupt request signal */
  LIN0RVCMK = 0U;      /*  interrupt servicing enable */
  LIN0TRMMK = 0U;      /*  interrupt servicing enable */
  LIN0WUPMK = 0U;      /*  interrupt servicing enable */
  LIE0  |=  0x0F;      /*  Enable successful response/wake-up reception interrupt, enable all interrupt*/
  LEDE0 |=  0xC9;      /*  Enable error detection */
  
  /*Header format setting*/
  LMD0  =  0x12;        /*  b1b0=10; LIN Slave mode (Auto baud rate),transmission interrupt,sucessful reception interrupt..., The noise filter is enable.*/
  LBFC0 =  0x00;        /*  Reception break of 9.5/10 or more Tbits*/
  LSC0  =  0x24;        /*  Response space 4bit; inter-byte space 1bit;*/
  LWUP0 =  0x03;        /*  Wake-up Transmission low width 4 bits.*/
  LIDB0&=  0x00;        /*  Clear the ID buffer */
 
  ISC   =  0x00;         /*  LRXD0 pin input signal is set as external interrupt input,*/
  LINCKSEL|=0x10;        /*  Enable RLIN0 engine clock supply,*/
  
}

/***********************************************************************************************************************
* Function Name: RLIN_Slave_HeaderReceive(void)
* Description  : This function is setting in slave mode, enable header reception is started.
* Arguments    : None
* Return Value : None
***********************************************************************************************************************/
void RLIN_Slave_HeaderReceive(void)
{
  
  LCUC0 = 0x03;          /* 01: RLIN rest mode is canceled; 03:RLIN operation mode  */
  LTRC0|= 0x01;          /* FTS=1; Header reception or wake up transmission/reception is started.*/
}


/***********************************************************************************************************************
* Function Name: RLIN_Slave_Transmit(void)
* Description  : This function seting data buffer for response transmission start
* Arguments    : uint8_t* databuf    : variable array data. 
                 uint8_t Data_length : transmit data length.
* Return Value : None
***********************************************************************************************************************/

void RLIN_Slave_Transmit(uint8_t* databuf,uint8_t Data_length)
{ 
  uint8_t i;
  uint16_t  Databuf_adr;   
  LDFC0=0x30;                    /*b5=1:enhanced checksum mode; b4=1:transmission*/
  LDFC0|=Data_length;            /* b4-b0=Data_length: response data lengh select byte*/
  Databuf_adr=RLIN_DateBuffer;   /* get the data buffer address*/
  for(i=0;i<Data_length;i++)             /* setting tansmission data to date buffer*/
  {
    *((uint8_t *)(Databuf_adr+i))=databuf[i];  
  }    
  LTRC0=0x02;                     /*setting RTS=1;Response transmission start*/   
}

/***********************************************************************************************************************
* Function Name: RLIN_Slave_Receive(void)
* Description  : This function clear data buffer for response reception start
* Arguments    : uint8_t Data_length : receive data length.
* Return Value : None
***********************************************************************************************************************/

void RLIN_Slave_Receive(uint8_t Data_length)
{
    Clear_DataBuffer();
    LDFC0=0x20;                   /*b5=1:enhanced checksum mode; b4=0:Reception*/
    LDFC0|=Data_length;           /* b4-b0=Data_length: response data lengh select byte*/
    LTRC0=0x02;                   /*setting RTS=1,response reception is started*/
}
void RLIN_Slave_NoResponse(void) 
{
  LTRC0=0x04;                     /* setting LNRR=0, No response request*/
}



#endif 



#ifdef RLIN_Master
/***********************************************************************************************************************
* Function Name: RLIN_Master_Init(void)
* Description  : This function initializes the RLIN Slave node, setting clock supply,baud rate,ect.
* Arguments    : None
* Return Value : None
***********************************************************************************************************************/

void RLIN_Master_Init(void)
{
  LCHSEL = 0x00;         /*  Selects RLIN0 */
  PER2  |= 0x04;         /*  Enable input clock supply RLIN0*/
  LINCKSEL=0x00;         /*  selects the  fclk=32MHz  clock to RLIN0.*/
  LWBR0  = 0x01;         /*  b0=1, LIN2.0 or 2.1;  Prescaler Clock Selcet 1/1;  bit sampling count select 0000 : 16 sampling. */ 
  LBRP00 = 0x67;         /*   fa:0X67=103D, Baud rate= 32M/ (103+1)*16= 19230 bps  fb:9615bps    fc:2403bps */
  LBRP01 = 0x5F;         /*   fd:10416bps*/
  
  LIN0RVCIF = 0U;        /*  Clear Reception interrupt request signal */
  LIN0TRMIF = 0U;        /*  Clear Transmission interrupt request signal */
  LIN0WUPIF = 0U;        /*  Clear Wake up interrupt request signal */
  LIN0IF    = 0U;        /*  Clear LIN or LIN Status interrupt */
  
  LIN0RVCMK = 0U;        /*  interrupt reception servicing enable */
  LIN0TRMMK = 0U;        /*  interrupt transmission servicing enable */
  LIN0WUPMK = 0U;        /*  interrupt wake up servicing enable */
  LIN0MK    = 0U;        /*  interrupt Status servicing enable */
  LIE0  |=  0x0F;        /*  Enable successful response/wake-up reception interrupt, enable all interrupt*/
  LEDE0 |=  0x8F;        /*  Enable error detection */
  
   /*  Header format setting*/
  LMD0  =   0x10;         /*   b0b1=00: LIN master mode ; b3b2=00: fa=LIN sysclock;  b4=1:transmission interrupt,sucessful reception interrupt...; b5=0: The noise filter is enable.*/
  LBFC0 =   0x15;         /*  b3-b0=0101: transmission break width 18Tbits; b5b4=01: break delimiter 2Tbit*/
  LSC0  =   0x11;         /*  b2-b0=001:inter-byte space 1bit or Response space 4bit; b5b4=01: inter-byte space 1Tbit;*/
  LWUP0 =   0x30;         /*  b7-b4=0100: Wake-up Transmission low width 4 bits.*/
  LIDB0 &=  0x00;         /*  Clear the ID buffer */
 
  ISC   =   0x00;         /*  INTP11 pin input signal is set as external interrupt input*/
  LINCKSEL|=0x10;         /*  Enable RLIN0 engine clock supply,*/

}

/***********************************************************************************************************************
* Function Name: RLIN_Master_HeaderTransmit(uint8_t ID)
* Description  : This function is setting in slave mode, enable header reception is started.
* Arguments    : None
* Return Value : None
***********************************************************************************************************************/
void RLIN_Master_HeaderTransmit(uint8_t ID)
{
 
  LCUC0 = 0x03;              /*  01: RLIN rest mode is canceled; 03:RLIN operation mode */
  LIDB0 = 0X00;             /*  clear ID buffer */
  LIDB0 = ID;              /*  ID  load to ID buffer */ 
  Clear_DataBuffer();     /* clear all data buffer */
  
  switch(ID)                
      {
        case 0x80: RLIN_Master_Transmit(Master_TxData1,2);       /* ready for response transmit*/
                    break;
        case 0x99: RLIN_Master_Receive(8);         /* ready for response transmit*/
                    break;
        case 0x61: RLIN_Master_Receive(8);        /* ready for response transmit*/
                    break;
        case 0x8B: RLIN_Master_Receive(2);                       /* ready for response receive*/
                    break;
        default:   break;
        }
    
    LTRC0=0x01;  
}

/***********************************************************************************************************************
* Function Name: RLIN_Master_Transmit(void)
* Description  : This function seting data buffer for response transmission start
* Arguments    : uint8_t* databuf    : variable array data. 
                 uint8_t Data_length : transmit data length.
* Return Value : None
***********************************************************************************************************************/
void RLIN_Master_Transmit(uint8_t * databuf,uint8_t Data_length)
{
  uint8_t i;
  uint16_t  Databuf_adr;
  LDFC0=0x30;
  LDFC0|=Data_length;    /*  MSB=0011, RCDS=1:Transmission, LCS=1: Enhanced checksum mode;  LSB=0100: response data lengh select 4 byte*/
  Databuf_adr=RLIN_DateBuffer;
  for(i=0;i<Data_length;i++)
  {
    *((uint8_t *)(Databuf_adr+i))=databuf[i];  
  }   
}

/***********************************************************************************************************************
* Function Name: RLIN_Master_Receive(void)
* Description  : This function clear data buffer ready for response reception start
* Arguments    : uint8_t Data_length : receive data length.
* Return Value : None
***********************************************************************************************************************/
void RLIN_Master_Receive(uint8_t Data_length)
{

  Clear_DataBuffer();   
  LDFC0=0X20;
  LDFC0|=Data_length;   /* MSB=0011, RCDS=1:Transmission, LCS=1: Enhanced checksum mode;  LSB=0100: response data lengh select 4 byte*/
}


/***********************************************************************************************************************
* Function Name: RLIN_Master_GetData(void)
* Description  : This function is get data from data buffr according to ID data during the response reception
* Arguments    : uint8_t Data_length : receive data length.
* Return Value : None
***********************************************************************************************************************/
uint8_t LIN_RxDataBuf[16] = {0};
extern void LIN_Rx_Handle(uint8_t,uint8_t *);
void RLIN_Master_GetData(void)
{
    Get_reponse_RxData(LIN_RxDataBuf);
    LIN_Rx_Handle(LIDB0,LIN_RxDataBuf);
}

#endif   

/***********************************************************************************************************************
* Function Name: Clear_DataBuffer
* Description  : This function setting all data buffer to some value
* Arguments    : uint8_t x : setting data buff value
* Return Value : None
***********************************************************************************************************************/

void Clear_DataBuffer(void)
{   
  uint8_t i;
  uint16_t Databuf_adr;
  Databuf_adr=RLIN_DateBuffer;
  for(i=0;i<8;i++)
  {
   *((uint8_t *)(Databuf_adr+i))=0U;
  } 

}


/***********************************************************************************************************************
* Function Name: Get_reponse_RxData
* Description  : This function get data buffer value to a variable array  
* Arguments    : uint8_t * RxData : a avriable array for store Data
* Return Value : None
***********************************************************************************************************************/
uint8_t Get_reponse_RxData(uint8_t * RxData)
{
  uint8_t i,k;
  uint16_t Databuf_adr;
  k=LDFC0&0x0F;
  Databuf_adr=RLIN_DateBuffer;
  for(i=0;i<k;i++)
  {
    RxData[i]=(*((uint8_t *)(Databuf_adr+i)));  
  } 
  return RxData[1];
}