Grax por la ayuda Chaly, pero ahora surge un nuevo problema, el motor anda sin ningún contratiempo, el regulador no pasa de los 40ºC y todo va bien, pero el motor anda a un máximo de 120rpm y un torque muy bajo, estoy usando la secuencia normal de activar 2 bobinas pero nada de nada, para activarlas estoy usando transistores 2N2222, y aquí te pego el código, depronto ves algo que le reduce la eficiencia.
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 5
DEFINE OSC 3
ADCON1 = 7
BOB VAR BYTE
T VAR WORD
T2 VAR WORD
T=5000:BOB=0:T2=T
LCDOUT $FE, 1, #t
PAUSE 2000
PROCESOS:
IF PORTE.0 = 0 THEN T=T-10 :PAUSE 300
IF T2 <> T THEN LCDOUT $FE, 1, #T
T2=T
HIGH PORTE.1
BOB=BOB+1
IF BOB = 1 THEN
HIGH PORTD.4
HIGH PORTD.5
LOW PORTD.7
LOW PORTD.6
ENDIF
IF BOB = 2 THEN
HIGH PORTD.5
HIGH PORTD.6
LOW PORTD.7
LOW PORTD.4
ENDIF
IF BOB = 3 THEN
HIGH PORTD.6
HIGH PORTD.7
LOW PORTD.5
LOW PORTD.4
ENDIF
IF BOB = 4 THEN
HIGH PORTD.7
HIGH PORTD.4
LOW PORTD.6
LOW PORTD.5
ENDIF
PAUSEUS T
IF BOB=4 THEN BOB = 0
GOTO PROCESOS