;************************************
;*
http://www.electron.es.vg *
;************************************
;* EJEMPLO 1: PROGRAMA BIEN ORDENADO*
;************************************
;* El siguiente programa configura *
;* RA1 como entrada y RA0 como *
;* salida y hace que la salida (RA0)*
;* sea la inversa de la entrada *
;* (RA1) *
;************************************
;(Conviene poner título y una
;pequeña explicación de lo que
;hace el programa)
;(Primero los ECU y los #DEFINE)
STATUS EQU 03H
TRISA EQU 05H
PORTA EQU 05H
#DEFINE BANCO0 BCF STATUS,5
#DEFINE BANCO1 BSF STATUS,5
;(Después empezamos con el programa)
ORG 00H ;Empezamos siempre a escribir en esta dirección
BANCO1 ;Pasamos al banco 1 para hacer algunas
;configuraciones
BCF TRISA,0 ;Configuramos RA0 como salida
BSF TRISA,1 ;Configuramos RA1 como entrada
BANCO0 ;Volvemos al banco 0
INICIO BTFSC PORTA,1 ;Comprueba la entrada (RA1), si es "0" se salta la
;siguiente instrucción
GOTO ESUNO ;si la entrada (RA1) es "1" va a ESUNO
BSF PORTA,0 ;Pone a "1" la salida RA0. Ejecuta esta instrucción
;porque la entrada RA1 era "0"
GOTO INICIO ;Vuelve otra vez a comprobar el estado de la
;entrada RA1
ESUNO BCF PORTA,0 ;Pone a "0" la salida RA0. Ejecuta esta instrucción
;porque la entrada RA1 era "1"
GOTO INICIO ;Vuelve otra vez a comprobar el estado de la
;entrada RA1
END ;Indica final del programa
Mostrar Mensajes
