Sesion3.Ejercicio3

*-----------------------------------------------------------
* Title      : Sesión 3. LED's, pulsadores e interruptores.
*           Ejercicio 3.
* Written by : Sofía Andújar Muñoz
* Date       : 1/03/2021
* Description: Vamos a hacer un programa que mediante el uso
*           de LED's, retardos y desplazamientos emule el
*           juego de luces del coche fantástico.
*-----------------------------------------------------------
         ORG    $1000

RETARDO EQU 25 * Pongo un retardo de 0.25 s

START:
         MOVE.B #RETARDO, D1 * Guardo el valor del retardo en D1
         MOVE.B #%10000000, D2 * Podría hber elegido D0 y praticar con el stack
         MOVE.B D2, $E00010 * Inicializamos los LED's
BUCLE    JSR DESP_DRCH
         JSR DESP_IZQ
         JMP BUCLE

DESP_DRCH CMP.B #%00000001,D2 * Cuando sean iguales dejamos de desplazar
        BEQ FIN_DRCH
        LSR.B #1,D2 * Primero cambio en contenido de D2
        MOVE.L #23, D0 * Preparamos el retardo
        TRAP #15 * Hacemos el retardo
        MOVE.B D2, $E00010 * Finalmente actualizamos el estado de los LED's
        JMP DESP_DRCH
FIN_DRCH RTS

DESP_IZQ CMP.B #%10000000,D2 * Cuando sean iguales dejamos de desplazar
        BEQ FIN_IZQ
        LSL.B #1,D2 * Primero cambio en contenido de D2
        MOVE.L #23, D0 * Preparamos el retardo
        TRAP #15 * Hacemos el retardo
        MOVE.B D2, $E00010 * Finalmente actualizamos el estado de los LED's
        JMP DESP_IZQ
FIN_IZQ RTS

        SIMHALT             ; halt simulator

    END    START        ; last line of source