/** * @file * @brief Main function for the STM32F4xx NUCLEO board * @author Steve Karg * @date 2021 * @copyright SPDX-License-Identifier: MIT */ #include #include #include #include #include #include "stm32f4xx.h" #include "stm32f4xx_pwr.h" #include "stm32f4xx_rcc.h" #include "stm32f4xx_rng.h" #include "system_stm32f4xx.h" #include "bacnet/basic/object/bacfile.h" #include "bacnet/basic/object/device.h" #include "bacnet/basic/object/program.h" #include "bacnet/basic/sys/bsramfs.h" #include "bacnet/basic/sys/mstimer.h" #include "bacnet/basic/sys/ringbuf.h" #include "bacnet/datalink/datalink.h" #include "bacnet/datalink/dlmstp.h" #include "bacnet/datalink/mstp.h" #include "rs485.h" #include "led.h" #include "bacnet.h" #include "program-ubasic.h" /* MS/TP port */ static struct mstp_port_struct_t MSTP_Port; static struct dlmstp_rs485_driver RS485_Driver = { .init = rs485_init, .send = rs485_bytes_send, .read = rs485_byte_available, .transmitting = rs485_rts_enabled, .baud_rate = rs485_baud_rate, .baud_rate_set = rs485_baud_rate_set, .silence_milliseconds = rs485_silence_milliseconds, .silence_reset = rs485_silence_reset }; static struct dlmstp_user_data_t MSTP_User_Data; static uint8_t Input_Buffer[DLMSTP_MPDU_MAX]; static uint8_t Output_Buffer[DLMSTP_MPDU_MAX]; static const char *UBASIC_Program_1 = /* program listing with either \0, \n, or ';' at the end of each line. note: indentation is not required */ "println 'Demo - GPIO';" ":loop;" " dwrite(3, 1);" " sleep (0.3);" " dwrite(3, 0);" " sleep (0.3);" "goto loop;" "end;"; static const char *UBASIC_Program_2 = /* program listing with either \0, \n, or ';' at the end of each line. note: indentation is not required */ "println 'Demo - GPIO';" ":loop;" " dwrite(2, 1);" " sleep (0.5);" " dwrite(2, 0);" " sleep (0.1);" "goto loop;" "end;"; static const char *UBASIC_Program_3 = /* program listing with either \0, \n, or ';' at the end of each line. note: indentation is not required */ "println 'Demo - BACnet & GPIO';" "bac_create(0, 1, 'ADC-1-AVG');" "bac_create(0, 2, 'ADC-2-AVG');" "bac_create(0, 3, 'ADC-1-RAW');" "bac_create(0, 4, 'ADC-3-RAW');" "bac_create(4, 1, 'LED-1');" ":startover;" " a = aread(1);" " bac_write(0, 3, 85, a);" " c = avgw(a, c, 10);" " bac_write(0, 1, 85, c);" " b = aread(2);" " bac_write(0, 4, 85, b);" " d = avgw(b, d, 10);" " bac_write(0, 2, 85, d);" " h = bac_read(4, 1, 85);" " dwrite(1, (h % 2));" " sleep (0.2);" "goto startover;" "end;"; /* uBASIC data tree for each program running */ static struct ubasic_data UBASIC_Data[3]; static struct bacnet_file_sramfs_data Static_Files[3]; /** * @brief Called from _write() function from printf and friends * @param[in] ch Character to send */ int __io_putchar(int ch) { (void)ch; return 0; } /** * @brief Main function * @return 0 - never returns */ int main(void) { size_t i; /*At this stage the microcontroller clock setting is already configured, this is done through SystemInit() function which is called from startup file (startup_stm32f4xx.s) before to branch to application main. To reconfigure the default setting of SystemInit() function, refer to system_stm32f4xx.c file */ SystemCoreClockUpdate(); /* enable some clocks - USART and GPIO clocks are enabled in our drivers */ RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR, ENABLE); RCC_APB2PeriphClockCmd(RCC_APB2Periph_SYSCFG, ENABLE); /* initialize hardware layer */ mstimer_init(); led_init(); rs485_init(); /* FIXME: get the device ID from EEPROM */ Device_Set_Object_Instance_Number(103); /* seed stdlib rand() with device-id to get pseudo consistent zero-config poll slot, or use hardware RNG to get a more random slot */ #ifdef BACNET_ZERO_CONFIG_RNG_HARDWARE /* enable the random number generator hardware */ RCC_AHB2PeriphClockCmd(RCC_AHB2Periph_RNG, ENABLE); RNG_Cmd(ENABLE); while (RNG_GetFlagStatus(RNG_FLAG_DRDY) == RESET) { /* wait for 32-bit random number to generate */ } srand(RNG_GetRandomNumber()); #else srand(Device_Object_Instance_Number()); #endif /* initialize the Device UUID from rand() */ Device_UUID_Init(); Device_UUID_Get(MSTP_Port.UUID, sizeof(MSTP_Port.UUID)); /* initialize MSTP datalink layer */ MSTP_Port.Nmax_info_frames = DLMSTP_MAX_INFO_FRAMES; MSTP_Port.Nmax_master = DLMSTP_MAX_MASTER; MSTP_Port.InputBuffer = Input_Buffer; MSTP_Port.InputBufferSize = sizeof(Input_Buffer); MSTP_Port.OutputBuffer = Output_Buffer; MSTP_Port.OutputBufferSize = sizeof(Output_Buffer); /* choose from non-volatile configuration for zero-config or slave mode */ MSTP_Port.ZeroConfigEnabled = false; MSTP_Port.Zero_Config_Preferred_Station = 0; MSTP_Port.SlaveNodeEnabled = false; MSTP_Port.CheckAutoBaud = false; /* user data */ MSTP_User_Data.RS485_Driver = &RS485_Driver; MSTP_Port.UserData = &MSTP_User_Data; dlmstp_init((char *)&MSTP_Port); if (MSTP_Port.ZeroConfigEnabled) { /* set node to monitor address */ dlmstp_set_mac_address(255); } else { /* FIXME: get the address from hardware DIP or from EEPROM */ dlmstp_set_mac_address(63); } if (!MSTP_Port.CheckAutoBaud) { /* FIXME: get the baud rate from hardware DIP or from EEPROM */ dlmstp_set_baud_rate(DLMSTP_BAUD_RATE_DEFAULT); } /* initialize application layer*/ bacnet_init(); bacfile_sramfs_init(); /* configure the program object and loop time */ Program_UBASIC_Init(10); /* create the uBASIC programs and link to file objects */ Static_Files[0].data = (char *)UBASIC_Program_1; Static_Files[0].size = strlen(UBASIC_Program_1); Static_Files[0].pathname = "/program1.bas"; Static_Files[1].data = (char *)UBASIC_Program_2; Static_Files[1].size = strlen(UBASIC_Program_2); Static_Files[1].pathname = "/program2.bas"; Static_Files[2].data = (char *)UBASIC_Program_3; Static_Files[2].size = strlen(UBASIC_Program_3); Static_Files[2].pathname = "/program3.bas"; for (i = 0; i < ARRAY_SIZE(Static_Files); i++) { bacfile_create(1 + i); bacfile_pathname_set(1 + i, Static_Files[i].pathname); bacfile_read_only_set(1 + i, true); bacfile_sramfs_add(&Static_Files[i]); Program_UBASIC_Create(1 + i, &UBASIC_Data[i], Static_Files[i].data); Program_Instance_Of_Set(1 + i, Static_Files[i].pathname); } /* loop forever */ for (;;) { led_task(); bacnet_task(); Program_UBASIC_Task(); } }