控制步进电机正反转的实际应用程序

控制步进电机正反转的实际应用程序:/*这是一个控制步进电机正反转的实际应用程序*/ /*选用的是三相步进电机驱动器,p14口线用做步进电机的脉冲控制*/ /*p13口线用做步进电机的方向控制。p15,p16,p17是光耦开关量输入*/ /*信号端，p20,p21,p22,p23与x25045看门狗存储器相连*/ /*k7,k8键是设定步进电机转动速度参数的加减键*/ /*k9是启动运行键，按一下k9，步进电机开始运行，直到p17口线有信号输入才停止*/ /*k10是停止键，任何时候按下k10都将停止步进电机当前的运行*/ /*k11是步进运行键，按一下，步进电机动一下*/ /*k12键是反向运行键，按一下，步进电机开始反向运行，知道p15口线有信号才停止*/ /*如果p16口线有信号输入，则只有k12键才起作用，其它键都没反应。*/ START:do; $INCLUDE(REG51.DCL) DECLARE (addrl,n,I,j,ok,ds) byte; /*定义变量*/ declare l(5) byte; declare (dat,data) byte at (30h); declare delay word; DECLARE ACO(11) BYTE CONSTANT (05h,9fh,23h,0bh,99h,49h,/*定义LED段码表*/ 41h,1fh,01h,09h,00h); declare si literally 'p21',sck literally 'p20'; /*X25045囗线定义*/ declare so literally 'p22',cs literally 'p23'; dog:procedure; /* 初始化看门狗x25045 */ cs=1; call time(1); cs=0; call time(1); cs=1; end dog;
run:procedure; /*步进电机运行脉冲输出程序*/ if ok=1 then call dog; do;