;步進電機控制程序p3.2正轉,p3.3反轉,p3.4停止  步進電機接p1.0p1.1p1.2p1.3
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************

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