單片機(jī)進(jìn)行脈寬調(diào)制(PWM) 直流電機(jī)調(diào)速測試程序

;UNL2003提供電機(jī)驅(qū)動電流.(<=500MA/5V)
;使用六個按鍵實現(xiàn)六種不同速度


DCBITP1.0

speedequ20h
org000h
jmpdc_MOTOR
ORG100H
dc_MOTOR:

MOV a,p1
MOV speed,a;鍵盤去抖動
lcalldel
MOV a,p1
cjnea,speed,dc_MOTOR
JBP3.3,JUD_SPD5
MOV SPEED,#6;SW1
JMPPWM
JUD_SPD5:JBP3.2,JUD_SPD4
MOV SPEED,#5;SW2
JMPPWM
JUD_SPD4:JBP3.1,JUD_SPD3
MOV SPEED,#04;SW3
JMPPWM
JUD_SPD3:JBP3.0,JUD_SPD2
MOV SPEED,#03;SW4
JMPPWM
JUD_SPD2:JBP3.5,JUD_SPD1
MOV SPEED,#02;SW5
JMPPWM
JUD_SPD1:JBP3.6,JUD_SPD0
MOV SPEED,#01;SW6
JMPPWM
JUD_SPD0: MOV SPEED,#00

PWM: MOV R6,SPEED
MOV A,#06
CLRC
SUBBA,SPEED
MOV R5,A
CLRDC
WAIT1:LCALLDEL
DJNZR5,WAIT1
SETBDC
WAIT2:LCALLDEL
DJNZR5,WAIT2
JMPDC_MOTOR

Del: MOV r7,#0ffh
djnzr7,$
ret

END