INCLUDE "MODEDEFS.BAS"
    
;**********************************************
; DEFINO LAS VARIABLES QUE VOY A USAR
;**********************************************    

	temp VAR word
	adc VAR word
	ser var WORD
	aux var word
	boton var byte
			                           
	TRISA = 1	    
	TRISB = 1 	
    	TRISC = %00000001		
	TRISD = 0
    	TRISE = 1 
							
					
						
		DEFINE LCD_DREG PORTD
		DEFINE LCD_DBIT 0
		
		DEFINE LCD_RSREG PORTC
		DEFINE LCD_RSBIT 4
		
		DEFINE LCD_EREG PORTC
		DEFINE LCD_EBIT 5
		
        DEFINE LCD_BITS 8		
        DEFINE LCD_LINES 2
		
        DEFINE ADC_BITS 10
        Define ADC_CLOCK 3
        Define ADC_SAMPLEUS 50
        
        define BUTTON_PAUSE 50
         
        ADCON1 = %00000010
        adc=0
        boton= 0
        
  main:
       
        LOW portc.0
        LOW portc.1
        low portc.2
        
        input portb.4
        if (portb.4 = 0) then 
            gosub alarma
        else 
            low portc.2
        endif
        
        serin PORTC.7, T9600, ser

   	    if (ser == "r") THEN
	       gosub releaser
        endif
	    if (ser == "c") THEN
	       gosub cisterna
        endif
	gosub main 
        
         
    alarma:
            high portc.2
            return

cisterna: 
        ADCON0 = %00000001
        adcin 0,adc
        aux= adc / 128
        serout PORTC.6, T9600, [#aux]
        pause 100	
	    LCDOUT $fe,1,"Temp. Cisterna"
        lcdout $fe,$C0,#aux,"~C" 
	    pause 100
        adc=0
        serin PORTC.7, T9600, ser
	    if (ser == "p") THEN
	       gosub main
        endif
        ser=0
	    
  gosub cisterna
  
  releaser:
        ADCON0 = %00001001 
        adcin 2,adc
        aux= adc / 128
        serout PORTC.6, T9600, [#aux]
        pause 100	
	    LCDOUT $fe,1,"Temp. Releaser"
        lcdout $fe,$C0,#aux,"~C" 
	    pause 100
        adc=0
        serin PORTC.7, T9600, ser
	    if (ser == "p") THEN
	       gosub main
        endif
        ser=0
	    
  gosub releaser

END