Electromechanical Timer Replacement - 320Volt

More documents

Recommendations

Info

Electromechanical Timer Replacementcall tx ;and transmit it;rbyte call rx ;read 1 byte from devicemovf datai,w ;copy byte into registermovwf IND0 ; pointed to by FSRincf FSR ;increment the FSRdecfsz bcount ;are all 6 bytes read?goto lowack ;no, send low ack and do anotherbsf eeprom,do ;yes, send high ack bitcall bitOut ;to stop transmissioncall bStop ;and send a stop bitvgoto infLoop ;all done - go to the main program looplowack bcf eeprom,do ;send low ack bitcall bitOut ;to continue transmissiongoto rbyte ;and read another byte;************************************************;* Start of main program loop *;************************************************infLoop;handle the timerHandleTimermovf RTCC,w ;get the current RTCC counter valuemovwf temp ; and temporarily save itsubwf oldRTCC,w ;has the RTCCSLT; rolled over?goto decRoll ;if yes - decrement the rollover countergoto tmrEnd ;else goto tmrEnddecRolldecf dbncTmr ;decrement the debounce timermovlw 1 ;subtract 1subwf rollL ; from rollL (low byte)SGE;skip if borrow did not occursubwf rollH ;otherwise, subtract 1 from rollH (high byte)movlw 0 ;is rolloveriorwf rollL,w ; counterSNE ; =iorwf rollH,w ; 0?SEQ ;goto tmrEnd ;if no - goto tmrEndcall InitRollOver ;re-initialize rollover counter;handle .1 second target counter if not in an event counter modemovlw COUNTR ;are we in ansubwf mode,w ; event counterSLT; mode?goto tmrEnd ;if yes - goto tmrEndcall IsTgtZero ;otherwise, is target counter = 0?SEQ;if it is, skipcall DecrTgt ;otherwise, decrement the target countertmrEndmovf temp,w ;update old RTCC valuemovwf oldRTCC ; from temp register;handle inputshandleInbcf flags,EDGON ;reset the input edge flag; handle debouncing of the inputsclrw;is debounce timeriorwf dbncTmr,w ; = 0?SEQ;if yes, skip next instructiongoto doSequencer ;otherwise, go to doSequencer© 1997 Microchip Technology Inc. DS40160A/1_005B-page 21
Electromechanical Timer Replacement; handle TimerIn input debounce state machinecall doTmrInState ;run timer input debounce state machinemovlw 2 ;is current statesubwf inDbnc,w ; >= 2?SGE;if so, skip next instructiongoto TInEnd3 ;goto TInEnd3 (input low);input highbtfsc flags,INPHI ;was timer input previously low?goto TInEnd1 ;if not - go to TInEnd1btfsc tmropt,TRLEDG ;are we configured for rising edge detect?goto TInEnd1 ;if not - go to TInEnd1bsf flags,EDGON ;set the edge detect flagTInEnd1 bsf flags,INPHI ;set timer input high flagbtfsc tmropt,LOWIN ;is input configured to be active low?goto TInEnd2 ;if yes - go to TInEnd2bsf flags,INPON ;if no - set timer input active flaggoto doRstIn ;go to doRstInTInEnd2 bcf flags,INPON ;clear timer input active flaggoto doRstIn ;go to doRstIn;input lowTInEnd3 btfss flags,INPHI ;was timer input previously high?goto TInEnd4 ;if not - go to TInEnd3btfss tmropt,TRLEDG ;are we configured for trailing edge detect?goto TInEnd4 ;if not - go to TInEnd3bsf flags,EDGON ;set the edge detect flagTInEnd4 bcf flags,INPHI ;clear timer input high flagbtfss tmropt,LOWIN ;is input configured to be active low?goto TInEnd5 ;if no - go to TInEnd5bsf flags,INPON ;if yes - set timer input active flaggoto doRstIn ;go to doRstInTInEnd5 bcf flags,INPON ;clear timer input active flag;handle TimerReset inputdoRstIncall doRstInState ;run reset input state machinemovlw 2 ;is current statesubwf rstDbnc,w ; >= 2?SGE;if so, skip next instructiongoto RstEnd2 ;if no - go to RstEnd2;reset input highbsf flags,RSTHI ;clear Timer Reset high flagbtfsc tmropt,LOWRST ;is reset input configured to be active low?goto RstEnd1 ;if yes - go to RstEnd1bsf flags,RSTON ;set reset input on flaggoto dbncEnd ;go to dbncEndRstEnd1 bcf flags,RSTON ;clear reset input on flaggoto dbncEnd ;go to dbncEnd;reset input lowRstEnd2 bcf flags,RSTHI ;clear Timer Reset high flagbtfss tmropt,LOWRST ;is reset input configured to be active low?goto RstEnd3 ;if no - go to RstEnd3bsf flags,RSTON ;set reset input on flaggoto dbncEnd ;go to dbncEndRstEnd3 bcf flags,RSTON ;clear reset input on flagdbncEnd movlw DBNCTM ;resetmovwf dbncTmr ; debounce timer;handle sequencer statedoSequencerDS40160A/1_005B-page 22© 1997 Microchip Technology Inc.
Page 3 and 4:
Electromechanical Timer Replacement
Page 9 and 10: Electromechanical Timer Replacement
Page 11 and 12: Electromechanical TimerReplacementL
Page 13 and 14: MWORLDWIDE SALES & SERVICEAMERICASC
Page 17 and 18: PIC12C508 Based TimerElectromechani
Page 19 and 20: Electromechanical TimerReplacementA
Page 55: Electromechanical Timer Replacement
Page 59 and 60: Time Delay Relay FamilyElectromecha
show all

Electromechanical Timer Replacement - 320Volt

Create successful ePaper yourself

Delete template?

Save as template?