;程序功能：步进电机转速控制

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