*************************************************************************
* irq.asm  (C) Grupo J&J. Febrero 1997                                  *
*-----------------------------------------------------------------------*
* Programa ejemplo para la tarjeta CT6811. Este programa se debe cargar *
* en la ram interna del 6811                                            *
*-----------------------------------------------------------------------*
* Ejemplo de utilizacion de la interrupcion IRQ. Cada vez que se        *
* recibe un flanco de bajada se cambia el estado del led.               *
*************************************************************************

OPTION  EQU $39
PORTA   EQU $00

        ORG $0000

        LDX #$1000

        BSET OPTION,X $20  ; Interrupci¢n IRQ activa con flanco bajada
        CLI                ; Permitir las interrupciones

inf     BRA inf

********************************************************************
*   Rutina de servicio de la interrupcion IRQ.                     *
********************************************************************
irq
        LDAA PORTA,X
        EORA #$40               ; Cambiar led de estado
        STAA PORTA,X

        LDY #$FFFF              ; Realizar una pausa anti-rebotes
wait    DEY
        CPY #0
        BNE wait

        RTI

        ORG $00EE
        JMP irq

        END