; Test STM32F4-Assembler project
; Ня

    AREA    |.text|, CODE, READONLY

RCC_AHB1ENR           EQU 0x40023830
RCC_AHB1ENR_GPIODEN   EQU 0x00000008 ; 3 бит

GPIOD_BASE            EQU 0x40020C00

GPIO_MODER_OFFSET     EQU 0x00000000
GPIO_MODER_MODER12_0  EQU 0x01000000
GPIO_MODER_MODER13_0  EQU 0x04000000
GPIO_MODER_MODER14_0  EQU 0x10000000
GPIO_MODER_MODER15_0  EQU 0x40000000

GPIO_PUPDR_OFFSET     EQU 0x0000000C
GPIO_PUPDR_PUPDR12_0  EQU 0x01000000
GPIO_PUPDR_PUPDR13_0  EQU 0x04000000
GPIO_PUPDR_PUPDR14_0  EQU 0x10000000
GPIO_PUPDR_PUPDR15_0  EQU 0x40000000

GPIO_BSRRL_OFFSET     EQU 0x00000018 ; Сброс
GPIO_BSRRH_OFFSET     EQU 0x0000001A ; Установка

DELAY_COUNTER         EQU 0x000F4240 ; 1000000UL

GPIO_BSSR_PIN12       EQU 0x00001000 ; 12 бит
GPIO_BSSR_PIN13       EQU 0x00002000 ; 13 бит
GPIO_BSSR_PIN14       EQU 0x00004000 ; 14 бит
GPIO_BSSR_PIN15       EQU 0x00008000 ; 15 бит

; Инициализация системы тактирования
            EXPORT SystemInit
SystemInit  PROC

            BX LR ; Возвращаемся обратно

            ENDP

; Программная задержка
; R0 - величина задержки
delay       PROC
            ; Вычитаем единицу
            SUBS R0, R0, #1
            ; Пока не обнулилась, крутим дальше
            BNE delay

            BX LR
            ENDP

            EXPORT __main
__main      PROC

            NOP

            ; Разрешим тактирование порта D

            ; Загрузим в регистр R0 адрес регистра RCC_AHB1ENR
            LDR R0, =RCC_AHB1ENR
            ; Прочитаем в регистр R1 его содержимое
            LDR R1, [R0]
            ; Установим бит тактирования порта D
            ORR R1, R1, #RCC_AHB1ENR_GPIODEN
            ; Запишем обратно
            STR R1, [R0]

            ; Установим режим работы выводов (выход)
            LDR R0, =GPIOD_BASE
            ; Прочитаем в регистр R1 его содержимое
            LDR R1, [R0, #GPIO_MODER_OFFSET]

            ; Установим необходимые биты для выводов 12-15
            ORR R1, R1, #GPIO_MODER_MODER12_0
            ORR R1, R1, #GPIO_MODER_MODER13_0
            ORR R1, R1, #GPIO_MODER_MODER14_0
            ORR R1, R1, #GPIO_MODER_MODER15_0

            ; Запишем обратно
            STR R1, [R0, #GPIO_MODER_OFFSET]

            ; Подтяжка к питанию
            LDR R0, =GPIOD_BASE
            LDR R1, [R0, #GPIO_PUPDR_OFFSET]

            ; Установим необходимые биты для выводов 12-15
            ORR R1, R1, #GPIO_PUPDR_PUPDR12_0
            ORR R1, R1, #GPIO_PUPDR_PUPDR13_0
            ORR R1, R1, #GPIO_PUPDR_PUPDR14_0
            ORR R1, R1, #GPIO_PUPDR_PUPDR15_0

            ; Запишем обратно
            STR R1, [R0, #GPIO_PUPDR_OFFSET]

            ; В регистр R1 запишем адрес GPIOD
            LDR R1, =GPIOD_BASE
            ; В регистр R2 запишем величину задержки
            LDR R2, =DELAY_COUNTER

__mainloop
            ; Зажжём 12 бит
            MOV R4, #GPIO_BSSR_PIN12 ; 12 бит
            STR R4, [R1, #GPIO_BSRRL_OFFSET]

            ; Задержка
            MOV R0, R2
            BL  delay

            ; Погасим 12 бит
            STR R4, [R1, #GPIO_BSRRH_OFFSET]

            ; Зажжём 13 бит
            MOV R4, #GPIO_BSSR_PIN13 ; 13 бит
            STR R4, [R1, #GPIO_BSRRL_OFFSET]

            ; Задержка
            MOV R0, R2
            BL  delay

            ; Погасим 13 бит
            STR R4, [R1, #GPIO_BSRRH_OFFSET]

            ; Зажжём 14 бит
            MOV R4, #GPIO_BSSR_PIN14 ; 14 бит
            STR R4, [R1, #GPIO_BSRRL_OFFSET]

            ; Задержка
            MOV R0, R2
            BL  delay

            ; Погасим 14 бит
            STR R4, [R1, #GPIO_BSRRH_OFFSET]

            ; Зажжём 15 бит
            MOV R4, #GPIO_BSSR_PIN15 ; 15 бит
            STR R4, [R1, #GPIO_BSRRL_OFFSET]

            ; Задержка
            MOV R0, R2
            BL  delay

            ; Погасим 15 бит
            STR R4, [R1, #GPIO_BSRRH_OFFSET]

            ; На очередной круг
            B __mainloop

            ENDP

    END