*************************************************************************
* RTI.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 las interrupciones en tiempo real. Cambiar el estado del   *
* led cada 32.7ms. Se hace mediante espera activa.                      *
*************************************************************************

TMSK2   EQU $24
TFLG2   EQU $25
PACTL   EQU $26
PORTA   EQU $00

        ORG $0000

        LDX #$1000

        BSET PACTL,X $03
bucle
main    BRCLR TFLG2,X $40 main  ; Esperar a que se active el flag

        BSET TFLG2,X $40        ; Poner a cero flag de interrupci¢n

        LDAA PORTA,X
        EORA #$40
        STAA PORTA,X
        BRA bucle

        END