步進電動機正反轉程式

RL MOV MOV

;程式功能：步進電機轉速控制
MAIN: ; 主程式
ACALL Z_M ;調用正轉子程式
ACALL F_M ;調用反轉子程式
MOV R5,#250 ;將R5賦值250
ACALL DELAY ;調延時子程式
JMP MAIN ;跳至MAIN形成循環
Z_M: ;正轉子程式
MOV R0, #20 ;重複20次
MOV A, #11001100B ;左移初始值
LOOP:MOV P0,A ;輸出
MOV R5,#50 ;將延時計數器R5賦值50
ACALL DELAY ;調用延時子程式延時1秒
RL A ;左移
djnz R0, LOOP ;判斷是否循環20次
RET ;子程式返回
F_M: ;反轉子程式
MOV R1, #200 ;重複200次
MOV A, #00110011B ;右移初始值
LOOP1: MOV P0, A ; 輸出
MOV R5, #5 ;將延時計數器R5賦值5
ACALL DELAY ;調用延時子程式延時0.1秒
RR A ;右移
DJNZ R1, LOOP1 ;判斷是否循環200次
RET ;子程式返回
DELAY: ; 延時子程式
DLY1: MOV R6,#100
DLY2: MOV R7,#100
DJNZ R7,$
DJNZ R6, DLY2
DJNZ R5, DLY1
RET
END