KLJUC   ldaa    SMER            ;ugotovi smer kljuca
        bne     BERI2
BERI1   ldab    _DPRB           ;beri PIA
        bmi     KKON1           ;prvi bit je 1, skok na konec
        ldaa    URA
        beq     KKON2           ;skoci na konec, ce se ni 1
        clr     URA
        aslb                    ;poglej drugi bit
        bpl     ENA
NIC     ldaa    #$00            ;shrani 0
        jmp     VPIS
ENA     ldaa    #$01            ;shrani 1
VPIS    ldab    SIFRA
        aslb                    ;pomakni se za mesto
        aba                     ;zapisi na zadnje mesto
        staa    SIFRA           ;shrani
        ldaa    KAZ             ;kazalec povecaj za q
        inca
        staa    KAZ
        ldab    #$08            ;preveri, ce je 8
        cba
        bne     KKON2
        ldaa    SMER
        inca
        staa    SMER
BERI2   ldab    _DPRB           ;beri PIA
        bmi     KKON1           ;prvi bit je 1, skok na konec
        ldaa    URA             ;skoci na konec, ce se ni 1
        beq     KKON2
        clr     URA
        aslb                    ;poglej drugi bit
        bmi     NICVEN
ENAVEN  ldaa    #$01
        jmp     PRIM
NICVEN  ldaa    #$00
PRIM    ldab    SIFRA           ;beremo kodo in ugotavljamo, ce je 
        andb    #$01            ;kljuc pravilno izvlecen
        cba
        bne     NAPAKA
        ldab    SIFRA
        asrb
        stab    SIFRA
        ldaa    KAZ
        deca
        staa    KAZ
        bne     KKON2
        ldaa    ODKLENI         ;damo komando za odklepanje
        inca
        staa    ODKLENI
        clr     SMER
        jmp     KKON2
NAPAKA  ldaa    NAPAK           ;damo komando za izpis sporocila
        inca
        staa    NAPAK
        clr     SMER
        clr     KAZ
        jmp     KKON2
KKON1   ldaa    #$01            ;postavi URA na 1
        staa    URA
        rts
KKON2   rts