kontst equ $8
prosrg equ $9
etoi_f equ %00000100
tof_f  equ %00100000

       org $fffe
       fdb start
       org $2000
StPre  rmb 1
       org $fff2
       fdb tim_prek
       org $a000
start  lds #$3000
       cli
       ldaa #$ff
       staa 0
       ldaa #etoi_f
       staa kontst

       wai

tim_prek ldaa kontst
         bita #tof_f
         beq motnja

         ldd prosrg
         ldaa 2
         coma
         staa 2
         inc StPre
motnja   rti
