8051 ALP to interface stepper motor(Half step AntiClock wise)

ORG 0000H

L0 : MOV R0,#08H
     MOV DPTR,#0200H

L1 : CLR A
     MOVC A,@A+DPTR
     MOV P1,A
     ACALL DELAY
     INC DPTR
     DJNZ R0,L1
     SJMP L0

DELAY : MOV R4,#0FFH

L2 :    MOV R7,#0FFH

L3 : DJNZ R7,L3
     DJNZ R4,L2
     RET

ORG 0200H
DB 09,08,0CH,04,06,02,03,01

END