kontrg equ $10
kontst equ $11
sprrg  equ $12
optio  equ %0111
re_f   equ %00001000
rie_f  equ %00010000

       org $fffe
       fdb start
       org $fff0
       fdb sprejmi
       org $2000
st     rmb 1
       org $a000
start  lds #$3000
       cli
       ldaa #optio
       staa kontrg
       ldaa #re_f
       oraa #rie_f
       staa kontst

       wai

sprejmi ldaa kontst
        anda #%11000000
        cmpa #%10000000
        beq naprej
ponovi  bra ponovi
naprej  ldaa sprrg
        staa $d000
        rti
