mida 21

;********PARAMETROS A CONFIGURAR EN EL SETUP DEL MIDA 20d/64K*****************************
;
; CARACTER INICIAL:	92 ( \ )
; CARACTER FINAL:	10 ( <LF> )
; LONGITUD MENSAJE:	0
; PROTOCOLO COM-1:	LIBRE
;*************************************************************************************************************
;
; Pregunta el MIDA al equipo conectado en el RS232 sobre dos datos internos:
;
;			\P00LE9A<LF>
;
; Respuesta del equipo con los dos datos:
;
;			\P01FExxxxyyyy<LF> 
;
;	donde:	xxxx 	(dato 1)
;		yyyy 	(dato 2)
;
;*****************************************************************************

;***DEFINICIÓN DE TEXTOS***

TRAMA	lite	"\P00LE9A<LF>"
INTE	lite	"IN_"
DIRE	lite	"DI_"

;***DEFINICIÓN DE ETIQUETAS***

TX	EQU	20	;Registro Entero Ancho TX COM1
ENTER	EQU	60	;Relé de Estado de la Tecla <ENTER>
RX	EQU	70	;Relé de Estado RX COM1
MENS	EQU	76	;Relé Mensaje Completo
PROT	EQU	77	;Relé Activa/Desactiva Protocolo Libre 
PULS	EQU	84	;Relé de Pulso 10 segundos
SCAN	EQU	99	;Relé de 1º Scan
T1	EQU	320	;Relé intermedio
T2	EQU	321	;Relé intermedio
DAT1	EQU	500	;Registro Entero con el dato 1
DAT2	EQU	550	;Registro Entero con el dato 2

;***INICIALIZO REGISTROS EN EL PRIMER SCAN DE PROGRAMA*** 

	ld	SCAN		;RELÉ PRIMER SCAN
	jnz	PRIN
	reset	PROT		;DESACTIVO PROTOCOLO LIBRE

	setri	OFF	0	;INICIALIZO REGISTROS ENTEROS
	setri	ON	0
	setri	HORA1	0
	setri	MINU1	0
	setri	HORA2	0
	setri	MINU2	0
	setri	TEMP1	0
	setri	TEMP2	0
	
;***SI SE CUMPLEN ESTAS CONDICIONES DURANTE UN TIEMPO ENVIO LA TRAMA DE NUEVO AL EQUIPO***	
	
PRIN	ldnt	MENS		;COMPRUEBO RELE MENSAJE COMPLETO		
	and	RX		;Y EL RELE RX
	and	PROT		;Y EL RELE DE PROTOCOLO LIBRE				
	tim	201	50
	out	T2

	ld	T2		;TRANSCURRIDO EL TIEMPO ENVIO DE NUEVO LA TRAMA AL EQUIPO
	jnz	REIN
	
;***ENVIO LA TRAMA AL EQUIPO

	ink	ENTER		;TECLA ENTER
	jz	SAL2

REIN	set	PROT		;RESET RX
	reset	MENS		;RESET MENSAJE COMPLETO
	setri	TX	9	;ANCHO TX A TRANSMITIR
	clear			;BORRO EL BUFER
	disl	TRAMA		;TRAMA A ENVIAR:\P00LE9A
	loc	8
	disch	10		;MÁS UN <LF>
	com	1		;ENVIO LA TRAMA A TRAVES DEL PUERTO RS232

;***PROCESO LA TRAMA RECIBIDA DEL EQUIPO***

SAL2	ld	MENS		;TESTEO MENSAJE COMPLETO
	and	RX		;TESTEO RX				
	tim	200	50	
	out	T1

	ld	T1		;TRANSCURRIDO EL PERIODO DE TIEMPO SE TRATA LA RESPUESTA
	jz	VIS1

	clear
	com	9		;COPIA EL BUFFER DE RECEPCIÓN

;***DESGLOSO LA TRAMA PARA LEER EL DATO 1 ***

	loc	6
	lecb	3	4	;LEO DE LA TRAMA DE RESPUESTA EL CAMPO xxxx EN HEXADECIMAL
	stoi	DAT1		;ALMACENO EN DECIMAL

;***DESGLOSO LA TRAMA PARA LEER EL DATO 2 ***

	loc	10	
	lecb	3	4	;LEO DE LA TRAMA DE RESPUESTA EL CAMPO yyyy EN HEXADECIMAL
	stoi	DAT2		;ALMACENO EN DECIMAL

	reset	PROT

;***VISUALIZO EN EL DISPLAY LOS DATOS ALMACENADOS***
		
VIS1	ld	PULS		;RELÉ DE PULSOS DE 10 SEGUNDOS
	jz	VIS2
	clear			;VISUALIZO EL DATO 1 EN EL DISPLAY
	disl	INTE
	loc	3
	disri	DAT1	20
	com	0
	jmp	FIN

VIS2	clear			;VISUALIZO EL DATO 2 EN EL DISPLAY
	disl	DIRE
	loc	3
	disri	DAT2	20
	com	0

FIN	end