****************************************************************
*                                            Copyright 2002    *
* NOMBRE DEL ARCHIVO: NA908007_S.asm                           *
*                                                              *
* PROPÓSITO: Programa para probar el circuito de configuración *
*            en el protoboard y el PROGSIM08                   *
*                                                              *
* DISPOSITIVO: MC68HC908GR8CP                                  *
*                                                              *
* MEMORIA UTILIZADA:                                           *
*                     RAM:      ROM:                           *
*                                                              *
* ENSAMBLAOR: CASM08-68HC08             VERSION: 1.22          *
*                                                              *
* DESCRIPCIÓN: Este programa togglea un diodo LED conectado    *
*              al pin PTD0 a una frecuecia de 1Hz              *
*                                                              *
* AUTOR: PE         LOCACIÓN: MED FECHA INI: 2002/05/05        *
*                                 FECHA FIN: 2002/05/05        *
*                                                              *
* 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       $EE00          ; Inicio de la memoria FLASH del JL3
CONFIG1       equ       $001F
PORTD         equ       $0003
DDRD          equ       $0007


              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,PORTD       ; Escribe un 0 en el bit 0 de portd
              bset       0,DDRD        ; Configura el bit 0 del portd como salida


L00           lda        PORTD
              eor        #$01
              sta        PORTD
              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
*************************************************************