init.c

#include <stdio.h>

/* debug */
#define DEBUG DEBUG_FULL
#include "net/ip/uip-debug.h"

/* contiki */
#include "sys/process.h"

/* mc1322x */
#include "mc1322x.h"
#include "contiki-maca.h"
#include "config.h"

/* Threshold for buck converter; buck will be disabled if vbatt is below this */
#define MC1322X_BUCK_THRES 2425
/* Hysterisis window around buck threshold */
#define MC1322X_BUCK_WINDOW 150
#define MC1322X_BUCK_THRES_H (MC1322X_BUCK_THRES + MC1322X_BUCK_WINDOW/2)
#define MC1322X_BUCK_THRES_L (MC1322X_BUCK_THRES - MC1322X_BUCK_WINDOW/2)
/* Time between vbatt checks for the buck */
#define MC1322X_BUCK_MONITOR_PERIOD 600 * CLOCK_SECOND

/* periodically poll adc_vbatt and manages the buck appropriately */
static struct etimer et_buck;
PROCESS(buck_monitor, "buck monitor");
PROCESS_THREAD(buck_monitor, ev, data)
{

        PROCESS_BEGIN();
        PRINTF("starting vbatt monitor\n");

        etimer_set(&et_buck, MC1322X_BUCK_MONITOR_PERIOD);

        while (1) {
                PROCESS_WAIT_EVENT();
                if(etimer_expired(&et_buck))
                {
                        adc_service();
                        PRINTF("buck monitor: vbatt: %d mV\n\r", adc_vbatt);
                        if( CRM->VREG_CNTLbits.BUCK_EN == 1 && adc_vbatt < MC1322X_BUCK_THRES_L ) {
                                PRINTF("vbatt low, disabling buck\n\r", adc_vbatt);
                                CRM->SYS_CNTLbits.PWR_SOURCE = 0;
                                CRM->VREG_CNTLbits.BUCK_SYNC_REC_EN = 0;
                                CRM->VREG_CNTLbits.BUCK_BYPASS_EN = 1;
                                CRM->VREG_CNTLbits.BUCK_EN = 0;
                        } else if ( CRM->VREG_CNTLbits.BUCK_EN == 0 && adc_vbatt > MC1322X_BUCK_THRES_H ) {
                                PRINTF("vbatt high, enabling buck\n\r", adc_vbatt);
                                CRM->SYS_CNTLbits.PWR_SOURCE = 1;
                                CRM->VREG_CNTLbits.BUCK_SYNC_REC_EN = 1;
                                CRM->VREG_CNTLbits.BUCK_BYPASS_EN = 0;
                                CRM->VREG_CNTLbits.BUCK_EN = 1;
                        }
                        etimer_set(&et_buck, MC1322X_BUCK_MONITOR_PERIOD);
                }
        }

        PROCESS_END();

}

void buck_setup(void) {
        nvmType_t type;
        nvmErr_t err;
        volatile int i;

        default_vreg_init();

        while(CRM->STATUSbits.VREG_1P5V_RDY == 0) { continue; }
        while(CRM->STATUSbits.VREG_1P8V_RDY == 0) { continue; }

        /* takes time for the flash supply to fail (if there is no buck) */
        /* spin while this happens doing nvm_detects */
        /* XXX todo: don't probe buck if Vbatt < 2.5V */

        adc_service();
        PRINTF("vbatt: %04u mV\n\r", adc_vbatt);

        type = 1;
        for(i = 0; i < 128 && type != 0; i++) {
                err = nvm_detect(gNvmInternalInterface_c, &type);
        }
        if (type == gNvmType_NoNvm_c)
        {
                PRINTF("NVM failed without buck, trying with buck\n\r");

                if (adc_vbatt < MC1322X_BUCK_THRES_L)
                {
                        PRINTF("Vbatt is low, bypassing buck\n\r");
                        CRM->SYS_CNTLbits.PWR_SOURCE = 0;
                        CRM->VREG_CNTLbits.BUCK_SYNC_REC_EN = 0;
                        CRM->VREG_CNTLbits.BUCK_BYPASS_EN = 1;
                        CRM->VREG_CNTLbits.BUCK_EN = 0;
                } else {
                        CRM->SYS_CNTLbits.PWR_SOURCE = 1;
                        CRM->VREG_CNTLbits.BUCK_SYNC_REC_EN = 1;
                        CRM->VREG_CNTLbits.BUCK_BYPASS_EN = 0;
                        CRM->VREG_CNTLbits.BUCK_EN = 1;
                }

                while(CRM->STATUSbits.VREG_BUCK_RDY == 0) { continue; }
                CRM->VREG_CNTLbits.VREG_1P5V_SEL = 3;
                CRM->VREG_CNTLbits.VREG_1P5V_EN = 3;
                CRM->VREG_CNTLbits.VREG_1P8V_EN = 1;

                while(CRM->STATUSbits.VREG_1P5V_RDY == 0) { continue; }
                while(CRM->STATUSbits.VREG_1P8V_RDY == 0) { continue; }

                type = 1;
                for(i = 0; i < 128 && type != 0; i++) {
                        err = nvm_detect(gNvmInternalInterface_c, &type);
                }
                if (type != gNvmType_NoNvm_c) {
                        PRINTF("buck ok\n\r");
                        /* start a process to monitor vbatt and enable/disable the buck as necessary */
                        process_start(&buck_monitor, NULL);
                } else {
                        printf("fatal: couldn't detect NVM\n\r");
                }
        } else {
                PRINTF("NVM ok without buck\n\r");
        }
}

/* setup the RTC */
/* try to start the 32kHz xtal */
void rtc_setup(void) {
        volatile uint32_t rtc_count;
        volatile uint32_t i;

        ring_osc_off();
        xtal32_on();
        xtal32_exists();
        rtc_count = CRM->RTC_COUNT;
        PRINTF("trying to start 32kHz xtal\n\r");

        for(i = 0; i < 150000 && CRM->RTC_COUNT == rtc_count; i++) { continue; }
        if(CRM->RTC_COUNT == rtc_count) {
                PRINTF("32xtal failed, using ring osc\n\r");
                CRM->SYS_CNTLbits.XTAL32_EXISTS = 0;
                CRM->XTAL32_CNTLbits.XTAL32_EN = 0;
                ring_osc_on();

                /* Set default tune values from datasheet */
                CRM->RINGOSC_CNTLbits.ROSC_CTUNE = 0x6;
                CRM->RINGOSC_CNTLbits.ROSC_FTUNE = 0x17;

                /* Trigger calibration */
                rtc_calibrate();
                PRINTF("RTC calibrated to %d Hz\r\n", rtc_freq);
        } else {
                PRINTF("32kHz xtal started\n\r");
                rtc_freq = 32768;
        }
}

/* call mc1322x_init once to initalize everything with the current config */
void mc1322x_init(void) {

        /* XXX TODO load config from flash */
        /* config should say what uart to use for debug console */
        /* config should also set the baud rate */
        /* for now, just clean up contiki-conf.h */
        /* maybe factor into conf.h -> contiki-conf.h and mc1322x-conf.h platform-conf.h */

        /* print out config in debug */
        /* initialize the uarts */
        uart_init(CONSOLE_UART, CONSOLE_BAUD);
        PRINTF("mc1322x init\n\r");

        adc_init();
        ctimer_init();
        process_init();
        process_start(&etimer_process, NULL);
        process_start(&contiki_maca_process, NULL);
        buck_setup();

        /* start with a default config */

        mc1322x_config_restore(&mc1322x_config);
        if ( mc1322x_config_valid(&mc1322x_config) != 1 ) {
                PRINTF("flash invalid\n\r");
                /* save the default config to flash */
                mc1322x_config_set_default(&mc1322x_config);
                mc1322x_config_save(&mc1322x_config);
        }

#if DEBUG_FULL
        mc1322x_config_print();
#endif

        /* setup the radio */
        maca_init();
        set_power(mc1322x_config.power);
        set_channel(mc1322x_config.channel);
        set_demodulator_type(mc1322x_config.flags.demod);
        set_prm_mode(mc1322x_config.flags.autoack);

        /* must be done AFTER maca_init */
        /* the radio calibration appears to clobber the RTC trim caps */
        rtc_setup();
        rtimer_init();
        clock_init();

}