;-------------------------------------------------------------
;Aplicación 	-> lectura canal con calibracion
;Fecha		-> marzo 23 2003
;-------------------------------------------------------------
	mida	14

scan		equ	99

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

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

&ini0		ld	&ent
		and	&lef
		out	&encal
		ld	&encal
		jnz	&ini1
		jmp	&ini2

&ini1		call	&men

&ini2		movci	0
		stoi	&procon
		movcf	0
		stof	&summed

&ini3		movri	&can
		movif	&summed
		addf
		stof	&summed
		inc	&procon	1
		movri	&procon
		movri	&pro
		cpli	&ini3
		
		movrf	&summed
		movif	&procon
		divf
; valor del dato buscado con promedio seleccionado---------------------
		stof	&valtem
		movrf	&valtem
		movrf	&k
		mulf
		stof	&valdat	;valor con promedio reg flota 3---------
;-----------------------------------------------------------------------
		


&fin		end
;fin programa principal--------------------------------

;&men---------------------------------------------------

&men		clear
		disl	&lcal
		com	0
		clear
		disl	&lec
		com	1	
		ink	&ent
		jnz	&men1
		jnz	&menf

&men1		clear
		disl	&lp_0
		com	0
		inf	1	1	;valor punto 0
		stof	&p0v
		movri	&can
		stoi	&p0
		clear
		disl	&lp_1
		com	0
		inf	1	1	;valor punto 1
		stof	&p1v		
		movri	&can
		stoi	&p1
		movri	&p1
		movri	&p0
		subi
		stoi	&resx
		movrf	&p1v
		movrf	&p0v
		subf	
		stof	&resy
		movrf	&resy
		movif	&resx
		divf
		stof	&k

&menf		ret
		
		
;leavar=================================================

&leavar

;[REG_RELAYS]

&encal	equ	500
&ent		equ	30
&cle		equ	31
&up		equ	32
&lef		equ	33
 
;[REG_INTEGERS] 


&can		equ	504
&bas		equ	505
&dec		equ	506
&pro		equ	507
&fes		equ	508
&tar		equ	509
&cer		equ	510
&procon	equ	511
&p0		equ	512
&p1		equ	513
&resx		equ	516


;[REG_FLOATS]

&valdat	equ	3
&valtem	equ	350
&resy		equ	351
&k		equ	352
&p0v		equ	353
&p1v		equ	354
&summed	equ	355
&valmed	equ	356

;[TIM] 

;[CNT] 

;[NOP]

;[textos]

&lcal		lite	"cali"
&lec		lite	"e_c"
&lp_0		lite	"dat0"
&lp_1		lite	"dat1"
;iniciar variables--------------------------------


	ret
;======================================================