遥控电机程序

;********************************************************************************
;*步进电机控制程序p3.2正转,p3.3反转,p3.4停止 步进电机接p1.0p1.1p1.2p1.3 *
;********************************************************************************
;* 日期: 2007-3-25 *
;* 版本: 3.0 *
;* 作者: 深圳学林电子有限公司 专业8051单片机教程站 *
;* 邮箱: sxj1974@163.com *
;* 网站： http://www.51c51.com http://www.8951.com 更多例程请登陆网站 *
;********************************************************************************
;* 硬件：此程序在本公司xlisp系列单片机实验仪运行通过 *
;********************************************************************************
;* Copyright(C)深圳学林电子有限公司 www.51c51.com All Rights Reserved *
;* 此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;********************************************************************************

hex格式文件下载（点右键，目标另存为hex即可直接烧写）

org 00h
stop: orl p1,#0ffh ; 步进电机停止
loop: jnb p3.2,for2 ; 如果p3.2按下正转
jnb p3.3,rev2 ; 如果p3.3按下反转
jnb p3.4,stop1 ; 如果p3.4按下停止
jmp loop ;反复监测键盘
for: mov r0,#00h ;正转到tab取码指针初值
for1: mov a,r0 ;取码
mov dptr,#table ;
movc a,@a+dptr
jz for ;是否到了结束码00h
cpl a ;把acc反向
mov p1,a ;输出到p1开始正转
jnb p3.4,stop1 ;如果p3.4按下停止
jnb p3.3,rev2 ;如果p3.3按下反转
call delay ;转动的速度
inc r0 ;取下一个码
jmp for1 ;继续正转
rev: mov r0,#05h ;反转到tab取码指针初值
rev1: mov a,r0
mov dptr,#table ;取码
movc a,@a+table
jz rev ;是否到了结束码00h
cpl a ;把acc反向
mov p1,a ;输出到p1开始反转
jnb p3.4,stop1 ;如果p3.4按下停止
jnb p3.3,rev2 ;如果p3.3按下反转
call delay ;转动的速度
inc r0 ;取下一个码
jmp rev1 ;继续反转
stop1: call delay ;按p3.4的消除抖动
jnb p3.4,$ ;p3.4放开否?
call delay ;放开消除抖动
jmp stop

for2: call delay ;按p3.2的消除抖动
jnb p3.2,$ ;p3.2放开否?
call delay ;放开消除抖动
jmp for

rev2: call delay ;按p3.3的消除抖动
jnb p3.3,$ ; p3.3放开否?
call delay ;放开消除抖动
jmp rev

delay: mov r1,#40 ;步进电机的转速20ms
d1:mov r2,#248
djnz r2,$
djnz r1,d1
ret
table:
db 03h,09h,0ch,06h ;正转表
db 00 ;正转结束
db 03h,06h,0ch,09h ;反转
db 00 ;反转结束
end