Org	$
GerakanStepper:
	Setb	INT0

Loop_Stepper:
	Mov	R7,#04H
	Push	DPH
	Push	DPL

Loop2_Stepper:
	Mov	A,#00
	Movc	A,@A+DPTR
	Inc	DPTR				;
	Mov	P1,A				;Kirim ke Stepper driver
	Clr	INT0				;	
	Setb	INT0				;
	Lcall	Delay_5mS			;Delay 5 mS				
	Djnz	R7,Loop2_Stepper
	Pop	DPL
	Pop	DPH
	Djnz	R6,Loop_Stepper
	Ret

Tabel_Kanan:
	DB	00000111b
	DB	00001011b
	DB	00001101b
	DB	00001110b

Tabel_Kiri:
	DB	00001110b
	DB	00001101b
	DB	00001011b
	DB	00000111b
	include	delay_1d.asm