;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------
 MIDA 20M

scan		equ	99

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

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

inicio	nop

		call disp
		call	proc

		ld	izq
		and	arr
		jnz	ini1
		jmp	fin

ini1		call	cali


fin		end

;-------------------------------------------------------
proc
		movri	42		;hora mayor dia
		movri	hodia
		cpgi	pro1
		reset	x>a
		jmp	pro2

pro1		set	x>a

pro2		movri	42		;hora menor noche
		movri	honoc
		cplei	pro21
		reset	x<b
		jmp	pro3
	
pro21		set	x<b

pro3		movri	42		;hora mayor noche
		movri	hodia
		cplei	pro31
		reset	x<a
		jmp	pro4
	
pro31		set	x<a
	
pro4		movri	42		;hora menor dia
		movri	honoc
		cplei	pro41
		reset	x>b
		jmp	pro5
	
pro41		set	x>b

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

pro6		movri	temp			;esta de dia !!!!!...
		movri	tdia			;controla temp
		cplei	pro61
		reset	saltem
		jmp	pro7

pro61		set	saltem

pro7		movri	hume			;controla humedad
		movri	hdia
		cplei	pro71
		reset	salhum
		jmp	pro72

pro71		set	salhum

pro72		jmp	prof

pro8		movri	temp			;esta de noche !!!!!...
		movri	tnoc			;controla temp
		cplei	pro81
		reset	saltem
		jmp	pro9

pro81		set	saltem

pro9		movri	hume			;controla humedad
		movri	hnoc
		cplei	pro91
		reset	salhum
		jmp	prof

pro91		set	salhum
	
prof		ret






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

cali
		clear			;calibra temp?
		disl	caltem
		com	0
		ink	ent
		jnz	cali1

		ink	cle
		jnz	cali2
		jmp	cali

	
cali1		clear			;si...
		disl	dtp1		;punto bajo
		loc	3
		disri	chtem	40
		com	0
		ink	ent
		jz	cali1

cali11	clear
		disl	dtp2		;punto alto
		loc	3
		disri	chtem	40
		com	0
		ink	ent
		jz	cali11

		clear			;entre k1 temp
		disl	dk1t
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k1t

		clear			;entre k2 temp
		disl	dk2t
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k2t

		clear			;entre k3 temp
		disl	dk3t
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k3t
	
		clear			;constante b temp
		disl	dk4t
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	30
		stoi	k4t
		

cali2		clear			;calibra humedad?
		disl	calhum
		com	0
		ink	ent
		jnz	cali3

		ink	cle
		jnz	cali4
		jmp	cali2

cali3		clear			;si....
		disl	dhp1		;punto bajo
		loc	3
		disri	chhum	40
		com	0
		ink	ent
		jz	cali3

cali31	clear
		disl	dhp2		;punto alto
		loc	3
		disri	chhum	40
		com	0
		ink	ent
		jz	cali31

		clear			;entre k1 hum
		disl	dk1h
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k1h

		clear			;entre k2 hum
		disl	dk2h
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k2h

		clear			;entre k3 hum
		disl	dk3h
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	10
		stoi	k3h

		clear			;constante b hum
		disl	dk4h
		com	0
		setri	temgeni	20
		call	tempo
		clear
		inicf	30
		stoi	k4h

cali4					;parametros
		clear			;hora dia
		disl	dhodia
		com	0
		ink	ent
		jnz	cali41

		ink	cle
		jnz	cali5
		jmp	cali4

cali41	clear
		com	0
		clear
		inicf	20
		stoi	hodia



cali5		clear			;hora noche
		disl	dhonoc
		com	0
		ink	ent
		jnz	cali51

		ink	cle
		jnz	cali6
		jmp	cali5

cali51	clear
		com	0
		clear
		inicf	20
		stoi	honoc



cali6		clear			;tiempo no control
		disl	dnoc
		com	0
		ink	ent
		jnz	cali61

		ink	cle
		jnz	cali7
		jmp	cali6

cali61	clear
		com	0
		clear
		inicf	20
		stoi	noc



cali7		clear			;temp dia
		disl	dtdia
		com	0
		ink	ent
		jnz	cali71

		ink	cle
		jnz	cali8
		jmp	cali7

cali71	clear
		com	0
		clear
		inicf	31
		stoi	tdia




cali8		clear			;humedad dia
		disl	dhdia
		com	0
		ink	ent
		jnz	cali81

		ink	cle
		jnz	cali9
		jmp	cali8

cali81	clear
		com	0
		clear
		inicf	31
		stoi	hdia



cali9		clear			;temp noche
		disl	dtnoc
		com	0
		ink	ent
		jnz	cali91

		ink	cle
		jnz	cali10
		jmp	cali9

cali91	clear
		com	0
		clear
		inicf	31
		stoi	tnoc




cali10	clear			;humedad noche
		disl	dhnoc
		com	0
		ink	ent
		jnz	cali101

		ink	cle
		jnz	calif
		jmp	cali10

cali101	clear
		com	0
		clear
		inicf	31
		stoi	hnoc


		
		

calif		ret	
		
		

;-------------------------------------------------------------------
disp		ld	83
		jnz	disp1
		jmp	disp2		

disp1		movri	chtem			;puntos por k entero
		movri	k1t
		muli
		stoi	k1tem
		movri	k1tem
		movci	10
		muli
		stoi	k1tem

		movri	chtem			;puntos por k*1
		movri	k2t
		muli
		stoi	k2tem

		movri	chtem			;puntos por k/10
		movri	k3t
		muli
		stoi	k3tem
		movri	k3tem
		movci	10
		divi
		stoi	k3tem

		movri	k1tem			;suma temporales a temp final
		movri	k2tem
		addi
		stoi	tempt
		movri	tempt
		movri	k3tem
		addi
		stoi	tempt			;TEMPERATURA temporal

		movri	tempt
		movri	k4t
		addi
		stoi	temp			;TEMPERATURA TOTAL

		clear
		disl	dtemp
		loc	3
		disri	temp	41
		com	0

		jmp	dispf

						;humedad

disp2		movri	chhum			;puntos por k*10
		movri	k1h
		muli
		stoi	k1hum
		movri	k1hum
		movci	10
		muli
		stoi	k1hum


		movri	chhum			;puntos por k*1
		movri	k2h
		muli
		stoi	k2hum

		movri	chhum			;puntos por k/10
		movri	k3h
		muli
		stoi	k3hum
		movri	k3hum
		movci	10
		divi
		stoi	k3hum

		movri	k1hum			;suma temporales a temp final
		movri	k2hum
		addi
		stoi	humet
		movri	humet
		movri	k3hum
		addi
		stoi	humet			;HUMEDAD temporal

		movri	humet
		movri	k4h
		addi
		stoi	hume			;HUMEDAD TOTAL

		clear
		disl	dhume
		loc	3
		disri	hume	41
		com	0



dispf		ret

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

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

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

tempof	ret



;---------------------------------------------------
&leavar

;[REG_RELAYS] 

ent		equ	60
izq		equ	61
cle		equ	62
arr		equ	63

saltem	equ	100
salhum	equ	101

auxgen1	equ	250	;de tempo
auxgen2	equ	251

x>a		equ	252
x<b		equ	253
x<a		equ	254
x>b		equ	255

;[REG_INTEGERS] 

chtem		equ	30	;puntos conversor
chhum		equ	31

k1t		equ	260	;k*10
k1tem		equ	261
k2t		equ	262	;k
k2tem		equ	263
k3t		equ	264	;k/10

k3tem		equ	265
k4t		equ	266	;b de temp
tempt		equ	267	;FINAL DE TEMPERATURA
temp		equ	268

k1h		equ	270
k1hum		equ	271
k2h		equ	272
k2hum		equ	273
k3h		equ	274
k3hum		equ	275
k4h		equ	276
humet		equ	277
hume		equ	278	;FINAL DE HUMEDAD

temgeni	equ	280	;tiempo de tempo

hodia		equ	281	;hora dia
honoc		equ	282
noc		equ	283
tdia		equ	284
hdia		equ	285
tnoc 		equ	286
hnoc		equ	287

;[TIM] 

timgen	equ	200	;temporizador general

;[CNT] 

;[NOP]

dtp1		lite	"t1"
dtp2		lite	"t2"
dhp1		lite	"h1"
dhp2		lite	"h2"
caltem	lite	"T? e/c"
calhum	lite	"H? e/c"
dk1t		lite	"k1 tem"
dk2t		lite	"k2 tem"
dk3t		lite	"k3 tem"
dk4t		lite	"k4 tem"
dk1h		lite	"k1 hum"
dk2h		lite	"k2 hum"
dk3h		lite	"k3 hum"
dk4h		lite	"k4 hum"
dtemp		lite	"T="
dhume		lite	"H="
dhodia	lite	"HOD e/c"
dhonoc	lite	"HON e/c"
dnoc		lite	"TNC e/c"
dtdia		lite	"TD e/c"
dhdia		lite	"HD e/c"
dtnoc		lite	"TN e/c"
dhnoc		lite	"HN e/c"

;iniciar variables--------------------------------

	;file 0,40i,41i,42i,44i,45i,46i,47i,len=1000,type=l


varf		ret