'12f683 INT4MHz analogue dig led 080717 0900 Define CONF_WORD = %11001111000100 '0x33c4 Define SIMULATION_WAITMS_VALUE = 1 'SIMULATION ONLY Dim analogin As Word Symbol digitalin = GP1 Symbol rled = GP2 Symbol yled = GP4 OSCCON = %01100000 'Internal 4MHz osc CMCON0 = %00000111 '7 'Comparators off WPU = 0 'Internal pull-ups = off OPTION_REG = %10000000 'Pull ups, TMR0, Prescaler ANSEL = %01000001 '0x03 '0-3 Selecting pins Analogue Digital 6 Fosc/4 ADCON0 = %00001101 'PIN DIRECTION 1=IN 0=OUT 'PIN 1 = Vdd TRISIO.5 = 0 'PIN 2 Unused TRISIO.4 = 0 'PIN 3 unused TRISIO.3 = 0 'PIN 4 as yled TRISIO.2 = 0 'PIN 5 as rled TRISIO.1 = 1 'PIN 6 as digitalin TRISIO.0 = 1 'PIN 7 as analogin 'PIN 8 = Vss 'START UP LED FLASH RED then YEL rled = 1 WaitMs 1000 rled = 0 WaitMs 1000 yled = 1 WaitMs 1000 yled = 0 WaitMs 1000 loop: Adcin 0, analogin If analogin > 10 Then 'VARIABLE INPUT (POSSIBLY TEMP SENSOR) rled = 1 Else rled = 0 Endif If digitalin = 1 Then 'SIMLE ON/OFF yled = 1 Else yled = 0 Endif Goto loop End