****************************************************************
*                                            Copyright 2002    *
* NOMBRE DEL ARCHIVO: NA908003_S.asm                           *
*                                                              *
* PROPÓSITO: Programa para probar el circuito de configuración *
*            en el protoboard y el PROGSIM08                   *
*                                                              *
* DISPOSITIVO: MC68HC908KXCP                                   *
*                                                              *
* MEMORIA UTILIZADA:                                           *
*                     RAM:      ROM:                           *
*                                                              *
* ENSAMBLAOR: CASM08-68HC08             VERSION: 3.16          *
*                                                              *
* DESCRIPCIÓN: Este programa togglea un diodo LED conectado    *
*              al pin PTB4 a una frecuecia de 1Hz              *
*                                                              *
* AUTOR: PE         LOCACIÓN: MED FECHA INI: 2002/02/24        *
*                                 FECHA FIN: 2002/02/24        *
*                                                              *
* 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       $E000          ; Inicio de la memoria FLASH del KX
CONFIG1       equ       $001F
PORTB         equ       $0001
DDRB          equ       $0005


              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       3,PORTB       ; Escribe un 0 en el bit 3 de portb. El led inicia apagado
              bset       3,DDRB        ; Configura el bit 3 del portb como salida


L00           lda        PORTB
              eor        #$08
              sta        PORTB
              lda        #2T
L02           ldhx       #50399T
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)).
* El clock interno genera una frecuencia de bus
* por defecto de 1612800 Hz
* Con A(Parámetro) = 2 ---> HX = 50399.25
***************************************************


***************************
* 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
*************************************************************