;步進電機正轉


loop:mov R3,#0FFh          ;30h送ff即-1
main:INC R3
        mov a,R3
tt:     MOV	DPTR,#TAB
        MOVC	A,@A+DPTR
	    MOV	P1,A		       ;送顯示
         mov r7,#5
dec r7
        lcall delay          ;延時一段時間
        cjne a,#06H,main     ;如果是最后一個數據重新開始
        ljmp loop    ;    否則R3 清除
        ret
TAB:	DB 03H,09H,0CH,06H ;步進電機正轉表

 DELAY: ; 延時程序

MOV  R5,#255
D3:MOV R2,#25
D4: DJNZ R2,D4
DJNZ R5,D3
RET