;****************************************************************
;                      générateur   CTCSS
;****************************************************************
; sortie ctcss sortie GP5(2) 
; entrées selection frequence GP0(7) GP1(6) GP2(5)  GP3(4) GP4(3) 
;
;				                 F4EHY 12-2-2019
;****************************************************************		  	  

	LIST	P=PIC12F675
#include "p12f675.inc"
; CONFIG
; __config 0xF194
__CONFIG _FOSC_INTRCIO & _WDTE_OFF & _PWRTE_OFF & _MCLRE_OFF & _BOREN_OFF & _CP_OFF & _CPD_OFF

;****************************************************************

cptL equ 0x20      ;pour initialiser T1
cptH equ 0x21
W_tmp equ 0x22
STATUS_tmp equ 0x23
F67H equ 0x24
F67L equ 0x25
F123H equ 0x26
F123L equ 0x27

 

;*****************************************************************
	ORG 0x0000 		;adresse du reset
	goto main		;sauter à l'étiquette main  	
;*****************************************************************
	ORG 0x0004     		;adresse des interruptions 
	bcf INTCON,GIE
	movwf W_tmp	;sauvegarder W et STARUS
	swapf STATUS,W
	movwf STATUS_tmp
	;quelle int..
	btfss PIR1,TMR1IF ;si int T1 sauter
	goto  fin_int
int_T1
	;générateur de créneaux
	movf cptH,w		; duree Timer
	movwf TMR1H
	movf cptL,w
	movwf TMR1L
	movlw 0x20
	xorwf GPIO,f
	bcf PIR1,TMR1IF
;fin int T1	
	
	
	
fin_int
	swapf STATUS_tmp,w	;restaurer W et STATUS
	movwf STATUS
	swapf W_tmp,f
	swapf W_tmp,w
	bsf INTCON,GIE
	retfie	
	
;*******************************************************************	
init				;SOUS_PROGAMME Initialisation
	bcf STATUS,RP0		;page 0
	clrf GPIO
	movlw 0x07
	movwf CMCON		;desactiver comparateurs
	
	bsf STATUS,RP0		;Page1
	nop
	clrf ANSEL		;pas analog
	movlw 0x1F			
	movwf TRISIO		;GPIO 0 1 2 3 4 entrées  5 sortie			 
	call 0x3FF		;pour calibration auto
;	movlw 0x50		;calibation manuelle
	movwf OSCCAL		;calibration horloge
	bsf PIE1,TMR1IE		; autorise int T1
	bcf OPTION_REG,7	;pull-up
	bsf WPU,0		;pull-up 0
	bsf WPU,1		;pull-up 1
	bsf WPU,2		;pull-up 2
	bsf WPU,3		;pull-up 3
	bsf WPU,4		;pull-up 4


	bcf STATUS,RP0		;Page0
	bsf INTCON,PEIE
	bsf INTCON,GIE
	movlw 0x01 ;
	movwf T1CON;
	return
;**********************************************************************
init_var
	movlw 0xE2
	movwf F67H
	movlw 0xD9
	movwf F67L
	
	movlw 0xF0
	movwf F123H
	movlw 0x1f
	movwf F123L
	return


;************************************************************
main				;PROGRAMME PRINCIPAL
	call init_var
	btfss GPIO,0
	goto freq123
	movf F67H,w		; duree Timer 65536 -T/2   0xe2da pour 67hz
	movwf cptH
	movwf TMR1H
	movf F67L,w
	movwf cptL
	movwf TMR1L
	goto finfreq
freq123
	movf F123H,w		; duree Timer 65536 -T/2   0xe2da pour 67hz
	movwf cptH
	movwf TMR1H
	movf F123L,w
	movwf cptL
	movwf TMR1L
finfreq	
	call init		;initialisation  
boucle	
	btfss GPIO,0
	goto freq123_bis
	movf F67H,w		; duree Timer 65536 -T/2   0xe2da pour 67hz
	movwf cptH
	movf F67L,w
	movwf cptL	
	goto boucle
freq123_bis
	movf F123H,w		; duree Timer 65536 -T/2   0xe2da pour 67hz
	movwf cptH
	movf F123L,w
	movwf cptL
	goto boucle
	END