;------------------------------------------------------------
; Código assembler 
; Proyecto: Rutinas para Nextion
; Autor: Esteban Mariano Folcher Cividini
; Fecha: 27/08/2018
; PIC: 16F877A
; Velocidad de reloj: 4 Mhz
;------------------------------------------------------------
	list		p=16f877A,f=inhx32
	#include	<p16f877A.inc>	 
	#define	Fosc 4000000
	__CONFIG _HS_OSC & _WDTE_OFF & _PWRTE_ON & _BOREN_ON & _LVP_ON & _CPD_OFF & _WRT_OFF & _CP_OFF
    
STAR		    ORG		0x00	    ;DIRECCION DE VECTOR RESET
		    GOTO	COMIENZO
		    ORG	0x05
		    CBLOCK 0x20
		    ENDC
    INCLUDE	<Delay.inc>
    
COMIENZO	CALL	Configura_USART
    
		
PRINCIPAL
		MOVLW  0x00
		CALL   BIN_a_BCD_32_HHH
		MOVLW  0x00
		CALL   BIN_a_BCD_32_HH		    
		MOVLW  0x00
		CALL   BIN_a_BCD_32_H
		MOVLW  0x00
		CALL   BIN_a_BCD_32_L
		Delay	2000 Milis
		
		MOVF    BIN_BCD_UNI_BILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI,W
		CALL	Envia_USART
;-------------------------------------------------------------------------------		    
	   
		MOVLW  0x00
		CALL   BIN_a_BCD_24_HH	    
		MOVLW  0x00
		CALL   BIN_a_BCD_24_H
		MOVLW  0x00
		CALL   BIN_a_BCD_24_L
		Delay	2000 Milis
		
		MOVF    BIN_BCD_UNI_BILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI,W
		CALL	Envia_USART

;-------------------------------------------------------------------------------	    
		
		MOVLW  0x00
		CALL   BIN_a_BCD_16_H
		MOVLW  0x00
		CALL   BIN_a_BCD_16_L
		Delay	2000 Milis
		
		MOVF    BIN_BCD_UNI_BILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI,W
		CALL	Envia_USART
;-------------------------------------------------------------------------------
		MOVLW  0x0A
		CALL   BIN_a_BCD_8
		Delay	2000 Milis
		
		MOVF    BIN_BCD_UNI_BILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MILLON,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI_MIL,W
		CALL	Envia_USART
		MOVF    BIN_BCD_CEN,W
		CALL	Envia_USART
		MOVF    BIN_BCD_DEC,W
		CALL	Envia_USART
		MOVF    BIN_BCD_UNI,W
		CALL	Envia_USART

		GOTO	PRINCIPAL
		INCLUDE	BIN_BCD_8_16_24_32.INC
		END