ejem_25.asm

Varios ejemplos para utilizar la PIC 16F876 en assembrer y CCS

;								EJEMPLO 25
;						Autor: Mikel Etxebarria
;			(c) Ingenier韆 de Microsistemas Programados S.L.
;						www.microcontroladores.com
;								Bilbao 2006
;
;El TMR1 en el modo contador. Frecuenc韒etro
;
;Mediante el generador de onda cuadrada del laboratorio, se aplican pulsos por la 
;l韓ea RC0/T1CKI. 
;
;El TMR1 cuenta los pulsos durante un intervalo de 1s. Al resultado de la cuenta  representa
;el n鷐ero de pulsos por segundo o herzios.
;
;Dicha frecuencia se visualiza por la pantalla LCD

		List	p=16F876A		;Tipo de procesador
		include	"P16F876A.INC"	;Definiciones de registros internos

;Ajusta los valores de la palabra de configuraci髇 durante el ensamblaje:
;protecci髇 de c骴igo y datos=OFF, LVP=OFF, WDT=OFF y OSC=XT

			__config _CP_OFF&_CPD_OFF&_LVP_OFF&_WDT_OFF&_XT_OSC

Lcd_var		equ	0x20		;Inicio de variables de las rutinas LCD
Byte_L		equ	0x22		;Parte baja del byte a convertir
Byte_H		equ	0x23		;Parte alta del byte a convertir
BCD_2		equ	0x24		;Byte 2 de conversi髇 a BCD
BCD_1		equ	0x25		;Byte 1 de conversi髇 a BCD
BCD_0		equ	0x26		;Byte 0 de conversi髇 a BCD
Contador	equ	0x27		;Variable de contaje
Temporal	equ	0x28		;Variable temporal
Delay		equ	0x29		;Variable para la temporizaci髇
		
			org	0x00				;Vector de RESET	
			goto	Inicio
			org	0x04				;Vector de interrupci髇
			goto	Inter
			org	0x05

			include	"LCD_CXX.INC"	;Incluye rutinas de manejo del LCD

;Visualizar: Visualiza sobre la pantalla LCD los cinco d韌itos situados en las variables
;BCD_0, BC_1 y BCD_2

Visualizar	movlw	0x80
			call	LCD_REG			;Posiciona el cursor
			movlw	3
			movwf	Contador		;Inicia contador de bytes a convertir
			movlw	BCD_0
			movwf	FSR				;Inicia puntero 韓dice
Visual_loop	swapf	INDF,W
			andlw	0x0f
			iorlw	0x30			;Convierte a ASCII el nible de m醩 peso
			call	LCD_DATO		;Lo visualiza
			movf	INDF,W
			andlw	0x0f
			iorlw	0x30			;Convierte a ASCII el nible de menos peso
			call	LCD_DATO		;Lo visualiza
			decf	FSR,F			;Siguiente byte
			decfsz	Contador,F
			goto	Visual_loop
			return

;16Bits_BCD: Esta rutina convierte un n鷐ero binario de 16 bits situado en Cont_H y
;Cont_L y, lo convierte en 5 d韌itos BCD que se depositan en las variables BCD_0, BCD_1
;y BCD_2, siendo esta 鷏tima la de menos peso.
;Est