;-------------------------------------------------------------
;Aplicación 	-> thr para mida 20
;Fecha		-> 
;-------------------------------------------------------------
	mida 20M

scan		equ	99

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

inicio	ld	scan
		jz	lea
		jmp	ini0
lea		call	leavar

ini0		ld	aux3
		jnz	ini1

		reset	aux1
		reset	aux2
		reset	aux3

ini1		ld	aux1
		timr	200	tiempo
		out	aux2
		set	aux1
		set	aux3
		ld	aux2
		jnz	ini1a
		jmp	ini1b

ini1a		reset	aux3
		

		movri	30
		stoi	can0
		movri	can0
		movri	k0
		muli
		stoi	dat0t
		movri	dat0t
		movri	tara0
		subi
		stoi	dat0

		movri	31
		stoi	can1
		movri	can1
		movri	k1
		muli
		stoi	dat1t
		movri	dat1t
		movri	tara1
		subi
		stoi	dat1
		
ini1b		ink	enter
		jnz	ini11
		jmp	ini3

ini11		clear		
		inicf	40
		stoi	tiempo
		clear
		disl	toma
		com	0

ini00		ink	enter
		jz	ini01
		jmp	init

ini01		ink	clear
		jz	ini00
		jmp	fint

init		movci	0
		stoi	puntero
		jmp	ini3

fint		movci	1000
		stoi	puntero
		

ini3		movri	puntero
		movri	fintab
		cpli	ini31
		jmp	fin1
		
ini31		ld	aux2
		jnz	ini4
		jmp	fin1

ini4		write	0	1
		reset	aux3

fin1		clear
		disri	puntero	0
		com	0
	
		end

;leavar=================================================

leavar

	file 0,400D,47I,450T, 30I, 31I, Len=1000, Type=L


;[REG_RELAYS]
 
aux1		equ	250
aux2		equ	251
enter		equ	60
clear		equ	62
arriba	equ	63
aux3		equ	252

;[REG_INTEGERS] 

dato		equ	500
nume		equ	301
fintab	equ	302
tiempo	equ	303
puntero	equ	60
dat0		equ	304
dat0t		equ	305
can0		equ	306
k0		equ	307
tara0		equ	308
dat1		equ	310
dat1t		equ	311
can1		equ	312
k1		equ	313
tara1		equ	314

;[REG_FLOATS]

;[TIM] 

;[CNT] 

;[NOP]

;[texto]

toma		lite	"ini?e/c"
fin		lite	"parar"
tiem		lite	"tim"

;iniciar variables

	movci	4
	stoi	nume
	movci	999
	stoi	fintab
	movci	100
	stoi	tiempo
	movci	4347
	stoi	tara0
	movci	23
	stoi	k0
	movci	300
	stoi	tara1
	movci	12
	stoi	k1


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