; PICAXE 28X Motor Bipolar
symbol	counter = w0
symbol	delay = 500


	portc = 255
	pwmout 1, 255, 1023
	pwmout 2, 255, 1023
inicio:
	
	counter = 0
	do
		gosub FWDFULL
		counter = counter + 1
	loop while counter <3
	counter = 0
	do
		gosub REVFULL
		counter = counter + 1
	loop while counter <3
	
	goto inicio

;-------------------------------------------------------------
FWDFULL:
	; 1º passo
	pin2 = 0
	pin3 = 0
	pause delay
	
	; 2º passo
	pin2 = 1
	pause delay	
	; 3º passo
	pin3 = 1
	pause delay
	; 4º passo
	pin2 = 0
	pause delay
	return

REVFULL:
	; 1º passo
	pin2 = 0
	pin3 = 0
	pause delay
		
	; 4º passo
	pin3 = 1
	pause delay
	; 2º passo
	pin2 = 1
	pause delay	
	; 3º passo
	pin3 = 0	
	pause delay

	return