kontrg equ $10
kontst equ $11
oddrg  equ $13
optio  equ %0111
tdre_f equ %00100000
te_f   equ %00000010

       org $fffe
       fdb start
       org $a000

start  lds #$3000
       ldaa #optio
       staa kontrg
       ldaa #te_f
       staa kontst

ponovi bsr oddaj
       bra ponovi

oddaj  ldaa kontst
       bita #tdre_f
       beq oddaj

       ldaa #%1000001
       staa oddrg
       rts



