kr          equ $10
ksr         equ $11
sr          equ $12
or          equ $13
sklad       equ $ff
pv          equ $fff0
zacetek     equ $a000
            org $fffe
            fdb zacetek
            org zacetek
            ldaa #%00001001
            staa kr
            ldaa #%00011010
            staa ksr
            lds #sklad
            cli
zanka       bra zanka
sci_prek    ldaa ksr
            anda #%11000000
            cmpa #%10000000
            bne napaka
            ldaa sr
            staa or
            rti
napaka      ldaa ksr
            anda #%11000000
            cmpa #%01000000
            beq  nap_sprejema
            cmpa #%11000000
            beq  nap_prepisa
nap_sprejema
nap_prepisa
            org pv
            fdb SCI_prek