This post is older than 2 years and might not be relevant anymore
More Info: Consider searching for newer posts

nRF51822 external crystal problems

I have searched your forum and have found several references to my issue; however, I have not been able to get anything resolved.
I am using the nRF51822 which is part of the RAYTAC MDBT40 module.
I am using your ble_app_uart_pca1028_s130 as my base code and have not modified anything critical, only the nus_data_handler to process the data received from the smart phone.
The code is working perfectly on your nRF51 Development Kit and if I upload to the RAYTAC development board with the nRF51822 on their module, it continues to work perfectly.
When I mount the RAYTAC MDBT40 module on our board, the problems begin.  When the board is powered up, a 32KHz sine wave appears on XL1, but when I upload our code, the sinewave stops.  I am able to do other uploads, but the chip appears to be dead otherwise.
We are using the exact same EPSON crystal as RAYTAC, 32.768kHz, load capacitance of 9pF with two 12pF caps going to ground at XL1 and XL2. The traces to the crystal are as short as possible and equal length, and there are no parallel traces in the crystal circuit.
I have used crystals on other processors, tone generators, precision oscillators etc., but have never experienced a problem like this.
Any assistance would be appreciated.
Parents
  • Hello, 

    When I mount the RAYTAC MDBT40 module on our board, the problems begin.  When the board is powered up, a 32KHz sine wave appears on XL1, but when I upload our code, the sinewave stops.

     What code is running before you upload your code? 

    Have you ensured that LF Clock Source is configured correctly in your code?

    The LFCLK-source can be configured to these three:

    * Internal RC oscillator

    * External 32 kHz oscillator

    * Synthesized from 16M Xtal

    In sdk_config.h

    // <o> CLOCK_CONFIG_LF_SRC  - LF Clock Source
     
    // <0=> RC 
    // <1=> XTAL 
    // <2=> Synth 
    
    #ifndef CLOCK_CONFIG_LF_SRC
    #define CLOCK_CONFIG_LF_SRC 1
    #endif

    If that does not help, I will need more information regarding your board and the Raytac module.  

  • I checked the sdk_config.h and it has the code which you list above.

    I will try to find out what code is installed on the RAYTAC module as it is supplied to us.

    We have not changed any of the Nordic example code for ble_app_uart_pcs028_s130 except for nus_data_handler and some of our own routines.  Here is the  main.c

    /**
     * Copyright (c) 2014 - 2017, Nordic Semiconductor ASA
     * 
     * All rights reserved.
     * 
     * Redistribution and use in source and binary forms, with or without modification,
     * are permitted provided that the following conditions are met:
     * 
     * 1. Redistributions of source code must retain the above copyright notice, this
     *    list of conditions and the following disclaimer.
     * 
     * 2. Redistributions in binary form, except as embedded into a Nordic
     *    Semiconductor ASA integrated circuit in a product or a software update for
     *    such product, must reproduce the above copyright notice, this list of
     *    conditions and the following disclaimer in the documentation and/or other
     *    materials provided with the distribution.
     * 
     * 3. Neither the name of Nordic Semiconductor ASA nor the names of its
     *    contributors may be used to endorse or promote products derived from this
     *    software without specific prior written permission.
     * 
     * 4. This software, with or without modification, must only be used with a
     *    Nordic Semiconductor ASA integrated circuit.
     * 
     * 5. Any software provided in binary form under this license must not be reverse
     *    engineered, decompiled, modified and/or disassembled.
     * 
     * THIS SOFTWARE IS PROVIDED BY NORDIC SEMICONDUCTOR ASA "AS IS" AND ANY EXPRESS
     * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     * OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE ARE
     * DISCLAIMED. IN NO EVENT SHALL NORDIC SEMICONDUCTOR ASA OR CONTRIBUTORS BE
     * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
     * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
     * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     * 
     */
    
    /** @file
     *
     * @defgroup ble_sdk_uart_over_ble_main main.c
     * @{
     * @ingroup  ble_sdk_app_nus_eval
     * @brief    UART over BLE application main file.
     *
     * This file contains the source code for a sample application that uses the Nordic UART service.
     * This application uses the @ref srvlib_conn_params module.
     */
    
    #include <stdint.h>
    #include <string.h>
    #include "nordic_common.h"
    #include "nrf.h"
    #include "ble_hci.h"
    #include "ble_advdata.h"
    #include "ble_advertising.h"
    #include "ble_conn_params.h"
    #include "softdevice_handler.h"
    #include "app_timer.h"
    #include "app_button.h"
    #include "ble_nus.h"
    #include "app_uart.h"
    #include "app_util_platform.h"
    #include "bsp.h"
    #include "bsp_btn_ble.h"
    #include "nrf_gpio.h"
    #include "stdio.h"
    #include "stdlib.h"
    // #include "system_nrf52.c"
    
    #if defined (CONFIG_GPIO_AS_PINRESET)
        if (((NRF_UICR->PSELRESET[0] & UICR_PSELRESET_CONNECT_Msk) != (UICR_PSELRESET_CONNECT_Connected << UICR_PSELRESET_CONNECT_Pos)) || 
            ((NRF_UICR->PSELRESET[0] & UICR_PSELRESET_CONNECT_Msk) != (UICR_PSELRESET_CONNECT_Connected << UICR_PSELRESET_CONNECT_Pos)))
    		{
            NRF_NVMC->CONFIG = NVMC_CONFIG_WEN_Wen << NVMC_CONFIG_WEN_Pos;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_UICR->PSELRESET[0] = 21;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_UICR->PSELRESET[1] = 21;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_NVMC->CONFIG = NVMC_CONFIG_WEN_Ren << NVMC_CONFIG_WEN_Pos;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NVIC_SystemReset();
        }
    #endif
    
    #define GPIO_Pin_1                 ((u16)0x0002)  /* Pin 1 selected */
    
    #define IS_SRVC_CHANGED_CHARACT_PRESENT 0                                           /**< Include the service_changed characteristic. If not enabled, the server's database cannot be changed for the lifetime of the device. */
    
    #if (NRF_SD_BLE_API_VERSION == 3)
    #define NRF_BLE_MAX_MTU_SIZE            GATT_MTU_SIZE_DEFAULT                       /**< MTU size used in the softdevice enabling and to reply to a BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST event. */
    #endif
    
    #define APP_FEATURE_NOT_SUPPORTED       BLE_GATT_STATUS_ATTERR_APP_BEGIN + 2        /**< Reply when unsupported features are requested. */
    
    #define CENTRAL_LINK_COUNT              0                                           /**< Number of central links used by the application. When changing this number remember to adjust the RAM settings*/
    #define PERIPHERAL_LINK_COUNT           1                                           /**< Number of peripheral links used by the application. When changing this number remember to adjust the RAM settings*/
    
    #define DEVICE_NAME                     "Comet Clock"                               /**< Name of device. Will be included in the advertising data. */
    #define NUS_SERVICE_UUID_TYPE           BLE_UUID_TYPE_VENDOR_BEGIN                  /**< UUID type for the Nordic UART Service (vendor specific). */
    
    #define APP_ADV_INTERVAL                64                                          /**< The advertising interval (in units of 0.625 ms. This value corresponds to 40 ms). */
    #define APP_ADV_TIMEOUT_IN_SECONDS      0                                         	/**< The advertising timeout (in units of seconds). Timeout of 0 = no timeout */
    
    #define APP_TIMER_PRESCALER             0                                           /**< Value of the RTC1 PRESCALER register. */
    #define APP_TIMER_OP_QUEUE_SIZE         4                                           /**< Size of timer operation queues. */
    
    #define MIN_CONN_INTERVAL               MSEC_TO_UNITS(20, UNIT_1_25_MS)             /**< Minimum acceptable connection interval (20 ms), Connection interval uses 1.25 ms units. */
    #define MAX_CONN_INTERVAL               MSEC_TO_UNITS(75, UNIT_1_25_MS)             /**< Maximum acceptable connection interval (75 ms), Connection interval uses 1.25 ms units. */
    #define SLAVE_LATENCY                   0                                           /**< Slave latency. */
    #define CONN_SUP_TIMEOUT                MSEC_TO_UNITS(4000, UNIT_10_MS)             /**< Connection supervisory timeout (4 seconds), Supervision Timeout uses 10 ms units. */
    #define FIRST_CONN_PARAMS_UPDATE_DELAY  APP_TIMER_TICKS(5000, APP_TIMER_PRESCALER)  /**< Time from initiating event (connect or start of notification) to first time sd_ble_gap_conn_param_update is called (5 seconds). */
    #define NEXT_CONN_PARAMS_UPDATE_DELAY   APP_TIMER_TICKS(30000, APP_TIMER_PRESCALER) /**< Time between each call to sd_ble_gap_conn_param_update after the first call (30 seconds). */
    #define MAX_CONN_PARAMS_UPDATE_COUNT    3                                           /**< Number of attempts before giving up the connection parameter negotiation. */
    
    #define DEAD_BEEF                       0xDEADBEEF                                  /**< Value used as error code on stack dump, can be used to identify stack location on stack unwind. */
    
    #define UART_TX_BUF_SIZE                256                                         /**< UART TX buffer size. */
    #define UART_RX_BUF_SIZE                256                                         /**< UART RX buffer size. */
    
    static ble_nus_t                        m_nus;                                      /**< Structure to identify the Nordic UART Service. */
    static uint16_t                         m_conn_handle = BLE_CONN_HANDLE_INVALID;    /**< Handle of the current connection. */
    
    static ble_uuid_t                       m_adv_uuids[] = {{BLE_UUID_NUS_SERVICE, NUS_SERVICE_UUID_TYPE}};  /**< Universally unique service identifier. */
    
    /**@brief Function for assert macro callback.
     *
     * @details This function will be called in case of an assert in the SoftDevice.
     *
     * @warning This handler is an example only and does not fit a final product. You need to analyse
     *          how your product is supposed to react in case of Assert.
     * @warning On assert from the SoftDevice, the system can only recover on reset.
     *
     * @param[in] line_num    Line number of the failing ASSERT call.
     * @param[in] p_file_name File name of the failing ASSERT call.
     */
    void assert_nrf_callback(uint16_t line_num, const uint8_t * p_file_name)
    {
        app_error_handler(DEAD_BEEF, line_num, p_file_name);
    }
    
    
    /**@brief Function for the GAP initialization.
     *
     * @details This function will set up all the necessary GAP (Generic Access Profile) parameters of
     *          the device. It also sets the permissions and appearance.
     */
    static void gap_params_init(void)
    {
        uint32_t                err_code;
        ble_gap_conn_params_t   gap_conn_params;
        ble_gap_conn_sec_mode_t sec_mode;
    
        BLE_GAP_CONN_SEC_MODE_SET_OPEN(&sec_mode);
    
        err_code = sd_ble_gap_device_name_set(&sec_mode,
                                              (const uint8_t *) DEVICE_NAME,
                                              strlen(DEVICE_NAME));
        APP_ERROR_CHECK(err_code);
    
        memset(&gap_conn_params, 0, sizeof(gap_conn_params));
    
        gap_conn_params.min_conn_interval = MIN_CONN_INTERVAL;
        gap_conn_params.max_conn_interval = MAX_CONN_INTERVAL;
        gap_conn_params.slave_latency     = SLAVE_LATENCY;
        gap_conn_params.conn_sup_timeout  = CONN_SUP_TIMEOUT;
    
        err_code = sd_ble_gap_ppcp_set(&gap_conn_params);
        APP_ERROR_CHECK(err_code);
    }
    
    /**@brief Function for handling the data from the Nordic UART Service.
     *
     * @details This function will process the data received from the Nordic UART BLE Service and send
     *          it to the UART module.
     *
     * @param[in] p_nus    Nordic UART Service structure.
     * @param[in] p_data   Data to be send to UART module.
     * @param[in] length   Length of the data.
     */
    /**@snippet [Handling the data received over BLE] */
    
    //                       		{ MODE,HOURS,MINUTES,SECONDS,AM PM, NUL , NUL , NUL , NUL , NUL   }
    //											  	{ H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L	}
    
    static void nus_data_handler(ble_nus_t * p_nus, uint8_t * p_data, uint16_t length)
    {
    				// Declare routines used in this function
    				void send0() ; void send1() ; void send2() ; void send3() ; void send4() ; void send5() ; void send6() ; void send7() ;
    				void send8() ; void send9() ; void sendA() ; void sendB() ; void sendC() ; void sendD() ; void sendE() ; void sendF() ;  
    				void led_flasher() ;
    	
    //			static uint8_t ble_data[22]	= 	{ 0, 1, 0, 3, 2, 5, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0  } 	;    //  This works for testing  3:25.45 PM	
    	      
    				static uint16_t 	decimalIn   											;
    				static uint8_t 		ble_counter 											;
    				static uint16_t 	fubar 														;
      		  static uint8_t 		ble_data[22] 											;  
    				
    		  	memcpy ( ble_data, p_data, length )									; 
    				for (fubar = 0; fubar < 250	; fubar++) { }							// Delay
    
    				decimalIn = (1000 * ble_data[0]) +(100 * ble_data[1]) +(10 * ble_data[2]) + ble_data[3]  	;	
    				if (decimalIn == 8888) 
    									{ led_flasher(); }        // This is for the LED to indicate 
    						else  {
    //  								for (ble_counter = 0 ; ble_counter < BLE_NUS_MAX_DATA_LEN ; ble_counter += 2 )	// no workie for black hole
    										for (ble_counter = 0 ; ble_counter < 22                   ; ble_counter += 2 )	  				
    										{ 
    											nrf_gpio_pin_write( 24, 1)																	 					;	  	//	Data being sent high 
    											decimalIn = (10 * ble_data[ble_counter]) + ble_data[ble_counter + 1] 	;	
    											switch (decimalIn) // Low nibble  High nibble 
    												{ case 0    : send0() ; send0() ; break   ;	case 1    : send1() ; send0() ; break   ;	case 2    : send2() ; send0() ; break   ; 
    													case 3    : send3() ; send0() ; break   ;	case 4    : send4() ; send0() ; break   ;	case 5    : send5() ; send0() ; break   ;
    													case 6    : send6() ; send0() ; break   ;	case 7    : send7() ; send0() ; break   ;	case 8    : send8() ; send0() ; break   ;
    													case 9    : send9() ; send0() ; break   ;	case 10   : sendA() ; send0() ; break   ;	case 11   : sendB() ; send0() ; break   ;
    													case 12   : sendC() ; send0() ; break   ;	case 13   : sendD() ; send0() ; break  	; case 14   : sendE() ; send0() ; break  	;
    													case 15   : sendF() ; send0() ; break  	;	case 16   : send0() ; send1() ; break  	;	case 17   : send1() ; send1() ; break  	;
    													case 18   : send2() ; send1() ; break  	;	case 19   : send3() ; send1() ; break  	; case 20   : send4() ; send1() ; break  	;   
    													case 21   : send5() ; send1() ; break  	;	case 22   : send6() ; send1() ; break  	;	case 23   : send7() ; send1() ; break  	;
    													case 24   : send8() ; send1() ; break  	; case 25   : send9() ; send1() ; break  	; case 26   : sendA() ; send1() ; break  	;
    													case 27   : sendB() ; send1() ; break  	;	case 28   : sendC() ; send1() ; break  	;	case 29   : sendD() ; send1() ; break  	;   
    													case 30   : sendE() ; send1() ; break  	; case 31   : sendF() ; send1() ; break  	;	case 32   : send0() ; send2() ; break  	;
    													case 33   : send1() ; send2() ; break  	;	case 34   : send2() ; send2() ; break  	; case 35   : send3() ; send2() ; break  	;   
    													case 36   : send4() ; send2() ; break  	;	case 37   : send5() ; send2() ; break  	;	case 38   : send6() ; send2() ; break  	;
    													case 39   : send7() ; send2() ; break  	; case 40   : send8() ; send2() ; break  	; case 41   : send9() ; send2() ; break  	;
    													case 42   : sendA() ; send2() ; break  	;	case 43   : sendB() ; send2() ; break  	;	case 44   : sendC() ; send2() ; break  	;   
    													case 45   : sendD() ; send2() ; break  	; case 46   : sendE() ; send2() ; break  	;	case 47   : sendF() ; send2() ; break  	;
    													case 48   : send0() ; send3() ; break  	;	case 49   : send1() ; send3() ; break  	; case 50   : send2() ; send3() ; break  	; 
    													case 51   : send3() ; send3() ; break  	;	case 52   : send4() ; send3() ; break  	;	case 53   : send5() ; send3() ; break  	;
    													case 54   : send6() ; send3() ; break  	; case 55   : send7() ; send3() ; break  	; case 56   : send8() ; send3() ; break  	;
    													case 57   : send9() ; send3() ; break  	;	case 58   : sendA() ; send3() ; break  	;	case 59   : sendB() ; send3() ; break  	; 
    													case 60   : sendC() ; send3() ; break  	; // default   : led_flasher() ;   
    												} 	
    											nrf_gpio_pin_write( 24, 0)													;  	//	Data being sent low
    										}	
    									}					// end of else
    }
    /**@snippet [Handling the data received over BLE] */
    
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
     
     static void data_high()										// GPIO 22 Tx DATA
     { nrf_gpio_pin_write( 22, 1)	; }
     
     static void data_low()											// GPIO 22 Tx DATA
     { nrf_gpio_pin_write( 22, 0)	; }
     
     static void data_ready_high()							// GPIO 23	DATA READY
     { nrf_gpio_pin_write( 23, 1)	;	}
     
     static void data_ready_low()								// GPIO 23	DATA READY
     { nrf_gpio_pin_write( 23, 0)	;	}
     
     
      void sendLow()  // send low bit
     {    static uint16_t 	fubar 							;
    			while (nrf_gpio_pin_read(20)	== 0) { } // Read acknowlege from Z8 MCU		REM OUT THIS CODE WHEN TESTING WITHOUT BEING ATTACHED TO Z8 BOARD
    			
     			data_ready_high() 		;			//  Z8 Interrupt inactive at HIGH    	GPIO 23
     			data_low() 						;			//  Send low data out									GPIO 22
    			for (fubar = 0; fubar < 100	; fubar++) { }
     			data_ready_low() 			;			//  Z8 Interrupt active at LOW				GPIO 23
     			data_ready_high()			;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     }
     
     void sendHigh() // send high bit     
     {    static uint16_t 	fubar 							;
    			while (nrf_gpio_pin_read(20)	== 0) {  } // Read acknowlege from Z8 MCU		REM OUT THIS CODE WHEN TESTING WITHOUT BEING ATTACHED TO Z8 BOARD
    			
     			data_ready_high() 		;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     			data_high() 					;			//  Send high data out								GPIO 22
    			for (fubar = 0; fubar < 100	; fubar++) { }
     			data_ready_low() 			;			//  Z8 Interrupt active at LOW				GPIO 23
     			data_ready_high()			;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     }
     
     void send0() { sendLow()  ;  sendLow()  ;  sendLow()  ;  sendLow()  ; }
     void send1() { sendHigh() ;  sendLow()  ;  sendLow()  ;  sendLow()  ; }
     void send2() { sendLow()  ;  sendHigh() ;  sendLow()  ;  sendLow()  ; }
     void send3() { sendHigh() ;  sendHigh() ;  sendLow()  ;  sendLow()  ; }
     void send4() { sendLow()  ;  sendLow()  ;  sendHigh() ;  sendLow()  ; }
     void send5() { sendHigh() ;  sendLow()  ;  sendHigh() ;  sendLow()  ; }
     void send6() { sendLow()  ;  sendHigh() ;  sendHigh() ;  sendLow()  ; }
     void send7() { sendHigh() ;  sendHigh() ;  sendHigh() ;  sendLow()  ; }
     void send8() { sendLow()  ;  sendLow()  ;  sendLow()  ;  sendHigh() ; }
     void send9() { sendHigh() ;  sendLow()  ;  sendLow()  ;  sendHigh() ; }
     void sendA() { sendLow()  ;  sendHigh() ;  sendLow()  ;  sendHigh() ; }
     void sendB() { sendHigh() ;  sendHigh() ;  sendLow()  ;  sendHigh() ; }
     void sendC() { sendLow()  ;  sendLow()  ;  sendHigh() ;  sendHigh() ; }
     void sendD() { sendHigh() ;  sendLow()  ;  sendHigh() ;  sendHigh() ; }
     void sendE() { sendLow()  ;  sendHigh() ;  sendHigh() ;  sendHigh() ; }
     void sendF() { sendHigh() ;  sendHigh() ;  sendHigh() ;  sendHigh() ; }
     
     void led_flasher()	//	LED to indicate device is selected
     {	
    		static uint16_t 	fubar 																							;
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
        for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    		for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
      	fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }		
    		
    		nrf_gpio_pin_write( 25,1)																							;
     }
     
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
    
    /**@brief Function for initializing services that will be used by the application.
     */
    static void services_init(void)
    {
        uint32_t       err_code;
        ble_nus_init_t nus_init;
    
        memset(&nus_init, 0, sizeof(nus_init));
    
        nus_init.data_handler = nus_data_handler;
    
        err_code = ble_nus_init(&m_nus, &nus_init);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for handling an event from the Connection Parameters Module.
     *
     * @details This function will be called for all events in the Connection Parameters Module
     *          which are passed to the application.
     *
     * @note All this function does is to disconnect. This could have been done by simply setting
     *       the disconnect_on_fail config parameter, but instead we use the event handler
     *       mechanism to demonstrate its use.
     *
     * @param[in] p_evt  Event received from the Connection Parameters Module.
     */
    static void on_conn_params_evt(ble_conn_params_evt_t * p_evt)
    {
        uint32_t err_code;
    
        if (p_evt->evt_type == BLE_CONN_PARAMS_EVT_FAILED)
        {
    			nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
            err_code = sd_ble_gap_disconnect(m_conn_handle, BLE_HCI_CONN_INTERVAL_UNACCEPTABLE);
            APP_ERROR_CHECK(err_code);
        }
    }
    
    
    /**@brief Function for handling errors from the Connection Parameters module.
     *
     * @param[in] nrf_error  Error code containing information about what went wrong.
     */
    static void conn_params_error_handler(uint32_t nrf_error)
    {
        APP_ERROR_HANDLER(nrf_error);
    }
    
    
    /**@brief Function for initializing the Connection Parameters module.
     */
    static void conn_params_init(void)
    {
        uint32_t               err_code;
        ble_conn_params_init_t cp_init;
    
        memset(&cp_init, 0, sizeof(cp_init));
    
        cp_init.p_conn_params                  = NULL;
        cp_init.first_conn_params_update_delay = FIRST_CONN_PARAMS_UPDATE_DELAY;
        cp_init.next_conn_params_update_delay  = NEXT_CONN_PARAMS_UPDATE_DELAY;
        cp_init.max_conn_params_update_count   = MAX_CONN_PARAMS_UPDATE_COUNT;
        cp_init.start_on_notify_cccd_handle    = BLE_GATT_HANDLE_INVALID;
        cp_init.disconnect_on_fail             = false;
        cp_init.evt_handler                    = on_conn_params_evt;
        cp_init.error_handler                  = conn_params_error_handler;
    
        err_code = ble_conn_params_init(&cp_init);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for putting the chip into sleep mode.
     *
     * @note This function will not return.
     */
    static void sleep_mode_enter(void)
    {
        uint32_t err_code = bsp_indication_set(BSP_INDICATE_IDLE);
        APP_ERROR_CHECK(err_code);
    
        // Prepare wakeup buttons.
        err_code = bsp_btn_ble_sleep_mode_prepare();
        APP_ERROR_CHECK(err_code);
    
        // Go to system-off mode (this function will not return; wakeup will cause a reset).
        err_code = sd_power_system_off();
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for handling advertising events.
     *
     * @details This function will be called for advertising events which are passed to the application.
     *
     * @param[in] ble_adv_evt  Advertising event.
     */
    static void on_adv_evt(ble_adv_evt_t ble_adv_evt)
    {
        uint32_t err_code;
    
        switch (ble_adv_evt)
        {
            case BLE_ADV_EVT_FAST:
                err_code = bsp_indication_set(BSP_INDICATE_ADVERTISING);
                APP_ERROR_CHECK(err_code);
                break;
            case BLE_ADV_EVT_IDLE:
                sleep_mode_enter();
                break;
            default:
                break;
        }
    }
    
    
    /**@brief Function for the application's SoftDevice event handler.
     *
     * @param[in] p_ble_evt SoftDevice event.
     */
    static void on_ble_evt(ble_evt_t * p_ble_evt)
    {
        uint32_t err_code;
    
        switch (p_ble_evt->header.evt_id)
        {
            case BLE_GAP_EVT_CONNECTED:
    					  nrf_gpio_pin_write( 16, 1)						;	  // GIO high to indicate BLE connected
                err_code = bsp_indication_set(BSP_INDICATE_CONNECTED);
                APP_ERROR_CHECK(err_code);
                m_conn_handle = p_ble_evt->evt.gap_evt.conn_handle;
                break; // BLE_GAP_EVT_CONNECTED
    
            case BLE_GAP_EVT_DISCONNECTED:
    					  nrf_gpio_pin_write( 16, 0)						;	  // GPIO low to indicate no BLE connection
                err_code = bsp_indication_set(BSP_INDICATE_IDLE);
                APP_ERROR_CHECK(err_code);
                m_conn_handle = BLE_CONN_HANDLE_INVALID;
                break; // BLE_GAP_EVT_DISCONNECTED
    
            case BLE_GAP_EVT_SEC_PARAMS_REQUEST:
                // Pairing not supported
                err_code = sd_ble_gap_sec_params_reply(m_conn_handle, BLE_GAP_SEC_STATUS_PAIRING_NOT_SUPP, NULL, NULL);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GAP_EVT_SEC_PARAMS_REQUEST
    
            case BLE_GATTS_EVT_SYS_ATTR_MISSING:
                // No system attributes have been stored.
                err_code = sd_ble_gatts_sys_attr_set(m_conn_handle, NULL, 0, 0);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_SYS_ATTR_MISSING
    
            case BLE_GATTC_EVT_TIMEOUT:
                // Disconnect on GATT Client timeout event.
    				nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(p_ble_evt->evt.gattc_evt.conn_handle,
                                                 BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTC_EVT_TIMEOUT
    
            case BLE_GATTS_EVT_TIMEOUT:
                // Disconnect on GATT Server timeout event.
    				nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(p_ble_evt->evt.gatts_evt.conn_handle,
                                                 BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_TIMEOUT
    
            case BLE_EVT_USER_MEM_REQUEST:
                err_code = sd_ble_user_mem_reply(p_ble_evt->evt.gattc_evt.conn_handle, NULL);
                APP_ERROR_CHECK(err_code);
                break; // BLE_EVT_USER_MEM_REQUEST
    
            case BLE_GATTS_EVT_RW_AUTHORIZE_REQUEST:
            {
                ble_gatts_evt_rw_authorize_request_t  req;
                ble_gatts_rw_authorize_reply_params_t auth_reply;
    
                req = p_ble_evt->evt.gatts_evt.params.authorize_request;
    
                if (req.type != BLE_GATTS_AUTHORIZE_TYPE_INVALID)
                {
                    if ((req.request.write.op == BLE_GATTS_OP_PREP_WRITE_REQ)     ||
                        (req.request.write.op == BLE_GATTS_OP_EXEC_WRITE_REQ_NOW) ||
                        (req.request.write.op == BLE_GATTS_OP_EXEC_WRITE_REQ_CANCEL))
                    {
                        if (req.type == BLE_GATTS_AUTHORIZE_TYPE_WRITE)
                        {
                            auth_reply.type = BLE_GATTS_AUTHORIZE_TYPE_WRITE;
                        }
                        else
                        {
                            auth_reply.type = BLE_GATTS_AUTHORIZE_TYPE_READ;
                        }
                        auth_reply.params.write.gatt_status = APP_FEATURE_NOT_SUPPORTED;
                        err_code = sd_ble_gatts_rw_authorize_reply(p_ble_evt->evt.gatts_evt.conn_handle,
                                                                   &auth_reply);
                        APP_ERROR_CHECK(err_code);
                    }
                }
            } break; // BLE_GATTS_EVT_RW_AUTHORIZE_REQUEST
    
    #if (NRF_SD_BLE_API_VERSION == 3)
            case BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST:
                err_code = sd_ble_gatts_exchange_mtu_reply(p_ble_evt->evt.gatts_evt.conn_handle,
                                                           NRF_BLE_MAX_MTU_SIZE);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST
    #endif
    
            default:
                // No implementation needed.
                break;
        }
    }
    
    
    /**@brief Function for dispatching a SoftDevice event to all modules with a SoftDevice
     *        event handler.
     *
     * @details This function is called from the SoftDevice event interrupt handler after a
     *          SoftDevice event has been received.
     *
     * @param[in] p_ble_evt  SoftDevice event.
     */
    static void ble_evt_dispatch(ble_evt_t * p_ble_evt)
    {
        ble_conn_params_on_ble_evt(p_ble_evt);
        ble_nus_on_ble_evt(&m_nus, p_ble_evt);
        on_ble_evt(p_ble_evt);
        ble_advertising_on_ble_evt(p_ble_evt);
        bsp_btn_ble_on_ble_evt(p_ble_evt);
    }
    
    
    /**@brief Function for the SoftDevice initialization.
     *
     * @details This function initializes the SoftDevice and the BLE event interrupt.
     */
    static void ble_stack_init(void)
    {
        uint32_t err_code			;
    	  uint32_t clockSrc			;
    	
    	  clockSrc = 0 					;		// 0 for external crystal, 1 for internal RC oscillator
    
    		if (clockSrc == 0)		
    			{
    				nrf_clock_lf_cfg_t clock_lf_cfg = NRF_CLOCK_LFCLKSRC;
    
    				// Initialize SoftDevice.
    				SOFTDEVICE_HANDLER_INIT(&clock_lf_cfg, NULL);
    
    				ble_enable_params_t ble_enable_params;
    				err_code = softdevice_enable_get_default_config(CENTRAL_LINK_COUNT,
                                                        PERIPHERAL_LINK_COUNT,
                                                        &ble_enable_params);
    				APP_ERROR_CHECK(err_code);
    
    				//Check the ram settings against the used number of links
    				CHECK_RAM_START_ADDR(CENTRAL_LINK_COUNT,PERIPHERAL_LINK_COUNT);
    
    				// Enable BLE stack.
    				#if (NRF_SD_BLE_API_VERSION == 3)
    						ble_enable_params.gatt_enable_params.att_mtu = NRF_BLE_MAX_MTU_SIZE;
    				#endif
    				err_code = softdevice_enable(&ble_enable_params);
    				APP_ERROR_CHECK(err_code);
    
    				// Subscribe for BLE events.
    				err_code = softdevice_ble_evt_handler_set(ble_evt_dispatch);
    				APP_ERROR_CHECK(err_code);
    			}
    			
    		if (clockSrc == 1)
    		{
     			NRF_CLOCK->LFCLKSRC            = (CLOCK_LFCLKSRC_SRC_RC << CLOCK_LFCLKSRC_SRC_Pos);
    			NRF_CLOCK->EVENTS_LFCLKSTARTED = 0	;
    			NRF_CLOCK->TASKS_LFCLKSTART    = 1	;
    
    			while (NRF_CLOCK->EVENTS_LFCLKSTARTED == 0)
    				{
    					// Do nothing.
    				}
    				nrf_clock_lf_cfg_t clock_lf_cfg =  { .source = NRF_CLOCK_LF_SRC_RC,  
                                             //.rc_ctiv = 16, // Check temperature every 16 * 250ms(4 sec) //Nordic recommendation
                                             .rc_ctiv = 4, // Check temperature every 4 * 250ms(1 sec) // Nordic recommendation                                       
                                             .rc_temp_ctiv = 2, // Only calibrate if temperature has changed. // Nordic recommendation
                                           }; // internal RC
     
    				// Initialize SoftDevice.
    				SOFTDEVICE_HANDLER_INIT(&clock_lf_cfg, NULL);  
    		}
    		
    		if (clockSrc == 2)
    		{
    
    
    		}
    		
    		if (clockSrc == 3)
    		{
    
    
    		}
    		
    		if (clockSrc == 4)
    		{
    
    
    		}
    }
    
    
    /**@brief Function for handling events from the BSP module.
     *
     * @param[in]   event   Event generated by button press.
     */
    void bsp_event_handler(bsp_event_t event)
    {
        uint32_t err_code;
        switch (event)
        {
            case BSP_EVENT_SLEEP:
                sleep_mode_enter();
                break;
    
            case BSP_EVENT_DISCONNECT:
    						nrf_gpio_pin_write( 16, 0)						;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(m_conn_handle, BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                if (err_code != NRF_ERROR_INVALID_STATE)
                {
                    APP_ERROR_CHECK(err_code);
                }
                break;
    
            case BSP_EVENT_WHITELIST_OFF:
                if (m_conn_handle == BLE_CONN_HANDLE_INVALID)
                {
                    err_code = ble_advertising_restart_without_whitelist();
                    if (err_code != NRF_ERROR_INVALID_STATE)
                    {
                        APP_ERROR_CHECK(err_code);
                    }
                }
                break;
    
            default:
                break;
        }
    }
    
    
    /**@brief   Function for handling app_uart events.
     *
     * @details This function will receive a single character from the app_uart module and append it to
     *          a string. The string will be be sent over BLE when the last character received was a
     *          'new line' i.e '\r\n' (hex 0x0D) or if the string has reached a length of
     *          @ref NUS_MAX_DATA_LENGTH.
     */
    /**@snippet [Handling the data received over UART] */
    void uart_event_handle(app_uart_evt_t * p_event)
    {
        static uint8_t data_array[BLE_NUS_MAX_DATA_LEN];
        static uint8_t index = 0;
        uint32_t       err_code;
    
        switch (p_event->evt_type)
        {
            case APP_UART_DATA_READY:
                UNUSED_VARIABLE(app_uart_get(&data_array[index]));
                index++;
    
                if ((data_array[index - 1] == '\n') || (index >= (BLE_NUS_MAX_DATA_LEN)))
                {
                    err_code = ble_nus_string_send(&m_nus, data_array, index);
                    if (err_code != NRF_ERROR_INVALID_STATE)
                    {
                        APP_ERROR_CHECK(err_code);
                    }
    
                    index = 0;
                }
                break;
    
            case APP_UART_COMMUNICATION_ERROR:
                APP_ERROR_HANDLER(p_event->data.error_communication);
                break;
    
            case APP_UART_FIFO_ERROR:
                APP_ERROR_HANDLER(p_event->data.error_code);
                break;
    
            default:
                break;
        }
    }
    /**@snippet [Handling the data received over UART] */
    
    
    /**@brief  Function for initializing the UART module.
     */
    /**@snippet [UART Initialization] */
    static void uart_init(void)
    {
        uint32_t                     err_code;
        const app_uart_comm_params_t comm_params =
        {
            RX_PIN_NUMBER,
            TX_PIN_NUMBER,
            RTS_PIN_NUMBER,
            CTS_PIN_NUMBER,
            APP_UART_FLOW_CONTROL_DISABLED,
            false,
            UART_BAUDRATE_BAUDRATE_Baud115200
        };
    
        APP_UART_FIFO_INIT( &comm_params,
                           UART_RX_BUF_SIZE,
                           UART_TX_BUF_SIZE,
                           uart_event_handle,
                           APP_IRQ_PRIORITY_LOWEST,
                           err_code);
        APP_ERROR_CHECK(err_code);
    }
    /**@snippet [UART Initialization] */
    
    
    /**@brief Function for initializing the Advertising functionality.
     */
    static void advertising_init(void)
    {
        uint32_t               err_code;
        ble_advdata_t          advdata;
        ble_advdata_t          scanrsp;
        ble_adv_modes_config_t options;
    
        // Build advertising data struct to pass into @ref ble_advertising_init.
        memset(&advdata, 0, sizeof(advdata));
        advdata.name_type          = BLE_ADVDATA_FULL_NAME;
        advdata.include_appearance = false;
        advdata.flags              = BLE_GAP_ADV_FLAGS_LE_ONLY_GENERAL_DISC_MODE ;
    
        memset(&scanrsp, 0, sizeof(scanrsp));
        scanrsp.uuids_complete.uuid_cnt = sizeof(m_adv_uuids) / sizeof(m_adv_uuids[0]);
        scanrsp.uuids_complete.p_uuids  = m_adv_uuids;
    
        memset(&options, 0, sizeof(options));
        options.ble_adv_fast_enabled  = true;
        options.ble_adv_fast_interval = APP_ADV_INTERVAL;
        options.ble_adv_fast_timeout  = APP_ADV_TIMEOUT_IN_SECONDS;    // Advertising timeout
    
        err_code = ble_advertising_init(&advdata, &scanrsp, &options, on_adv_evt, NULL);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for initializing buttons and leds.
     *
     * @param[out] p_erase_bonds  Will be true if the clear bonding button was pressed to wake the application up.
     */
    static void buttons_leds_init(bool * p_erase_bonds)
    {
        bsp_event_t startup_event;
    
        uint32_t err_code = bsp_init(BSP_INIT_LED | BSP_INIT_BUTTONS,
                                     APP_TIMER_TICKS(100, APP_TIMER_PRESCALER),
                                     bsp_event_handler);
        APP_ERROR_CHECK(err_code);
    
        err_code = bsp_btn_ble_init(NULL, &startup_event);
        APP_ERROR_CHECK(err_code);
    
        *p_erase_bonds = (startup_event == BSP_EVENT_CLEAR_BONDING_DATA);
    }
    
    
    /**@brief Function for placing the application in low power state while waiting for events.
     */
    static void power_manage(void)
    {
        uint32_t err_code = sd_app_evt_wait()				;
        APP_ERROR_CHECK(err_code)										;
    }
    
    
     
    /**@brief Application main function.
     */
    int main(void)
    {
        uint32_t err_code										;
        bool erase_bonds										;
    
        // Initialize.
        APP_TIMER_INIT(APP_TIMER_PRESCALER, APP_TIMER_OP_QUEUE_SIZE, false);
        uart_init()													;
        buttons_leds_init(&erase_bonds)			;
        ble_stack_init()										;
        gap_params_init()										;
        services_init()											;
        advertising_init()									;
        conn_params_init()									;
    
       // printf("\r\nUART Start!\r\n");
        err_code = ble_advertising_start(BLE_ADV_MODE_FAST);
        APP_ERROR_CHECK(err_code);
    	
    		nrf_gpio_pin_write( 24, 0)					;		//	DATA BEING SENT
    	  nrf_gpio_cfg_output(0) 							;
    		nrf_gpio_cfg_output(6) 							;
    		nrf_gpio_cfg_output(16) 						;
    		nrf_gpio_pin_write( 16, 0)					;	  // 	GPIO low to indicate no BLE connection
    	  nrf_gpio_pin_write( 0, 0)						;		//	Z9 RESET IS HIG
    		nrf_gpio_pin_write( 6, 0)						;		// 	Nordic chip healthy
    	
    		nrf_gpio_cfg_input(28, NRF_GPIO_PIN_NOPULL) 							; 
    		nrf_gpio_cfg_output(25) 																	;
    		nrf_gpio_cfg_input(28, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(29, NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_input(30, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(1,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(2,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(3,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(4,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(5,  NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_output(7) 																		;		//	PNP for LED 
    		nrf_gpio_cfg_input(8,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(9,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(10, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(11, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(12, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(13, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(14, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(15, NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_input(17, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(18, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(19, NRF_GPIO_PIN_NOPULL) 							;
    		
    		nrf_gpio_pin_write( 25,1)																	;		//	Initialize PNP high for off
    		
    	//	led_flasher() 																						;
    
    		
    
        
        for (;;) 																						// Enter main loop.
    	    {
            power_manage()	;
    				
    			
    /**@brief Determine if Nordic chip is working properly
     *
     * @details The Z8 sends a 1 from PC6 (pin #19) to the Nordic GPIO 07
     *          If the Nordic chip is working properly, it will read a 1 on GPIO 07
     *  				and then set a 1 on the Nordic GPIO 06 which is read by the Z8 on PC4 (pin #16).        			
     *					A one read back on the Z8 on PC4 indiates good health of the Nordic chip.	
     */			
    				
    //				if (nrf_gpio_pin_read(7) == 1)  								// 	Test GPIO 0.07 for a 1 from the Z8
    //									{ nrf_gpio_pin_write( 6, 1)	; } 			//	send a 1 back to the Z8 to indicate good health of the Nordic chip
    //						else	{ nrf_gpio_pin_write( 6, 0)	; }       //	send a 0 to the port to indicate a null condition
    //					
    				
    			}
    }
    

    I will try to get you the schematics of the RAYTAC module although the only external devices they recommend are the 32.768kHz/9pF load capatance crystal and two 12pF caps to ground from XL1 and XL2.

Reply
  • I checked the sdk_config.h and it has the code which you list above.

    I will try to find out what code is installed on the RAYTAC module as it is supplied to us.

    We have not changed any of the Nordic example code for ble_app_uart_pcs028_s130 except for nus_data_handler and some of our own routines.  Here is the  main.c

    /**
     * Copyright (c) 2014 - 2017, Nordic Semiconductor ASA
     * 
     * All rights reserved.
     * 
     * Redistribution and use in source and binary forms, with or without modification,
     * are permitted provided that the following conditions are met:
     * 
     * 1. Redistributions of source code must retain the above copyright notice, this
     *    list of conditions and the following disclaimer.
     * 
     * 2. Redistributions in binary form, except as embedded into a Nordic
     *    Semiconductor ASA integrated circuit in a product or a software update for
     *    such product, must reproduce the above copyright notice, this list of
     *    conditions and the following disclaimer in the documentation and/or other
     *    materials provided with the distribution.
     * 
     * 3. Neither the name of Nordic Semiconductor ASA nor the names of its
     *    contributors may be used to endorse or promote products derived from this
     *    software without specific prior written permission.
     * 
     * 4. This software, with or without modification, must only be used with a
     *    Nordic Semiconductor ASA integrated circuit.
     * 
     * 5. Any software provided in binary form under this license must not be reverse
     *    engineered, decompiled, modified and/or disassembled.
     * 
     * THIS SOFTWARE IS PROVIDED BY NORDIC SEMICONDUCTOR ASA "AS IS" AND ANY EXPRESS
     * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     * OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE ARE
     * DISCLAIMED. IN NO EVENT SHALL NORDIC SEMICONDUCTOR ASA OR CONTRIBUTORS BE
     * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
     * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
     * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     * 
     */
    
    /** @file
     *
     * @defgroup ble_sdk_uart_over_ble_main main.c
     * @{
     * @ingroup  ble_sdk_app_nus_eval
     * @brief    UART over BLE application main file.
     *
     * This file contains the source code for a sample application that uses the Nordic UART service.
     * This application uses the @ref srvlib_conn_params module.
     */
    
    #include <stdint.h>
    #include <string.h>
    #include "nordic_common.h"
    #include "nrf.h"
    #include "ble_hci.h"
    #include "ble_advdata.h"
    #include "ble_advertising.h"
    #include "ble_conn_params.h"
    #include "softdevice_handler.h"
    #include "app_timer.h"
    #include "app_button.h"
    #include "ble_nus.h"
    #include "app_uart.h"
    #include "app_util_platform.h"
    #include "bsp.h"
    #include "bsp_btn_ble.h"
    #include "nrf_gpio.h"
    #include "stdio.h"
    #include "stdlib.h"
    // #include "system_nrf52.c"
    
    #if defined (CONFIG_GPIO_AS_PINRESET)
        if (((NRF_UICR->PSELRESET[0] & UICR_PSELRESET_CONNECT_Msk) != (UICR_PSELRESET_CONNECT_Connected << UICR_PSELRESET_CONNECT_Pos)) || 
            ((NRF_UICR->PSELRESET[0] & UICR_PSELRESET_CONNECT_Msk) != (UICR_PSELRESET_CONNECT_Connected << UICR_PSELRESET_CONNECT_Pos)))
    		{
            NRF_NVMC->CONFIG = NVMC_CONFIG_WEN_Wen << NVMC_CONFIG_WEN_Pos;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_UICR->PSELRESET[0] = 21;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_UICR->PSELRESET[1] = 21;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NRF_NVMC->CONFIG = NVMC_CONFIG_WEN_Ren << NVMC_CONFIG_WEN_Pos;
            while (NRF_NVMC->READY == NVMC_READY_READY_Busy){}
            NVIC_SystemReset();
        }
    #endif
    
    #define GPIO_Pin_1                 ((u16)0x0002)  /* Pin 1 selected */
    
    #define IS_SRVC_CHANGED_CHARACT_PRESENT 0                                           /**< Include the service_changed characteristic. If not enabled, the server's database cannot be changed for the lifetime of the device. */
    
    #if (NRF_SD_BLE_API_VERSION == 3)
    #define NRF_BLE_MAX_MTU_SIZE            GATT_MTU_SIZE_DEFAULT                       /**< MTU size used in the softdevice enabling and to reply to a BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST event. */
    #endif
    
    #define APP_FEATURE_NOT_SUPPORTED       BLE_GATT_STATUS_ATTERR_APP_BEGIN + 2        /**< Reply when unsupported features are requested. */
    
    #define CENTRAL_LINK_COUNT              0                                           /**< Number of central links used by the application. When changing this number remember to adjust the RAM settings*/
    #define PERIPHERAL_LINK_COUNT           1                                           /**< Number of peripheral links used by the application. When changing this number remember to adjust the RAM settings*/
    
    #define DEVICE_NAME                     "Comet Clock"                               /**< Name of device. Will be included in the advertising data. */
    #define NUS_SERVICE_UUID_TYPE           BLE_UUID_TYPE_VENDOR_BEGIN                  /**< UUID type for the Nordic UART Service (vendor specific). */
    
    #define APP_ADV_INTERVAL                64                                          /**< The advertising interval (in units of 0.625 ms. This value corresponds to 40 ms). */
    #define APP_ADV_TIMEOUT_IN_SECONDS      0                                         	/**< The advertising timeout (in units of seconds). Timeout of 0 = no timeout */
    
    #define APP_TIMER_PRESCALER             0                                           /**< Value of the RTC1 PRESCALER register. */
    #define APP_TIMER_OP_QUEUE_SIZE         4                                           /**< Size of timer operation queues. */
    
    #define MIN_CONN_INTERVAL               MSEC_TO_UNITS(20, UNIT_1_25_MS)             /**< Minimum acceptable connection interval (20 ms), Connection interval uses 1.25 ms units. */
    #define MAX_CONN_INTERVAL               MSEC_TO_UNITS(75, UNIT_1_25_MS)             /**< Maximum acceptable connection interval (75 ms), Connection interval uses 1.25 ms units. */
    #define SLAVE_LATENCY                   0                                           /**< Slave latency. */
    #define CONN_SUP_TIMEOUT                MSEC_TO_UNITS(4000, UNIT_10_MS)             /**< Connection supervisory timeout (4 seconds), Supervision Timeout uses 10 ms units. */
    #define FIRST_CONN_PARAMS_UPDATE_DELAY  APP_TIMER_TICKS(5000, APP_TIMER_PRESCALER)  /**< Time from initiating event (connect or start of notification) to first time sd_ble_gap_conn_param_update is called (5 seconds). */
    #define NEXT_CONN_PARAMS_UPDATE_DELAY   APP_TIMER_TICKS(30000, APP_TIMER_PRESCALER) /**< Time between each call to sd_ble_gap_conn_param_update after the first call (30 seconds). */
    #define MAX_CONN_PARAMS_UPDATE_COUNT    3                                           /**< Number of attempts before giving up the connection parameter negotiation. */
    
    #define DEAD_BEEF                       0xDEADBEEF                                  /**< Value used as error code on stack dump, can be used to identify stack location on stack unwind. */
    
    #define UART_TX_BUF_SIZE                256                                         /**< UART TX buffer size. */
    #define UART_RX_BUF_SIZE                256                                         /**< UART RX buffer size. */
    
    static ble_nus_t                        m_nus;                                      /**< Structure to identify the Nordic UART Service. */
    static uint16_t                         m_conn_handle = BLE_CONN_HANDLE_INVALID;    /**< Handle of the current connection. */
    
    static ble_uuid_t                       m_adv_uuids[] = {{BLE_UUID_NUS_SERVICE, NUS_SERVICE_UUID_TYPE}};  /**< Universally unique service identifier. */
    
    /**@brief Function for assert macro callback.
     *
     * @details This function will be called in case of an assert in the SoftDevice.
     *
     * @warning This handler is an example only and does not fit a final product. You need to analyse
     *          how your product is supposed to react in case of Assert.
     * @warning On assert from the SoftDevice, the system can only recover on reset.
     *
     * @param[in] line_num    Line number of the failing ASSERT call.
     * @param[in] p_file_name File name of the failing ASSERT call.
     */
    void assert_nrf_callback(uint16_t line_num, const uint8_t * p_file_name)
    {
        app_error_handler(DEAD_BEEF, line_num, p_file_name);
    }
    
    
    /**@brief Function for the GAP initialization.
     *
     * @details This function will set up all the necessary GAP (Generic Access Profile) parameters of
     *          the device. It also sets the permissions and appearance.
     */
    static void gap_params_init(void)
    {
        uint32_t                err_code;
        ble_gap_conn_params_t   gap_conn_params;
        ble_gap_conn_sec_mode_t sec_mode;
    
        BLE_GAP_CONN_SEC_MODE_SET_OPEN(&sec_mode);
    
        err_code = sd_ble_gap_device_name_set(&sec_mode,
                                              (const uint8_t *) DEVICE_NAME,
                                              strlen(DEVICE_NAME));
        APP_ERROR_CHECK(err_code);
    
        memset(&gap_conn_params, 0, sizeof(gap_conn_params));
    
        gap_conn_params.min_conn_interval = MIN_CONN_INTERVAL;
        gap_conn_params.max_conn_interval = MAX_CONN_INTERVAL;
        gap_conn_params.slave_latency     = SLAVE_LATENCY;
        gap_conn_params.conn_sup_timeout  = CONN_SUP_TIMEOUT;
    
        err_code = sd_ble_gap_ppcp_set(&gap_conn_params);
        APP_ERROR_CHECK(err_code);
    }
    
    /**@brief Function for handling the data from the Nordic UART Service.
     *
     * @details This function will process the data received from the Nordic UART BLE Service and send
     *          it to the UART module.
     *
     * @param[in] p_nus    Nordic UART Service structure.
     * @param[in] p_data   Data to be send to UART module.
     * @param[in] length   Length of the data.
     */
    /**@snippet [Handling the data received over BLE] */
    
    //                       		{ MODE,HOURS,MINUTES,SECONDS,AM PM, NUL , NUL , NUL , NUL , NUL   }
    //											  	{ H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L, H, L	}
    
    static void nus_data_handler(ble_nus_t * p_nus, uint8_t * p_data, uint16_t length)
    {
    				// Declare routines used in this function
    				void send0() ; void send1() ; void send2() ; void send3() ; void send4() ; void send5() ; void send6() ; void send7() ;
    				void send8() ; void send9() ; void sendA() ; void sendB() ; void sendC() ; void sendD() ; void sendE() ; void sendF() ;  
    				void led_flasher() ;
    	
    //			static uint8_t ble_data[22]	= 	{ 0, 1, 0, 3, 2, 5, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0  } 	;    //  This works for testing  3:25.45 PM	
    	      
    				static uint16_t 	decimalIn   											;
    				static uint8_t 		ble_counter 											;
    				static uint16_t 	fubar 														;
      		  static uint8_t 		ble_data[22] 											;  
    				
    		  	memcpy ( ble_data, p_data, length )									; 
    				for (fubar = 0; fubar < 250	; fubar++) { }							// Delay
    
    				decimalIn = (1000 * ble_data[0]) +(100 * ble_data[1]) +(10 * ble_data[2]) + ble_data[3]  	;	
    				if (decimalIn == 8888) 
    									{ led_flasher(); }        // This is for the LED to indicate 
    						else  {
    //  								for (ble_counter = 0 ; ble_counter < BLE_NUS_MAX_DATA_LEN ; ble_counter += 2 )	// no workie for black hole
    										for (ble_counter = 0 ; ble_counter < 22                   ; ble_counter += 2 )	  				
    										{ 
    											nrf_gpio_pin_write( 24, 1)																	 					;	  	//	Data being sent high 
    											decimalIn = (10 * ble_data[ble_counter]) + ble_data[ble_counter + 1] 	;	
    											switch (decimalIn) // Low nibble  High nibble 
    												{ case 0    : send0() ; send0() ; break   ;	case 1    : send1() ; send0() ; break   ;	case 2    : send2() ; send0() ; break   ; 
    													case 3    : send3() ; send0() ; break   ;	case 4    : send4() ; send0() ; break   ;	case 5    : send5() ; send0() ; break   ;
    													case 6    : send6() ; send0() ; break   ;	case 7    : send7() ; send0() ; break   ;	case 8    : send8() ; send0() ; break   ;
    													case 9    : send9() ; send0() ; break   ;	case 10   : sendA() ; send0() ; break   ;	case 11   : sendB() ; send0() ; break   ;
    													case 12   : sendC() ; send0() ; break   ;	case 13   : sendD() ; send0() ; break  	; case 14   : sendE() ; send0() ; break  	;
    													case 15   : sendF() ; send0() ; break  	;	case 16   : send0() ; send1() ; break  	;	case 17   : send1() ; send1() ; break  	;
    													case 18   : send2() ; send1() ; break  	;	case 19   : send3() ; send1() ; break  	; case 20   : send4() ; send1() ; break  	;   
    													case 21   : send5() ; send1() ; break  	;	case 22   : send6() ; send1() ; break  	;	case 23   : send7() ; send1() ; break  	;
    													case 24   : send8() ; send1() ; break  	; case 25   : send9() ; send1() ; break  	; case 26   : sendA() ; send1() ; break  	;
    													case 27   : sendB() ; send1() ; break  	;	case 28   : sendC() ; send1() ; break  	;	case 29   : sendD() ; send1() ; break  	;   
    													case 30   : sendE() ; send1() ; break  	; case 31   : sendF() ; send1() ; break  	;	case 32   : send0() ; send2() ; break  	;
    													case 33   : send1() ; send2() ; break  	;	case 34   : send2() ; send2() ; break  	; case 35   : send3() ; send2() ; break  	;   
    													case 36   : send4() ; send2() ; break  	;	case 37   : send5() ; send2() ; break  	;	case 38   : send6() ; send2() ; break  	;
    													case 39   : send7() ; send2() ; break  	; case 40   : send8() ; send2() ; break  	; case 41   : send9() ; send2() ; break  	;
    													case 42   : sendA() ; send2() ; break  	;	case 43   : sendB() ; send2() ; break  	;	case 44   : sendC() ; send2() ; break  	;   
    													case 45   : sendD() ; send2() ; break  	; case 46   : sendE() ; send2() ; break  	;	case 47   : sendF() ; send2() ; break  	;
    													case 48   : send0() ; send3() ; break  	;	case 49   : send1() ; send3() ; break  	; case 50   : send2() ; send3() ; break  	; 
    													case 51   : send3() ; send3() ; break  	;	case 52   : send4() ; send3() ; break  	;	case 53   : send5() ; send3() ; break  	;
    													case 54   : send6() ; send3() ; break  	; case 55   : send7() ; send3() ; break  	; case 56   : send8() ; send3() ; break  	;
    													case 57   : send9() ; send3() ; break  	;	case 58   : sendA() ; send3() ; break  	;	case 59   : sendB() ; send3() ; break  	; 
    													case 60   : sendC() ; send3() ; break  	; // default   : led_flasher() ;   
    												} 	
    											nrf_gpio_pin_write( 24, 0)													;  	//	Data being sent low
    										}	
    									}					// end of else
    }
    /**@snippet [Handling the data received over BLE] */
    
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
    	// *********************** Start of Comet Clock routines ********************
     
     static void data_high()										// GPIO 22 Tx DATA
     { nrf_gpio_pin_write( 22, 1)	; }
     
     static void data_low()											// GPIO 22 Tx DATA
     { nrf_gpio_pin_write( 22, 0)	; }
     
     static void data_ready_high()							// GPIO 23	DATA READY
     { nrf_gpio_pin_write( 23, 1)	;	}
     
     static void data_ready_low()								// GPIO 23	DATA READY
     { nrf_gpio_pin_write( 23, 0)	;	}
     
     
      void sendLow()  // send low bit
     {    static uint16_t 	fubar 							;
    			while (nrf_gpio_pin_read(20)	== 0) { } // Read acknowlege from Z8 MCU		REM OUT THIS CODE WHEN TESTING WITHOUT BEING ATTACHED TO Z8 BOARD
    			
     			data_ready_high() 		;			//  Z8 Interrupt inactive at HIGH    	GPIO 23
     			data_low() 						;			//  Send low data out									GPIO 22
    			for (fubar = 0; fubar < 100	; fubar++) { }
     			data_ready_low() 			;			//  Z8 Interrupt active at LOW				GPIO 23
     			data_ready_high()			;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     }
     
     void sendHigh() // send high bit     
     {    static uint16_t 	fubar 							;
    			while (nrf_gpio_pin_read(20)	== 0) {  } // Read acknowlege from Z8 MCU		REM OUT THIS CODE WHEN TESTING WITHOUT BEING ATTACHED TO Z8 BOARD
    			
     			data_ready_high() 		;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     			data_high() 					;			//  Send high data out								GPIO 22
    			for (fubar = 0; fubar < 100	; fubar++) { }
     			data_ready_low() 			;			//  Z8 Interrupt active at LOW				GPIO 23
     			data_ready_high()			;			//  Z8 Interrupt inactive at HIGH			GPIO 23
     }
     
     void send0() { sendLow()  ;  sendLow()  ;  sendLow()  ;  sendLow()  ; }
     void send1() { sendHigh() ;  sendLow()  ;  sendLow()  ;  sendLow()  ; }
     void send2() { sendLow()  ;  sendHigh() ;  sendLow()  ;  sendLow()  ; }
     void send3() { sendHigh() ;  sendHigh() ;  sendLow()  ;  sendLow()  ; }
     void send4() { sendLow()  ;  sendLow()  ;  sendHigh() ;  sendLow()  ; }
     void send5() { sendHigh() ;  sendLow()  ;  sendHigh() ;  sendLow()  ; }
     void send6() { sendLow()  ;  sendHigh() ;  sendHigh() ;  sendLow()  ; }
     void send7() { sendHigh() ;  sendHigh() ;  sendHigh() ;  sendLow()  ; }
     void send8() { sendLow()  ;  sendLow()  ;  sendLow()  ;  sendHigh() ; }
     void send9() { sendHigh() ;  sendLow()  ;  sendLow()  ;  sendHigh() ; }
     void sendA() { sendLow()  ;  sendHigh() ;  sendLow()  ;  sendHigh() ; }
     void sendB() { sendHigh() ;  sendHigh() ;  sendLow()  ;  sendHigh() ; }
     void sendC() { sendLow()  ;  sendLow()  ;  sendHigh() ;  sendHigh() ; }
     void sendD() { sendHigh() ;  sendLow()  ;  sendHigh() ;  sendHigh() ; }
     void sendE() { sendLow()  ;  sendHigh() ;  sendHigh() ;  sendHigh() ; }
     void sendF() { sendHigh() ;  sendHigh() ;  sendHigh() ;  sendHigh() ; }
     
     void led_flasher()	//	LED to indicate device is selected
     {	
    		static uint16_t 	fubar 																							;
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
        for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,1)	; }
    		
    		fubar = 0 																														;
    		for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
      	fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }
    		fubar = 0 																														;
    	  for (fubar = 0; fubar < 65000	; fubar++) { nrf_gpio_pin_write( 25,0)	; }		
    		
    		nrf_gpio_pin_write( 25,1)																							;
     }
     
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
      // *********************** End of Comet Clock routines ********************
    
    /**@brief Function for initializing services that will be used by the application.
     */
    static void services_init(void)
    {
        uint32_t       err_code;
        ble_nus_init_t nus_init;
    
        memset(&nus_init, 0, sizeof(nus_init));
    
        nus_init.data_handler = nus_data_handler;
    
        err_code = ble_nus_init(&m_nus, &nus_init);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for handling an event from the Connection Parameters Module.
     *
     * @details This function will be called for all events in the Connection Parameters Module
     *          which are passed to the application.
     *
     * @note All this function does is to disconnect. This could have been done by simply setting
     *       the disconnect_on_fail config parameter, but instead we use the event handler
     *       mechanism to demonstrate its use.
     *
     * @param[in] p_evt  Event received from the Connection Parameters Module.
     */
    static void on_conn_params_evt(ble_conn_params_evt_t * p_evt)
    {
        uint32_t err_code;
    
        if (p_evt->evt_type == BLE_CONN_PARAMS_EVT_FAILED)
        {
    			nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
            err_code = sd_ble_gap_disconnect(m_conn_handle, BLE_HCI_CONN_INTERVAL_UNACCEPTABLE);
            APP_ERROR_CHECK(err_code);
        }
    }
    
    
    /**@brief Function for handling errors from the Connection Parameters module.
     *
     * @param[in] nrf_error  Error code containing information about what went wrong.
     */
    static void conn_params_error_handler(uint32_t nrf_error)
    {
        APP_ERROR_HANDLER(nrf_error);
    }
    
    
    /**@brief Function for initializing the Connection Parameters module.
     */
    static void conn_params_init(void)
    {
        uint32_t               err_code;
        ble_conn_params_init_t cp_init;
    
        memset(&cp_init, 0, sizeof(cp_init));
    
        cp_init.p_conn_params                  = NULL;
        cp_init.first_conn_params_update_delay = FIRST_CONN_PARAMS_UPDATE_DELAY;
        cp_init.next_conn_params_update_delay  = NEXT_CONN_PARAMS_UPDATE_DELAY;
        cp_init.max_conn_params_update_count   = MAX_CONN_PARAMS_UPDATE_COUNT;
        cp_init.start_on_notify_cccd_handle    = BLE_GATT_HANDLE_INVALID;
        cp_init.disconnect_on_fail             = false;
        cp_init.evt_handler                    = on_conn_params_evt;
        cp_init.error_handler                  = conn_params_error_handler;
    
        err_code = ble_conn_params_init(&cp_init);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for putting the chip into sleep mode.
     *
     * @note This function will not return.
     */
    static void sleep_mode_enter(void)
    {
        uint32_t err_code = bsp_indication_set(BSP_INDICATE_IDLE);
        APP_ERROR_CHECK(err_code);
    
        // Prepare wakeup buttons.
        err_code = bsp_btn_ble_sleep_mode_prepare();
        APP_ERROR_CHECK(err_code);
    
        // Go to system-off mode (this function will not return; wakeup will cause a reset).
        err_code = sd_power_system_off();
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for handling advertising events.
     *
     * @details This function will be called for advertising events which are passed to the application.
     *
     * @param[in] ble_adv_evt  Advertising event.
     */
    static void on_adv_evt(ble_adv_evt_t ble_adv_evt)
    {
        uint32_t err_code;
    
        switch (ble_adv_evt)
        {
            case BLE_ADV_EVT_FAST:
                err_code = bsp_indication_set(BSP_INDICATE_ADVERTISING);
                APP_ERROR_CHECK(err_code);
                break;
            case BLE_ADV_EVT_IDLE:
                sleep_mode_enter();
                break;
            default:
                break;
        }
    }
    
    
    /**@brief Function for the application's SoftDevice event handler.
     *
     * @param[in] p_ble_evt SoftDevice event.
     */
    static void on_ble_evt(ble_evt_t * p_ble_evt)
    {
        uint32_t err_code;
    
        switch (p_ble_evt->header.evt_id)
        {
            case BLE_GAP_EVT_CONNECTED:
    					  nrf_gpio_pin_write( 16, 1)						;	  // GIO high to indicate BLE connected
                err_code = bsp_indication_set(BSP_INDICATE_CONNECTED);
                APP_ERROR_CHECK(err_code);
                m_conn_handle = p_ble_evt->evt.gap_evt.conn_handle;
                break; // BLE_GAP_EVT_CONNECTED
    
            case BLE_GAP_EVT_DISCONNECTED:
    					  nrf_gpio_pin_write( 16, 0)						;	  // GPIO low to indicate no BLE connection
                err_code = bsp_indication_set(BSP_INDICATE_IDLE);
                APP_ERROR_CHECK(err_code);
                m_conn_handle = BLE_CONN_HANDLE_INVALID;
                break; // BLE_GAP_EVT_DISCONNECTED
    
            case BLE_GAP_EVT_SEC_PARAMS_REQUEST:
                // Pairing not supported
                err_code = sd_ble_gap_sec_params_reply(m_conn_handle, BLE_GAP_SEC_STATUS_PAIRING_NOT_SUPP, NULL, NULL);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GAP_EVT_SEC_PARAMS_REQUEST
    
            case BLE_GATTS_EVT_SYS_ATTR_MISSING:
                // No system attributes have been stored.
                err_code = sd_ble_gatts_sys_attr_set(m_conn_handle, NULL, 0, 0);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_SYS_ATTR_MISSING
    
            case BLE_GATTC_EVT_TIMEOUT:
                // Disconnect on GATT Client timeout event.
    				nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(p_ble_evt->evt.gattc_evt.conn_handle,
                                                 BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTC_EVT_TIMEOUT
    
            case BLE_GATTS_EVT_TIMEOUT:
                // Disconnect on GATT Server timeout event.
    				nrf_gpio_pin_write( 16, 0)					;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(p_ble_evt->evt.gatts_evt.conn_handle,
                                                 BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_TIMEOUT
    
            case BLE_EVT_USER_MEM_REQUEST:
                err_code = sd_ble_user_mem_reply(p_ble_evt->evt.gattc_evt.conn_handle, NULL);
                APP_ERROR_CHECK(err_code);
                break; // BLE_EVT_USER_MEM_REQUEST
    
            case BLE_GATTS_EVT_RW_AUTHORIZE_REQUEST:
            {
                ble_gatts_evt_rw_authorize_request_t  req;
                ble_gatts_rw_authorize_reply_params_t auth_reply;
    
                req = p_ble_evt->evt.gatts_evt.params.authorize_request;
    
                if (req.type != BLE_GATTS_AUTHORIZE_TYPE_INVALID)
                {
                    if ((req.request.write.op == BLE_GATTS_OP_PREP_WRITE_REQ)     ||
                        (req.request.write.op == BLE_GATTS_OP_EXEC_WRITE_REQ_NOW) ||
                        (req.request.write.op == BLE_GATTS_OP_EXEC_WRITE_REQ_CANCEL))
                    {
                        if (req.type == BLE_GATTS_AUTHORIZE_TYPE_WRITE)
                        {
                            auth_reply.type = BLE_GATTS_AUTHORIZE_TYPE_WRITE;
                        }
                        else
                        {
                            auth_reply.type = BLE_GATTS_AUTHORIZE_TYPE_READ;
                        }
                        auth_reply.params.write.gatt_status = APP_FEATURE_NOT_SUPPORTED;
                        err_code = sd_ble_gatts_rw_authorize_reply(p_ble_evt->evt.gatts_evt.conn_handle,
                                                                   &auth_reply);
                        APP_ERROR_CHECK(err_code);
                    }
                }
            } break; // BLE_GATTS_EVT_RW_AUTHORIZE_REQUEST
    
    #if (NRF_SD_BLE_API_VERSION == 3)
            case BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST:
                err_code = sd_ble_gatts_exchange_mtu_reply(p_ble_evt->evt.gatts_evt.conn_handle,
                                                           NRF_BLE_MAX_MTU_SIZE);
                APP_ERROR_CHECK(err_code);
                break; // BLE_GATTS_EVT_EXCHANGE_MTU_REQUEST
    #endif
    
            default:
                // No implementation needed.
                break;
        }
    }
    
    
    /**@brief Function for dispatching a SoftDevice event to all modules with a SoftDevice
     *        event handler.
     *
     * @details This function is called from the SoftDevice event interrupt handler after a
     *          SoftDevice event has been received.
     *
     * @param[in] p_ble_evt  SoftDevice event.
     */
    static void ble_evt_dispatch(ble_evt_t * p_ble_evt)
    {
        ble_conn_params_on_ble_evt(p_ble_evt);
        ble_nus_on_ble_evt(&m_nus, p_ble_evt);
        on_ble_evt(p_ble_evt);
        ble_advertising_on_ble_evt(p_ble_evt);
        bsp_btn_ble_on_ble_evt(p_ble_evt);
    }
    
    
    /**@brief Function for the SoftDevice initialization.
     *
     * @details This function initializes the SoftDevice and the BLE event interrupt.
     */
    static void ble_stack_init(void)
    {
        uint32_t err_code			;
    	  uint32_t clockSrc			;
    	
    	  clockSrc = 0 					;		// 0 for external crystal, 1 for internal RC oscillator
    
    		if (clockSrc == 0)		
    			{
    				nrf_clock_lf_cfg_t clock_lf_cfg = NRF_CLOCK_LFCLKSRC;
    
    				// Initialize SoftDevice.
    				SOFTDEVICE_HANDLER_INIT(&clock_lf_cfg, NULL);
    
    				ble_enable_params_t ble_enable_params;
    				err_code = softdevice_enable_get_default_config(CENTRAL_LINK_COUNT,
                                                        PERIPHERAL_LINK_COUNT,
                                                        &ble_enable_params);
    				APP_ERROR_CHECK(err_code);
    
    				//Check the ram settings against the used number of links
    				CHECK_RAM_START_ADDR(CENTRAL_LINK_COUNT,PERIPHERAL_LINK_COUNT);
    
    				// Enable BLE stack.
    				#if (NRF_SD_BLE_API_VERSION == 3)
    						ble_enable_params.gatt_enable_params.att_mtu = NRF_BLE_MAX_MTU_SIZE;
    				#endif
    				err_code = softdevice_enable(&ble_enable_params);
    				APP_ERROR_CHECK(err_code);
    
    				// Subscribe for BLE events.
    				err_code = softdevice_ble_evt_handler_set(ble_evt_dispatch);
    				APP_ERROR_CHECK(err_code);
    			}
    			
    		if (clockSrc == 1)
    		{
     			NRF_CLOCK->LFCLKSRC            = (CLOCK_LFCLKSRC_SRC_RC << CLOCK_LFCLKSRC_SRC_Pos);
    			NRF_CLOCK->EVENTS_LFCLKSTARTED = 0	;
    			NRF_CLOCK->TASKS_LFCLKSTART    = 1	;
    
    			while (NRF_CLOCK->EVENTS_LFCLKSTARTED == 0)
    				{
    					// Do nothing.
    				}
    				nrf_clock_lf_cfg_t clock_lf_cfg =  { .source = NRF_CLOCK_LF_SRC_RC,  
                                             //.rc_ctiv = 16, // Check temperature every 16 * 250ms(4 sec) //Nordic recommendation
                                             .rc_ctiv = 4, // Check temperature every 4 * 250ms(1 sec) // Nordic recommendation                                       
                                             .rc_temp_ctiv = 2, // Only calibrate if temperature has changed. // Nordic recommendation
                                           }; // internal RC
     
    				// Initialize SoftDevice.
    				SOFTDEVICE_HANDLER_INIT(&clock_lf_cfg, NULL);  
    		}
    		
    		if (clockSrc == 2)
    		{
    
    
    		}
    		
    		if (clockSrc == 3)
    		{
    
    
    		}
    		
    		if (clockSrc == 4)
    		{
    
    
    		}
    }
    
    
    /**@brief Function for handling events from the BSP module.
     *
     * @param[in]   event   Event generated by button press.
     */
    void bsp_event_handler(bsp_event_t event)
    {
        uint32_t err_code;
        switch (event)
        {
            case BSP_EVENT_SLEEP:
                sleep_mode_enter();
                break;
    
            case BSP_EVENT_DISCONNECT:
    						nrf_gpio_pin_write( 16, 0)						;	  // GPIO low to indicate no BLE connection
                err_code = sd_ble_gap_disconnect(m_conn_handle, BLE_HCI_REMOTE_USER_TERMINATED_CONNECTION);
                if (err_code != NRF_ERROR_INVALID_STATE)
                {
                    APP_ERROR_CHECK(err_code);
                }
                break;
    
            case BSP_EVENT_WHITELIST_OFF:
                if (m_conn_handle == BLE_CONN_HANDLE_INVALID)
                {
                    err_code = ble_advertising_restart_without_whitelist();
                    if (err_code != NRF_ERROR_INVALID_STATE)
                    {
                        APP_ERROR_CHECK(err_code);
                    }
                }
                break;
    
            default:
                break;
        }
    }
    
    
    /**@brief   Function for handling app_uart events.
     *
     * @details This function will receive a single character from the app_uart module and append it to
     *          a string. The string will be be sent over BLE when the last character received was a
     *          'new line' i.e '\r\n' (hex 0x0D) or if the string has reached a length of
     *          @ref NUS_MAX_DATA_LENGTH.
     */
    /**@snippet [Handling the data received over UART] */
    void uart_event_handle(app_uart_evt_t * p_event)
    {
        static uint8_t data_array[BLE_NUS_MAX_DATA_LEN];
        static uint8_t index = 0;
        uint32_t       err_code;
    
        switch (p_event->evt_type)
        {
            case APP_UART_DATA_READY:
                UNUSED_VARIABLE(app_uart_get(&data_array[index]));
                index++;
    
                if ((data_array[index - 1] == '\n') || (index >= (BLE_NUS_MAX_DATA_LEN)))
                {
                    err_code = ble_nus_string_send(&m_nus, data_array, index);
                    if (err_code != NRF_ERROR_INVALID_STATE)
                    {
                        APP_ERROR_CHECK(err_code);
                    }
    
                    index = 0;
                }
                break;
    
            case APP_UART_COMMUNICATION_ERROR:
                APP_ERROR_HANDLER(p_event->data.error_communication);
                break;
    
            case APP_UART_FIFO_ERROR:
                APP_ERROR_HANDLER(p_event->data.error_code);
                break;
    
            default:
                break;
        }
    }
    /**@snippet [Handling the data received over UART] */
    
    
    /**@brief  Function for initializing the UART module.
     */
    /**@snippet [UART Initialization] */
    static void uart_init(void)
    {
        uint32_t                     err_code;
        const app_uart_comm_params_t comm_params =
        {
            RX_PIN_NUMBER,
            TX_PIN_NUMBER,
            RTS_PIN_NUMBER,
            CTS_PIN_NUMBER,
            APP_UART_FLOW_CONTROL_DISABLED,
            false,
            UART_BAUDRATE_BAUDRATE_Baud115200
        };
    
        APP_UART_FIFO_INIT( &comm_params,
                           UART_RX_BUF_SIZE,
                           UART_TX_BUF_SIZE,
                           uart_event_handle,
                           APP_IRQ_PRIORITY_LOWEST,
                           err_code);
        APP_ERROR_CHECK(err_code);
    }
    /**@snippet [UART Initialization] */
    
    
    /**@brief Function for initializing the Advertising functionality.
     */
    static void advertising_init(void)
    {
        uint32_t               err_code;
        ble_advdata_t          advdata;
        ble_advdata_t          scanrsp;
        ble_adv_modes_config_t options;
    
        // Build advertising data struct to pass into @ref ble_advertising_init.
        memset(&advdata, 0, sizeof(advdata));
        advdata.name_type          = BLE_ADVDATA_FULL_NAME;
        advdata.include_appearance = false;
        advdata.flags              = BLE_GAP_ADV_FLAGS_LE_ONLY_GENERAL_DISC_MODE ;
    
        memset(&scanrsp, 0, sizeof(scanrsp));
        scanrsp.uuids_complete.uuid_cnt = sizeof(m_adv_uuids) / sizeof(m_adv_uuids[0]);
        scanrsp.uuids_complete.p_uuids  = m_adv_uuids;
    
        memset(&options, 0, sizeof(options));
        options.ble_adv_fast_enabled  = true;
        options.ble_adv_fast_interval = APP_ADV_INTERVAL;
        options.ble_adv_fast_timeout  = APP_ADV_TIMEOUT_IN_SECONDS;    // Advertising timeout
    
        err_code = ble_advertising_init(&advdata, &scanrsp, &options, on_adv_evt, NULL);
        APP_ERROR_CHECK(err_code);
    }
    
    
    /**@brief Function for initializing buttons and leds.
     *
     * @param[out] p_erase_bonds  Will be true if the clear bonding button was pressed to wake the application up.
     */
    static void buttons_leds_init(bool * p_erase_bonds)
    {
        bsp_event_t startup_event;
    
        uint32_t err_code = bsp_init(BSP_INIT_LED | BSP_INIT_BUTTONS,
                                     APP_TIMER_TICKS(100, APP_TIMER_PRESCALER),
                                     bsp_event_handler);
        APP_ERROR_CHECK(err_code);
    
        err_code = bsp_btn_ble_init(NULL, &startup_event);
        APP_ERROR_CHECK(err_code);
    
        *p_erase_bonds = (startup_event == BSP_EVENT_CLEAR_BONDING_DATA);
    }
    
    
    /**@brief Function for placing the application in low power state while waiting for events.
     */
    static void power_manage(void)
    {
        uint32_t err_code = sd_app_evt_wait()				;
        APP_ERROR_CHECK(err_code)										;
    }
    
    
     
    /**@brief Application main function.
     */
    int main(void)
    {
        uint32_t err_code										;
        bool erase_bonds										;
    
        // Initialize.
        APP_TIMER_INIT(APP_TIMER_PRESCALER, APP_TIMER_OP_QUEUE_SIZE, false);
        uart_init()													;
        buttons_leds_init(&erase_bonds)			;
        ble_stack_init()										;
        gap_params_init()										;
        services_init()											;
        advertising_init()									;
        conn_params_init()									;
    
       // printf("\r\nUART Start!\r\n");
        err_code = ble_advertising_start(BLE_ADV_MODE_FAST);
        APP_ERROR_CHECK(err_code);
    	
    		nrf_gpio_pin_write( 24, 0)					;		//	DATA BEING SENT
    	  nrf_gpio_cfg_output(0) 							;
    		nrf_gpio_cfg_output(6) 							;
    		nrf_gpio_cfg_output(16) 						;
    		nrf_gpio_pin_write( 16, 0)					;	  // 	GPIO low to indicate no BLE connection
    	  nrf_gpio_pin_write( 0, 0)						;		//	Z9 RESET IS HIG
    		nrf_gpio_pin_write( 6, 0)						;		// 	Nordic chip healthy
    	
    		nrf_gpio_cfg_input(28, NRF_GPIO_PIN_NOPULL) 							; 
    		nrf_gpio_cfg_output(25) 																	;
    		nrf_gpio_cfg_input(28, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(29, NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_input(30, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(1,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(2,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(3,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(4,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(5,  NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_output(7) 																		;		//	PNP for LED 
    		nrf_gpio_cfg_input(8,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(9,  NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(10, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(11, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(12, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(13, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(14, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(15, NRF_GPIO_PIN_NOPULL) 							;
    
    		nrf_gpio_cfg_input(17, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(18, NRF_GPIO_PIN_NOPULL) 							;
    		nrf_gpio_cfg_input(19, NRF_GPIO_PIN_NOPULL) 							;
    		
    		nrf_gpio_pin_write( 25,1)																	;		//	Initialize PNP high for off
    		
    	//	led_flasher() 																						;
    
    		
    
        
        for (;;) 																						// Enter main loop.
    	    {
            power_manage()	;
    				
    			
    /**@brief Determine if Nordic chip is working properly
     *
     * @details The Z8 sends a 1 from PC6 (pin #19) to the Nordic GPIO 07
     *          If the Nordic chip is working properly, it will read a 1 on GPIO 07
     *  				and then set a 1 on the Nordic GPIO 06 which is read by the Z8 on PC4 (pin #16).        			
     *					A one read back on the Z8 on PC4 indiates good health of the Nordic chip.	
     */			
    				
    //				if (nrf_gpio_pin_read(7) == 1)  								// 	Test GPIO 0.07 for a 1 from the Z8
    //									{ nrf_gpio_pin_write( 6, 1)	; } 			//	send a 1 back to the Z8 to indicate good health of the Nordic chip
    //						else	{ nrf_gpio_pin_write( 6, 0)	; }       //	send a 0 to the port to indicate a null condition
    //					
    				
    			}
    }
    

    I will try to get you the schematics of the RAYTAC module although the only external devices they recommend are the 32.768kHz/9pF load capatance crystal and two 12pF caps to ground from XL1 and XL2.

Children
Related