Control de llenado de tanque de agua

; ====================================
; Control de llenado de tanque de agua.asm
; 13-04-2011
; Sensores en:
; - cisterna --> High - Low
; - tanque --> High - Low
; - agua cayendo --> ON/OFF
; ===================================
LIST P=16F84
include "P16F84.inc"
; =================================
; registros
; =================================
tmr0 equ 0x01
status equ 0x03portA equ 0x05
portB equ 0x06
trisA equ 0x05
trisB equ 0x06
intcon equ 0x0b
opsion equ 0x81
T_sin_agua equ 0x20
var1 equ 0x23
var2 equ 0x24
var3 equ 0x25
;
;==================================
; bits
; ====================================
c equ 0x01
z equ 0x02
rp0 equ 0x05
rp1 equ 0x06
F1 equ 0x00 ; F= Fila
F2 equ 0x01
F3 equ 0x02
C3 equ 0x03 ; C=Columna
C2 equ 0x04
C1 equ 0x05
ps0 equ 0x00
ps1 equ 0x01
ps2 equ 0x02
psa equ 0x03
gie equ 0x07
toif equ 0x02
toie equ 0x05
tocs equ 0x05
;
; ====================================
;declaracion del vector de origen
; =====================================
org 0x00
goto INICIO
; -------------------------------------
org 0x04
bcf status, rp0 ; banco 0
bcf status, rp1btfsc intcon, toif ; la int es del TMR0?
goto RETARDO_AGUA
retfie
; =====================================
; Inicio de la interrupcion por desborde del TMR0
; =====================================RETARDO_AGUA
bcf status, rp0 ; banco 0
bcf status, rp1
bcf intcon, gie ; desactiva las interrupciones
bcf intcon, toie
incf T_sin_agua, 1 ; incrementa el contador
bcf intcon, toif ;limpia la bandera
bsf intcon, gie ; activa la interrupcion
bsf intcon, toie
retfie
; =====================================
; programa principal
; =====================================
INICIO; -------------------------------------
; declaracion de puertos
; -------------------------------------
bsf status, rp0 ;seleccion banco 1
bcf status, rp1
movlw b'00000000'
movwf...