//=============================================================================
//####UNSUPPORTEDBEGIN####
//
// -------------------------------------------
// This source file has been contributed to eCos/Cygnus. It may have been
// changed slightly to provide an interface consistent with those of other 
// files.
//
// The functionality and contents of this file is supplied "AS IS"
// without any form of support and will not necessarily be kept up
// to date by Cygnus.
//
// The style of programming used in this file may not comply with the
// eCos programming guidelines. Please do not use as a base for other
// files.
//
// All inquiries about this file, or the functionality provided by it,
// should be directed to the 'ecos-discuss' mailing list (see
// http://sourceware.cygnus.com/ecos/intouch.html for details).
//
// Contributed by: Kevin Hester <khester@opticworks.com>
// Maintained by:  <Unmaintained>
// See also:
//   Motorola's "Example Software Initializing the SMC as a UART" package 
//   (smc2.zip) at:
//    http://www.mot.com/SPS/RISC/netcomm/tools/index.html#MPC860_table
// -------------------------------------------
//
//####UNSUPPORTEDEND####
//=============================================================================
/*-------------------------------------------------------------------------
* FILENAME:  smc2.c
*
* DESCRIPTION:   
*
*   The code in this module provides echo capability on SMC2. It's 
*   intent is to provide the beginnings of a debug port that is 
*   mostly compiler independent. If an ASCII terminal is connected
*   at 9600,N,8,1 on Port 2 (PB3) on the ADS board with no hardware
*   control, characters typed on the keyboard will be received by
*   SMC2 and echoed back out the RS232 port to the ASCII terminal.
*   This function was designed and tested on an ADS860 
*   development board. Note that if a different baud rate is 
*   required, there is a header file on the netcomm website under 
*   the General Software category that is labelled "Asynchronous
*   Baud Rate Tables".
*
* REFERENCES:
*
*   1) MPC860 Users Manual
*   2) PowerPC Microprocessor Family: The Programming Environments for 
*      32-Bit Microprocessors
*
* HISTORY:
*
* 27 APR 98  jay    initial release
*
*-------------------------------------------------------------------------*/

#include <cyg/hal/quicc_smc2.h>
#include "ppc_860.h"

/***********************/
/* Global Declarations */
/***********************/

static EPPC  *IMMR;      /* IMMR base pointer */
static BDRINGS *RxTxBD;  /* buffer descriptors base pointer */
static LB *SMC2Buffers;  /* SMC2 base pointers */

/*---------------------*/
/* Function Prototypes */
/*---------------------*/

//static char  SMC2Poll(void);
static void  InitBDs(void);
//static void  EchoChar(void);
static unsigned long GetIMMR(void);


/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  cyg_smc2_init
*
* DESCRIPTION:
*
* EXTERNAL EFFECT: 
*                 
* PARAMETERS:  None
*
* RETURNS: None
*
*---------------------------------------------------------------------------*/

void cyg_smc2_init(unsigned long baudRate)

{
   unsigned long *bcsr1; 
   unsigned long clockRate = 20 * 1000 * 1000;  // 20Mhz
   unsigned long divider = clockRate / (baudRate * 16) - 1;

   /*------------------------*/
   /* Establish IMMR pointer */
   /*------------------------*/
      
   IMMR = (EPPC *)(GetIMMR() & 0xFFFF0000);  /* MPC8xx internal register
                                                map  */

   /*-----------------------------------------------*/
   /* Enable RS232 interface on ADS board via BCSR1 */
   /* Get the base address of BCSR                  */ 
   /*-----------------------------------------------*/

   bcsr1 = (unsigned long *) ((IMMR->memc_br1 & 0xffff0000) + 4);    
   *bcsr1 &= ~(1 << 18);  // turn on RS232 port 2


   /*-----------------------*/
   /* Allow SMC2 TX, RX out */
   /*-----------------------*/

   IMMR->pip_pbpar |= (0x0C00);     
   IMMR->pip_pbdir &= 0xF3FF;

   /*------------------------------------------------*/
   /* Set Baud Rate to 9600 for 40MHz System Clock.  */
   /* Enable BRG Count.                              */
   /*------------------------------------------------*/

   IMMR->brgc2 = ((divider << 1) | 0x10000);

   IMMR->si_simode &= ~(0xF0000000);    /* SCM2:  NMSI mode */
   IMMR->si_simode |= 0x10000000;       /* SCM2:  Tx/Rx Clocks are BRG2 */


   /*----------------------------------------*/
   /* Set RXBD table start at Dual Port +800 */
   /*----------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.rbase = (unsigned short) (unsigned) &RxTxBD->RxBD;

   /*----------------------------------------*/
   /* Set TXBD table start at Dual Port +808 */
   /*----------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.tbase = (unsigned short) (unsigned) &RxTxBD->TxBD; 

   /*---------------------------------------*/
   /* Initialize Rx and Tx Params for SMC2: */
   /* Spin until cpcr flag is cleared       */
   /*---------------------------------------*/

   for(IMMR->cp_cr = 0x00d1; IMMR->cp_cr & 0x0001;) ;

   
   /*--------------------------------------*/
   /* Set RFCR,TFCR -- Rx,Tx Function Code */
   /* Normal Operation and Motorola byte   */
   /* ordering                             */
   /*--------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.rfcr = 0x18;                   
   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.tfcr = 0x18;  

   /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
   /* Protocol Specific Parameters */
   /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

   /*---------------------------*/
   /* MRBLR = MAX buffer length */
   /*---------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.mrblr = 1;    

   /*------------------------------------*/
   /* MAX_IDL = Disable MAX Idle Feature */
   /*------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.max_idl = 0;  

   /*-------------------------------------*/
   /* BRKEC = No break condition occurred */
   /*-------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.brkec = 0;    

   /*---------------------------------------*/
   /* BRKCR = 1 break char sent on top XMIT */
   /*---------------------------------------*/

   IMMR->PRAM[PAGE4].pg.other.smc_dsp2.psmc2.u2.brkcr = 1;    

   /*--------------------*/
   /* Initialize the BDs */
   /*--------------------*/

   InitBDs();

   IMMR->smc_regs[SMC2_REG].smc_smce = 0xFF;  /* Clear any pending events */

   /*--------------------------------------------------*/
   /* SMC_SMCM = Mask all interrupts, use polling mode */
   /*--------------------------------------------------*/

   IMMR->smc_regs[SMC2_REG].smc_smcm = 0;     

   IMMR->cpmi_cicr = 0;           /* Disable all CPM interrups */
   IMMR->cpmi_cipr = 0xFFFFFFFF;  /* Clear all pending interrupt events */
   IMMR->cpmi_cimr = 0;           /* Mask all event interrupts */

   /*------------------------------------*/
   /* 8-bit mode,  no parity, 1 stop-bit */
   /* UART SMC Mode                      */
   /* Normal operation (no loopback),    */
   /* SMC Transmitter/Receiver Enabled   */
   /*------------------------------------*/

   IMMR->smc_regs[SMC2_REG].smc_smcmr = 0x4823;

} 



/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  InitBDs
*
* DESCRIPTION: This function initializes the Tx and Rx Buffer Descriptors.
*
* EXTERNAL EFFECT: RxTxBD
*                 
* PARAMETERS:  None
*
* RETURNS: None
*
*---------------------------------------------------------------------------*/

static void InitBDs(void)

{
   /*--------------------------------------------------------------------*/
   /* We add 64 bytes to the start of the buffer descriptors because     */
   /* this code was also tested on the monitor version of SDS debugger.  */
   /* The monitor program on our target uses most of the first 64 bytes  */
   /* for buffer descriptors. If you are not using the SDS monitor  with */
   /* Motorola's ADS development board, you can delete 64 below and      */
   /* start at the beginning of this particular block of Dual Port RAM.  */
   /*--------------------------------------------------------------------*/

   /*----------------------------------*/  
   /* Get pointer to BD area on DP RAM */
   /*----------------------------------*/  
      
   RxTxBD = (BDRINGS *)(IMMR->qcp_or_ud.ud.udata_bd + 64);  

   /*-------------------------------------------------------------------*/
   /* Establish the buffer pool in Dual Port RAM. We do this because the*/
   /* pool size is only 2 bytes (1 for Rx and 1 for Tx) and to avoid    */
   /* disabling data cache for the memory region where BufferPool would */
   /* reside. The CPM does not recognize data in buffer pools once it   */
   /* been cached. It's acesses are direct through DMA to external      */
   /* memory.                                                           */
   /*-------------------------------------------------------------------*/

   SMC2Buffers = (LB *)(IMMR->qcp_or_ud.ud.udata_bd + 80);

   /*-----------------------------------*/
   /* Setup Receiver Buffer Descriptors */
   /*-----------------------------------*/
   
   RxTxBD->RxBD.bd_cstatus = 0xA000;            /* Enable, Last BD */
   RxTxBD->RxBD.bd_length = 1;
   RxTxBD->RxBD.bd_addr = &(SMC2Buffers->RxBuffer);


   /*--------------------------------------*/
   /* Setup Transmitter Buffer Descriptors */
   /*--------------------------------------*/

   RxTxBD->TxBD.bd_cstatus = 0x2000;      /* Buffer not yet ready; Last BD */
   RxTxBD->TxBD.bd_length = 1;
   RxTxBD->TxBD.bd_addr = &(SMC2Buffers->TxBuffer);

} /* END InitBDs */


#if 0 // static unused function. -jskov 19990122
/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  EchoChar
*
* DESCRIPTION: This function facilitates the echoing of a received character.
*
* EXTERNAL EFFECT: RxTxBD
*                 
* PARAMETERS:  None
*
* RETURNS: None
*
*---------------------------------------------------------------------------*/

static void  EchoChar(void)

{
   char mych;

   mych = cyg_smc2_getchar();
   cyg_smc2_putchar(mych); 

} /* end EchoChar */
#endif

/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  cyg_smc2_putchar
*
* DESCRIPTION: Output a character to SMC2
*
* EXTERNAL EFFECT: RxTxBD
*                 
* PARAMETERS:  ch - input character
*
* RETURNS: None
*
*---------------------------------------------------------------------------*/

void cyg_smc2_putchar(char ch)

{
  /*-----------------------------------*/
  /* Loop until transmission completed */
  /*-----------------------------------*/
   
   while (RxTxBD->TxBD.bd_cstatus  &  0x8000);    
   
   /*------------*/ 
   /* Store data */
   /*------------*/

   *(RxTxBD->TxBD.bd_addr) = ch;                  
   RxTxBD->TxBD.bd_length = 1;

   /*---------------*/
   /* Set Ready bit */
   /*---------------*/

   RxTxBD->TxBD.bd_cstatus |= 0x8000;              

} 



/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  cyg_smc2_getchar
*
* DESCRIPTION: Get a character from SMC2
*
* EXTERNAL EFFECT: RxTxBD
*                 
* PARAMETERS:  NONE
*
* RETURNS: A character from SMC2
*
*---------------------------------------------------------------------------*/

char cyg_smc2_getchar(void)

{
    
    char ch;   /* output character from SMC2 */
   
    /*--------------------*/
    /* Loop if RxBD empty */
    /*--------------------*/

    while (RxTxBD->RxBD.bd_cstatus  &  0x8000);      

    /*--------------*/
    /* Receive data */
    /*--------------*/

    ch = *(RxTxBD->RxBD.bd_addr);   
                   
    /*----------------------*/
    /* Set Buffer Empty bit */
    /*----------------------*/

    RxTxBD->RxBD.bd_cstatus |= 0x8000;   

    return ch;

} 


#if 0 // static unused function. -jskov 19990122
/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  SMC2Poll
*
* DESCRIPTION: Poll SMC2 RxBD and check to see if a character was received
*
* EXTERNAL EFFECT: NONE
*                 
* PARAMETERS:  NONE
*
* RETURNS: A one if there is a character available in the receive buffer,
*          else zero.
*
*---------------------------------------------------------------------------*/

static char SMC2Poll(void)

{      
  return (RxTxBD->RxBD.bd_cstatus & 0x8000) ? 0 : 1;

} /* END SMC2Poll */
#endif


/*-----------------------------------------------------------------------------
*
* FUNCTION NAME:  GetIMMR
*
* DESCRIPTION: Returns current value in the IMMR register.
*
* EXTERNAL EFFECT: NONE
*                 
* PARAMETERS:  NONE
*
* RETURNS: The IMMR value in r3. The compiler uses r3 as the register 
*          containing the return value.
*
*---------------------------------------------------------------------------*/

static unsigned long GetIMMR(void)

{
    unsigned long ret;
    asm volatile (" mfspr  %0,638 " : "=r" (ret));  /* IMMR is spr #638 */

    return ret;
}


/* EOF hal/powerpc/fads/quicc_smc2.c */
