PULSA-LEDS.x68

*-----------------------------------------------------------
* Title      :
* Written by :Fulgencio
* Date       :
* Description:
*-----------------------------------------------------------
LEDS    EQU  $E00010
PULSA   EQU $E00014

    ORG    $1000
START:                  ; first instruction of program

* Put program code here

    CLR.B LEDS      *Borra LEDS
    MOVE.L #0,D0    *Esta versión solo comprueba el pulsador 0
BUCLE
    BTST.B D0,PULSA *Comprueba estado del bit indicado por D0 en PULSA
                    *Faltaría hacer un recorrido con D0 de 0 a 7 para
                    *comprobar todos los pulsadores
    BEQ ENCIENDE    *Si está a 0 (pulsado) se va a ENCIENDE para encender el LED
    JMP BUCLE       *Si no, vuelve al BUCLE
ENCIENDE
    BSET.B D0,LEDS  *Activa el LED que corresponde al pulsador detectado
    JMP BUCLE       *Regresa al bucle
    SIMHALT         * halt simulator

* Put variables and constants here

    END    START    * last line of source