Frequency measurement in assember (ASM) for PIC

; 30 mars 2013  
; Bug decouvert dans sub Delays lors de la compile par Milan Karakas (croatie)
; alors que je n'ai AUCUN WARNING
; Project 
;    build options
;        wct8_LCD_16F84A_2_Ranges_1x16cars_130329.asm
;    MPASM assembler
;        categorie
;             output
;                diagnostic level
;                    errors only
;                        file format INHX8M 
; avec option : /x"$(BINDIR_)$(INFILEBASE).xrf" /w2 /aINHX8M
; apres activation
; errors and warnings and message
; option: /x"$(BINDIR_)$(INFILEBASE).xrf" /aINHX8M
; j'ai bien un warning 202 si usage de movlw 243
; correctifs:
; usage de movlw 243  e> movlw 43h , car Radix DEC passé en commentaire !
; modif  movlw D'243' => movlw F3h ..OK
;============================
;;@@@ 16 mars 2013	
; Version LCD 1 ligne de 16 cars
; pour PB affichage 1Hz par defaut 
;dans debut comptage, supprimé ceci :
;	bsf PORTA,2 	;toggle TMR0 pin
;	bcf PORTA,2
; => maintenant affiche RIEN si pas de frequence d'entree!
; Icprogr Checksum = 4A72
; sensibilite 1V cr cr seulement avec le JFET  BF245A
;27/02/2013
; LCD 1L de 16cars  (ou 2L de 16cars)  mais pas 1L de 2x8 cars
; Ajust correction +0µS  version pour LCD 1x16 car checksum ICPROGR = 76B6
; 25/02/2013  modif Titre 1ere ligne LCD
; 23/02/2013
; Test sous MPLAB sim point d'arret sur 
; debut
; 019F   3008           00739         movlw 8
; 01A0   0686           00740         xorwf PORTB     ; clignote Led a chaque boucle
; stimulus de RA4 ON/OFF pour remplacer la liaison RA2 vers RA4 via le NAND 74HCT32
; 017B   0000 00688   nop   ;<- stimulus RA4 ici pour test led avec MPLAB Sim
; Stimulus: SCL file "C:\_Mplab8\_Mesprojets_ASM\_Freq\Freqmeter_Simule_RA2.scl" generated successfully.
; label RA2pulse  RA4  LOw 1cy   High 2cy Begib at PC=017A
; rev 16/02/2013  Rajout led sur RB3
; Rappel  : POK508 + Bloc alim + IC-Progr 1.05 pour reprogrammer le 16F84
;14/02/2013
; montage sur CI et test : automesure sur Quartz 4Mhz -> 4.000.064 Hz
; mesure sur horloge 40MHz -> 40,0011 MHz
; mesure sur 76KHz -> 75999Hz
; rev 7/02/2013 pour pic16F84A
; 26/01/2012 
; quartz PIC : 4Mhz 
; modif affichage et usage de 2 gammes
; affichage jusqu'a 7 digits poour F < 9.999.999 Hz 
; add corrections = + 20 µS dans la boucle externe "gate" + 16µS en final			
;resultats :
; REF       Mesure      Gamme   erreur
;Q=4MHz		4000065 Hz	FREQ	-0,002%
;25Khz		25000	Hz 	FREQ	0,000%
;234375Hz	234374	Hz	FREQ	0,000%
;Q=60 MHz	59.9993 Mhz VHF		0,001%
;Q=20 Mhz	19,9998	Mhz VHF		0,001%
;
;23/01/2012
; Rajout diviseur UHF MB506 ( 1/256) => 2 gammes , choix via input RA.1
; RA.1=1 gamme Freq  1 --- 9,999.999 Hz  
; RA.1=0 gamme VHF  10.0000 MHz -- >999.9999 Mhz
;
; avec rajout +20µS dans la boucle de comptage qui passe de 20 a 40µS
; wct7_LCD4bits_Q4Mhz_a.asm
; pour F.input de 60Mhz -> MB506 / 256 => 234.375 Khz Theoriques
; resultats :
; Freq =233.91Khz gamme 1 
; test 60Mhz: VHF = 594.00 Khz (PB de virgule)soit 59.40 Mhz
;
; rajout +21µS dans la boucle de comptage
; wct7_LCD4bits_Q4Mhz_a.asm
; pour F.input de 60Mhz -> MB506 / 256 => 234.375 Khz Theoriques
; resultats :
; Freq =239.73Khz gamme 1 
; VHF = 606.68 Khz 
;
;16/01/2012 rajout Freq devant la mesure .. mais =>digit saute en LSB de MHz
; a voir : lecture Hz + 1 ?  bug ?
; update 12/01/2012
; mode LCD 4 bits au lieu de 8 bits
; remplacement des adresses en dur dans le programme , par des labels
;Using TMR0 with External Clock
;paragraph 6.2 specsheet DS30430C page 29
;Therefore, it is necessary for T0CKI to have a
;period of at least 4Tosc (plus a small RC delay) divided
;by the prescaler value. The only requirement on T0CKI
;high and low time is that they do not violate the
;minimum pulse width requirement of 10 ns.
;
;parameter 40   High pulse width 30nS
;parameter 41   Low pulse width  20nS
;parameter 42   periode  (Tcy+40)/N     N=prescaler
; La valeur du quartz intervient beaucoup sur la periode mini (42)
; si Q=4Mhz  avec Tcy= 4/Fosc=> 1µS
;   periode mini = (1000+40)/256= ~4nS soit 250Mhz
; si Q=20Mhz  periode mini (200 + 40)/256 => < 1nS ! 1Ghz!?  pas glop,il y a VIOL!
; En se basant sur les limites (40 et 41)etat H=30ns + etat L=20ns => periode 50nS
;  => 20Mhz ! TRES PLAUSIBLE puisque reellement mesuré (avec quartz de 4Mhz)
; En se basant sur les limites absolues (antiviol!) de 10 + 10 ns=> 20nS
;  => 50Mhz, ce qui est decrit dans la note ci-dessous

; note microchip AN592.pdf
;The PIC16C5X has one 8-bit timer (Timer0), which can be used with
;an 8-bit prescaler. The prescaler runs asynchronously, hence it can
;count a very high frequency. The minimum rise and fall times of the input
;frequency are speci?ed to be 10 ns, so the fastest clock rate the TMR0
;can count is 50 MHz.

; 07 juin 2003 .. testé OK avec Gene a quartz et sur emetteur 27,125Mhz de Radiocommande
; affichage 7 digits   mode LCD 8 bits data
; 1hz a 50MHz (theorique)  comptage sur 24 bits
; resolution 1Hz
;http://www.piclist.com/techref/piclist/weedfreq/WCT6.htm
;*************************************************************
; FREQUENCY COUNTER
; Model : WTCNT ; Author : Terry J. Weeder ; Date :November 18, 1993 ; Version:1.0
; WWW.WEEDTECH.COM  Ported to 16f84 by  Peter Cousens  October 1998
; lines 337 to 453 ..supprimees
;*************************************************************

	list
	ERRORLEVEL      -302
	Processor       16F84A

#include <../common/p16F84A_.inc>


;	Radix           DEC
	EXPAND

	__CONFIG  0x3FF1	; _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC

;  --- Hardware ---
; Quartz 4Mhz encadre de 2x 33pF
; LCD 1x16			PIC16F84
; 1  	    0V
; 2	    +5V
; 3	    R de 390 ohms au 0V
; 4 	    Enable			RA0  pin 17
; 5       R/W	0V			RA1	 pin 18 choix de gamme
; 6 	    RS  			RA2	 pin 1

; 7	D0  0V		RB0	 pin 6 not used
; 8	D1  0V		RB1	 pin 7 not used
; 9	D2  0V		RB2	 pin 8 not used
; 10 D3  0V		RB3	 pin 9 --- 750---A Led K ---0V
; 11 D4  		RB4	 pin 10
; 12	 D5  		RB5	 pin 11
; 13	 D6  		RB6	 pin 12
; 14  D7			RB7  pin 13
; conditionnement signal
;9 		    74HCT132	RA2  pin 1
;12,13,2	74HCT132	 	RA3  pin 2
;6		    74HCT132	RA4  pin 3 input
;11,10	    74HCT132
;3,4		74HCT132
;8,5		74HCT132
;1		    74HCT132	1Mohm +5V et 820K 0V  C=1µF	signal input
;14		    74HCT132	+5V
;7		    74HCT132	0V

FREQ			    EQU      .40000  ; Xtal frequency in kHz
LCD_DATA		    EQU 	PORTB	; LCD DATA 11,12,13,14  bits 4,5,6,7
LCD_DATA_TRIS   EQU 	TRISB	;
LCD_CTRL		    EQU 	PORTA	; LCD CTRL 4,5,6   	bits 0,1,2
LCD_RS		    EQU 	2	; LCD pin 4 : Ligne Selection Registres de l'afficheur
;LCD_RW		    EQU 	1	; LCD pin 5 reliée au 0V (not used)
LCD_E		          EQU 	0	; LCD pin 6 : Ligne ENABLED controle de l'afficheur

#define Gamme PORTA,1	; Choix de gamme 1-20Mhz ou 20-1200MHz
#define Led PORTB,3	; RB3 --750--- Led--0V

ind 	equ 0h
TMR0 	equ 1h
pc 		equ 2h
status 	equ 3h
fsr 	equ 4h
;port_c equ 7h
c 		equ 0h
dc 		equ 1h
z 		equ 2h
pd 		equ 3h
to 		equ 4h
MSB 	equ 7h
LSB 	equ 0h
cnt 	equ 2h
rs 		equ 2h
rw 		equ 1h
e 		equ 0h
o 		equ 7h

RP1				EQU     H'0006'
RP0				EQU     H'0005'
STATUS  		EQU     H'0003'
OPTION_REG     	EQU     H'0081'
TRISA          	EQU     H'0085'
TRISB          	EQU     H'0086'


EEPROM EQU 0x2100

;#define  TEST_LED    ; strap les tempos pour acceler la simulation

;*************
;  DATA bank0
;*************
	cblock 0x0C
gate
cnt1
cnt2
cnt3
calc1
calc2
calc3
sum1
sum2
sum3
timer_value
; registres pour les 7 digits
c1
c2
c3
c4
c5
c6
c7
count1
count2
count3
count4
Pointer_Msg
in_reg
addcnt
LCDtmp
LCDtmp1
Dcount1
Dcount2
Dcount3
gate2
dummy
   endc

LastBank0 EQU dummy
	IF ( LastBank0 >= 0x4F )
	ERROR   "Attention debordement zone RAM "
	ENDIF


	org 0x00
	goto start ;

	org 0x04
	nop
	nop
	retfie

;****************
; Tempos
;****************

delay_25us    
             ifdef TEST_LED
                goto minidelay
                endif
                movlw   0x01
                movwf   Dcount1
                movlw   0x01
                movwf   Dcount2
                movlw   0x05
                movwf   Dcount3
                goto    delay1

delay_100us     
                ifdef TEST_LED
                goto minidelay
                endif
                      
                movlw   0x01
                movwf   Dcount1
                movlw   0x01
                movwf   Dcount2
                movlw   D'20'
                movwf   Dcount3
                goto    delay1

delay_2_5ms     
                ifdef TEST_LED
                goto minidelay
                endif
                
                movlw   0x01
                movwf   Dcount1
                movlw   0x02
                movwf   Dcount2
                movlw   D'243'
                movwf   Dcount3
                goto    delay1


delay_10ms      
                ifdef TEST_LED
                goto minidelay
                endif
                
                movlw   0x01
                movwf   Dcount1
                movlw   8
                movwf   Dcount2
                movlw   D'205'
                movwf   Dcount3
                goto    delay1

delay_100ms    
                ifdef TEST_LED
                goto minidelay
                endif
                movlw   0x01
                movwf   Dcount1
                movlw   D'79'
                movwf   Dcount2
                movlw   0x01
                movwf   Dcount3
                goto    delay1

delay_500ms
         ifdef TEST_LED
          goto minidelay
          endif

		movlw 2
		movwf Dcount1
		movlw D'135'
		movwf Dcount2
		movlw D'106'
		movwf Dcount3
		goto delay1

delay_3s
        ifdef TEST_LED
           goto minidelay
        endif
		movlw D'10'
		movwf Dcount1
		movlw D'40'
		movwf Dcount2
		movlw D'200'
		movwf Dcount3
		goto delay1

delay1
       decfsz  Dcount3,f
       goto    $-1
       decfsz  Dcount2,f
       goto    $-3
       decfsz  Dcount1,f
       goto    $-5
       return
      
minidelay
        nop
        nop
        nop
        nop
        return       
       
       

;**********************
;     LCD
;***********************
LCD_Cls
	movlw	D'01'			; effacage de l'ecran
	call	LCD_Cde
	goto	delay_2_5ms

;-----------------
LCD_Clear1				; effacage de la 1ere ligne
	movlw	D'16'
	movwf	LCDtmp1
	movlw	0x80		;LINE1
	call	LCD_Cde
	call	delay_2_5ms
LCDc111
	movlw	' '
	call	LCD_Putchar
	decfsz	LCDtmp1,f
	goto	LCDc111
LCD_Line1
	movlw	0x80		;LINE1
	call	LCD_Cde
	goto	delay_2_5ms
;--------------

LCD_Clear2				; effacage de la deuxieme ligne
	movlw	D'16'
	movwf	LCDtmp1
	movlw	0xC0		;LINE2
	call	LCD_Cde
	call	delay_2_5ms
LCDcl21
	movlw	' '
	call	LCD_Putchar
	decfsz LCDtmp1,f
	goto	LCDcl21

LCD_Line2
	movlw	0xC0
	call	LCD_Cde
	goto	delay_2_5ms

LCD_Home
	movlw	D'02'
	call	LCD_Cde
	goto delay_2_5ms

LCD_Putchar
	;bank0				; rajout 7/03/03
	movwf	LCDtmp
	call	delay_100us
	movlw   0x0f
	andwf   LCD_DATA,F
	movf    LCDtmp,w
	andlw   0xF0
	iorwf   LCD_DATA,F
;	bcf     LCD_CTRL, LCD_RW
	nop
	bsf     LCD_CTRL, LCD_RS
	nop
	bsf     LCD_CTRL, LCD_E
	call	delay_25us
	bcf     LCD_CTRL, LCD_E
	call	delay_25us
	movlw   0x0f
	andwf   LCD_DATA,F
	swapf   LCDtmp,W
	andlw   0xF0
	iorwf   LCD_DATA,F
	nop
	bsf     LCD_CTRL, LCD_E
	call	delay_25us
	bcf     LCD_CTRL, LCD_E
	call	delay_25us
	return

LCD_Init
	bcf     LCD_CTRL, LCD_E
	call 	delay_2_5ms
	bcf     LCD_CTRL, LCD_RS
	call 	delay_2_5ms
;	bcf     LCD_CTRL, LCD_RW
	call 	delay_2_5ms
	movlw	0x0f
	andwf	LCD_DATA,F
	movlw	0x030			; Commande pour interface 4 bits
	iorwf	LCD_DATA,F
	bank1
	movlw   0x0F
	andwf   LCD_DATA_TRIS,W
	movwf   LCD_DATA_TRIS		; Port en sortie
	bank0
	bsf     LCD_CTRL, LCD_E
	nop
	bcf     LCD_CTRL, LCD_E
	call 	delay_2_5ms
	bsf     LCD_CTRL, LCD_E
	nop
	bcf     LCD_CTRL, LCD_E
	call 	delay_2_5ms
	bsf     LCD_CTRL, LCD_E
	nop
	bcf     LCD_CTRL, LCD_E
	call 	delay_100ms		; tempo 100ms , remplace l'attente Wait_Busy de l'afficheur
	movlw   0x0f
	andwf   LCD_DATA,F
	movlw   0x020           ; Commande pour interface 4 bits
	iorwf   LCD_DATA,F
	bsf     LCD_CTRL, LCD_E
	nop
	bcf     LCD_CTRL, LCD_E
	movlw   0x028		; Envoi de la commande Fonction 4-bit , Font, Nombre de lignes
	call    LCD_Cde
	movlw   0x08		; display off
	call    LCD_Cde
	movlw   0x0C		; display on (0x0C sans curseur, 0x00E avec , 0x00F clign. )
	call    LCD_Cde
	movlw   0x06

LCD_Cde
	movwf   LCDtmp
	call 	delay_100ms  ; call	delay_100ms	remplace l'attente Wait_Busy de l'afficheur
	movlw   0x0f
	andwf   LCD_DATA,F
	movf    LCDtmp,w
	andlw   0xF0
	iorwf   LCD_DATA,F
;	bcf     LCD_CTRL,LCD_RW
	nop
	bcf     LCD_CTRL,LCD_RS
	nop
	bsf     LCD_CTRL,LCD_E
	nop
	bcf     LCD_CTRL,LCD_E
	movlw   0x0f
	andwf   LCD_DATA,F
	swapf   LCDtmp,W
	andlw   0xF0
	iorwf   LCD_DATA,F
	bsf     LCD_CTRL,LCD_E
	nop
	bcf     LCD_CTRL,LCD_E
	return

sub	bcf status,o	;clear overflow bit
	movf calc1,w	;subtract calc1 from cnt1
	subwf cnt1,f
	btfsc status,c
	goto sb1
	movlw 0x01 		;borrow from cnt2 if overflow
	subwf cnt2,f
	btfsc status,c
	goto sb1
	subwf cnt3,f 	;borrow from cnt3 if cnt2 overflow
	btfss status,c
	bsf status,o 	;set overflow bit if result is negative
sb1
	movf calc2,w 	;subtract calc2 from cnt2
	subwf cnt2,f
	btfsc status,c
	goto sb2
	movlw 0x01 		;borrow from cnt3 if cnt2 overflow
	subwf cnt3,f
	btfss status,c
	bsf status,o 	;set overflow bit if result is negative
sb2
	movf calc3,w 	;subtract calc3 from cnt3
	subwf cnt3,f
	btfss status,c
	bsf status,o 	;set overflow bit if result is negative
	retlw 0x00 		;
;---------------------------
add
	movf calc1,w 	;add calc1 to cnt1
	addwf cnt1,f
	btfss status,c
	goto ad1
	incfsz cnt2,f 	;add to cnt2 if cnt1 overflow
	goto  ad1
	incf cnt3 ,f 	;add to cnt3 if cnt2 overflow
ad1
	movf calc2,w 	;add calc2 to cnt2
	addwf cnt2,f
	btfsc status,c
	incf cnt3,f 	;add to cnt3 if cnt2 overflow
	movf calc3,w 	;add calc3 to cnt3
	addwf cnt3,f
	retlw 0x00 ;
;-----------------------
cnvt
    movlw 0x07 ;7 digits in display
	movwf count1
	movlw c1 		;set fsr for MSB in display
	movwf fsr
	movlw 0x2F 		;one less that ASCII "0"
cnvt0
	movwf ind
	incf fsr ,f
	decfsz count1,f
	goto cnvt0
		
	movlw 0x0F 		;load "1,000,000" in calc1-3
	movwf calc3
	movlw 0x42
	movwf calc2
	movlw 0x40
	movwf calc1
;@@@ 16 mars 2013	
	bcf status,o	; rajout pour PB +1Hz
cnvt1
	call sub 		;subtract number from count
	incf c1 ,f		;increment 1,000,000's register
	movlw 0x3A
	xorwf c1,w
	btfsc status,z
	goto overflow
	btfss status,o 	;check if overflow
	goto cnvt1

	call add 		;add back last number
	movlw 0x01 		;load "100,000" in calc1-3
	movwf calc3
	movlw 0x86
	movwf calc2
	movlw 0xA0
	movwf calc1
cnvt2
	call sub 		;subtract number from count
	incf c2 ,f 		;increment 100,000's register
	btfss status,o 	;check if overflow
	goto cnvt2
	call add 		;add back last number	
	clrf calc3 		;load "10,000" in calc1-3
	movlw 0x27
	movwf calc2
	movlw 0x10
	movwf calc1
cnvt3
	call sub 		;subtract number from count
	incf c3,f 		;increment 10,000's register
	btfss status,o 	;check if overflow
	goto cnvt3
	call add 		;add back last number
	movlw 0x03 		;load "1,000" in calc1-3
	movwf calc2
	movlw 0xE8
	movwf calc1
cnvt4
	call sub 		;subtract number from count
	incf c4,f 		;increment 1,000's register
	btfss status,o 	;check if overflow
	goto cnvt4
	call add 		;add back last number
	clrf calc2 		;load "100" in calc1-3
	movlw 0x64
	movwf calc1
cnvt5
	call sub 		;subtract number from count
	incf c5 ,f 		;increment 100's register
	btfss status,o 	;check if overflow
	goto cnvt5
	call add 		;add back number
	movlw 0x0A 		;load "10" in calc1-3
	movwf calc1
cnvt6
	call sub 		;subtract number from count
	incf c6 ,f 		;increment 10's register
	btfss status,o 	;check if overflow
	goto cnvt6
	call add 		;add back last number
	movf cnt1,w 	;put remainder in 1's register
	addwf c7 ,f
	incf c7 ,f
	retlw 0x00 		;

Comptage
	bank1
	movlw b'00110111' ;0x37 TMR0 = ext, prescaler=1/256
	movwf OPTION_REG
	bank0
	bcf PORTA,3
	bcf PORTA,2
	clrf cnt3
	clrf TMR0
	clrf timer_value
;@@@ 16 mars 2013 pour PB affiche 1Hz @ zero frequence
;	bsf PORTA,2 	;toggle TMR0 pin
;	bcf PORTA,2
	movf gate,w 	;get gate time gate=0x14=20   20x250x20=100.000 cy =>100mS
	movwf count1    ;si gate= 0xC8 => 100x250x40=1.000.000 cy => 1 sec
	bsf PORTA,3 	;start count
fr4
	movlw 0xFA		; 250  was movf gate2,w
	movwf count2
	goto fr6
fr5 
	goto $+1	;2
	goto $+1	;4
	goto $+1	;6
	goto $+1	;8
	goto $+1	;10
	goto $+1	;12
	goto $+1	;14
	goto $+1	;16
	goto $+1	;18
	goto $+1	;20  
	goto $+1	;22 
	goto $+1	;24 
	goto $+1	;26
fr6							;test for TMR0 rollover 
	movf TMR0,w 		    ;27	
	subwf timer_value ,f 	;28
	btfss status,z 		    ;29
	goto fr7			    ;31
	nop
	goto fr8
fr7
	btfsc status,c		    ;32
	incf cnt3,f 		    ;33
fr8
	movwf timer_value		;34
	nop				        ;35
	nop				        ;36
	nop				        ;37
	decfsz count2,f		    ;38
	goto fr5			    ;40
	goto $+1	;ajustement ;42µS
	goto $+1	;ajustement ;44
	goto $+1	;ajustement ;46
	goto $+1	;ajustement ;48
	goto $+1	;ajustement ;50
	goto $+1	;ajustement ;52
	goto $+1	;ajustement ;54
	goto $+1	;ajustement ;56
	goto $+1	;ajustement ;58
	goto $+1	;ajustement ;60µS
;	nop
	decfsz count1,f			; gate
	goto fr4
	; ajustement final 
;	nop         ;ajustement +1
;	nop         ;ajustement +2
;	nop         ;ajustement +3
;	nop         ;ajustement +4
;	goto $+1	;ajustement +6
;	goto $+1	;ajustement +8
;   goto $+1	;ajustement +10
;	goto $+1	;ajustement +12
;	goto $+1	;ajustement +14 
;	goto $+1	;ajustement +16 
;	goto $+1	;ajustement +18 
;	goto $+1	;ajustement +20
;	goto $+1	;ajustement +22
;	goto $+1	;ajustement +24
;	goto $+1	;ajustement +26
;	goto $+1	;ajustement +28

	bcf PORTA,3 	;stop count
	movf TMR0,w 	;get TMR0 count
	movwf cnt2
	subwf timer_value,f 	;test for TMR0 rollover
	btfss status,c
	goto fr9
	btfss status,z
	incf cnt3,f
fr9
	clrf cnt1 		;set to get prescaler count
fr10
	decf cnt1,f
	bsf PORTA,2 	;toggle TMR0 pin
	nop
  ifdef TEST_LED
	nop
	nop
	nop
	nop             ;<- stimulus RA4 ici pour test led avec MPLAB Sim
  endif
	bcf PORTA,2
	movf TMR0,w 	;test if TMR0 has changed
	xorwf cnt2,w
	btfsc status,z
	goto fr10
	retlw 0x00 ;



;********************************************
; main program

start
	clrf PORTA 	;instruction, write, enable low
	clrf PORTB
	bank1
	movlw b'00010010'  ; RA4 & RA1 as input others output
	movwf TRISA
	movlw b'00000000'  ; all outputs
	movwf TRISB
	bank0
	
	bsf PORTB,3			; allume led
	
	call delay_500ms
	call LCD_Init		; en mode 4 bits
	call delay_500ms
	;1er msg
	call LCD_Clear1
	movlw 0
	movwf Pointer_Msg
	Call AffNumMsgEeprom
	call	delay_3s
	;2em msg
	call LCD_Clear1
	movlw 1
	movwf Pointer_Msg
	Call AffNumMsgEeprom
	call	delay_3s
	;3em msg
	call LCD_Clear1
	movlw 2
	movwf Pointer_Msg
	Call AffNumMsgEeprom
	call	delay_3s
	call LCD_Clear1
	
	bcf PORTB,3			; eteint led

debut
	movlw 8
	xorwf PORTB,f     ; clignote Led a chaque boucle
	call delay_100ms
	
hz 	movlw D'0'		; 2,56 sec gate '0 equivaut à 256   -1=>255 -1=>254....) si commutateur de gamme  RA.1=0
	btfsc Gamme		; test RA.1
	movlw D'100'	; 1 sec si commutateur de game RA.1=1
	movwf gate		
hz00
	call Comptage
	call cnvt 		;convert binary to BCD
hz0
	Call Entete
	movlw 0x84 		;set display address
	call LCD_Cde
	movlw 0x07 		;output first 7 characters
	movwf count1
	movlw c1 		;MSD of freq
	movwf fsr
hz1
	movlw 0x30 		;test if "0"
	xorwf ind,w
	btfss status,z
	goto hz2
	movlw ' ' ;0x20 		;change preceeding "0's" to "space"
	call LCD_Putchar
	incf fsr,f
	decfsz count1,f
	goto hz1
	goto hz3
hz2
    movf ind,w
	call LCD_Putchar
	incf fsr,f
	btfsc Gamme
	goto hz21
	movlw 0x05
	xorwf count1,w	
	btfss status,z
	goto hz21
	movlw '.'	
	call LCD_Putchar
hz21	
	decfsz count1,f
	goto hz2
hz3
	movlw 0x20 		;"space"
	call LCD_Putchar
	btfsc Gamme
	goto hz4
	movlw 'M' 		;"M"
	call LCD_Putchar
	
hz4
	movlw 0x48 		;"H"
	call LCD_Putchar
	movlw 0x7A 		;"z"
	call LCD_Putchar
	movlw 0x20 		;"space"
	call LCD_Putchar
	btfss Gamme
	goto debut 	
	movlw 0x20 		;"space"
	call LCD_Putchar
	goto debut 		;

overflow
	movlw 0x01 		;clear display
	call LCD_Cde
	movlw 0x84 		;at colum 4 line 1
	call LCD_Cde
	movlw 0x4F 		;"O"
	call LCD_Putchar
	movlw 0x76 		;"v"
	call LCD_Putchar
	movlw 0x65 		;"e"
	call LCD_Putchar
	movlw 0x72 		;"r"
	call LCD_Putchar
	movlw 0x66 		;"f"
	call LCD_Putchar
	movlw 0x6C 		;"l"
	call LCD_Putchar
	movlw 0x6F 		;"o"
	call LCD_Putchar
	movlw 0x77 		;"w"
	call LCD_Putchar
	movlw 0x02 		;cursor at home
	call LCD_Cde
	call	delay_3s
	goto debut ;

Entete
	btfss Gamme
	goto Entete2
	call LCD_Home
	movlw 'F'
	call LCD_Putchar
	movlw 'r'
	call LCD_Putchar
	movlw 'q'
	call LCD_Putchar
;	movlw 'q'
;	call LCD_Putchar
;	movlw ' '
;	call LCD_Putchar
	return
Entete2
	call LCD_Home
	movlw 'V'
	call LCD_Putchar
	movlw 'H'
	call LCD_Putchar
	movlw 'F'
	call LCD_Putchar
;	movlw '-'
;	call LCD_Putchar
	return



; affiche Num Msg en eeprom
; terminaison par caractere null ou taille maxi de 16 cars
;==============================
AffNumMsgEeprom
		movf Pointer_Msg,w
		movwf cnt2
		bcf STATUS,C
		rlf cnt2,f
		rlf cnt2,f
		rlf cnt2,f
		rlf cnt2,f		; pointeur = Num Msg * 16
		clrf cnt3
affMsg_	
; sortie si 16em car ou rencontre de zero	
		movf	cnt3,w
		addwf 	cnt2,w
		MOVWF	EEADR
		bank1
		BSF 	EECON1,RD	;  bit 0
		bank0
		call delay_100us
		MOVF 	EEDATA,W
		XORLW   0             ; Is this the terminating char?
		BTFSC   STATUS,Z
		GOTO    EndAffNum
		call   LCD_Putchar
 		incf	cnt3,f
		btfss	cnt3,4		; 16em car ?
		goto 	affMsg_
EndAffNum
	return



	org 0x2100
signature
	   ;1234567890123456
	DT "WCT8_LCD_16F84  "
	DT "1-10Mhz 10-999Mz"
	DT "rev PF 130330   "
	DT "Overflow       ."
	
	end