📄 ad.asm
字号:
RETLW 0
WUSHIS
MOVLW D'90'
SUBWF SHUIWEI,0
BTFSC STATUS,C
RETLW 0
BSF PORTA,2 ;低于50%要上水
BSF ZHISHI,0 ;点亮上水指示
BSF SHANGSBZ,0 ;置上水标志
RETLW 0
BASHIS
MOVLW D'130'
SUBWF SHUIWEI,0
BTFSC STATUS,C
RETLW 0
BSF PORTA,2 ;低于80%要上水
BSF ZHISHI,0 ;点亮上水指示
BSF SHANGSBZ,0 ;置上水标志
RETLW 0
;##################################################
SHUIWCL2 ;自动关水处理
BTFSC SHOUDBZ,0
RETLW 0
;MOVF SHEZHI,0 ;在设置按下时泵不处理
;BTFSS STATUS,Z
;RETLW 0
MOVLW D'1'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO WUSHIG ;设定关水水位为50%
MOVLW D'3'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO BASHIG ;设定关水水位为80%
MOVLW D'7'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO YIBAIG ;设定关水水位为100%
RETLW 0
WUSHIG
BTFSC GUANBZ,0
RETLW 0
MOVLW D'90'
SUBWF SHUIWEI,0
BTFSS STATUS,C
RETLW 0
DECFSZ JDYS1,1
RETLW 0
MOVLW D'200'
MOVWF JDYS1
DECFSZ JDYS11,1
RETLW 0
MOVLW D'10'
MOVWF JDYS11
BCF PORTA,2 ;高于50%停止上水
BCF ZHISHI,0 ;点亮上水指示
CLRF SHANGSBZ ;停止上水标志清零
BSF GUANBZ,0
RETLW 0
BASHIG
BTFSC GUANBZ,1
RETLW 0
MOVLW D'130'
SUBWF SHUIWEI,0
BTFSS STATUS,C
RETLW 0
DECFSZ JDYS2,1
RETLW 0
MOVLW D'200'
MOVWF JDYS2
DECFSZ JDYS22,1
RETLW 0
MOVLW D'10'
MOVWF JDYS22
BCF PORTA,2 ;高于80%停止上水
BCF ZHISHI,0 ;点亮上水指示
CLRF SHANGSBZ ;停止上水标志清零
BSF GUANBZ,1
RETLW 0
YIBAIG
BTFSC GUANBZ,2
RETLW 0
MOVLW D'190'
SUBWF SHUIWEI,0
BTFSS STATUS,C
RETLW 0
DECFSZ JDYS3,1
RETLW 0
MOVLW D'200'
MOVWF JDYS3
DECFSZ JDYS33,1
RETLW 0
MOVLW D'10'
MOVWF JDYS33
BCF PORTA,2 ;高于100%停止上水
BCF ZHISHI,0 ;点亮上水指示
CLRF SHANGSBZ ;停止上水标志清零
BSF GUANBZ,2
RETLW 0
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
SHOUDSS
MOVF SHEZHI,0
BTFSS STATUS,Z
RETLW 0
BTFSC SHANGSBZ,0
RETLW 0 ;正在自动上水,手动上水不处理
BTFSS PORTC,0
GOTO ANJIAN5 ;手动上水
BTFSS PORTC,1
GOTO ANJIAN6 ;手动关水
CLRF CHULI1
RETLW 0
ANJIAN5
BTFSC CHULI1,0
RETLW 0
BTFSC PORTC,0
RETLW 0
CALL TIME5MS
BTFSC PORTC,0
RETLW 0
DECFSZ ANJSC,1
RETLW 0
MOVLW D'3'
MOVWF ANJSC
BSF CHULI1,0
MOVLW D'190'
SUBWF SHUIWEI,0
BTFSC STATUS,C
GOTO ANJIAN55
BSF PORTA,2 ;泵工作
BSF ZHISHI,3 ;手动上水指示
BSF ZHISHI,0 ;点亮上水指示
BSF SHOUDBZ,0 ;置手动上水标志，程序到自动是不处理
RETLW 0
ANJIAN55 ;以到最高水位,不启动泵循环
BCF PORTA,2
BCF ZHISHI,3 ;手动上水指示
BCF ZHISHI,0 ;点亮上水指示
CLRF SHOUDBZ
RETLW 0
ANJIAN6
BTFSC CHULI1,0
RETLW 0
BTFSC PORTC,1
RETLW 0
CALL TIME5MS
BTFSC PORTC,1
RETLW 0
DECFSZ ANJSC,1
RETLW 0
MOVLW D'3'
MOVWF ANJSC
BSF CHULI1,0
BCF PORTA,2
BCF ZHISHI,3 ;手动上水指示
BCF ZHISHI,0 ;点亮上水指示
CLRF SHOUDBZ
RETLW 0
TINGJI ;检测手动上水水漫时就停止泵循环
BTFSC GUANBZ,3
RETLW 0
MOVF SHEZHI,0
BTFSS STATUS,Z
RETLW 0
MOVLW D'190'
SUBWF SHUIWEI,0
BTFSS STATUS,C
RETLW 0
DECFSZ JDYS4,1
RETLW 0
MOVLW D'200'
MOVWF JDYS4
DECFSZ JDYS44,1
RETLW 0
MOVLW D'10'
MOVWF JDYS44
BCF PORTA,2
BCF ZHISHI,3 ;手动上水指示
BCF ZHISHI,0 ;点亮上水指示
BSF GUANBZ,3
CLRF SHOUDBZ
RETLW 0
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2
ZHSHD ;点亮4个指示灯
MOVF ZHISHI,0
MOVWF PORTB
BCF PORTC,6
CALL TIME3MS
BSF PORTC,6
RETLW 0
;##########################################
SDSWXS ;设定水位显示
MOVLW D'1'
SUBWF SHEZHI,0
BTFSC STATUS,Z
GOTO ZIDONGK ;自动开显示
MOVLW D'2'
SUBWF SHEZHI,0
BTFSC STATUS,Z
GOTO ZIDONGG ;自动关
MOVLW D'3'
SUBWF SHEZHI,0
BTFSC STATUS,Z
GOTO XIANSAD
RETLW 0
XIANSAD
MOVF SHUIWEI,0
MOVWF LSD
CALL BCDZH
MOVF LSD2,0
CALL TABLE1
MOVWF PORTB
BCF PORTC,7
CALL TIME3MS
BSF PORTC,7
MOVF MSD,0
CALL TABLE1
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVF LSD1,0
CALL TABLE1
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
RETLW 0
ZIDONGG
MOVLW D'1'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO GUANSZS1 ;设定关水水位为50%
MOVLW D'3'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO GUANSZS2 ;设定关水水位为80%
MOVLW D'7'
SUBWF ZDGS1,0
BTFSC STATUS,Z
GOTO GUANSZS3 ;设定关水水位为100% ;自动关显示
GUANSZS1
CALL TIME3MS
MOVLW H'75'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
GUANSZS2
CALL TIME3MS
MOVLW H'F7'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
GUANSZS3
MOVLW H'90'
MOVWF PORTB
BCF PORTC,7
CALL TIME3MS
BSF PORTC,7
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
RETLW 0
ZIDONGK
MOVLW D'1'
SUBWF ZDSS1,0
BTFSC STATUS,Z
GOTO SHANGSZS1 ;设定上水水位为20%
MOVLW D'3'
SUBWF ZDSS1,0
BTFSC STATUS,Z
GOTO SHANGSZS2 ;设定上水水位为50%
MOVLW D'7'
SUBWF ZDSS1,0
BTFSC STATUS,Z
GOTO SHANGSZS3 ;设定上水水位为80%
SHANGSZS1
CALL TIME3MS
MOVLW H'C7'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
SHANGSZS2
CALL TIME3MS
MOVLW H'75'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
SHANGSZS3
CALL TIME3MS
MOVLW H'F7'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
;##########################################
SWZS ;水位指示
MOVF SHEZHI,0
BTFSS STATUS,Z
RETLW 0
MOVLW D'190'
SUBWF SHUIWEI,0
BTFSC STATUS,C
GOTO SWZS1 ;100
MOVLW D'130'
SUBWF SHUIWEI,0
BTFSC STATUS,C
GOTO SWZS2 ;80
MOVLW D'90'
SUBWF SHUIWEI,0
BTFSC STATUS,C
GOTO SWZS3 ;50
MOVLW D'60'
SUBWF SHUIWEI,0
BTFSC STATUS,C
GOTO SWZS4 ;20
MOVLW D'55'
SUBWF SHUIWEI,0
BTFSS STATUS,C
GOTO SWZS5 ;无水
;CLRF SHUIWEI
RETLW 0
SWZS1
MOVLW H'90'
MOVWF PORTB
BCF PORTC,7
CALL TIME3MS
BSF PORTC,7
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
RETLW 0
SWZS2
CALL TIME3MS
BCF GUANBZ,2 ;低于100清零下次再到一百时再置1
BCF GUANBZ,3
MOVLW H'F7'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
SWZS3
CALL TIME3MS
BCF GUANBZ,1
BCF GUANBZ,2
BCF GUANBZ,3
MOVLW H'75'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
SWZS4
CALL TIME3MS
BCF GUANBZ,0
BCF GUANBZ,1
BCF GUANBZ,2
BCF GUANBZ,3
MOVLW H'C7'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
SWZS5
CLRF GUANBZ
CALL TIME3MS
MOVLW H'F3'
MOVWF PORTB
BCF PORTC,5
CALL TIME3MS
BSF PORTC,5
BCF PORTC,4
CALL TIME3MS
BSF PORTC,4
BSF PORTC,7
RETLW 0
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
END ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -