Controladora bipolar pic16f84a

;**************************************************************************************
;Controladora Bipolar 16f84a-LB1845 - 1/2 paso
;
;Velocidad del Reloj: 4 MHz
;Perro Guardián:deshabilitado Tipo de Reloj : XT
;Protección del código: OFF Reloj Instrucción: 1 MHz = 1 mS
;
;Para un correcto funcionamiento como no se estan utilizando interrupciones el ancho del pulso;para realizar un paso debe ser de al menos 5 µSeg
;
;**************************************************************************************

include "P16F84.INC" ;Definicionesde registros internos
RADIX HEX ;Sistema de numeración hexadecimal.

TEMP1 EQU 0x0c ;Registros de propósito general.
TEMP2 EQU 0x0d
POSSIG_DEREQU 0x0e
POSSIG_IZQ EQU 0x0f

STEP SET 0x00
DIR SET 0x01
ENABLE SET 0x02
PASO_1 SET b'00011000'
PASO_2 SET b'00001100'
PASO_3 SET b'00000110'
PASO_4 SET b'00001101'
PASO_5SET b'00011001'
PASO_6 SET b'00101101'
PASO_7 SET b'00100110'
PASO_8 SET b'00101100'

org 0x00 ;vector de reset

goto INICIO

org 0x05;**************************************************************************************
;PROGRAMA PRINCIPAL.

INICIO:
bsf STATUS, RP0
movlw b'00011111' ;PORTA como Entrada
movwf TRISA
clrf TRISB ;Seconfigura PORTB como SALIDA
bcf STATUS, RP0
clrf INTCON ;Se anulan las interrupciones.

clrf PORTB ;Pongo en cero el puerto B
clrf POSSIG_DER
movlw PASO_3movwf POSSIG_IZQ

BUCLE:
btfss PORTA, ENABLE ;Testea el enable
call DESACTIVAR
btfss PORTA, STEP ;Se mira el estado de STEP, y si
;esta en 0 regreso al bucle, y;si esta en 1 me fijo la dir
;para realizar el paso
goto BUCLE

btfss PORTA, DIR
goto IZQUIERDA ;paso a la izquierda
goto DERECHA ;paso a la derecha...