keyd.asm

6221mada.asm.........遥控电机程序

    ;步进电机控制程序p3.2正转,p3.3反转,p3.4停止  步进电机接p1.0p1.1p1.2p1.3
**************************************************************************

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