Etepic

DEFINE OSC 4
DEFINE OSCCAL_1K 1
#CONFIG
#LIST_12F675
 __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _BODEN_OFF
#ENDCONFIG

TRISIO= %00000001 : GPIO= 0 : CMCON= 7 : VRCON.7= 0 : ANSEL= %00110001 ;: ADCON0= %10000000
OPTION_REG.7= 1 : WPU= 0


DEFINE   ADC_BITS   8
DEFINE   ADC_CLOCK   3 
DEFINE ADC_SAMPLEUS 50

RAW VAR Byte 				' ADC için değişken

'Değişkenler tanımlanıyor 

Symbol CLK=GPIO.1 
Symbol DTA=GPIO.2 
Symbol LATCH=GPIO.4

Start: 

ADCIN 0, RAW                   ' Porta-AN0 dan okunan değeri RAW değiskeni içine ata 
CHK: 
    If ADCON0.2=1 Then CHK      ' Çevrim bittiginde alt satırdan devam edecek 

    
    SHIFTOUT DTA,CLK,1,[RAW]

    PulsOut LATCH,1 
    Pause 500 
    
    GoTo Start 
  End