maxspeed con 175

Speed	Var long
Pot		Var long
Pos		var long

ENABLE1 CON P12
ENABLE2 CON P11

OUTA = 0
DIRA = 0 ; Sets Pin P0-P3 to outputs and low

High Enable1 ;Turn L293 On
High Enable2

Main
	adin p8,Pot
	If Pot <512 then
		Speed = Pot*maxspeed
		pos=pos+1
	Else
		Speed = (1024-Pot)*maxspeed
		pos=pos-1
	Endif
	PauseUs Speed
	Gosub step

	Goto Main
	
Step
	branch pos&0x3,[step1,step2,step3,step4]
Step1
	OUTA = %0101
	return
Step2
	OUTA = %0110
	return
Step3
	OUTA = %1010
	return
Step4
	OUTA = %1001
	Return