?? pwm.asm
字號:
ORG 0000H
JMP MAIN
ORG 000BH
JMP SHUCHU
ORG 0023H
JMP CHUAN
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;初始化
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MAIN: FLAG EQU 10H
CLR FLAG
MOV SP,#27H
MOV SCON,#90H ;設(shè)置為方式2
MOV PCON,#80H
MOV TMOD,#01H
;MOV IE,#98H
;MOV IP,#10H ;串口優(yōu)先
SETB EA ;開中斷
SETB ES ;串行口中斷
SETB ET0 ;使用TIMER0中斷
CLR TR0
SETB PT0
MOV TH0,#10H
MOV TL0,#10H
SETB P2.7 ;關(guān)輸出
CLR RS1
CLR RS0
MOV 67H,#060H ;設(shè)置溫度給定值Tg=30度
MOV 68H,#02 ;設(shè)置KP
MOV 69H,#01 ;設(shè)置Ki
MOV 6AH,#01 ;設(shè)置KD
MOV 6BH,#0
MOV 6CH,#0
MOV 6DH,#0
MOV 6EH,#0
MOV 6FH,#0
MOV 70H,#0
MOV 71H,#0
MOV 72H,#0
MOV 73H,#0
MOV 74H,#0
MOV 75H,#0
MOV 76H,#0
MOV 77H,#0
MOV 78H,#0
MOV 79H,#0
MOV 7AH,#0
MOV 7BH,#10H ;初始定時時間
MOV 7CH,#10H
SETB TR0
KAI: ;MOV 66H,#00H
MOVX @R0,A
WAIT: JB P1.7,ADC
JMP WAIT
ADC : MOVX A,@R0
;ADD A,#08H
MOV 66H,A ;采集溫度Tc=66H
MOV B,#04H ;采集數(shù)據(jù)除4
DIV AB
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;數(shù)據(jù)作十進(jìn)制調(diào)整
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
CLR C
MOV R5,#00H
MOV R4,#00H
MOV R3,#08H
NEXT: RLC A
MOV R2,A
MOV A,R5
ADDC A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
MOV A,R2
DJNZ R3,NEXT
MOV A,R5
CLR TB8
MOV SBUF,A ;發(fā)送數(shù)據(jù)
JBC TI ,$
MOV R5,#10 ;每2秒采集溫度一次
LOOP1: LCALL XIAODUO
DJNZ R5,LOOP1
LCALL PID
;SETB TR0
JMP KAI
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;PID子程序
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PID: MOV A,67H ;計算Ei,先取溫度給定值
CLR C
SUBB A,66H ;Ei
JNC PID1 ;判Ei正負(fù)，如為正，跳至PID1
;CLR TR0
SETB FLAG
CLR P2.7
MOV 7DH ,#0FFH
MOV 7EH, #0FDH
JMP CHUPID
CPL A ;Ei為負(fù)，求補
ADD A,#01H
SETB 30H ;Ei為負(fù)，符號位置1
SJMP PID2
PID1: CLR 30H ;Ei為正，符號位置0
SETB TR0
PID2: MOV 6BH,A ;Ei值存6BH
MOV R1,6BH ;計算Ei-(Ei-1),先將Ei送R1
MOV C,30H ;將Ei的符號位送20H位
MOV 20H,C
MOV R2,6CH ;將(Ei-1)值送R2
MOV C,31H ;將(Ei-1)的符號位送21H
MOV 21H,C
LCALL DJF ;
MOV 6EH,R3 ;將差值Ei-(Ei-1)送6EH
MOV C,22H ;將差值Ei-(Ei-1)的符號位送33H
MOV 33H,C
MOV R1,6CH ; 計算(Ei-1)-(Ei-2)，先將(Ei-1)值送R1
MOV C,31H ; 將(Ei-1)的符號位值送20H
MOV 20H,C
MOV R2,6DH ; 將(Ei-2)值送R2
MOV C,32H ; 將(Ei-2)的符號位值送21H
MOV 21H,C
LCALL DJF ;
MOV 6FH,R3 ; 將差值(Ei-1)-(Ei-2)送6FH
MOV C,22H ; 將差值(Ei-1)-(Ei-2)的符號位送34H
MOV 34H,C
MOV R1,6EH ; 計算[Ei-(Ei-1)]-[(Ei-1)-(Ei-2)]，先將Ei-(Ei-1)值送R1
MOV C,33H ; 將Ei-(Ei-1)的符號位值送20H
MOV 20H,C
MOV R2,6FH ; 將(Ei-1)-(Ei-2)值送R2
MOV C,34H ; 將(Ei-1)-(Ei-2)的符號位值送21H
MOV 21H,C
LCALL DJF
MOV 70H,R3 ; 將差值[Ei-(Ei-1)]-[(Ei-1)-(Ei-2)]送70H
MOV C,22H ; 將差值[Ei-(Ei-1)]-[(Ei-1)-(Ei-2)]的符號位送35H
MOV 35H,C
MOV A,68H ; 計算Kp[Ei-(Ei-1)],將Kp送A
MOV B,6EH ; 將[Ei-(Ei-1)]送B
MUL AB
MOV 71H,B ; 將Kp[Ei-(Ei-1)]存71H（高位），72H（低位）
MOV 72H,A
MOV A,69H ; 計算Ki*Ei,將Ki送A
MOV B,6BH ; 將Ei送B
MUL AB
MOV 73H,B ; Ki*Ei 存73H（高位），74H（低位）
MOV 74H,A
MOV A,6AH ;計算Kd [Ei-(Ei-1)]-[(Ei-1)-(Ei-2)],將Kd送A
MOV B,70H ;將[Ei-(Ei-1)]-[(Ei-1)-(Ei-2)]送B
MUL AB
MOV 75H,B ; Kd [Ei-(Ei-1)]-[(Ei-1)-(Ei-2)]存75H（高位），76H（低位）
MOV 76H,A
MOV R1,71H ; 計算Kp[Ei-(Ei-1)]+Ki*Ei
MOV R2,72H
MOV C,33H
MOV 23H,C
MOV R3,73H
MOV R4,74H
MOV C,30H
MOV 24H,C
LCALL SJF
MOV 77H,R5 ;將Kp[Ei-(Ei-1)]+Ki*Ei送77H（高位）,78H（低位）
MOV 78H,R6
MOV C,25H ;將Kp[Ei-(Ei-1)]+Ki*Ei的符號位送36H
MOV 36H,C
MOV R1,77H ; 計算&Ui
MOV R2,78H
MOV C,36H
MOV 23H,C
MOV R3,75H
MOV R4,76H
MOV C,35H
MOV 24H,C
LCALL SJF
MOV 79H,R5 ; 將&Ui送79H（高位）,7AH（低位）
MOV 7AH,R6
MOV C,25H ; 將&Ui的符號位送37H
MOV 37H,C
MOV R1,79H ; 輸出PWM時間的計算
MOV R2,7AH
MOV C,37H
MOV 23H,C
MOV R3,7BH
MOV R4,7CH
CLR 24H
LCALL SJF
MOV 7BH,R5
MOV 7CH,R6
MOV 7DH,7BH
MOV 7EH,7CH
; MOV R1,7DH ; 計算Ui
; MOV R2,7EH
; CLR 23H
; MOV R3,79H
; MOV R4,7AH
; MOV C,37H
; MOV 24H,C
; LCALL SJF
; JNB 25H,PID3
; MOV 7BH,#00H ; 如為負(fù)，則令輸出值為0
; MOV 7CH,#00H
; SJMP PID4
; PID3: MOV 7BH,R5 ; 否則，將計算得到Ui值送7BH（高位）、7CH（低位）
; MOV 7CH,R6
PID4: MOV 6DH,6CH ; 數(shù)據(jù)始代，(Ei-1)值送(Ei-2)
MOV 6CH,6BH ; Ei值送(Ei-1)
; MOV 7DH,7BH ; Ui值送（Ui-1）
; MOV 7EH,7CH
CHUPID: RET
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;單字節(jié)帶符號的減法子程序
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DJF: JB 20H,DJF4
JB 21H,DJF2
CLR C
MOV A,R1
SUBB A,R2
MOV R3,A
JC DJF1
CLR 22H
RET
DJF1: MOV A,R3
CPL A
ADD A,#01H
MOV R3,A
SETB 22H
RET
DJF2: MOV A,R1
ADD A,R2
MOV R3,A
JNC DJF3
MOV R3,#0FFH
DJF3: CLR 22H
RET
DJF4: JB 21H,DJF6
MOV A,R1
ADD A,R2
MOV R3,A
JNC DJF5
MOV R3,#0FFH
DJF5: SETB 22H
RET
DJF6: CLR C
MOV A,R2
SUBB A,R1
MOV R3,A
JC DJF1
CLR 22H
RET
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;雙字節(jié)帶符號數(shù)的加法子程序
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SJF: JB 23H,SJF3
JB 24H,SJF2
MOV A,R2
ADD A,R4
MOV R6,A
MOV A,R1
ADDC A,R3
MOV R5,A
JNC SJF1
MOV R5,#0FFH
MOV R6,#0FFH
SJF1: CLR 25H
RET
SJF2: CLR C
MOV A,R2
SUBB A,R4
MOV R6,A
MOV A,R1
SUBB A,R3
MOV R5,A
JC SJF4
CLR 25H
RET
SJF3: JB 24H,SJF5
CLR C
MOV A,R4
SUBB A,R2
MOV R6,A
MOV A,R3
SUBB A,R1
MOV R5,A
JC SJF4
CLR 25H
RET
SJF4: MOV A,R6
CPL A
ADD A,#01H
MOV R6,A
MOV A,R5
CPL A
ADDC A,#00H
MOV R5,A
SETB 25H
RET
SJF5: MOV A,R2
ADD A,R4
MOV R6,A
MOV A,R1
ADDC A,R3
MOV R5,A
JNC SJF6
MOV R5,#0FFH
MOV R6,#0FFH
SJF6: SETB 25H
RET
SHUCHU: PUSH A
PUSH PSW
JB FLAG,GAO
CLR P2.7
MOV TH0,7DH
MOV TL0,7EH
SETB FLAG
JMP HUI
GAO: SETB P2.7
MOV A,#0FFH
SUBB A,7EH
MOV TL0,A
MOV A,#0FFH
SUBB A,7DH
MOV TH0,A
CLR FLAG
HUI: POP PSW
POP A
RETI
CHUAN: PUSH A
PUSH PSW
JNB RI ,HUI001
MOV A,SBUF
MOV 67H,A
JBC RI,$
HUI001: CLR TI
POP PSW
POP A
RETI
XIAODUO: MOV R7,#100 ;采集延時
D1: MOV R6,#248
DJNZ R6,$
DJNZ R7,D1
RET
END
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -