Ingeniero

;con el pic 16f84A solo disponia de pines para controlar 5 plantas, pero
;utilizando elmicrocontrolador 16f628 podemos controlar 7 plantas utilizando
;su reloj interno.

__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
LIST P=16f84A ;Procesador utilizado.INCLUDE <P16F84A.INC>

;codigo de proteccion no;perro guardian no;reset inicio si;oscilador a cristal

;******************************** igualdades ********************************

;tanto las salidas como las entradas se consideran que estan activadas cuando;se encuentran en estado logico bajo

;RA0 entrada y salida de cabina de 5ª planta
;RA1 salida de bajada, dispara por positivo
;RA2 salida de subida, dispara por positivo
;RA3 entrada y salida del pulsador de llamada de 5ª planta
;RA4 entrada y salida del pulsador de llamada de 4ª planta;RB0 entrada y salida del pulsador de llamada de 3ª planta
;RB1 entrada y salida del pulsador de llamada de 2ª planta
;RB2 entrada y salida del pulsador de llamada de 1ª planta
;RB3 entrada de puerta de cabina
;RB4 entrada y salida de cabina de 1ª planta
;RB5 entrada y salida decabina de 2ª planta
;RB6 entrada y salida de cabina de 3ª planta
;RB7 entrada y salida de cabina de 4ª planta


;****************************** ZONA DE DATOS ****************************

LIST P=16f84a ;Procesador utilizado.
RADIX hex;trabajo en numeracion hexadecimal


;***************************** MAPA DE MEMORIA ****************************

status equ 0x03
trisa equ 0x05
porta equ 0x05
trisb equ 0x06
portb equ 0x06
reg1 equ0x0c
reg2 equ 0x0d
reg3 equ 0x0e
reg4 equ 0x0f


;******************************** inicio **********************************

reset org 0x00 ;El programa comienza en la dirección 0.goto inicio ;pasa a la posicion de inicio para evitar la int.
;que se encuentra en la posicion 4


inicio bsf status,5 ;Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.

movlw b'11001';3 entradas y dos salida del puerto a.
movwf trisa
movlw b'11111111' ;el puerto b esta como entradas
movwf trisb
bcf status,5 ;Acceso al Banco 0.


bcf porta,1 ;paro el motor hacia abajobcf porta,2 ;paro el motor hacia arriba


principio nop

call pulsadores ;compueba si hay algun pulsador dado, asi como la posicion
;de la cabina

cs call coincide ;aqui para el motor si la...