'* Author :Cesar Dario Quinteros
'* Notice : Copyright (c)
'* : All Rights Reserved
'* Date : 26/03/2011
'* Version : 1.0
'* Notes :Este programa hace un test del funcionamiento de
'* :los motores del robot
'****************************************************************
'aqui configuro los fuses del micro pic16f628
@ DEVICE MCLR_OFF, INTRC_OSC, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
CMCON = 7 ' desactivo el convertidor AD del puerto A
TrisA=%11111111 'todo el port A como entrada
TrisB=%00000000 'todo el port B como salida
PORTA = %11111111 'todo el port A en 1
PORTB = %00000000 'todo el port B en 0
test1: 'etiqueta test
portb = %00000000 'coloco el port B a 0
pause 5000 'espero 5 segundos
portb = %00001001 'port B 0 y port B 3 a 1 ir adelante
pause 5000 'espero 5 segundos, mientras voy adelante
portb = %00000110 'port B 1 y port B 2 a 1 ir hacia atras
pause 5000 'espero 5 segundos, mientras voy hacia atras
portb = %00001010 'port B 1 y port B 3 a 1 giro hacia la izquierda
pause 5000 'espero 5 segundos, mientras giroa a la izquierda
portb = %00000101 'port B 0 y port B 2 a nivel 1 giro a la derecha
pause 5000 'espero 5 segundos, mientras giro a la derecha
goto test1 'ir a la etiqueta test1, la rutina vuelve a comenzar
end 'fin del programa