LIST	P=16F876
;===================== MAPA DE MEMORIA ==============================================
ESTADO		EQU	0x03
PA_TRA		EQU	0x05
PB_TRB		EQU	0x06
PC_TRC		EQU	0x07
INTCON		EQU	0x0B
PIR1_PIE	EQU	0x0C	;Ponemos la direccion del banco0 y luego nos referimos al banco1
;
CMD		EQU	0x20
CONTA01		EQU	0x21
CONTA02		EQU	0x22
CONTA03		EQU	0x23
T_COMPRUEBA	EQU	0x24
TECLAORDEN	EQU	0x25
ULT_TECLA	EQU	0x26
CHAR		EQU	0x27
DDRAM		EQU	0x28
DATO01		EQU	0x29
CONTA		EQU	0x30
;
T2CON      	EQU     0x12
CCPR1L     	EQU     0x15
CCPR1H     	EQU     0x16
CCP1CON     	EQU     0x17
CCPR2L      	EQU     0x1B
CCPR2H      	EQU     0x1C
CCP2CON     	EQU     0x1D
PR2         	EQU     0x92
;
;====================== PROGRAMA INICIO =============================================
BSF	ESTADO,5
CLRF	PC_TRC		;Ponemos a 0 el TRIS C
BCF	ESTADO,5
;
;=====================================================================================
MOVLW	b'00000100'	;Programamos el registro T2CON	
MOVWF	T2CON	
BSF	ESTADO,0	;Activa el bit de acarreo C
BSF	ESTADO,5	;Cambiamos al Banco 1
MOVLW	b'11111111'
MOVWF	PR2
BCF	ESTADO,5	;Cambiamos a Banco 0
MOVLW	b'00101111'	;Programamos el CCP1CON, y los bits 4 y 5 son los de menor peso
			;del duty cicle del 50%, que se concatenan con los del registro
			;CCPR1L	
MOVWF	CCP1CON
MOVLW	b'00000000'	;Cargamos el resto de los bits correspondientes a 512
MOVWF	CCPR1L	
FIN	NOP
	GOTO FIN	
END