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

scan		equ	99

		movci	0
		stoi	numero
		movcf	0
		stof	peso1
		movcf	0
		stof	peso2


INICIO	ld	scan
		jz	lea
		jmp	ini1
lea		call	leavar

ini1	movrf	0
	stof	peso

	movrf	peso1
	movrf	peso
	addf
	stof	peso1		;sumatorio de peso

	movrf	peso
	movrf	peso
	mulf
	stof	pesot		; peso cuadrado
	movrf	peso2
	movrf	pesot
	addf
	stof	peso2		;sumatoria peso al cuadrado

	inc	numero	1
	movri	connum
	movri	numero
	cpgi	ini1

	movrf	peso1
	movrf	peso1
	mulf
	stof	peso1t		;temporal de sumapeso por sumapeso

	movrf	peso1t
	movif	numero
	divf
	stof	peso11		;segunda parte de la ecuacion

	movrf	peso2
	movrf	peso11
	subf
	stof	pesof

	clear
	disrf	peso	53
	com	0
	clear
	disrf	pesof	53
	com	1

	movrf	setdesv
	movrf	pesof
	cpli	ledon
	jmp	ledof
ledon	set	118
	jmp	fin
ledof	reset	118


fin	end



leavar
	
;[REG_RELAYS]
 
;[REG_INTEGERS] 

connum	equ	200
conpes	equ	300
numero	equ	201

;[REG_FLOATS]

peso		equ	4
peso1		equ	5
peso2		equ	6
pesot		equ	7
peso11	equ	8
peso1t	equ	9
pesof		equ	10
setdesv	equ	11

;[TIM] 

;[CNT] 

;[NOP]

;variables de inicio-----------------------------------------------

	movcf	1
	stof	setdesv
	movci	0
	stoi	numero	
	movci	20
	stoi	connum
	movci	300
	stoi	conpes	
;---------------------------------------------------------------
	ret