KLJUCAV LDAA   	_DPRB
        ANDA    #%00100000
        BEQ     SK1
        INC     ODPRTA
        JMP 	KONEC1       ;ce so vrata odprta ne naredi nic
SK1     LDAA    ODKLENI
        BNE     SK2
        JMP     KONEC1       ;ce ni signala za odklenit ne naredi nic
SK2     LDAA    ODPRTA
        BEQ     SK3
        LDAA    _DPRB
        ANDA    #%00100000
        BEQ     SK4          ;ko so vrata spet zaprta skoci na zapiranje
        JMP     KONEC1
SK3     LDAA    CAKAJ
        BEQ     SK5
        DEC     CAKAJ
        LDAA    CAKAJ
        BEQ     SK6
        JMP     KONEC1
SK6     INC     ODPRTA
        JMP     SK4         ;ko se cas iztece skoci na zapiranje
                            ;ce so bila vrata odklenjena, ne pa tudi
                            ;odprta)
SK5     LDX     STEPO       ;odpiranje vrat
        LDAA    STEP
        CMPA    STEPMAX
        BNE     SK7
        CLR     STEP
        LDAA    CAKAJMAX
        STAA    CAKAJ
        JMP     KONEC1
SK7     LDAA    0,X
        STAA    _DPRB
        INX
        INC     STEP
        CPX     #O5
        BEQ     SK8
        STX     STEPO
        JMP     KONEC1
SK8     LDX     #O1
        STX     STEPO
        JMP     KONEC1
SK4     LDX     STEPZ      ;v X nalozi vsebino STEPZ, ki je dvobajtna 
                           ;in na kateri je naslov lokacije, kjer je
                           ;trenutna koda za zasuk motorja
        LDAA    STEP
        CMPA    STEPMAX
        BNE     SK9
        CLR     CAKAJ
        CLR     ODPRTA
        CLR     ODKLENI
        CLR     STEP
        JSR     INIT
        JMP     KONEC1
SK9     LDAA    0,X     ;v A nalozi vsebino lokacije na katero kaze X
        STAA    _DPRB     ;A na PIO in na motor
        INX
        INC     STEP
        CPX     #Z5     ;X primerja z naslovom Z5
        BEQ     SK10
        STX     STEPZ
        JMP     KONEC1
SK10    LDX     #Z1
        STX     STEPZ
        JMP     KONEC1

KONEC1  RTS