************************************************************************
* ledpe2.asm.  GRUPO J&J                                               *  
************************************************************************
* Programa ejemplo para ser ejecutado en la tarjeta CT6811.            *
* Este programa se debe cargar en la RAM interna del 6811.             *
*                                                                      *
*  Simplemente se enciende y se apaga el led de la tarjeta CT6811.     *
*  Version para la EEPROM interna de una E2                            *
************************************************************************

        ORG $F800

comienzo
        LDAA $1000
        EORA #$40         ; Cambiar de estado el bit PA6
        STAA $1000

        LDY #$FFFF        ; Realizar una pausa
dec     DEY
        CPY #0
        BNE dec

        BRA comienzo      ; Repetir el proceso

         ORG $FFFE        * vector de interrupcion del reset
	 FDB  #comienzo

        END