;文件名：DJ15－3.ASM 
;程序功能：步進電機轉速控制
  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