Llenado Desposito

list p=16f84
radix HEX
W EQU 00
INTCON EQU 0B
GIE EQU 07
T0IE EQU 05
T0IF EQU 02
INTE EQU 04
INTF EQU 01
estado EQU 03
trisA EQU 05
trisB EQU 06
portA EQU 05
portB EQU 06
rp0EQU 05




#define onVacio bsf portB,1 ;enciendo Vacio.
#define offVacio bcf portB,1 ;apago vacio.
#define onLlenandose bsf portB,2 ;Enciendo el led de llenandose.
#define offLlenandose bcfportB,2 ;apago el led de llenandose.
#define onLleno bsf portB,3 ;Enciendo el led de lleno.
#define offLleno bcf portB,3 ;apago el led de lleno.
#define onRebose bsf portB,4 ;enciendo led derebose.
#define offRebose bcf portB,4 ;apago led de rebose.
#define onAlarma bsf portB,5 ;enciendo led de alarma.
#define offAlarma bcf portB,5 ;apago led de alarma.
#define onBomba1 bsf portA,2;enciendo la Bomba 1.
#define offBomba1 bcf portA,2 ;apago la Bomba 1.
#define onBomba2 bsf portA,3 ;enciendo la Bomba 2.
#define offBomba2 bcf portA,3 ;apago la Bomba 2.

#define LlenadoportB,6
#define Rebose portB,7


ORG 0
goto inicio
ORG 6
inicio bsf estado,rp0 ;cambio al banco 1.
movlw b'00000001' ;configura el puerto A como entradas de detectores.
movwf trisA;configuro puerto A.
movlw b'11000001' ;definimos el puerto B como solo salidas.
movwf trisB ;configuro puerto B como salida.
bcf estado,rp0 ;cambio al banco 0.offLlenandose
offRebose
offAlarma
onVacio
onBomba1
onBomba2
bcf INTCON,INTF ;Ponemos a cero el flag de interrucion externa.
bsf INTCON,INTE ;Habilitamos la interrupcion externa.
bsfINTCON,GIE ;Habilitamos las interrupciones generales.
princ nop
nop
nop
nop
nop
nop
goto princ



;------------interrupcion para ver el sensor que activamos----------------------
ORG 4;vector de interrupción.
goto inter
ORG 40
inter BTFSS INTCON,1 ; salta si la interrup. es por RB0
GOTO tmr ; sino, es por TMR0 y ahí lo atiende
BCF INTCON,1 ; limpia bandera INTF
call...