mida 14
;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 

;nov 22 2005 si no hay agua se espera 10 seg. y se cierra todo, se adiciono linea 132...cama13_14.prg

; en ala2 y ala3 se quita el reconocimiento de la alarma y se coloca que cuando
;se quite la alarma siga su proceso
;-------------------------------------------------------------

scan		equ	99

;programa principal---------------------------------------

&ini		ld	scan
		jz	&lea
		jmp	inicio
&lea		call	&leavar

;PROGRAMA PRINCIPAL -----------------------------------------------

inicio	nop

		call 	disp
		call	proc
		call	ala

		ld	izq
		and	arr
		jnz	ini1
		jmp	fin

ini1		ld	tecla
		jnz	fin

		call	cali

fin		end	
;---------------------------------------------------
proc		setri	157	1
		movri	97		;hora mayor dia
		movri	hodiai
		cpgei	pro1
		reset	x>a
		jmp	pro2

pro1		set	x>a

pro2		movri	97			;hora menor noche
		movri	honoci
		cpli	pro21
		reset	x<b
		jmp	pro5
	
pro21		set	x<b

pro5		ld	x>a
		and	x<b
		jnz	pro6			;esta de dia!!!..a<x<b
		jmp	pro8			;esta de noche!!!

pro6		movrf	tdia
		stof	tala	 		;se usa en ala

		call disp
		movrf	temp			;esta de dia !!!!!...
		movrf	tdia			;controla temp
		cplef	pro61
		reset	saltem		;esta muy frio........


		movrf	tdia
		movcf	1.5			;si temp sube 1.5 grados mas..
		addf
		movrf	temp
		cplef	pro60
		reset	frio
		jmp	pro7

pro60		set	frio			;enfria......!!!
		jmp	pro7

pro61		set	saltem		;caliente por favor....
		reset	frio

pro7		movrf	hdia
		stof	hala

		call	disp
		movrf	hume			;controla humedad
		movrf	hdia
		cplef	pro71
		reset	salhum
		jmp	pro72

pro71		set	salhum

pro72		jmp	prof

pro8		movrf	tnoc
		stof	hala		; ??????????????????????????????????????????????????????

		call disp
		movrf	temp			;esta de noche !!!!!...
		movrf	tnoc			;controla temp
		cplef	pro81
		reset	saltem

		movrf	tnoc
		movcf	1.5		;si hum sube 1.5 % mas..
		addi
		movrf	temp
		cplef	pro80
		reset	frio
		jmp	pro9

pro80		set	frio
		jmp	pro9

pro81		set	saltem
		reset	frio

pro9		movrf	hnoc
		stof	hala

		call	disp
		movrf	hume			;controla humedad
		movrf	hnoc
		cplef	pro91
		reset	salhum
		jmp	prof

pro91		set	salhum
	
prof		ret

;--------------------------------------------------------
ala		setri	157	2
		ld	agu		;no agua=open
		jz	ala1
		reset	auxagu1
		reset	auxagu2
		reset	valv		;cierra valvula
		jmp	ala2

ala1		set	valv		;abre valvula
		ld	auxagu1	;tempo de 10 seg. no agua
		tim	timagu	100
		out	auxagu2
		set	auxagu1
		ld	auxagu2
		jnz	ala11
		jmp	ala2

ala11		set	auxdisp
		call	disp
		reset	auxdisp

		call	setala	;se dispara el tempo
				
		reset	saltem
		reset	salhum
		reset	frio
		reset valv
		clear
		disl	agua
		com	2

		ld	agu		;llego el agua?
		jz	ala11
		
		reset	sire		;si......!!!!
		clear
		com	2

ala2		call	disp
		movrf	tala		;alarma por temperatura
		movcf	30
		mulf
		movcf	100		;le sumamos el 30%
		divf
		movrf	tala		;variable de proc nos pasa el
		addf			;valor de dia o noche
		movrf	temp
		cplf	ala21		;es mayor del 30%
		jmp	ala3		;es menor del 30%

ala21		set	auxdisp
		reset	auxdisp
		call	setala		;se dispara el tempo
		reset	saltem
		reset	salhum
		reset	frio
		clear
		disl	sobtem
		com	2

		jmp	ala2

ala3		call	disp
		reset	sire
		movrf	hala		;alarma por humedad
		movcf	30
		mulf
		movcf	100
		divf
		movrf	hala
		addf
		movrf	hume
		cplf	ala31
		jmp	alaf

ala31		set	auxdisp
		reset	auxdisp
		call	setala		;se dispara el tempo
		reset	saltem
		reset	salhum
		reset	frio
		clear
		disl	sobhum
		com	2

		jmp	ala3

alaf		reset	sire

		ret
;-------------------------------------------------------

;setala. enciende y apaga la sirena cadaq 10 seg.

setala	setri	157	3
		ld	39
		jnz	setala1
		jmp	setala2

setala1	set	sire
		jmp	setalaf

setala2	reset	sire
		

setalaf

;---------------------------------------------

;tempo temporizador generico para tiempos cortos===============
;parametros: temgeni=registro valor de tiempo
tempo		setri	157	4
		reset	auxgen1
		reset	auxgen2

tempo1	ld	auxgen1
		timr	timgen	temgeni
		out	auxgen2
		set	auxgen1
		ld	auxgen2
		jz	tempo1

tempof	ret



;-------------------------------------------------

disp		setri	157	5
		movif	tei
		movrf	tk
		mulf
		stof	tot
		movrf	tot
		movrf	tb
		addf
		stof	temp

		movif	hui
		movrf	hk
		mulf
		stof	hot
		movrf	hot
		movrf	hb
		addf
		stof	hume

		clear
		disrf	temp	41
		com	0

		clear
		disrf	hume	41
		com	1

dispf		ret

;-------------------------------------------
cali		setri	157	6
		

cali6		clear			;calibracion temp
		disl	calit
		com	0
		clear
		disl	e-c
		com	1
		ink	ent
		jnz	cali61

		ink	cle
		jnz	cali7
		jmp	cali6

cali61	clear			;dato Y1 temp high
		disl	te-h
		com	0
		clear
		com	1
		ini	2
		stoi	ythi
		movif	ythi
		stof	yth

		movif	tei		;dato X1
		stof	xth
				
		clear			;dato YO temp low
		disl	te-l
		com	0
		clear
		com	1
		ini	2
		stoi	ytli
		movif	ytli
		stof	ytl

		movif	tei		;dato XO
		stof	xtl

		movrf	xth		;X1-XO
		movrf	xtl
		subf
		stof	tx	

		movrf	yth		;Y1-YO
		movrf	ytl
		subf
		stof	ty
		
		movrf	ty		;Y1-Y0 / X1-XO
		movrf	tx	
		divf
		stof	tk	
		
		movrf	tk		; K * XO
		movrf	xtl
		mulf
		stof	tmx	

		movrf	ytl		;B = YO - K*XO
		movrf	tmx
		subf
		stof	tb

cali7		clear			;calibracion humedad
		disl	calih
		com	0
		clear
		disl	e-c
		com	1
		ink	ent
		jnz	cali71

		ink	cle
		jnz	cali8
		jmp	cali7

cali71	clear			;dato Y1 humedad high
		disl	hu-h
		com	0
		clear
		com	1
		ini	2
		stoi	yhhi
		movif	yhhi
		stof	yhh

		movif	hui		;dato X1
		stof	xhh
				
		clear			;dato YO humedad low
		disl	hu-l
		com	0
		clear
		com	1
		ini	2
		stoi	yhli
		movif	yhli
		stof	yhl

		movif	hui		;dato XO
		stof	xhl

		movrf	xhh		;X1-XO
		movrf	xhl
		subf
		stof	hx	

		movrf	yhh		;Y1-YO
		movrf	yhl
		subf
		stof	hy
		
		movrf	hy		;Y1-Y0 / X1-XO
		movrf	hx	
		divf
		stof	hk	
		
		movrf	hk		; K * XO
		movrf	xhl
		mulf
		stof	hmx	

		movrf	yhl		;B = YO - K*XO
		movrf	hmx
		subf
		stof	hb
	



cali8					;parametros
		clear			;hora dia
		disl	dhodia
		com	0
		ink	ent
		jnz	cali81

		ink	cle
		jnz	cali9
		jmp	cali8

cali81	clear
		com	0
		clear
		ini	2
		stoi	hodiai

cali9		clear			;hora noche
		disl	dhonoc
		com	0
		ink	ent
		jnz	cali91

		ink	cle
		jnz	cali10
		jmp	cali9

cali91	clear
		com	0
		clear
		ini	2
		stoi	honoci

cali10	clear			;tiempo no control
		disl	dnoc
		com	0
		ink	ent
		jnz	cali101

		ink	cle
		jnz	cali11
		jmp	cali10

cali101	clear
		com	0
		clear
		ini	2
		stoi	noci

cali11	clear			;temp dia
		disl	dtdia
		com	0
		ink	ent
		jnz	cali111

		ink	cle
		jnz	cali12
		jmp	cali11

cali111	clear
		com	0
		clear
		ini	2
		stoi	tdiai
		movif	tdiai
		stof	tdia

cali12	clear			;humedad dia
		disl	dhdia
		com	0
		ink	ent
		jnz	cali121

		ink	cle
		jnz	cali13
		jmp	cali12

cali121	clear
		com	0
		clear
		ini	2
		stoi	hdiai
		movif	hdiai
		stof	hdia

cali13	clear			;temp noche
		disl	dtnoc
		com	0
		ink	ent
		jnz	cali131

		ink	cle
		jnz	cali14
		jmp	cali13

cali131	clear
		com	0
		clear
		ini	2
		stoi	tnoci
		movif	tnoci
		stof	tnoc

cali14	clear			;humedad noche
		disl	dhnoc
		com	0
		ink	ent
		jnz	cali15

		ink	cle
		jnz	calif
		jmp	cali14

cali15	clear
		com	0
		clear
		ini	2
		stoi	hnoci
		movif	hnoci
		stof	hnoc

calif		clear
		com	2
		ret	

;-------------------------------------------------

&leavar	setri	157	0

;[REG_RELAYS]

tecla		equ	4	;on inhibe call cali
agu		equ	5	;sensor nivel calderin

ent		equ	30
cle		equ	31
arr		equ	32
izq		equ	33

saltem	equ	100	;resistencia calentamiento
salhum	equ	101	;resistencia calderin
sire		equ	102	;sirena
valv		equ	105	;valvula agua
frio		equ	104	;unidad frio

x>a		equ	127
x<b		equ	128
x<a		equ	129
x>b		equ	130

auxgen1	equ	150	;de tempo
auxgen2	equ	151
auxagu1	equ	152
auxagu2	equ	153
auxdisp	equ	154




;[REG_INTEGERS] 

tei		equ	110
hui		equ	111

temgeni	equ	150	;tiempo de tempo

ythi		equ	151
ytli		equ	152
yhhi		equ	153
yhli		equ	154

hodiai	equ	1100	;hora dia
honoci	equ	1101
noci		equ	1102
tdiai		equ	1103
hdiai		equ	1104
tnoci		equ	1105
hnoci		equ	1106



;[REG_FLOATS]

temp		equ	10
hume		equ	11


tot		equ	15
hot		equ	16

yth		equ	17
ytl		equ	18
xth		equ	19
xtl		equ	20
tx		equ	21
ty		equ	22
tmx		equ	23

yhh		equ	24
yhl		equ	25
xhh		equ	26
xhl		equ	27
hx		equ	28
hy		equ	29
hmx		equ	30

tala		equ	31	;temporal temp para ala
hala		equ	32


tk		equ	400
hk		equ	401

hb		equ	402
tb		equ	403


tdia		equ	404
hdia		equ	405
tnoc 		equ	406
hnoc		equ	407

;[TIM] 

timgen	equ	48
timagu	equ	49

;[CNT] 

;[NOP]

calib		lite	"V-I"
e-c		lite	"E-C?"
cien		lite	"100"
cincu		lite	"50"
calit		lite	"TEM"
calih		lite	"HUM"
te-h		lite	"T-H"
te-l		lite	"T-L"
hu-h		lite	"H-H"
hu-l		lite	"H-L"


dtemp		lite	"T="
dhume		lite	"H="
dhodia	lite	"HOD"
dhonoc	lite	"HON"
dnoc		lite	"TNC"
dtdia		lite	"TD "
dhdia		lite	"HD "
dtnoc		lite	"TN "
dhnoc		lite	"HN "
agua		lite	"L A"
sobtem	lite	"H T"
sobhum	lite	"H H"




;inicio variables


&leavarf		ret


;-----------------------------------------------