123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401 |
- /**
- * Marlin 3D Printer Firmware
- *
- * Copyright (c) 2020 MarlinFirmware [https://github.com/MarlinFirmware/Marlin]
- * Copyright (c) 2016 Bob Cousins bobcousins42@googlemail.com
- * Copyright (c) 2015-2016 Nico Tonnhofer wurstnase.reprap@gmail.com
- * Copyright (c) 2017 Victor Perez
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- *
- */
-
- /**
- * HAL for stm32duino.com based on Libmaple and compatible (STM32F1)
- */
-
- #ifdef __STM32F1__
-
- #include "../../inc/MarlinConfig.h"
- #include "HAL.h"
-
- #include <STM32ADC.h>
-
- // ------------------------
- // Types
- // ------------------------
-
- #define __I
- #define __IO volatile
- typedef struct {
- __I uint32_t CPUID; /*!< Offset: 0x000 (R/ ) CPUID Base Register */
- __IO uint32_t ICSR; /*!< Offset: 0x004 (R/W) Interrupt Control and State Register */
- __IO uint32_t VTOR; /*!< Offset: 0x008 (R/W) Vector Table Offset Register */
- __IO uint32_t AIRCR; /*!< Offset: 0x00C (R/W) Application Interrupt and Reset Control Register */
- __IO uint32_t SCR; /*!< Offset: 0x010 (R/W) System Control Register */
- __IO uint32_t CCR; /*!< Offset: 0x014 (R/W) Configuration Control Register */
- __IO uint8_t SHP[12]; /*!< Offset: 0x018 (R/W) System Handlers Priority Registers (4-7, 8-11, 12-15) */
- __IO uint32_t SHCSR; /*!< Offset: 0x024 (R/W) System Handler Control and State Register */
- __IO uint32_t CFSR; /*!< Offset: 0x028 (R/W) Configurable Fault Status Register */
- __IO uint32_t HFSR; /*!< Offset: 0x02C (R/W) HardFault Status Register */
- __IO uint32_t DFSR; /*!< Offset: 0x030 (R/W) Debug Fault Status Register */
- __IO uint32_t MMFAR; /*!< Offset: 0x034 (R/W) MemManage Fault Address Register */
- __IO uint32_t BFAR; /*!< Offset: 0x038 (R/W) BusFault Address Register */
- __IO uint32_t AFSR; /*!< Offset: 0x03C (R/W) Auxiliary Fault Status Register */
- __I uint32_t PFR[2]; /*!< Offset: 0x040 (R/ ) Processor Feature Register */
- __I uint32_t DFR; /*!< Offset: 0x048 (R/ ) Debug Feature Register */
- __I uint32_t ADR; /*!< Offset: 0x04C (R/ ) Auxiliary Feature Register */
- __I uint32_t MMFR[4]; /*!< Offset: 0x050 (R/ ) Memory Model Feature Register */
- __I uint32_t ISAR[5]; /*!< Offset: 0x060 (R/ ) Instruction Set Attributes Register */
- uint32_t RESERVED0[5];
- __IO uint32_t CPACR; /*!< Offset: 0x088 (R/W) Coprocessor Access Control Register */
- } SCB_Type;
-
- // ------------------------
- // Local defines
- // ------------------------
-
- #define SCS_BASE (0xE000E000UL) /*!< System Control Space Base Address */
- #define SCB_BASE (SCS_BASE + 0x0D00UL) /*!< System Control Block Base Address */
-
- #define SCB ((SCB_Type *) SCB_BASE ) /*!< SCB configuration struct */
-
- /* SCB Application Interrupt and Reset Control Register Definitions */
- #define SCB_AIRCR_VECTKEY_Pos 16 /*!< SCB AIRCR: VECTKEY Position */
- #define SCB_AIRCR_VECTKEY_Msk (0xFFFFUL << SCB_AIRCR_VECTKEY_Pos) /*!< SCB AIRCR: VECTKEY Mask */
-
- #define SCB_AIRCR_PRIGROUP_Pos 8 /*!< SCB AIRCR: PRIGROUP Position */
- #define SCB_AIRCR_PRIGROUP_Msk (7UL << SCB_AIRCR_PRIGROUP_Pos) /*!< SCB AIRCR: PRIGROUP Mask */
-
- // ------------------------
- // Public Variables
- // ------------------------
-
- #if (defined(SERIAL_USB) && !defined(USE_USB_COMPOSITE))
- USBSerial SerialUSB;
- #endif
-
- uint16_t HAL_adc_result;
-
- // ------------------------
- // Private Variables
- // ------------------------
- STM32ADC adc(ADC1);
-
- const uint8_t adc_pins[] = {
- #if HAS_TEMP_ADC_0
- TEMP_0_PIN,
- #endif
- #if HAS_HEATED_BED
- TEMP_BED_PIN,
- #endif
- #if HAS_HEATED_CHAMBER
- TEMP_CHAMBER_PIN,
- #endif
- #if HAS_TEMP_ADC_1
- TEMP_1_PIN,
- #endif
- #if HAS_TEMP_ADC_2
- TEMP_2_PIN,
- #endif
- #if HAS_TEMP_ADC_3
- TEMP_3_PIN,
- #endif
- #if HAS_TEMP_ADC_4
- TEMP_4_PIN,
- #endif
- #if HAS_TEMP_ADC_5
- TEMP_5_PIN,
- #endif
- #if HAS_TEMP_ADC_6
- TEMP_6_PIN,
- #endif
- #if HAS_TEMP_ADC_7
- TEMP_7_PIN,
- #endif
- #if ENABLED(FILAMENT_WIDTH_SENSOR)
- FILWIDTH_PIN,
- #endif
- #if ENABLED(ADC_KEYPAD)
- ADC_KEYPAD_PIN,
- #endif
- #if HAS_JOY_ADC_X
- JOY_X_PIN,
- #endif
- #if HAS_JOY_ADC_Y
- JOY_Y_PIN,
- #endif
- #if HAS_JOY_ADC_Z
- JOY_Z_PIN,
- #endif
- };
-
- enum TEMP_PINS : char {
- #if HAS_TEMP_ADC_0
- TEMP_0,
- #endif
- #if HAS_HEATED_BED
- TEMP_BED,
- #endif
- #if HAS_HEATED_CHAMBER
- TEMP_CHAMBER,
- #endif
- #if HAS_TEMP_ADC_1
- TEMP_1,
- #endif
- #if HAS_TEMP_ADC_2
- TEMP_2,
- #endif
- #if HAS_TEMP_ADC_3
- TEMP_3,
- #endif
- #if HAS_TEMP_ADC_4
- TEMP_4,
- #endif
- #if HAS_TEMP_ADC_5
- TEMP_5,
- #endif
- #if HAS_TEMP_ADC_6
- TEMP_6,
- #endif
- #if HAS_TEMP_ADC_7
- TEMP_7,
- #endif
- #if ENABLED(FILAMENT_WIDTH_SENSOR)
- FILWIDTH,
- #endif
- #if ENABLED(ADC_KEYPAD)
- ADC_KEY,
- #endif
- #if HAS_JOY_ADC_X
- JOY_X,
- #endif
- #if HAS_JOY_ADC_Y
- JOY_Y,
- #endif
- #if HAS_JOY_ADC_Z
- JOY_Z,
- #endif
- ADC_PIN_COUNT
- };
-
- uint16_t HAL_adc_results[ADC_PIN_COUNT];
-
- // ------------------------
- // Private functions
- // ------------------------
- static void NVIC_SetPriorityGrouping(uint32_t PriorityGroup) {
- uint32_t reg_value;
- uint32_t PriorityGroupTmp = (PriorityGroup & (uint32_t)0x07); /* only values 0..7 are used */
-
- reg_value = SCB->AIRCR; /* read old register configuration */
- reg_value &= ~(SCB_AIRCR_VECTKEY_Msk | SCB_AIRCR_PRIGROUP_Msk); /* clear bits to change */
- reg_value = (reg_value |
- ((uint32_t)0x5FA << SCB_AIRCR_VECTKEY_Pos) |
- (PriorityGroupTmp << 8)); /* Insert write key and priorty group */
- SCB->AIRCR = reg_value;
- }
-
- // ------------------------
- // Public functions
- // ------------------------
-
- //
- // Leave PA11/PA12 intact if USBSerial is not used
- //
- #if SERIAL_USB
- namespace wirish { namespace priv {
- #if SERIAL_PORT > 0
- #if SERIAL_PORT2
- #if SERIAL_PORT2 > 0
- void board_setup_usb() {}
- #endif
- #else
- void board_setup_usb() {}
- #endif
- #endif
- } }
- #endif
-
- void HAL_init() {
- NVIC_SetPriorityGrouping(0x3);
- #if PIN_EXISTS(LED)
- OUT_WRITE(LED_PIN, LOW);
- #endif
- #ifdef USE_USB_COMPOSITE
- MSC_SD_init();
- #endif
- #if PIN_EXISTS(USB_CONNECT)
- OUT_WRITE(USB_CONNECT_PIN, !USB_CONNECT_INVERTING); // USB clear connection
- delay(1000); // Give OS time to notice
- OUT_WRITE(USB_CONNECT_PIN, USB_CONNECT_INVERTING);
- #endif
- }
-
- // HAL idle task
- void HAL_idletask() {
- #ifdef USE_USB_COMPOSITE
- #if ENABLED(SHARED_SD_CARD)
- // If Marlin is using the SD card we need to lock it to prevent access from
- // a PC via USB.
- // Other HALs use IS_SD_PRINTING() and IS_SD_FILE_OPEN() to check for access but
- // this will not reliably detect delete operations. To be safe we will lock
- // the disk if Marlin has it mounted. Unfortunately there is currently no way
- // to unmount the disk from the LCD menu.
- // if (IS_SD_PRINTING() || IS_SD_FILE_OPEN())
- /* copy from lpc1768 framework, should be fixed later for process SHARED_SD_CARD*/
- #endif
- // process USB mass storage device class loop
- MarlinMSC.loop();
- #endif
- }
-
- /* VGPV Done with defines
- // disable interrupts
- void cli() { noInterrupts(); }
-
- // enable interrupts
- void sei() { interrupts(); }
- */
-
- void HAL_clear_reset_source() { }
-
- /**
- * TODO: Check this and change or remove.
- * currently returns 1 that's equal to poweron reset.
- */
- uint8_t HAL_get_reset_source() { return 1; }
-
- void _delay_ms(const int delay_ms) { delay(delay_ms); }
-
- extern "C" {
- extern unsigned int _ebss; // end of bss section
- }
-
- /**
- * TODO: Change this to correct it for libmaple
- */
-
- // return free memory between end of heap (or end bss) and whatever is current
-
- /*
- #include <wirish/syscalls.c>
- //extern caddr_t _sbrk(int incr);
- #ifndef CONFIG_HEAP_END
- extern char _lm_heap_end;
- #define CONFIG_HEAP_END ((caddr_t)&_lm_heap_end)
- #endif
-
- extern "C" {
- static int freeMemory() {
- char top = 't';
- return &top - reinterpret_cast<char*>(sbrk(0));
- }
- int freeMemory() {
- int free_memory;
- int heap_end = (int)_sbrk(0);
- free_memory = ((int)&free_memory) - ((int)heap_end);
- return free_memory;
- }
- }
- */
-
- // ------------------------
- // ADC
- // ------------------------
- // Init the AD in continuous capture mode
- void HAL_adc_init() {
- // configure the ADC
- adc.calibrate();
- #if F_CPU > 72000000
- adc.setSampleRate(ADC_SMPR_71_5); // 71.5 ADC cycles
- #else
- adc.setSampleRate(ADC_SMPR_41_5); // 41.5 ADC cycles
- #endif
- adc.setPins((uint8_t *)adc_pins, ADC_PIN_COUNT);
- adc.setDMA(HAL_adc_results, (uint16_t)ADC_PIN_COUNT, (uint32_t)(DMA_MINC_MODE | DMA_CIRC_MODE), nullptr);
- adc.setScanMode();
- adc.setContinuous();
- adc.startConversion();
- }
-
- void HAL_adc_start_conversion(const uint8_t adc_pin) {
- TEMP_PINS pin_index;
- switch (adc_pin) {
- default: return;
- #if HAS_TEMP_ADC_0
- case TEMP_0_PIN: pin_index = TEMP_0; break;
- #endif
- #if HAS_HEATED_BED
- case TEMP_BED_PIN: pin_index = TEMP_BED; break;
- #endif
- #if HAS_HEATED_CHAMBER
- case TEMP_CHAMBER_PIN: pin_index = TEMP_CHAMBER; break;
- #endif
- #if HAS_TEMP_ADC_1
- case TEMP_1_PIN: pin_index = TEMP_1; break;
- #endif
- #if HAS_TEMP_ADC_2
- case TEMP_2_PIN: pin_index = TEMP_2; break;
- #endif
- #if HAS_TEMP_ADC_3
- case TEMP_3_PIN: pin_index = TEMP_3; break;
- #endif
- #if HAS_TEMP_ADC_4
- case TEMP_4_PIN: pin_index = TEMP_4; break;
- #endif
- #if HAS_TEMP_ADC_5
- case TEMP_5_PIN: pin_index = TEMP_5; break;
- #endif
- #if HAS_TEMP_ADC_6
- case TEMP_6_PIN: pin_index = TEMP_6; break;
- #endif
- #if HAS_TEMP_ADC_7
- case TEMP_7_PIN: pin_index = TEMP_7; break;
- #endif
- #if HAS_JOY_ADC_X
- case JOY_X_PIN: pin_index = JOY_X; break;
- #endif
- #if HAS_JOY_ADC_Y
- case JOY_Y_PIN: pin_index = JOY_Y; break;
- #endif
- #if HAS_JOY_ADC_Z
- case JOY_Z_PIN: pin_index = JOY_Z; break;
- #endif
- #if ENABLED(FILAMENT_WIDTH_SENSOR)
- case FILWIDTH_PIN: pin_index = FILWIDTH; break;
- #endif
- #if ENABLED(ADC_KEYPAD)
- case ADC_KEYPAD_PIN: pin_index = ADC_KEY; break;
- #endif
- }
- HAL_adc_result = (HAL_adc_results[(int)pin_index] >> 2) & 0x3FF; // shift to get 10 bits only.
- }
-
- uint16_t HAL_adc_get_result() { return HAL_adc_result; }
-
- uint16_t analogRead(pin_t pin) {
- const bool is_analog = _GET_MODE(pin) == GPIO_INPUT_ANALOG;
- return is_analog ? analogRead(uint8_t(pin)) : 0;
- }
-
- // Wrapper to maple unprotected analogWrite
- void analogWrite(pin_t pin, int pwm_val8) {
- if (PWM_PIN(pin))
- analogWrite(uint8_t(pin), pwm_val8);
- }
-
- void flashFirmware(int16_t value) { nvic_sys_reset(); }
-
- #endif // __STM32F1__
|