LEE TECLADO SIN ESPERA

*-----------------------------------------------------------
* Title      :LECTURA DE TECLADO SIN ESPERA
* Written by :Fulgencio
* Date       :05/2015
* Description: Este ejemplo realiza una lectura de tecla mediante
*              la Task 5, pero para evitar que se quede en espera
*              en caso de que no esté pulsada ninguna tecla, se llama
*              previamente a la Task 7 que nos indica si hay o no tecla
*              pulsada
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program

    MOVE.L #12,D0
    MOVE.L #0,D1
    TRAP #15   *Anulamos el eco de pantalla para que no
               *se vea la tecla que estamos pulsando

BUCLE
    MOVE.L #7,D0
    TRAP #15
    CMP.L #0,D1  *Comprueba D1 para ver si hay tecla pendiente
    BEQ NOTECLA  *Si no hay tecla pendiente no se detiene a leerla

* Put program code here
    MOVE.L #5,D0 *Si entra aquí es que hay una tecla pulsada
    TRAP #15  *En D1 tenemos la tecla pulsada

    JSR CURORI *Cursor al origen

    MOVE.L #14,D0
    MOVE.L #PULSADA,A1
    TRAP #15            *Saca mensaje pulsada la tecla

    MOVE.L #6,D0    *Task 6 imprime una
    TRAP #15        *Escribe la tecla pulsada que teniamos en D1


    JSR RETARDO
    JSR RETARDO
    JSR RETARDO
    JSR RETARDO

    JSR CURORI
    JMP BUCLE

NOTECLA

    JSR CURORI *Cursor al origen
    MOVE.L #14,D0
    MOVE.L #NOTECTXT,A1
    TRAP #15            *Saca mensaje pulsa una tecla

    JSR RETARDO
    JSR CURORI *Cursor al origen

    MOVE.L #14,D0
    MOVE.L #BLANCOS,A1
    TRAP #15     *Borra mensaje escribiendo espacios encima
    JSR RETARDO  *Así, escribiendo y borrando hacemos efecto
                 *parpadeo para ver que no está parado esperando
    JMP BUCLE
    SIMHALT             ; halt simulator


RETARDO MOVEM.L D0-D1,-(A7)
        MOVE.L #23,D0
        MOVE.L #20,D1
        TRAP #15
        MOVEM.L (A7)+,D0-D1
        RTS

CURORI  MOVEM.L D0-D1,-(A7)
        MOVE.L #11,D0
        MOVE.L #$00,D1
        TRAP #15
        MOVEM.L (A7)+,D0-D1
        RTS

* Put variables and constants here
NOTECTXT DC.B 'PULSA UNA TECLA  ',0
BLANCOS  DC.B '                 ',0
PULSADA  DC.B 'TECLA PULSADA: ',0
    END    START        ; last line of source