;步進電機控制程序p3.2正轉,p1.2反轉,p1.1停止  步進電機接p0.0 p0.1 p0.2 p0.3
; www.hseda.com

org 00h
stop: orl p0,#0ffh             ;  步進電機停止
loop:jnb p3.2,for2             ; 如果p3.2按下正轉
         jnb p1.2,rev2         ; 如果p1.2按下反轉
         jnb p1.1,stop1        ; 如果p1.1按下停止
         jmp loop              ;反復監(jiān)測鍵盤
for: mov r0,#00h               ;正轉到tab取碼指針初值
for1:mov a,r0                  ;取碼
         mov dptr,#table        ;
         movc a,@a+dptr
         jz for                 ;是否到了結束碼00h
         cpl a                  ;把acc反向
         mov p0,a               ;輸出到p0開始正轉
         jnb p1.1,stop1         ;  如果p1.1按下停止
         jnb p1.2,rev2          ;  如果p1.2按下反轉
         call delay             ;轉動的速度
         inc r0                 ;取下一個碼
         jmp for1               ;繼續(xù)正轉
rev:mov r0,#05h                 ;反轉到tab取碼指針初值
rev1:mov a,r0
         mov dptr,#table           ;取碼
         movc a,@a+dptr
         jz rev                 ;是否到了結束碼00h
         cpl a                  ;把acc反向
         mov p0,a               ;輸出到p0開始反轉
         jnb p1.1,stop1         ;  如果p1.1按下停止
         jnb p1.2,rev2          ;  如果p1.2按下反轉
         call delay            ;轉動的速度
         inc r0                 ;取下一個碼
         jmp rev1               ;繼續(xù)反轉
stop1:call delay                ;  按p1.1的消除抖動
           jnb p1.1,$           ; p1.1放開否?
           call delay           ;放開消除抖動
           jmp stop

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

rev2:call delay                 ;  按p1.2的消除抖動
          jnb p1.2,$           ; p1.2放開否?
          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