********************************************************************************
*****************************TRONADSTROPNO DVIGALO******************************
********************************************************************************

*****RESET VEKTOR*****
ddr     equ  0
dr      equ  2
        org  $fffe
        fdb  start
        org  $e000

*****PRITLICJE*****

start   ldaa #%11100000           *program se vrti v zanki.
        staa ddr                  *dvigalo caka na zahtevo potnika.
        ldaa dr                   *ce potnik pritisne gumb b0 na 1, b1 je 0,
        bita #%00000001           *se dvigalo premakne v 1.nadstropje,
        bne  nad1                 *ce potnik pritisne gumb b1 na 1, b0 je 0,
        bita #%00000010           *se dvigalo premakne v 2.nadstropje,
        bne  nad2                 *brez ustavljanja v 1.nadstropju.
        bra  start

*****1.NADSTROPJE*****

nad1    ldaa #%11111111
        staa ddr
        ldaa dr
        ldaa #%00100000
        staa dr
caka    ldaa #%11100000           *dvigalo je v 1.nadstropju.
        staa ddr                  *spet caka na ukaz potnika,
        ldaa dr                   *ko potnik pritisne gumb b1 na 1, b0 je 0,
        bita #%00000010           *se dvigalo premakne v 2. nadstropje,
        bne  nad2                 *ce potnik pritisne gumb b2 na 1,
        bita #%00000100           *b1 in b0 sta 0,
        bne  start                *se dvigalo premakne nazaj v pritlicje.
        bra  caka

*****2.NADSTROPJE*****

nad2    ldaa #%11111111
        staa ddr
        ldaa dr
        ldaa #%01100000
        staa dr
caka1   ldaa #%11100000           *dvigalo caka na potnikov ukaz,
        staa ddr                  *ce potnik pritisne gumb b2 na 1,
        ldaa dr                   *b1 in b0 sta 0,
        bita #%00000100           *se dvigalo premakne v pritlicje,
        bne  nazaj                *ce potnik pritisne b0 na 1,
        bita #%00000001           *b1 in b2 sta 0,
        bne  nad1                 *se dvigalo premakne v 1.nadstropje.
        staa dr
        bra  caka1

*****POT V PRITLICJE*****

nazaj   ldaa #%11111111           *dvigalo se po gumbu b2 na 1, b1 in b0 sta 0,
        staa ddr                  *premika nazaj do pritlicja.
        ldaa dr
        ldaa #%11100000
        staa dr
        ldaa #%11100000
        staa ddr
        ldaa dr
        bne  start