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

scan		equ	99

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

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

ini0		nop

		call	disp

		ld	arr
		and	izq
		jnz	ini2
		jmp	ini4

ini2		call	cali

ini4		

inif		end

;--------------------------------------
;disp.

disp		ink	ent		;scroll de variables segun
		jnz	disp1		;valor de scro
		jmp	disp2

disp1		inc	scro	1
		movri	scro
		movci	2
		cpgi	disp11
		jmp	disp2

disp11	movci	0
		stoi	scro

disp2		movri	scro		;scro=0 muestra voltajes
		movci	0
		cpei	disp21
		jmp	disp3

disp21	movif	v1i
		movrf	v1k
		mulf
		stof	v1o
		clear
		disrf	v1o	41
		com	0

		movif	v2i
		movrf	v2k
		mulf
		stof	v2o
		clear
		disrf	v2o	41
		com	1

		movif	v3i
		movrf	v3k
		mulf
		stof	v3o
		clear
		disrf	v3o	41
		com	2

		jmp	dispf

disp3		movri	scro		;scro=1 muestra corrientes
		movci	1
		cpei	disp31
		jmp	disp4 

disp31	movif	i1i
		movrf	i1k
		mulf
		stof	i1o
		clear
		disrf	i1o	41
		com	0

		movif	i2i
		movrf	i2k
		mulf
		stof	i2o
		clear
		disrf	i2o	41
		com	1

		movif	i3i
		movrf	i3k
		mulf
		stof	i3o
		clear
		disrf	i3o	41
		com	2

disp4		movri	scro		;scro=2 muestra t y h
		movci	2
		cpei	disp41
		jmp	dispf

disp41	clear
		disrf	teo	41
		com	0

		clear
		disrf	huo	41
		com	1

		clear
		com	2

dispf		ret

;--------------------------------------
;cali.

cali		clear
		disl	calib
		com	0
		clear
		disl	e-c
		com	1
		ink	ent
		jnz	cali1

		ink	cle
		jnz	calif
		jmp	cali

cali1		clear
		disl	cien
		com	0
		clear
		disl	e-c
		com	1
		clear
		com	2

		ink	ent
		jnz	cali11

		ink	cle
		jnz	calif
		jmp	cali1


cali11	movri	v1i		;si es 0 el valor fuera....
		movci	0
		cpei	calif

		movri	v2i		;si es 0 el valor fuera....
		movci	0
		cpei	calif

		movri	v3i		;si es 0 el valor fuera....
		movci	0
		cpei	calif

		movri	i1i		;si es 0 el valor fuera....
		movci	0
		cpei	calif

		movri	i2i		;si es 0 el valor fuera....
		movci	0
		cpei	calif

		movri	i3i		;si es 0 el valor fuera....
		movci	0
		cpei	calif


		jnz	cali1

		ink	cle
		jnz	calif


cali2		movrf	vmax
		movif	v1i
		divf
		stof	v1k
		
		movrf	vmax
		movif	v2i
		divf
		stof	v2k

		movrf	vmax
		movif	v3i
		divf
		stof	v3k

		movrf	imax
		movif	i1i
		divf
		stof	i1k

		movrf	imax
		movif	i2i
		divf
		stof	i2k

		movrf	imax
		movif	i3i
		divf
		stof	i3k
		
calif		ret
;-------------------------------------------

&leavar
;[REG_RELAYS]

ent		equ	30
cle		equ	31
arr		equ	32
izq		equ	33
 
;[REG_INTEGERS] 

v1i		equ	110
v2i		equ	111
v3i		equ	112
i1i		equ	113
i2i		equ	114
i3i		equ	115
tei		equ	116
hui		equ	117

scro		equ	120	;scroll para display

;[REG_FLOATS]

i1o		equ	120	;corriente 1 entregada
i2o		equ	121
i3o		equ	122
v1o		equ	124
v2o		equ	125
v3o		equ	126
teo		equ	127
huo		equ	128

v1k		equ	130	;factor de v1
v2k		equ	131
v3k		equ	132
i1k		equ	133
i2k		equ	134
i3k		equ	135
tek		equ	136
huk		equ	137

vmax		equ	140	;vmax patron
imax		equ	141	;imax patron

;[TIM] 

;[CNT] 

;[NOP]

calib		lite	"V-I"
e-c		lite	"E-C?"
cien		lite	"100"

;inicio variables

		movcf	240
		stof	vmax

		movcf	1
		stof	imax

&leavarf		ret


;-----------------------------------------------
INICIO		nop
FIN		end