/* ---------------------------------------------------------------------------- * ATMEL Microcontroller Software Support * ---------------------------------------------------------------------------- * Copyright (c) 2010, Atmel Corporation * * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * * - Redistributions of source code must retain the above copyright notice, * this list of conditions and the disclaimer below. * * Atmel's name may not be used to endorse or promote products derived from * this software without specific prior written permission. * * DISCLAIMER: THIS SOFTWARE IS PROVIDED BY ATMEL "AS IS" AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT ARE * DISCLAIMED. IN NO EVENT SHALL ATMEL 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 */ /*---------------------------------------------------------------------------- * Headers *----------------------------------------------------------------------------*/ #include "chip.h" #include "pio.h" #include "pmc.h" /*---------------------------------------------------------------------------- * Local functions *----------------------------------------------------------------------------*/ /** * \brief Configures one or more pin(s) of a PIO controller as being controlled by * peripheral A. Optionally, the corresponding internal pull-up(s) can be enabled. * * \param pio Pointer to a PIO controller. * \param mask Bitmask of one or more pin(s) to configure. * \param enablePullUp Indicates if the pin(s) internal pull-up shall be * configured. */ static void PIO_SetPeripheralA( Pio *pio, unsigned int mask, unsigned char enablePullUp) { unsigned int abcdsr; /* Disable interrupts on the pin(s) */ pio->PIO_IDR = mask; /* Enable the pull-up(s) if necessary */ if (enablePullUp) { pio->PIO_PUER = mask; } else { pio->PIO_PUDR = mask; } abcdsr = pio->PIO_ABCDSR[0]; pio->PIO_ABCDSR[0] &= (~mask & abcdsr); abcdsr = pio->PIO_ABCDSR[1]; pio->PIO_ABCDSR[1] &= (~mask & abcdsr); pio->PIO_PDR = mask; } /** * \brief Configures one or more pin(s) of a PIO controller as being controlled by * peripheral B. Optionally, the corresponding internal pull-up(s) can be enabled. * * \param pio Pointer to a PIO controller. * \param mask Bitmask of one or more pin(s) to configure. * \param enablePullUp Indicates if the pin(s) internal pull-up shall be * configured. */ static void PIO_SetPeripheralB( Pio *pio, unsigned int mask, unsigned char enablePullUp) { unsigned int abcdsr; /* Disable interrupts on the pin(s) */ pio->PIO_IDR = mask; /* Enable the pull-up(s) if necessary */ if (enablePullUp) { pio->PIO_PUER = mask; } else { pio->PIO_PUDR = mask; } abcdsr = pio->PIO_ABCDSR[0]; pio->PIO_ABCDSR[0] = (mask | abcdsr); abcdsr = pio->PIO_ABCDSR[1]; pio->PIO_ABCDSR[1] &= (~mask & abcdsr); pio->PIO_PDR = mask; } /** * \brief Configures one or more pin(s) of a PIO controller as being controlled by * peripheral C. Optionally, the corresponding internal pull-up(s) can be enabled. * * \param pio Pointer to a PIO controller. * \param mask Bitmask of one or more pin(s) to configure. * \param enablePullUp Indicates if the pin(s) internal pull-up shall be * configured. */ static void PIO_SetPeripheralC( Pio *pio, unsigned int mask, unsigned char enablePullUp) { unsigned int abcdsr; /* Disable interrupts on the pin(s) */ pio->PIO_IDR = mask; /* Enable the pull-up(s) if necessary */ if (enablePullUp) { pio->PIO_PUER = mask; } else { pio->PIO_PUDR = mask; } abcdsr = pio->PIO_ABCDSR[0]; pio->PIO_ABCDSR[0] &= (~mask & abcdsr); abcdsr = pio->PIO_ABCDSR[1]; pio->PIO_ABCDSR[1] = (mask | abcdsr); pio->PIO_PDR = mask; } /** * \brief Configures one or more pin(s) of a PIO controller as being controlled by * peripheral D. Optionally, the corresponding internal pull-up(s) can be enabled. * * \param pio Pointer to a PIO controller. * \param mask Bitmask of one or more pin(s) to configure. * \param enablePullUp Indicates if the pin(s) internal pull-up shall be * configured. */ static void PIO_SetPeripheralD( Pio *pio, unsigned int mask, unsigned char enablePullUp) { unsigned int abcdsr; /* Disable interrupts on the pin(s) */ pio->PIO_IDR = mask; /* Enable the pull-up(s) if necessary */ if (enablePullUp) { pio->PIO_PUER = mask; } else { pio->PIO_PUDR = mask; } abcdsr = pio->PIO_ABCDSR[0]; pio->PIO_ABCDSR[0] = (mask | abcdsr); abcdsr = pio->PIO_ABCDSR[1]; pio->PIO_ABCDSR[1] = (mask | abcdsr); pio->PIO_PDR = mask; } /** * \brief Configures one or more pin(s) or a PIO controller as inputs. Optionally, * the corresponding internal pull-up(s) and glitch filter(s) can be enabled. * * \param pio Pointer to a PIO controller. * \param mask Bitmask indicating which pin(s) to configure as input(s). * \param enablePullUp Indicates if the internal pull-up(s) must be enabled. * \param enableFilter Indicates if the glitch filter(s) must be enabled. */ static void PIO_SetInput( Pio *pio, unsigned int mask, unsigned char attribute) { /* Disable interrupts */ pio->PIO_IDR = mask; /* Enable pull-up(s) if necessary */ if (attribute & PIO_PULLUP) pio->PIO_PUER = mask; else pio->PIO_PUDR = mask; /* Enable Input Filter if necessary */ if (attribute & (PIO_DEGLITCH | PIO_DEBOUNCE)) pio->PIO_IFER = mask; else pio->PIO_IFDR = mask; /* Enable de-glitch or de-bounce if necessary */ if (attribute & PIO_DEGLITCH) { pio->PIO_IFSCDR = mask; } else { if (attribute & PIO_DEBOUNCE) { pio->PIO_IFSCER = mask; } } /* Configure pin as input */ pio->PIO_ODR = mask; pio->PIO_PER = mask; } /** * \brief Configures one or more pin(s) of a PIO controller as outputs, with the * given default value. Optionally, the multi-drive feature can be enabled * on the pin(s). * * \param pio Pointer to a PIO controller. * \param mask Bitmask indicating which pin(s) to configure. * \param defaultValue Default level on the pin(s). * \param enableMultiDrive Indicates if the pin(s) shall be configured as * open-drain. * \param enablePullUp Indicates if the pin shall have its pull-up activated. */ static void PIO_SetOutput( Pio *pio, unsigned int mask, unsigned char defaultValue, unsigned char enableMultiDrive, unsigned char enablePullUp) { /* Disable interrupts */ pio->PIO_IDR = mask; /* Enable pull-up(s) if necessary */ if (enablePullUp) { pio->PIO_PUER = mask; } else { pio->PIO_PUDR = mask; } /* Enable multi-drive if necessary */ if (enableMultiDrive) { pio->PIO_MDER = mask; } else { pio->PIO_MDDR = mask; } /* Set default value */ if (defaultValue) { pio->PIO_SODR = mask; } else { pio->PIO_CODR = mask; } /* Configure pin(s) as output(s) */ pio->PIO_OER = mask; pio->PIO_PER = mask; } /*---------------------------------------------------------------------------- * Global functions *----------------------------------------------------------------------------*/ /** * \brief Configures a list of Pin instances, each of which can either hold a single * pin or a group of pins, depending on the mask value; all pins are configured * by this function. The size of the array must also be provided and is easily * computed using PIO_LISTSIZE whenever its length is not known in advance. * * \param list Pointer to a list of Pin instances. * \param size Size of the Pin list (calculated using PIO_LISTSIZE). * * \return 1 if the pins have been configured properly; otherwise 0. */ uint8_t PIO_Configure( const Pin *list, uint32_t size ) { /* Configure pins */ while ( size > 0 ) { switch ( list->type ) { case PIO_PERIPH_A: PIO_SetPeripheralA(list->pio, list->mask, (list->attribute & PIO_PULLUP) ? 1 : 0); break; case PIO_PERIPH_B: PIO_SetPeripheralB(list->pio, list->mask, (list->attribute & PIO_PULLUP) ? 1 : 0); break; case PIO_PERIPH_C: PIO_SetPeripheralC(list->pio, list->mask, (list->attribute & PIO_PULLUP) ? 1 : 0); break; case PIO_PERIPH_D: PIO_SetPeripheralD(list->pio, list->mask, (list->attribute & PIO_PULLUP) ? 1 : 0); break; case PIO_INPUT: PMC_EnablePeripheral(list->id); PIO_SetInput(list->pio, list->mask, list->attribute); break; case PIO_OUTPUT_0: case PIO_OUTPUT_1: PIO_SetOutput(list->pio, list->mask, (list->type == PIO_OUTPUT_1), (list->attribute & PIO_OPENDRAIN) ? 1 : 0, (list->attribute & PIO_PULLUP) ? 1 : 0); break; default: return 0; } list++; size--; } return 1; } /** * \brief Sets a high output level on all the PIOs defined in the given Pin instance. * This has no immediate effects on PIOs that are not output, but the PIO * controller will memorize the value they are changed to outputs. * * \param pin Pointer to a Pin instance describing one or more pins. */ void PIO_Set(const Pin *pin) { pin->pio->PIO_SODR = pin->mask; } /** * \brief Sets a low output level on all the PIOs defined in the given Pin instance. * This has no immediate effects on PIOs that are not output, but the PIO * controller will memorize the value they are changed to outputs. * * \param pin Pointer to a Pin instance describing one or more pins. */ void PIO_Clear(const Pin *pin) { pin->pio->PIO_CODR = pin->mask; } /** * \brief Returns 1 if one or more PIO of the given Pin instance currently have * a high level; otherwise returns 0. This method returns the actual value that * is being read on the pin. To return the supposed output value of a pin, use * PIO_GetOutputDataStatus() instead. * * \param pin Pointer to a Pin instance describing one or more pins. * * \return 1 if the Pin instance contains at least one PIO that currently has * a high level; otherwise 0. */ unsigned char PIO_Get( const Pin *pin ) { unsigned int reg ; if ( (pin->type == PIO_OUTPUT_0) || (pin->type == PIO_OUTPUT_1) ) { reg = pin->pio->PIO_ODSR ; } else { reg = pin->pio->PIO_PDSR ; } if ( (reg & pin->mask) == 0 ) { return 0 ; } else { return 1 ; } } /** * \brief Returns 1 if one or more PIO of the given Pin are configured to output a * high level (even if they are not output). * To get the actual value of the pin, use PIO_Get() instead. * * \param pin Pointer to a Pin instance describing one or more pins. * * \return 1 if the Pin instance contains at least one PIO that is configured * to output a high level; otherwise 0. */ unsigned char PIO_GetOutputDataStatus(const Pin *pin) { if ((pin->pio->PIO_ODSR & pin->mask) == 0) { return 0; } else { return 1; } } /* * \brief Configures Glitch or Debouncing filter for input. * * \param pin Pointer to a Pin instance describing one or more pins. * \param cuttoff Cutt off frequency for debounce filter. */ void PIO_SetDebounceFilter( const Pin *pin, uint32_t cuttoff ) { Pio *pio = pin->pio; pio->PIO_IFSCER = pin->mask; /* set Debouncing, 0 bit field no effect */ pio->PIO_SCDR = ((32678/(2*(cuttoff))) - 1) & 0x3FFF; /* the lowest 14 bits work */ }