设计家用管道煤气遥控切断阀

文章摘要：; sleep wake up* * * * * * *Main1movlw 0 ; all l0movwf GPI0movlw 00001001b ; gp0, gp3 i/ P gp1,2.4,50/Ptris GPI0clrf TMRO ; clear tmr0 & prescalermovlw 01000111b ; tmr0 enable with 1 : 256pre scaleroptionbtfsc flagO. relay ; relay off ?goto main2movlw 200movwf count_3smain 11 nopnopnopnopnopbtfsc

设计家用管道煤气遥控切断阀,标签：电子小制作,http://www.88dzw.com
　　; sleep wake up* * *  * * * *

　　Main1

　　movlw 0 ; all l0

　　movwf GPI0

　　movlw 00001001b ; gp0, gp3 i/ P gp1,2.4,5

　　0/P

　　tris GPI0

　　clrf TMRO ; clear tmr0 & prescaler

　　movlw 01000111b ; tmr0 enable with 1 : 256

　　pre scaler

　　option

　　btfsc flagO. relay ; relay off ?

　　goto main2

　　movlw 200

　　movwf count_3s

　　main 11  nop

　　nop

　　nop

　　nop

　　nop

　　btfsc GPI0, Vt ; Vt high ?

　　goto main 21

　　nop

　　nop

　　nop

　　nop

　　nop

　　decfsz count_3s, f ; 3s complete ?

　　goto main11

　　goto main2

　　; close valve

　　main21

　　movlw 20 ; 3s

　　movwf count_3s

　　bcf GPI0, va ; open valve

　　bSf GPI0, Vd

　　call delay

　　bcf GPI0, va ; disable valve

　　bcf GPI10, vd

　　bsf flag0, relay ; set relay off flag

　　main2

　　nop

　　nop

　　sleep

　　nop

　　nop

　　goto main2

　　delay

　　movlw 195 ; is tmro = 195 / 50ms?

　　xorwf TMRO, w

　　btfSs STATUS, Z ; Skip if = 195

　　goto delay

　　clrf TMRO

　　decfsz count_3s, f ; 3s complete ?

　　goto delay

　　retu rn

　　end

上一页  [1] [2]