Define  LCD_DREG        PORTD
Define  LCD_DBIT        4
Define  LCD_RSREG       PORTE
Define  LCD_RSBIT       0
Define  LCD_EREG        PORTE
Define  LCD_EBIT        1

' Define ADCIN parameters
Define  ADC_BITS        8       
Define  ADC_CLOCK       3      
Define  ADC_SAMPLEUS    50     

adval Var Byte    


  TRISA = %11111111   
  ADCON1 = %00000010  

  Pause 500                      


mainloop:
  Lcdout  $fe, 1    
   
  Adcin 0, adval        
  adval= (adval*500)/1024
  Lcdout  "U1=",DEC(adval/100),".",DEC2 adval 

  Adcin 1, adval        
  adval= (adval*500)/1024
  Lcdout  "  U2=",DEC(adval/100),".",DEC2 adval

 
 
 LCDOUT $FE, $C0,"U3="
 
 Adcin 2, adval        
  adval= (adval*500)/1024
  Lcdout  ,  DEC(adval/100),".",DEC2 adval 
 
  Adcin 3, adval         
  adval= (adval*500)/1024
  Lcdout  "  U4=",DEC(adval/100),".",DEC2 adval




Pause   200           

  Goto  mainloop        

End