MIDA 14

INIC		LDNT		0				
		ANDNT		1				;CHEQUEO DE ENTRADAS 0-1 DEL MIDA
		JNZ		ESTIN				;1 SALTA
		MOVCI		0				
		STOI		104				;BORRAR REGISTROS
		STOI		500			
		STOI		501
ESTIN		SET		100				;CARGA UNA SALIDA
		LD		100				
		JZ		PROS
		OUT		100		
		TIM		90		20
		SET 		100
		LDNT		100
		OUT		100				;BORRAR

PROS		CALL		ENT1				;RUTINA DE VISUALIZACION DE LA IN 0
		CALL		ENT2				;RUTINA DE VISUALIZACION DE LA IN 1
		JMP		INIC	
	
ENT1		LD 		0				
		JZ		CICLO1
		LD		104
		STOI		500
		MOVCI		500	
		STOI		501
		MOVCI		5
		STOI		502
		CLEAR
		DISRI		500		5
		LOC		16		
		DISIX		501		502
		COM		2

		LDNT		0
		JNZ		CICLO1		
		MOVRI		500
		MOVRI		403
		CPGI		43
		SET		100
		LD		100				;SALIDA DEL MIDA
		MOVCI		0				
		STOI		500
CICLO1	RET
	
ENT2		LD 		1
		JZ		CICLO2
		LD		104
		STOI		501
		MOVCI		501	
		STOI		502
		MOVCI		5
		STOI		503
		CLEAR
		DISRI		501		5
		LOC		16		
		DISIX		502		503
		COM		1
	
		LDNT		1
		JNZ		CICLO2
		MOVRI		501
		MOVRI		404
		CPGI		68
		SET		100
		LD		100				;SALIDA DEL MIDA
		MOVCI		0				
		STOI		501
CICLO2	RET
		END