View on Github
			
/**
 * @file sysclock_dspic33c.c
 * @author Sebastien CAUX (sebcaux)
 * @copyright Uniswarm 2018
 *
 * @date May 28, 2018, 02:28 PM
 *
 * @brief System clock support for udevkit for dsPIC33CH, dsPIC33CK
 *
 * Implementation based on Microchip documents DS70005255B and DS2070005319B :
 *  http://ww1.microchip.com/downloads/en/DeviceDoc/dsPIC33-PIC24-FRM-Oscillator-Module-with-High-Speed-PLL-70005255b.pdf
 *  http://ww1.microchip.com/downloads/en/DeviceDoc/dsPIC33CH128MP5%20Datasheet%2070005319b.pdf
 */

#include "sysclock.h"

#include <archi.h>
#include <board.h>

#include <stdio.h>

uint32_t sysclock_sysfreq = 0;
uint32_t sysclock_posc = 0;
uint32_t sysclock_pll = 0;
uint32_t sysclock_vco = 0;
uint32_t sysclock_avco = 0;

/**
 * @brief Gets the actual frequency on a particular peripheral bus clock
 * @param busClock id of the bus clock (1 periph bus clock), 0 for sysclock
 * @return bus frequency in Hz, 1 in case of error to not cause divide by 0
 */
uint32_t sysclock_periphFreq(SYSCLOCK_CLOCK busClock)
{
    if (sysclock_sysfreq == 0)
    {
        sysclock_sysfreq = sysclock_sourceFreq(sysclock_source());
    }

    switch (busClock)
    {
    case SYSCLOCK_CLOCK_FOSC:
        return sysclock_sysfreq;

    case SYSCLOCK_CLOCK_PBCLK:
        return sysclock_sysfreq >> 1;

    case SYSCLOCK_CLOCK_REFCLK:
    {
        uint16_t div = REFOCONHbits.RODIV << 1;
        return (sysclock_sysfreq >> 1) / div;
    }

    case SYSCLOCK_CLOCK_SYSCLK:
    {
        uint16_t div = 1;
        if (CLKDIVbits.DOZEN == 1)
        {
            div = 1 << (CLKDIVbits.DOZE);
        }
        return (sysclock_sysfreq >> 1) / div;
    }

    case SYSCLOCK_CLOCK_FRC:
        return sysclock_sourceFreq(SYSCLOCK_SRC_FRC);

    case SYSCLOCK_CLOCK_VCO:
        return sysclock_vco;

    case SYSCLOCK_CLOCK_VCO2:
        return sysclock_vco >> 1;

    case SYSCLOCK_CLOCK_VCO3:
        return sysclock_vco / 3;

    case SYSCLOCK_CLOCK_VCO4:
        return sysclock_vco >> 2;

    case SYSCLOCK_CLOCK_AVCO:
        return sysclock_avco;

    case SYSCLOCK_CLOCK_AVCO2:
        return sysclock_avco >> 1;

    case SYSCLOCK_CLOCK_AVCO3:
        return sysclock_avco / 3;

    case SYSCLOCK_CLOCK_AVCO4:
        return sysclock_avco >> 2;
    }

    return 1;
}

/**
 * @brief Change the divisor of the busClock given as argument.
 * @param busClock id of the bus clock or ref clock (SYSCLOCK_CLOCK_REFCLK or
 * SYSCLOCK_CLOCK_PBCLK, SYSCLOCK_CLOCK_FRC)
 * @param div divisor to set
 * @return 0 if ok, -1 in case of error
 */
int sysclock_setClockDiv(SYSCLOCK_CLOCK busClock, uint16_t div)
{
    uint16_t udiv = 0;
    if (busClock == SYSCLOCK_CLOCK_FRC)
    {
        if (div > 256)
        {
            return -1;
        }
        if (div == 256)
        {
            udiv = 8;
        }
        else
        {
            for (udiv=0; div!=0; udiv++)
            {
                div >>= 1;
            }
        }
        udiv -= 1;
        CLKDIVbits.FRCDIV = udiv;
        return 0;
    }
    if (busClock == SYSCLOCK_CLOCK_REFCLK)
    {
        udiv >>= 1;
        REFOCONHbits.RODIV = udiv;
        return 0;
    }
    if (busClock == SYSCLOCK_CLOCK_PBCLK)
    {
        if (div == 1)
        {
            CLKDIVbits.DOZEN = 0;
        }
        else
        {
            if (div > 128)
            {
                return -1;
            }
            for (udiv=0; div!=0; udiv++)
            {
                div >>= 1;
            }
            udiv -= 1;
            CLKDIVbits.DOZE = udiv;
            CLKDIVbits.DOZEN = 1;
        }
        return 0;
    }

    return -1;   // bad index
}

/**
 * @brief Return the actual frequency of the clock source
 * @param source clock id to request
 * @return frequency of 'source' clock, 0 in case of disabled clock, -1 in case of error
 */
int32_t sysclock_sourceFreq(SYSCLOCK_SOURCE source)
{
    int32_t freq = -1;
    uint16_t div;
    switch (source)
    {
    case SYSCLOCK_SRC_LPRC:
        freq = LPRC_BASE_FREQ; // 32kHz LPRC
        break;

    case SYSCLOCK_SRC_POSC:
        freq = sysclock_posc;   // external primary oscillator
        break;

    case SYSCLOCK_SRC_PPLL:
        freq = sysclock_pll;    // primary oscillator with PLL
        break;

    case SYSCLOCK_SRC_BFRC:
        freq = BFRC_BASE_FREQ;  // Backup FRC
        break;

    case SYSCLOCK_SRC_FRC:
    case SYSCLOCK_SRC_FRCDIV:
    #ifdef SYSCLOCK_NO_OSCTUNE
        freq = FRC_BASE_FREQ;
    #else
        {
            int32_t osctune = OSCTUN;
            if (osctune >= 32)
            {
                osctune = (osctune | 0xFFFFFFE0);
            }
            freq = FRC_BASE_FREQ + osctune * OSCTUN_D;  // FRC
        }
    #endif

        if (source == SYSCLOCK_SRC_FRCDIV)
        {
            div = CLKDIVbits.FRCDIV;
            if (div != 0b111)
            {
                div = 1 << div;
            }
            else
                div = 256;

            freq = freq / div; // FRC / div
        }
        break;

    case SYSCLOCK_SRC_FRCPLL:
        freq = sysclock_pll;  // FRC with PLL
        break;
    }
    return freq;
}

/**
 * @brief Change a frequency of a source if it can be modified
 * @param source clock id to change
 * @return 0 in case of success, -1 in case of error
 */
int sysclock_setSourceFreq(SYSCLOCK_SOURCE source, uint32_t freq)
{
    if (source == SYSCLOCK_SRC_POSC)
    {
        sysclock_posc = freq;
        return 0;
    }
    return -1;
}

/**
 * @brief Return the actual clock source for system clock
 * @return SYSCLOCK_SOURCE enum corresponding to actual clock source
 */
SYSCLOCK_SOURCE sysclock_source()
{
    SYSCLOCK_SOURCE source = (SYSCLOCK_SOURCE)OSCCONbits.COSC;
    return source;
}

/**
 * @brief Switch the source clock of sysclock to another one and wait for the change effective
 * @param source id to switch to
 * @return 0 if ok, -1 in case of error
 */
int sysclock_switchSourceTo(SYSCLOCK_SOURCE source)
{
    if (OSCCONbits.CLKLOCK == 1)
    {
        return -1; // Clocks and PLL are locked, source cannot be changed
    }

    // disable interrupts
    disable_interrupt();

    // unlock clock config (OSCCON is write protected)
    //unlockClockConfig();

    // select the new source
    __builtin_write_OSCCONH(source); // primariry osc input

    // trigger change
    __builtin_write_OSCCONL(OSCCON | 0x01);
    nop();
    nop();

    // relock clock config
    //lockClockConfig();

    while (OSCCONbits.OSWEN == 1)
    {
        nop();
    }

    // enable interrupts
    enable_interrupt();

    if (sysclock_source() != source)
    {
        return -3; // Error when switch clock source
    }

    sysclock_sysfreq = sysclock_sourceFreq(sysclock_source());

    return 0;
}

/**
 * @brief Sets the system clock of the CPU, the system clock may be different of CPU
 * clock and peripheral clock
 * @param fosc desirate system frequency in Hz
 * @return 0 if ok, -1 in case of error
 */
int sysclock_setClock(uint32_t fosc)
{
    if (sysclock_posc == 0)
    {
    #ifndef SYSCLOCK_NO_OSCTUNE
        OSCTUN = 0; // ==> Fin = 8 MHz Internal clock
    #endif
        return sysclock_setPLLClock(fosc, SYSCLOCK_SRC_FRC);
    }
    else
    {
        return sysclock_setPLLClock(fosc, SYSCLOCK_SRC_POSC);
    }
}

/**
 * @brief Internal function to set clock with PLL from Primary oscilator (POSC) or FRC
 * @param fosc desirate system frequency in Hz
 * @param src input source clock of PLL (SYSCLOCK_SRC_FRC or SYSCLOCK_SRC_POSC)
 * @return 0 if ok, -1 in case of error
 */
int sysclock_setPLLClock(uint32_t fosc, uint8_t src)
{
    UDK_UNUSED(src);
    UDK_UNUSED(fosc);

    /*uint32_t fin, fplli, fsys;
    uint16_t multiplier;
    uint8_t prediv, postdiv1, postdiv2;
    
    if (src != SYSCLOCK_SRC_FRC && src != SYSCLOCK_SRC_POSC)
    {
        return -4;
    }

    if (fosc > SYSCLOCK_FOSC_MAX)
    {
        return -1; // cannot generate fosc > SYSCLOCK_FOSC_MAX
    }

    if (fosc < SYSCLOCK_FSYS_MIN / 8)
    {
        return -1; // cannot generate fosc < SYSCLOCK_FSYS_MIN / 8
    }

    fin = sysclock_sourceFreq(src);
    if (fin == 0)
    {
        return -1;
    }

    // calculate post-diviser and fsys
    postdiv = 2;
    fsys = fosc << 2;

    //                         PLLFBDIV
    // Fosc = Fin * --------------------------------
    //               PLLPRE * (POST1DIV * POST2DIV)
    
    CLKDIVbits.PLLPRE = 1; // N1=1
    PLLFBDbits.PLLFBDIV = 100; // M = 100
    PLLDIVbits.POST1DIV = 5; // N2=5
    PLLDIVbits.POST2DIV = 1; // N3=1

    if (src == SYSCLOCK_SRC_FRC)
    {
        __builtin_write_OSCCONH(SYSCLOCK_SRC_FRCPLL); // frc input
        __builtin_write_OSCCONL(OSCCON | 0x01);
    }
    else
    {
        __builtin_write_OSCCONH(SYSCLOCK_SRC_PPLL); // primary osc input
        __builtin_write_OSCCONL(OSCCON | 0x01);
    }
    
    // Wait for Clock switch to occur
    while (OSCCONbits.OSWEN != 0);

    // Wait for PLL to lock
    while (OSCCONbits.LOCK != 1);

    sysclock_pll = sysclock_getPLLClock();;
    sysclock_sysfreq = sysclock_pll;*/

#ifdef SYSCLOCK_POSC
    if (SYSCLOCK_POSC == 8000000)
    {
        CLKDIVbits.PLLPRE = 1; // N1=1
    }
    else
        CLKDIVbits.PLLPRE = 3; // N1=3
#else
    CLKDIVbits.PLLPRE = 1; // N1=1
#endif

    PLLFBDbits.PLLFBDIV = 80; // M = 80 ==> 640MHz FVco
    PLLDIVbits.POST1DIV = 2; // N2 = 2  ==> 320MHz
    PLLDIVbits.POST2DIV = 2; // N3 = 2
    __builtin_write_OSCCONH(0x03); // primary osc input
    __builtin_write_OSCCONL(OSCCON | 0x01);

    // Wait for Clock switch to occur
    while (OSCCONbits.OSWEN != 0);
    // Wait for PLL to lock
    while (OSCCONbits.LOCK != 1);

    sysclock_pll = sysclock_getPLLClock();
    sysclock_sysfreq = sysclock_pll >> 1;

    /*REFOCONHbits.RODIV = 10; // /10
    REFOCONLbits.ROSEL = 0b0001; // Fp (FOSC/2)
    REFOCONLbits.ROEN = 1;
    REFOCONLbits.ROOUT = 1;*/

    return 0;
}

uint32_t sysclock_getPLLClock()
{
    uint32_t fin, fpllo;
    uint16_t prediv, multiplier, postdiv;

    if (OSCCONbits.COSC == SYSCLOCK_SRC_FRCPLL) // FRC as input
    {
        fin = sysclock_sourceFreq(SYSCLOCK_SRC_FRC);
    }
    else if (OSCCONbits.COSC == SYSCLOCK_SRC_PPLL) // POSC as input
    {
        fin = sysclock_sourceFreq(SYSCLOCK_SRC_POSC);
    }
    else
        return 0;

    prediv = CLKDIVbits.PLLPRE;
    multiplier = PLLFBDbits.PLLFBDIV;
    postdiv = (PLLDIVbits.POST1DIV) * (PLLDIVbits.POST2DIV);

    sysclock_vco = fin / prediv * multiplier;
    fpllo = sysclock_vco / postdiv;
    return fpllo;
}