Код:

program GPIO_SPL_Lite

structure GPIO_TypeDef
  dim MODER as longword         ' GPIO port mode register,                                  Address offset: 0x00 */
  dim OTYPER as word       ' GPIO port output type register,                           Address offset: 0x04 */
  dim RESERVED0 as word         ' Reserved,                                                                 0x06 */
  dim OSPEEDR as longword       ' GPIO port output speed register,                          Address offset: 0x08 */
  dim PUPDR as longword        ' GPIO port pull-up/pull-down register,                     Address offset: 0x0C */
  dim IDR as word          ' GPIO port input data register,                            Address offset: 0x10 */
  dim RESERVED1 as word         ' Reserved,                                                                 0x12 */
  dim ODR as word         ' GPIO port output data register,                           Address offset: 0x14 */
  dim RESERVED2 as word         ' Reserved,                                                                 0x16 */
  dim BSRR as longword         ' GPIO port bit set/reset registerBSRR,                     Address offset: 0x18 */
  dim LCKR as longword         ' GPIO port configuration lock register,                    Address offset: 0x1C */
  dim AFR as longword[2]       ' GPIO alternate function low register,                Address offset: 0x20-0x24 */
  dim BRR as word          ' GPIO bit reset register,                                  Address offset: 0x28 */
  dim RESERVED3 as word
end structure

const GPIO_Mode_IN   = 0x00  '/*!< GPIO Input Mode              */
const GPIO_Mode_OUT  = 0x01  '/*!< GPIO Output Mode             */
const GPIO_Mode_AF   = 0x02  '/*!< GPIO Alternate function Mode */
const GPIO_Mode_AN   = 0x03  ' /*!< GPIO Analog In/Out Mode      */

const  GPIO_OType_PP = 0x00
const  GPIO_OType_OD = 0x01

const  GPIO_Speed_Level_1  = 0x00 '/*!< I/O output speed: Low 2 MHz */
const  GPIO_Speed_Level_2  = 0x01 '/*!< I/O output speed: Medium 10 MHz */
const  GPIO_Speed_Level_3  = 0x03  '/*!< I/O output speed: High 50 MHz */

const  GPIO_PuPd_NOPULL = 0x00
const  GPIO_PuPd_UP     = 0x01
const  GPIO_PuPd_DOWN   = 0x02

'/******************  Bit definition for RCC_AHBENR register  ******************/
const  RCC_AHBENR_DMAEN   =                 (0x00000001)       ' /*!< DMA clock enable */
const  RCC_AHBENR_SRAMEN  =                 (0x00000004)       ' /*!< SRAM interface clock enable */
const  RCC_AHBENR_FLITFEN =                 (0x00000010)       ' /*!< FLITF clock enable */
const  RCC_AHBENR_CRCEN   =                 (0x00000040)       ' /*!< CRC clock enable */
const  RCC_AHBENR_GPIOAEN =                 (0x00020000)       ' /*!< GPIOA clock enable */
const  RCC_AHBENR_GPIOBEN =                 (0x00040000)       ' /*!< GPIOB clock enable */
const  RCC_AHBENR_GPIOCEN =                 (0x00080000)       ' /*!< GPIOC clock enable */
const  RCC_AHBENR_GPIODEN =                 (0x00100000)       ' /*!< GPIOD clock enable */
const  RCC_AHBENR_GPIOEEN =                 (0x00200000)       ' /*!< GPIOE clock enable */
const  RCC_AHBENR_GPIOFEN =                 (0x00400000)       ' /*!< GPIOF clock enable */
const  RCC_AHBENR_TSCEN   =                 (0x01000000)       ' /*!< TS controller clock enable */

const  RCC_AHBENR_DMA1EN  =                 RCC_AHBENR_DMAEN        '*!< DMA1 clock enable */
const  RCC_AHBENR_TSEN    =                 RCC_AHBENR_TSCEN

const RCC_AHBPeriph_GPIOA =              RCC_AHBENR_GPIOAEN
const RCC_AHBPeriph_GPIOB =              RCC_AHBENR_GPIOBEN
const RCC_AHBPeriph_GPIOC =              RCC_AHBENR_GPIOCEN
const RCC_AHBPeriph_GPIOD =              RCC_AHBENR_GPIODEN
const RCC_AHBPeriph_GPIOE =              RCC_AHBENR_GPIOEEN '/*!< Only applicable for STM32F072 devices */
const RCC_AHBPeriph_GPIOF =              RCC_AHBENR_GPIOFEN
const RCC_AHBPeriph_TS    =              RCC_AHBENR_TSEN
const RCC_AHBPeriph_CRC   =              RCC_AHBENR_CRCEN
const RCC_AHBPeriph_FLITF =              RCC_AHBENR_FLITFEN
const RCC_AHBPeriph_SRAM  =              RCC_AHBENR_SRAMEN
const RCC_AHBPeriph_DMA1  =              RCC_AHBENR_DMA1EN

const DISABLE = 0
const ENABLE = 1

const RESET = 0
const SET_Bit = 1

const GPIO_OSPEEDER_OSPEEDR0 = 3
const GPIO_OTYPER_OT_0 = 1
const GPIO_MODER_MODER0 = 3
const GPIO_PUPDR_PUPDR0 = 3

const GPIO_Pin_0  =               0x0001 ' /*!< Pin 0 selected    */
const GPIO_Pin_1  =               0x0002 ' /*!< Pin 1 selected    */
const GPIO_Pin_2  =               0x0004 ' /*!< Pin 2 selected    */
const GPIO_Pin_3  =               0x0008 ' /*!< Pin 3 selected    */
const GPIO_Pin_4  =               0x0010 ' /*!< Pin 4 selected    */
const GPIO_Pin_5  =               0x0020 ' /*!< Pin 5 selected    */
const GPIO_Pin_6  =               0x0040 ' /*!< Pin 6 selected    */
const GPIO_Pin_7  =               0x0080 ' /*!< Pin 7 selected    */
const GPIO_Pin_8  =               0x0100 ' /*!< Pin 8 selected    */
const GPIO_Pin_9  =               0x0200 ' /*!< Pin 9 selected    */
const GPIO_Pin_10 =               0x0400 ' /*!< Pin 10 selected   */
const GPIO_Pin_11 =               0x0800 ' /*!< Pin 11 selected   */
const GPIO_Pin_12 =               0x1000 ' /*!< Pin 12 selected   */
const GPIO_Pin_13 =               0x2000 ' /*!< Pin 13 selected   */
const GPIO_Pin_14 =               0x4000 ' /*!< Pin 14 selected   */
const GPIO_Pin_15 =               0x8000 ' /*!< Pin 15 selected   */
const GPIO_Pin_All=               0xFFFF ' /*!< All pins selected */

const GPIO_Speed_2MHz  = GPIO_Speed_Level_1  ' /*!< I/O output speed: Low 2 MHz  */
const GPIO_Speed_10MHz = GPIO_Speed_Level_2  ' /*!< I/O output speed: Medium 10 MHz */
const GPIO_Speed_50MHz = GPIO_Speed_Level_3  ' /*!< I/O output speed: High 50 MHz */


structure GPIO_InitTypeDef
  dim GPIO_Pin  as longword              '/*!< Specifies the GPIO pins to be configured.
                             '          This parameter can be any value of @ref GPIO_pins_define */

  dim GPIO_Mode as longword   '  /*!< Specifies the operating mode for the selected pins.
                                     '  This parameter can be a value of @ref GPIOMode_TypeDef   */

  dim GPIO_Speed  as longword  ' /*!< Specifies the speed for the selected pins.
                                     '  This parameter can be a value of @ref GPIOSpeed_TypeDef  */

  dim GPIO_OType as longword ' /*!< Specifies the operating output type for the selected pins.
                                     '  This parameter can be a value of @ref GPIOOType_TypeDef  */

  dim GPIO_PuPd as longword
end structure

structure RCC_TypeDef
  dim CR as longword         '/*!< RCC clock control register,                                  Address offset: 0x00 */
  dim CFGR as longword       '/*!< RCC clock configuration register,                            Address offset: 0x04 */
  dim CIR as longword        '/*!< RCC clock interrupt register,                                Address offset: 0x08 */
  dim APB2RSTR as longword   '/*!< RCC APB2 peripheral reset register,                          Address offset: 0x0C */
  dim APB1RSTR as longword   '/*!< RCC APB1 peripheral reset register,                          Address offset: 0x10 */
  dim AHBENR as longword     '/*!< RCC AHB peripheral clock register,                           Address offset: 0x14 */
  dim APB2ENR as longword    '/*!< RCC APB2 peripheral clock enable register,                   Address offset: 0x18 */
  dim APB1ENR as longword    '/*!< RCC APB1 peripheral clock enable register,                   Address offset: 0x1C */
  dim BDCR as longword       '/*!< RCC Backup domain control register,                          Address offset: 0x20 */
  dim CSR as longword        '/*!< RCC clock control & status register,                         Address offset: 0x24 */
  dim AHBRSTR as longword    '/*!< RCC AHB peripheral reset register,                           Address offset: 0x28 */
  dim CFGR2 as longword      '/*!< RCC clock configuration register 2,                          Address offset: 0x2C */
  dim CFGR3 as longword      '/*!< RCC clock configuration register 3,                          Address offset: 0x30 */
  dim CR2 as longword        '/*!< RCC clock control register 2,                                Address offset: 0x34 */
end structure

dim GPIOA as GPIO_TypeDef absolute 0x48000000 volatile sfr far
dim GPIOB as GPIO_TypeDef absolute 0x48000400 volatile sfr far
dim RCC as RCC_TypeDef absolute 0x40021000 volatile sfr far

sub procedure RCC_AHBPeriphClockCmd(dim RCC_AHBPeriph as longword, dim NewState as byte)
    if NewState <> DISABLE Then
      RCC.AHBENR = RCC.AHBENR or RCC_AHBPeriph
    else
      RCC.AHBENR = RCC.AHBENR and (not RCC_AHBPeriph)
    end if
end sub

sub procedure GPIO_Init(dim byref GPIOx as GPIO_TypeDef, dim byref GPIO_InitStruct as GPIO_InitTypeDef)
   dim pinpos, pos , currentpin as longword
   
   for pinpos = 0 to 10
      pos = 0x01 << pinpos
      currentpin = GPIO_InitStruct.GPIO_Pin and pos
      if currentpin = pos then
         
         if (GPIO_InitStruct.GPIO_Mode = GPIO_Mode_OUT) OR (GPIO_InitStruct.GPIO_Mode = GPIO_Mode_AF) Then
           '/* Speed mode configuration */
          GPIOx.OSPEEDR = GPIOx.OSPEEDR and ( not (GPIO_OSPEEDER_OSPEEDR0 << (pinpos * 2)))
          GPIOx.OSPEEDR = GPIOx.OSPEEDR or (GPIO_InitStruct.GPIO_Speed << (pinpos * 2))
          
           ' /* Output mode configuration */
           GPIOx.OTYPER = GPIOx.OTYPER and ( not (GPIO_OTYPER_OT_0 << pinpos))
           GPIOx.OTYPER = GPIOx.OTYPER or (GPIO_InitStruct.GPIO_OType << pinpos)
         end if
        
        GPIOx.MODER = GPIOx.MODER and ( not (GPIO_MODER_MODER0 << (pinpos * 2)))

        GPIOx.MODER = GPIOx.MODER or (GPIO_InitStruct.GPIO_Mode << (pinpos * 2))

        '/* Pull-up Pull down resistor configuration */
        GPIOx.PUPDR = GPIOx.PUPDR and ( not (GPIO_PUPDR_PUPDR0 << (pinpos * 2)))
        GPIOx.PUPDR = GPIOx.PUPDR or (GPIO_InitStruct.GPIO_PuPd << (pinpos * 2))
         
      end if
   next pinpos
   
end sub

sub procedure GPIO_SetBits(dim byref GPIOx as GPIO_TypeDef, dim GPIO_Pin as word)
   GPIOx.BSRR = GPIO_Pin
end sub

sub procedure GPIO_ResetBits(dim byref GPIOx as GPIO_TypeDef, dim GPIO_Pin as word)
   GPIOx.BRR = GPIO_Pin
end sub

dim GPIO_InitStruct as GPIO_InitTypeDef

main:
    RCC_AHBPeriphClockCmd(RCC_AHBPeriph_GPIOB, ENABLE) ' Включаем тактирование порта PB.

    GPIO_InitStruct.GPIO_Pin = GPIO_Pin_1      ' Настройка вывода PB.1.
    GPIO_InitStruct.GPIO_Mode = GPIO_Mode_OUT  ' Вывод работает как выход.
    GPIO_InitStruct.GPIO_OType = GPIO_OType_PP ' Двухтактный выход (т. е. не открытый сток).
    GPIO_InitStruct.GPIO_PuPd = GPIO_PuPd_NOPULL ' Подтягивающие резисторы отключены.
    GPIO_InitStruct.GPIO_Speed = GPIO_Speed_50MHz

    GPIO_Init(GPIOB, GPIO_InitStruct)  ' Инициализация порта.

    while TRUE
      GPIO_SetBits(GPIOB, GPIO_Pin_1)
      Delay_ms(500)
      GPIO_ResetBits(GPIOB, GPIO_Pin_1)
      Delay_ms(500)
    wend

end.