AT89C51单片机对直流电机的驱动Proteus仿真+汇编语言程序

AT89C51对直流电机的驱动
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. ADC                EQU                35H
   
2. CLOCK        BIT                P2.4                        ;定义ADC0808时钟位
   
3. ST                 BIT         P2.5
   
4. EOC         BIT         P2.6
   
5. OE                 BIT         P2.7
   
6. PWM                BIT                P3.7
   
7.                 ORG         00H
   
8.                 SJMP        START
   
9.                 ORG                0BH
   
10.                 LJMP        INT_T0
    
11. 
    
12. START:        MOV                TMOD,#02H                  ;
    
13.                 MOV                TH0,#20
    
14.                 MOV                TL0,#00H
    
15.                 MOV                IE,#82H
    
16.                 SETB        TR0
    
17. 
    
18. WAIT:         CLR         ST                                 
    
19.                 SETB         ST
    
20.                 CLR         ST                                ;启动AD转换
    
21.                 JNB         EOC,$                        ;等待转换结束
    
22.                 SETB         OE
    
23.                 MOV         ADC,P1                        ;读取AD转换结果
    
24.                 CLR         OE
    
25.                 SETB        PWM                                   ;PWM输出
    
26.                 MOV         A,ADC
    
27.                 LCALL        DELAY
    
28.                 CLR                PWM
    
29.                 MOV                A,#255
    
30.                 SUBB        A,ADC
    
31.                 LCALL        DELAY
    
32.                 SJMP         WAIT
    
33. 
    
34. INT_T0:        CPL                CLOCK                         ;提供ADC0808时钟信号
    
35.                 RETI
    
36. 
    
37. DELAY:        MOV                R6,#1
    
38. D1:                DJNZ        R6,D1
    
39.                 DJNZ        ACC,D1
    
40.                 RET
    
41. 
    
42.                 END
    

复制代码

所有资料51hei提供下载:
AT89C51对直流电动机的驱动.zip (51.87 KB, 下载次数: 17)

2020-3-8 11:32 上传

点击文件名下载附件