****************************************************************
*                                            Copyright 2002    *
* NOMBRE DEL ARCHIVO: NA908006_S.asm                           *
*                                                              *
* PROPÓSITO: Programa para probar el circuito de configuración *
*            en el protoboard y el PROGSIM08                   *
*                                                              *
* DISPOSITIVO: MC68HC908JL3CP                                  *
*                                                              *
* MEMORIA UTILIZADA:                                           *
*                     RAM:      ROM:                           *
*                                                              *
* ENSAMBLAOR: CASM08-68HC08             VERSION: 3.16          *
*                                                              *
* DESCRIPCIÓN: Este programa togglea un diodo LED conectado    *
*              al pin PTA0 a una frecuecia de 1Hz              *
*                                                              *
* AUTOR: PE         LOCACIÓN: MED FECHA INI: 2002/03/28        *
*                                 FECHA FIN: 2002/03/28        *
*                                                              *
* HISTORIA DE ACTUALIZACIÓN                                    *
* REV      AUTOR      FECHA       DESCRIPCIÓN DE CAMBIOS       *
* ---      -----     -------      ----------------------       *
*                                                              *
*==============================================================*
****************************************************************

***************************
* Definición de constantes
***************************
RESET_VEC     equ       $FFFE          ; Los precesadores Motorola HC08 poseen un bus de
                                       ; datos de 16 bits y adicionalmente son BIGENDIAN
FLASH_START   equ       $EC00          ; Inicio de la memoria FLASH del JL3
CONFIG1       equ       $001F
PORTA         equ       $0000
DDRA          equ       $0004


              org       FLASH_START
INICIO
              bset      0,CONFIG1      ; Deshabilita el COP
              rsp                      ; Inicializa el Stack Pointer(SP) en la parte alta de
                                       ; página 0
              clra                     ; Borra el registro A
              clrx                     ; Borra el registro X

              bclr       0,PORTA       ; Escribe un 1 en el bit 0 de porta
              bset       0,DDRA        ; Configura el bit 0 del porta como salida


L00           lda        PORTA
              eor        #$01
              sta        PORTA
              lda        #5T
L02           ldhx       #15359T
L01           aix        #-1
              cphx       #$0000
              bne        L01
              dbnza      L02
              bra        L00


***************************************************
* Para el cálculo del retardo se empleo
* la siguiente fórmula:
* ((8xHX+3)+3)xA+2 = #ciclos
* donde ciclos = 0.5/(1/(Frecuencia_bus)) = 614400
* suponiendo un XTAL de 4.9152MHz
* Con A(Parámetro) = 5 ---> HX = 15359.2
***************************************************


***************************
* Vectores
***************************
              org       RESET_VEC      ; Posicionar el ensamblador en la dirección Reset_vec
              dw        INICIO         ; Definir en Reset_vec la dirección de Inicio.


*************************************************************
* Este programa fue elaborado por Propuesta Electrónica, 2002
* visítenos a través de http://www.propuestadinamica.com
*************************************************************