Electromechanical Timer Replacement - 320Volt

Electromechanical Timer ReplacementTimer:set_out:bcfINTCON,2movlw -D'125' ;count up 125 to rollovermovwf TMR0decfsz second_cnt,Freturnmovlw D'125' ;125*125*64=1 million clocks;equals one secondmovwf second_cntdecfsz time_cnt,Freturnbtfss flag,TIMINGreturnbcfflag,TIMINGbtfsc flag,COMMANDgotoset_outbcfGPIO,5bcfflag,ACTUALreturnbsfbsfreturnGPIO,5flag,ACTUAL;*********************************************************************; Input interrupt routine;*********************************************************************Input_change:error_on:timed_on:input_off:bcfbtfssgotobtfscreturnbsfbtfscgotocallbsfrrfrrfrrfmovfbtfscgotomovwfmovlwmovwfbcfmovlwmovwfbsfreturnbcfreturnbsfbsfreturnbtfssreturnbtfssINTCON,0GPIO,3input_offflag,COMMANDflag,COMMANDflag,ACTUALerror_onAdloopADCON0,3ADRES,FADRES,FADRES,FADRES,WSTATUS,Ztimed_ontime_cnt-D'125'TMR0INTCON,2D'125'second_cntflag,TIMINGflag,TIMINGGPIO,5flag,ACTUALflag,COMMANDflag,ACTUALDS40160A/1_003-page 4© 1997 Microchip Technology Inc.