Problem with timer [SOLVED]

[Petr2023]

hi
Sorry for my bad Eng

Can't find bug

This code works not correct.
Each ~30 toggles it switch port faster. Then ~30 toggles normal and 2-3 switches faster. Then ~30 normal .......
If this code move to Timer_ISR, then no bug!!! All works correct!
But in main: not.

Code: Select all

DIM Tmsec as BYTE at GTimer             'Alias èëè ïñåâäîíèì ìëàäøåãî áàéòà
DIM Tsec as WORD at GTimer              'Alias èëè ïñåâäîíèì ìëàäøåãî ñëîâà 65ñåê ìàêñèìóì

'   Main program
main:
    Dim _tsec_old as WORD
    Dim _tsec_now as WORD

    DDRD=$FF                                    ' 
    DDRB=$FF
    PORTB=%10101010
    PORTD=%01010101
    
    InitMessages()
    InitTimers()
    SREG_I_bit = 1                '

Wait:
     _tsec_now=Tsec
    If (_tsec_now-_tsec_old>400*msec) Then
       PORTD=not PORTD
       _tsec_old=Tsec
    End If
    GoTo Wait
'    While TRUE
'    wend

Please help!
Thank You!

Project:

test.zip

(38.2 KiB) Downloaded 21 times

[Petr2023]

Sorry for double Topic.

Do some code in other compiler.
All works fine!!!

MikroE - please, anybody check opcodes or asm.

It's scary to continue writing code

Algorithm and HEX from Algorithm Builder in attach

For atmega168 8Mhz int clock

[Petr2023]

Atomic Operation

atomic.png (15.02 KiB) Viewed 436 times

But!
I can't understand how vars same times modified if i save registers in ISR.

[Petr2023]

This solution would be better:

volatile.png (5.91 KiB) Viewed 409 times

VOLATILE

[Petr2023]

Found a bug in MY code.

Code: Select all

     IN         R27, SREG+0
     PUSH       R27

but it should be

Code: Select all

     PUSH       R27
     IN         R27, SREG+0
     PUSH       R27