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