?? 模糊控制和經驗的水溫調節系統2.asm
字號:
;**************************************************
;****************************************************
;**************************************************
;****************************************************
;***********************************************************
;==================================中斷0響應，做時鐘和產生PWM
TIME_0:PUSH ACC
PUSH B
PUSH PSW
MOV TL0,#0F3H
MOV TH0,#0D8H
INC DATEX_1
JNB SIGN_ZHAN,TIME_X1
MOV A,DATEX_1
CJNE A,DATEX_2,TIME_X1
CPL OUT_PUT
TIME_X1:MOV A,DATEX_1
CJNE A,#64H,TIME_X
MOV DATEX_1,#00H
LCALL CLOCK
TIME_X: POP PSW
POP B
POP ACC
RETI
;=====================================時鐘
CLOCK:
INC DATEX_3
INC DATEX_10
JNB SIGN_CASE,CLOCKE_6
INC ZHAN_TIME
MOV A,ZHAN_TIME
CJNE A,ZHAN_KONG,CLOCKE_8
SETB SIGN_30
CLOCKE_8:JNB SIGN_30,CLOCKE_6
MOV ZHAN_TIME,#29
SETB SIGN_ZHAN
CPL OUT_PUT
CLOCKE_6:MOV A,DATEX_10
CJNE A,#01H,CLOCK_2 ;;;???
MOV DATEX_10,#00H
LCALL IN_PUT ;;;;啟動MOHU_NO轉換
CLOCK_2:MOV A,DATEX_3
CJNE A,#3CH,CLOCK_1
MOV DATEX_3,#00H
INC DATEX_9
MOV A,DATEX_9
CJNE A,#64H,CLOCK_1
MOV DATEX_9,#0FFH
CLOCK_1:;;;;;;LCALL LCM
CLOCKP_4: RET
;===============================MOHU_NO采集數據輸入單片機子程序
;********************************************
IN_PUT:
MOV P0,#0FFH
SETB IN0_PUT
NOP
CLR IN0_PUT
JB IN1_PUT,$
SETB IN2_PUT
MOV A,P0
CLR IN2_PUT
MOV CASEX_3,A
CLR C
CJNE A,CASE_2,NEXT_1
NEXT_1:JNC NEXT_3
MOV A,CASE_2
CLR C
SUBB A,CASEX_3
MOV A_E,A ;偏差的變化量ΔE
SETB SIGN_FU ;負號標志
AJMP NEXT_2
IN_PUT_1:LJMP IN_PUT_2
NEXT_3:CLR C
MOV A,CASEX_3
SUBB A,CASE_2
MOV A_E,A ;偏差的變化量ΔE
NEXT_2:MOV A,DATEX_11
CLR C
SUBB A,#20
MOV B,#5
MUL AB
MOV B,A
CLR C
CJNE A,CASEX_3,NEXTX_5
NEXTX_5:JNC NEXTX_6
MOV A,CASEX_3
CLR C
SUBB A,B
MOV M_E,A
SETB SIGN_FU_E
AJMP NEXTX_7
NEXTX_6:CLR C
MOV A,B
SUBB A,CASEX_3
MOV M_E,A ;測得溫度與設定溫度的偏差E
NEXTX_7:JNB SIGN_30,NEXTY_8
LCALL MOHU_CONTROL ;調用模糊控制
NEXTY_8:MOV CASE_2,CASEX_3
MOV A,CASEX_3
MOV B,#5
DIV AB
ADD A,#20
MOV DATEX_8,B ;十六進制轉換成BCD碼
MOV B,#10
DIV AB
MOV DATEX_5,A ;十六進制轉換成BCD碼
MOV DATEX_6,B
MOV A,DATEX_8 ;十六進制轉換成BCD碼
MOV B,#2
MUL AB
MOV DATEX_7,A ;十六進制轉換成BCD碼
MOV R0,#55H
IN_PUT_2:RET
;=========================================
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;鍵盤掃描子程序
SCAN:
MOV P0,#7FH
MOV A,P0
CJNE A,#7FH, KEY1
MOV P0,#0BFH
MOV A,P0
CJNE A,#0BFH, KEY5
MOV P0,#0DFH
MOV A,P0
CJNE A,#0DFH,KEY9
MOV P0,#0EFH
MOV A,P0
CJNE A,#0EFH,T_O
RET
T_O:LJMP KEY13
KEY1:CJNE A,#77H,KEY2
NOP
RET
KEY2:CJNE A,#7BH,KEY3
NOP
RET
KEY3:CJNE A,#7DH,KEY4
NOP
RET
KEY4:CJNE A,#7EH,MM
NOP
MM:RET
KEY5:CJNE A,#0B7H,KEY6 ;數字鍵
MOV R7,#00H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY6:CJNE A,#0BBH,KEY7
MOV R7,#01H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY7:CJNE A,#0BDH,KEY8
MOV R7,#02H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY8:CJNE A,#0BEH,KEY9
MOV R7,#03H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY9:CJNE A,#0D7H,KEY10
MOV R7,#04H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY10:CJNE A,#0DBH,KEY11
MOV R7,#05H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY11:CJNE A,#0DDH,KEY12
MOV R7,#06H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY12:CJNE A,#0DEH,KEY13
MOV R7,#07H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY13:CJNE A,#0E7H,KEY14
MOV R7,#08H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY14:CJNE A,#0EBH,KEY15
MOV R7,#09H
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY15:CJNE A,#0EDH,KEY16 ;停止鍵
LCALL DELAY1
SETB SIGN_WEATHER
LCALL DELAY1
LCALL DELAY1
RET ;電機正轉
KEY16:CJNE A,#0EEH,LL ;確認鍵
LCALL DELAY1
SETB SINGN_R
LCALL DELAY1
LCALL DELAY1
LL:RET
;;;;;;;;;;;;;
delay1:
MOV R5,#250
XX: MOV R6,#250
DJNZ R6,$
DJNZ R5, XX
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;
;;重新分配地址 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DATEY_2 EQU 38H ;分鐘十位
DATEY_1 EQU 39H ;分鐘個位
DATEY_4 EQU 3AH ;秒鐘十位
DATEY_3 EQU 3BH ;秒鐘個位
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;
;單字節十六進制整數轉換成單字節ＢＣＤ碼整數
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HBCD: MOV B,#100
DIV AB
MOV A,#10
XCH A,B
DIV AB
SWAP A
ORL A,B
RET
;;:::::::::::
;;;;;;;;;;;;;;;;;;;;;;;;;;液晶子程序
LCM:
MOV A,DATEX_3
LCALL HBCD
MOV B,A
ANL A,#00001111B
MOV DATEY_3,A
MOV A,B
SWAP A
ANL A,#00001111B
MOV DATEY_4,A
;;;;;;;;;;;
MOV A,DATEX_9
LCALL HBCD
MOV B,A
ANL A,#00001111B
MOV DATEY_1,A
MOV A,B
SWAP A
ANL A,#00001111B
MOV DATEY_2,A
;;;;;;;;;;;;;;
MOV P1,#08DH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEY_3
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#08CH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEY_4
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#08AH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEY_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#089H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEY_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0CDH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEX_7
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0CBH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEX_6
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0CAH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,DATEX_5
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0C3H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0C4H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
RET
DADE:SETB P2.2
CLR P2.3
SETB P2.4 ;給下降沿
CPL P2.4
ACALL DALAY1
RET
Ming_Lin: CLR P2.2 ;RS=0
CLR P2.3 ;R/W=0
SETB P2.4
;給下降沿
CPL P2.4
ACALL DALAY
RET
DALAY: MOV R5,#10H
ALJSDH:MOV R6,#123
DJNZ R6,$
DJNZ R5,ALJSDH
RET
DALAY1:MOV R7,#25
DJNZ R7,$
RET
Ming_Lin_1: CLR P2.2 ;RS=0
CLR P2.3 ;R/W=0
SETB P2.4
ACALL DALAY
;給下降沿
CPL P2.4
ACALL DALAY
RET
TABLE:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H
TABLE_23:DB 00H,00H,01H,01H,02H,02H,03H,03H,03H,04H,04H,05H,05H, 06H ,06H,07H,07H,07H,08H,08H,09H,09H,0AH
TABLE_3: DB 00H,03H,07H
END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -