EK-6 - 320Volt

238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277movwf g_time2 ;Save loop counter2g_loop2 nop;Time adjustdecfsz g_time2,f ;g_time2 - 1 = 0 ?goto g_loop2 ;No. Continuedecfsz g_time1,f ;g_time1 - 1 = 0 ?goto g_loop1 ;No. Continue;*** Receive pulse detector onbsf porta,ra5 ;Set detector ONgoto int_end;*************** Pulse send-out Process ****************pulsemovlw b'00010000' ;RC4=ONmovwf portc ;Set PORTC registercall t12us ;Call 12usec timerclrf portc ;RC4=OFFgoto $+1goto $+1nopreturn;*************** 12 microseconds timer *****************t12usgoto $+1goto $+1goto $+1goto $+1nopreturn;****************** Capture Process ********************capturebcf pir1,ccp1if ;Clear CCP1 int flagclrf p_countl ;Clear L countclrf p_counth ;Clear H countclrf ccp1con ;CCP1 off71