aqui tengo el programa para que puedan hacer correr un motor paso a paso,.,, bipolar
************************************
LIST P=16F84
include "P16F84.INC"
RADIX HEX
PUERTAA EQU 0x05
PUERTAB EQU 0x06
ESTADO EQU 0x03
PRIMERO EQU 0x0C
SEGUNDO EQU 0x0D
ORG 0x00
bsf ESTADO,5
movlw b'00000001'
movwf PUERTAB
movlw b'00000111'
movwf PUERTAA
bcf ESTADO,5
clrf PUERTAA
clrf PUERTAB
parpa bsf PUERTAB,4 ;ENCIENDO 4 Y 5
bsf PUERTAB,5
bsf PUERTAB,3 ;ENCIENDO 3 Y 2
bsf PUERTAB,2
call retardo
bcf PUERTAB,4 ;motor derecho
bcf PUERTAB,5
bsf PUERTAB,5
bsf PUERTAB,6
bcf PUERTAB,3 ;motor izquierdo
bcf PUERTAB,2
bsf PUERTAB,2
bsf PUERTAB,1
call retardo
bcf PUERTAB,5
bcf PUERTAB,6
bsf PUERTAB,6 ;
bsf PUERTAB,7
bcf PUERTAB,2
bcf PUERTAB,1
bsf PUERTAB,1 ;
bsf PUERTAA,3
call retardo
bcf PUERTAB,6
bcf PUERTAB,7
bsf PUERTAB,7 ;
bsf PUERTAB,4
bcf PUERTAB,1
bcf PUERTAA,3
bsf PUERTAA,3
bsf PUERTAB,3
call retardo
bcf PUERTAB,4
bcf PUERTAB,7
bcf PUERTAA,3
bcf PUERTAB,3
goto parpa
retardo movlw 0xff ; ESTE ES EL RETARDO APROX 0.26 SEGUNDOS
movwf PRIMERO
movlw 0xff
movwf SEGUNDO
ir decf PRIMERO
btfss ESTADO,2
goto ir
goto ir2
ir2 decf SEGUNDO
btfss ESTADO,2
goto ir
return
end
***************************************************
