;-------------------------------------------------------------
;Aplicación 	-> control transferencia energia
;Fecha		-> julio 17 2003
;-------------------------------------------------------------
	mida	64

scan		equ	399

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

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

ini		reset	400
		reset	401
ini1		ld	400
		tim	250	10
		out	401
		set	400
		ld	401
		jz	ini1
		write	0	1
				
		
		

fin		end
		

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

&leavar

;listado subrutinas
;redon, funcionamiento trans en normal con presencia de red
;pla1on,entrada de planta 1 y control funcionamiento
;pla2on,entrada planta 2 y control funcionamientro
;pla1of, salida planta1
;pla2of,salida planta2
;horo, horometros
;sali,control salidas digitales
;even,eventos a db y alarmas

;[REG_RELAYS]

vigr1m		equ	0	;vigilante red1 monitoria
vigp1m		equ	1	;vigilante planta1 monitoria
vigp2m		equ	2	;vigilante planta2 monitoria

motb1m		equ	3	;motorizado barra1 monitoria
motbsm		equ	4	;motorizado barras monitoria
motb2m		equ	5	;motorizado barra2 monitoria

conr1m		equ	6	;contactor red monitoria
conp1m		equ	7	;contactor planta1 monitoria
conp2m		equ	8	;contactor planta2 monitoria

pla1m			equ	9	;planta1 monitoria encendido
pla2m			equ	10	;planta2 monitoria encendido

reset			equ	11	;reset alarmas

vigr2m		equ	13	;vigilante red2 monitoria

vigplcm		equ	15	;vigilante plc

motdb1		equ	16	;motorizado defecto barra1
motdbs		equ	17	;motorizado defecto barras
motdb2		equ	18	;motorizado defecto barra2


conrc			equ	100	;contactor red control
con1c			equ	101	;contactor planta1 control
con2c			equ	102	;contactor planta2 control

motb1cn		equ	103	;motorizado barra1 control on
motbscn		equ	104	;motorizado barras control on
motb2cn		equ	105	;motorizado barras control on

motb1cf		equ	106	;motorizado barras control off
motbscf		equ	107	;motorizado barras control off
motb2cf		equ	108	;motorizado barras control off

pla1c			equ	109	;planta 1 encendicdo control
pla2c			equ	110	;planta 2 encendido control

alaplc		equ	111	;alarma falla plc
alapla		equ	112	;alarma falla plantas
alamot		equ	113	;alarma falla motorizados

sir			equ	114	;sirena

vigplcc		equ	115	;vigilante plc control

tconrc		equ	400	;temporales contactor red control 
tcon1c		equ	401	;temporales contactor planta1 control
tcon2c		equ	402	;temporales contactor planta2 control

tmotb1cn		equ	403	;temporales motorizado barra1 control on
tmotbscn		equ	404	;temporales motorizado barras control on
tmotb2cn		equ	405	;temporales motorizado barras control on

tmotb1cf		equ	406	;temporales motorizado barras control off
tmotbscf		equ	407	;temporales motorizado barras control off
tmotb2cf		equ	408	;temporales motorizado barras control off

tpla1c		equ	409	;temporales planta 1 encendicdo control
tpla2c		equ	410	;temporales planta 2 encendido control

talaplc		equ	411	;temporales alarma falla plc
talapla		equ	412	;temporales alarma falla plantas
talamot		equ	413	;temporales alarma falla motorizados

tsir			equ	414	;temporales sirena

tvigplcc		equ	415	;temporales vigilante plc control

selpla		equ	420	;call horo selecciona planta =1 planta1  =0 planta2

 
;[REG_INTEGERS] 

horario		equ	43	;horario
horariot		equ	300	;temp horario call horo



;[REG_FLOATS]

horored		equ	100	;horometro red en minutos
horop1		equ	101	;horometro planta1
horop2		equ	102	;horometro planta2


;[TIM] 

;[CNT] 

;[NOP]

;[TEXTOS]


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

	file	0,600D,610T,OR,1R,2R,3R,4R,5R,6R,7R,8R,9R,10R,11R,12R,13R,14R,15R,16R,17R,18R,400R,401R,402R,403R,404R,405R,406R,407R,408R,409R,410R,411R,412R,413R,414R,415R,LEN=300,TYPE=C

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