kontrg equ $10
kontst equ $11
oddrg  equ $13
optio  equ %0110
tdre_f equ %00100000
te_f   equ %00000010

       org $fffe
       fdb start
       org $2000
stevec rmb 1
       org $a000

start  lds #$3000
       ldaa #optio
       staa kontrg
       ldaa #te_f
       staa kontst

       bsr oddaj
ponovi bra ponovi

oddaj  ldaa kontst
       bita #tdre_f
       beq oddaj

       ldaa stevec
       inc stevec
       staa oddrg
       cmpa #$7f
       beq ven
       bra oddaj
ven    rts



