'define OSC 4 define OSC 4 define LCD_DREG PORTB define LCD_DBIT 4 define LCD_RSREG PORTB define LCD_RSBIT 3 define LCD_EREG PORTB define LCD_EBIT 0 define LCD_BITS 4 define LCD_LINES 2 define LCD_COMMANDUS 2000 define LCD_DATAUS 50 ' define ADC_BITS 8 define ADC_CLOCK 3 define ADC_SAMPEUS 50 ' Res var word Volts1 var word Volts2 var word Volts3 var word Volt_max var word ' Conv1 con 19 Conv2 con 53 ' TRISA = 255 TRISB = 0 ' PAUSE 500 ADCON1 = %00001110 OPTION_REG = %00000000 ADCON0 = %10000001 ' ' main: lcdout $FE,1 ADCIN 0, RES ' if PORTA.3 = 0 THEN Volt_max = 3 ENDIF if PORTA.3 = 1 THEN Volt_max = 10 ENDIF ' VOLTS1 = RES*CONV1 VOLTS2 = RES*CONV2 VOLTS2 = VOLTS2/100 VOLTS1 = VOLTS1+VOLTS2 volts3 = volts1/1000 volts2 = volts1//1000 if volts3 >= Volt_max then maxx ' LCDOUT $FE,2,"V =",DEC1 VOLTS3,",", DEC3 VOLTS2 PAUSE 500 GOTO MAIN maxx: LCDOUT $FE,2,"IN V > MAX" PAUSE 500 GOTO MAIN ' END ' ' lcdout "Hello HATAWA" ' pause 1000 ' lcdout $FE,1 ' lcdout "Hello ooo" ' pause 1000 ' lcdout $FE,1 ' goto main