ÿÿC_VARV_Code1Code secret 1/5€V_Code2Code secret 2/5€V_Code3Code secret 3/5€V_Code4Code secret 4/5€V_Code5Code secret 5/5€ V_CounterCompteur de codes introduits€V_FlagBannière€V_Key1Code clavier 1/5€V_Key2Code clavier 2/5€V_Key3Code clavier 3/5€V_Key4Code clavier 4/5€V_Key5COde clavier 5/5€V_KeyInCode clavier courant€V_LoopCompteur de boucle€V_SwitchBascule€ V_BeepLenght Durée du Beep€ V_Change1Code changement 1/5€ V_Change2Code changement 2/5€ V_Change3Code changement 3/5€ V_Change4Code changement 4/5€ V_Change5Code changement 5/5€ V_AddressAdresse EEprom€V_Data Donnée EEpromÿÿCListe ÿÿCModule/HOME ALARM M.LECLERE 09/11/2009 Version 1.40ÿÿCSaut ÿÿCStRout Init€ BeepÿÿCLcd1þlllñTexte"€1þlllALARME INACTIVE "€1þlllTexte"€1þlllCODE : €  GetKey€    Intrusion Start 16f876ÿ€?d€€€ €ÿÿ CRegistre_ 3PORTClllCSTATUSlllÿÿCTempoT_300uS200-€ 3PORTClllCSTATUSlll/€T_300uS200ÿÿCBoucle1 V_BeepLenghtBeep€?›€€€ ÿÿCCpt1þlll1D'50'þlll÷1 V_BeepLenght=8€1þlll1D'3'þlll÷1V_Loop="€1þlllTexte"€1þlllERREUR 8€1þlll1V_Loop1V_LoopD/€T_250mS150000€  BeepÿÿCCptTest 1V_Looplll81D'0'þlllë= € /€ T_3S2000000"€ 1þlllTexte"€  1þlll "€ 1þlllTexteCodeBad€?K€€€  "€1þlllÀTexte"€1þlllÇTexte8€1þlll1V_Switch1V_SwitchN@€1V_SwitchlllÉ1D'0'þlll= -€ 1PORTAlll¿CSTATUSlll¹"€1þlllALARME ACTIVEE "€ 1þlllTexte"€ 1þlll "€  1þlllTexte-€  0PORTAlll¿CSTATUSlll¹-€  1PORTAlll¿CSTATUSlll¹"€ 1þlllALARME INACTIVE € CodeOk€?€ €€  8€1þlll1D'0'þlll÷1 V_Counter="€1þlllTexte"€1þlllTexte"€1þlllNOUVEAU CODE "€1þlllTexte"€1þlll "€ 1þlllTexte€  GetKey€   Intrusion@€  1 V_Counterlllÿ1D'5'þlll= €  DefNew€?€X€€ 8€1þlll1 B'00000001'þlll÷1PORTBlll=ÿÿCTest4PORTBllli€5PORTBllli€6PORTBlll i€7PORTBlll$8€1þlll1 B'00000010'þlll÷1PORTBlll=i€ 4PORTBlll(i€ 5PORTBlll,i€ 6PORTBlll0i€ 7PORTBlll48€ 1þlll1 B'00000100'þlll÷1PORTBlll=i€  4PORTBlll8i€5PORTBlll<i€6PORTBlll@i€7PORTBlllD8€1þlll1 B'00001000'þlll÷1PORTBlll=i€4PORTBlllHi€5PORTBlllLi€6PORTBlllPi€7PORTBlllT€ KeyLatch€i€ 4PORTBlll8€ 1þlllþ1H'31'þlll1V_KeyIn=€ €!i€5PORTBlll8€1þlllþ1H'34'þlll1V_KeyIn=€€i€ !6PORTBlll#8€!"1þlllþ1H'37'þlll1V_KeyIn=€"€# i€$%7PORTBlll'8€%&1þlllþ1H'2A'þlll1V_KeyIn=€& €'$i€() 4PORTBlll+8€)* 1þlllþ1H'32'þlll1V_KeyIn=€* €+ (i€,- 5PORTBlll/8€-. 1þlllþ1H'35'þlll1V_KeyIn=€. €/ ,i€01 6PORTBlll38€12 1þlllþ1H'38'þlll1V_KeyIn=€2 €3 0i€45 7PORTBlll78€56 1þlllþ1H'30'þlll1V_KeyIn=€6€7 4i€894PORTBlll;8€9:1þlllþ1H'33'þlll1V_KeyIn=€:€;8i€<=5PORTBlll?8€=>1þlllþ1H'36'þlll1V_KeyIn=€>€?<i€@A 6PORTBlllC8€AB 1þlllþ1H'39'þlll1V_KeyIn=€B €C @i€DE 7PORTBlllG8€EF 1þlllþ1H'23'þlll1V_KeyIn=€F €G Di€HI4PORTBlllK8€IJ1þlllþ1H'41'þlll1V_KeyIn=€J€K Hi€LM5PORTBlllO8€MN1þlllþ1H'42'þlll1V_KeyIn=€N€OLi€PQ6PORTBlllS8€QR1þlllþ1H'43'þlll1V_KeyIn=€R€SPi€TU7PORTBlllW8€UV1þlllþ1H'44'þlll1V_KeyIn=€V€WTGetKey€?€€€ 8€ A5 en entrée1þlll1 B'00100000'þlll1TRISAlll=8€1þlll1 B'11110000'þlllÿ1TRISBlll=8€1þlll1 B'00000000'þlll1TRISClll=8€1þlll1D'0'þlll1 V_Counter=8€ 1þlll1D'0'þlll1V_Switch=8€ 1þlll1D'20'þlllb1 V_BeepLenght=€   SecretCode€   ChangeCode"€ 1þlllþTexte"€  1þlllHOME ALARM "€1þlllTexte"€1þlllM.LECLERE V1.40/€T_3S2000000ÿÿCCodeBANK1Ï€BANK0Init€?m€ €€ @€1V_Switchlll1D'0'þlll=€i€5PORTAlll-€ 0PORTAlllCSTATUSlll"€1þlllTexte"€1þlllTexte"€ 1þlllµ** INTRUSION **"€ 1þlllTexte€  Intrusion€?"€"€€  8€1þlll1D'25'þlll÷1 V_BeepLenght=8€1þlll1 V_Counter1 V_CounterI@€1 V_Counterlll1D'1'þlll= @€1 V_Counterlll1D'2'þlll=@€1 V_Counterlll1D'3'þlll=@€1 V_Counterlll1D'4'þlll=@€ 1 V_Counterlll1D'5'þlll="€ 1þlll¹*€  Beep@€  1 V_Counterlll1D'5'þlll=8€ 1þlll1V_KeyIn1V_Key1=€  8€1þlll1V_KeyIn1V_Key2=€ 8€1þlll1V_KeyIn1V_Key3=€ 8€1þlll1V_KeyIn1V_Key4=€  8€ 1þlll1V_KeyIn1V_Key5=€  @€ 1V_Flaglll1D'2'þlll=€  Verify€€  SaveNew/€T_3S2000000"€1þlllýTexte"€1þlllTexte"€1þlllALARME INACTIVE "€1þlllTexte"€ 1þlllÿ "€ !1þlllTexte€! KeyLatch€?Ѐ€€ 8€1þlll1D'0'þlll÷1V_Flag=8€1þlll1D'0'þlll÷1 V_Counter=8€1þlll1V_Key11V_Code1=8€1þlll1V_Key21V_Code2=8€1þlll1V_Key31V_Code3=8€1þlll1V_Key41V_Code4=8€ 1þlll1V_Key51V_Code5="€ 1þlllÙTexte"€ 1þlllOK €    SecretCode€  SaveCode/€ WAIT_4ms15000 SaveNew€?€!€€  8€1þlll1D'0'þlll÷1 V_Counter=8€1þlll1D'0'þlll÷1V_Flag=ÿÿCRegTest1PORTAlllCSTATUSlll @€1V_Key1lll1 V_Change1lll= @€1V_Key1lll1V_Code1lll=@€1V_Flaglll1D'1'þlll=€ CodeBad€  @€ 1V_Key2lll1 V_Change2lll= € @€  1V_Key3lll1 V_Change3lll=€  @€ 1V_Key4lll1 V_Change4lll=€ @€ 1V_Key5lll1 V_Change5lll=€ 8€ 1þlll1D'2'þlll÷1V_Flag=€ DefNew€ @€1V_Key2lll1V_Code2lll=€@€1V_Key3lll1V_Code3lll=€ @€ 1V_Key4lll1V_Code4lll=€ @€ 1V_Key5lll1V_Code5lll=€ 8€ 1þlll1D'1'þlll÷1V_Flag=€ €  CodeOk€  Verify€?m€€€  8€1þ1H'00'þ÷1 V_Addressþ =ÿÿCEeprom1 V_Address1V_Code1@€ 1V_Code11H'FF'þî=8€1þ1H'30'þ÷1V_Code1þ =8€1þ1H'30'þ÷1V_Code2þ=8€1þ1H'30'þ÷1V_Code3þ =8€ 1þ1H'30'þ÷1V_Code4þ=8€ 1þ1H'30'þ÷1V_Code5þ=€  SaveCode€ 8€ 1þ1 V_Addressþ 1 V_AddressþI71 V_Address1V_Code28€1þ1 V_Addressþ 1 V_AddressþI71 V_Address1V_Code38€ 1þ1 V_Addressþ 1 V_AddressþI7 1 V_Address1V_Code48€ 1þ1 V_Addressþ 1 V_AddressþI7 1 V_Address1V_Code5 SecretCodeÿ?èˆ?€€€ 8€1þlll1H'2A'þlll1 V_Change1=8€1þlll1H'2A'þlll1 V_Change2=8€1þlll1H'2A'þlll1 V_Change3=8€1þlll1H'30'þlll1 V_Change4=8€1þlll1H'23'þlll1 V_Change5= ChangeCodeÿ?èˆ?€ €€  8€1þ1H'00'þ÷1 V_Addressþ =71 V_Address1V_Code18€1þ1 V_Addressþ 1 V_AddressþI71 V_Address1V_Code28€1þ1 V_Addressþ 1 V_AddressþI71 V_Address1V_Code38€ 1þ1 V_Addressþ 1 V_AddressþI7 1 V_Address1V_Code48€ 1þ1 V_Addressþ 1 V_AddressþI7  1 V_Address1V_Code5SaveCodeÿ€?ÿÿC_TEMPO200T_300uSex : delais ...^150000T_250mSex : delais ...^2000000T_3Sex : delais ...^15000WAIT_4msex : delais ...^4500 WAIT_1500µsex : delais ...^100 WAIT_100µsex : delais ...ËHOME ALARM V 1.40 Code sur 5 chiffres sauvegardés en EEprom M.LECLERE Code secret de départ = 00000 Code pour changement code secret = ###0* Ne peut être changé que si l'alarme est inactive 16F876j_CP_OFF & _BODEN_OFF & _WRT_ENABLE_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _HS_OSC & _DEBUG_OFF & _CPD_OFF APORTC,1PORTC,0PORTC,4PORTC,5PORTC,6PORTC,7