#include "stm32f10x.h"

volatile uint32_t msTicks;                                 // counts 1ms timeTicks
extern void Delay (uint32_t dlyTicks);
/*----------
 * SysTick_Handler:
 *----------*/
void SysTick_Handler(void)
{
    msTicks++;
}

/*----------
 * Delay: delays a number of Systicks
 *----------*/
void Delay (uint32_t dlyTicks)
{
    uint32_t curTicks;

    curTicks = msTicks;
    while ((msTicks - curTicks) < dlyTicks)
    {
        __NOP();
    }
}

int main(void)
{
    RCC->APB2ENR |= RCC_APB2ENR_IOPCEN;
    GPIOC->CRH |=  GPIO_CRH_MODE13_1;
   
   SysTick_Config(8000000UL / 1000);    // SysTick 1 msec interrupts
   
    while (1)
    {
        GPIOC->ODR ^=(uint16_t)(1<<13);
        Delay(1000);
    }
}

#include "stm8s.h"

#define LED_GPIO_ODR GPIOA->ODR
#define LED ((uint8_t)(1<<2))

__IO uint16_t  ms = 0;

INTERRUPT_HANDLER(TIM2_UPD_OVF_IRQHandler, 13) // Прерывание таймера
{
    TIM2->SR1 &= ~TIM2_SR1_UIF; // Очистка флага прерывания по обновлению
    if(ms != 0) ms--;
}

void delay_ms(uint16_t set_ms) // Задержка мс
{
    ms = set_ms;
    while(ms);
}

void main( void )
{
    CLK->CKDIVR = 0; //Делитель частоты = 1
   
    GPIOA->DDR |= (uint8_t) (1<<2); // Ножка конфигурируется на вывод
    GPIOA->CR1 |= (uint8_t) (1<<2);  //Выход типа Push-pull
    GPIOA->CR2 |= (uint8_t) (1<<2);  // Скорость переключения - до 10 МГц.

    TIM2->SR1 &= ~TIM2_SR1_UIF; // Очистка флага прерывания по обновлению
    TIM2->PSCR = 0x06; // //Предделитель на 2^6=64 16000000/64 = 250000 Hz
    TIM2->ARRH = 0; ///Значение перезагрузки 250000/250 = 1000 Гц
    TIM2->ARRL = 250;
    TIM2->IER |= TIM2_IER_UIE; // Прерывание по обновлению счетного регистра азрешено
    TIM2->CR1 |= TIM2_CR1_URS | TIM2_CR1_CEN ; // Прерывание по переполнению разрешено и таймер запущен
    asm("rim");
    while(1)
    {
        LED_GPIO_ODR ^= LED;
        delay_ms(1000);
    }
}

 //LED_GPIO_ODR ^= LED;
main_0:
   LD        A, L:0x5000
   XOR       A, #0x4
   LD        L:0x5000, A
//delay_ms(1000);
   LDW       X, #0x3e8
   LDW       L:ms, X
main_1:
   LDW       X, L:ms
   JREQ      L:main_0
   JRA       L:main_1