; ==========================================================================================
; Gestion du temps - Quartz 32,768 kHz
; Doumai.Terret@Wanadoo.fr
; ==========================================================================================
            LIST      P=16F628, F=INHX8M, r=dec
            include "P16F628.inc"
            
	__CONFIG	_BODEN_OFF  & _PWRTE_OFF & _WDT_OFF & _LVP_OFF & _MCLRE_ON & _LP_OSC
	
	; Do not show warnings										
	ERRORLEVEL      -224												
			
#DEFINE CLOCK	PORTB,1		; Horloge

		cblock 0x20
I : 1	
		endc
;
;============================================================================================
	ORG	0x0000	
		goto	main

main:	bcf		STATUS,RP0		; Bank 0
		movlw	0x07			; Désactivation du mode comparateur et
		movwf	CMCON			; passe en mode Entrées / Sorties
;
		bsf     STATUS,RP0		; Bank 1
		clrf	TRISB			; PortB en sortie
	 	clrf    TRISA			; PortA en sortie
		bcf		STATUS,RP0		; Bank 0
; -------------------------------------------------------------------------------------------
; Le PIC est cadencé à la fréquence de 32,768 kHz / 4 = 8,192 kHz
; La période du point test CLOCK est composée de 8 cycles Fréq CLOCK = 8,192 / 8 = 1,024 kHz
; Période = 976,5625 µs
; -------------------------------------------------------------------------------------------
;
Horl	bcf		CLOCK			; CLOCK = 1 durant 4 cycles
		nop
		nop
		nop
		bsf		CLOCK			; CLOCK = 0 durant 4 cycles
		nop
		goto	Horl
;
		end