;28H.1判斷電機轉動的正反          (PS:單元不明白的問麗娟)
;38H(R2)中存放的為單位個數
;40H中存放的為單元運行的步數
;P1低位輸出四相
        MOV    A,38H
        MOV    R2,A
        JZ     GODONE             
MORE:   MOV    40H,#________H          
        JB     28H.1, LOOP2       ;A為1轉,即C=1,反轉        
LOOP1:  ;正轉  
        MOV    A,#01H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#03H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#02H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#06H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#04H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#0CH
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#08H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#09H
        MOV    P1,A
        LCALL  DELAY1
        MOV    A,40H
        DEC    A
        JNZ    LOOP1
GODONE: AJMP   DONE
        
LOOP2:  ;反轉
        MOV    A,#01H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#09H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#08H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#0CH
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#04H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#06H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#02H
        MOV    P1,A
        LCALL  DELAY1
        LCALL  JUDGE
        MOV    A,#03H
        MOV    P1,A
        LCALL  DELAY1
        DEC    40H
        MOV    A,40H
        JNZ    LOOP2

DONE:   ;停止,并反轉一拍
        MOV    A,41H
        MOV    P1,A
        LCALL  DELAY1
        LJMP   ________    ;電機運行完畢,跳出        

JUDGE:  ;判斷是否運行完一個單位
        DEC    40H
        MOV    A,40H
        JZ     ALL
        MOV    A,P1
        MOV    41H,A
        RET        

ALL:    ;一個單位運行完畢
        DJNZ   R2,MORE1
        LJMP   DONE  
MORE1:  LJMP   MORE          ;運行所有的單元