;PROGRAM-32) “Ortak referanslı iki karşılaştırıcı” moduna örnek program. 
;Bu uygulamada ışığa duyarlı bir çeşit direnç olan LDR kullanılacaktır. 
;Böylece sokak aydınlatmalarının otomatik olarak yapılmasına benzer 
;işlem yaptırılacaktır. RA2 ucuna bağlı bir potansiyometre ile referans 
;gerilimi sağlanmaktadır. RA0 ucuna bağlı bir LDR, RA1 ucuna da bir 
;potansiyometre bağlanmıştır. Karşılaştırma iki ayrı karşılaştırıcıda 
;(C1 ve C2) yapılmaktadır. LDR uçlarındaki ve RA1 potansiyometresindeki 
;gerilim RA2 ucundaki referans gerilimiyle karşılaştırılmaktadır. 
;Karşılaştırma sonucu RB6 ve RB7’deki LED’lerde gösterilmektedir. 
;Programın çalışmasını izlemek için kullanılacak devre şekil 14-3’de 
;çizilmiştir. Potansiyometrelerden bir tanesi tahminen orta kısımda 
;tutulduğunda uçlarındaki gerilim yaklaşık 2.5V civarında olacaktır. 
;Diğer potansiyometre 0’dan itibaren 5V’a doğru yükseltilirken iki 
;gerilim birbirine eşit olduğunda RB7’deki LED yanar. 


;===PROG32.ASM====28/06/2005================================
	LIST	P=16F628A
	INCLUDE	"P16F628A.INC"     
	__CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _BODEN_OFF & _LVP_OFF & _DATA_CP_OFF & _CP_OFF
;-----------------------------------------------------------
	ORG 	h'0000'
	CLRF	PORTB		;PORTB’deki LED’leri söndür.
	MOVLW	b'00010011'	;C2--> terslenmiş, Mod=011
	MOVWF	CMCON		;CMCON saklayıcısına yaz
	BANKSEL	TRISB		;BANK1'e geç 
	CLRF	TRISB		;PORTB’nin tüm uçları çıkış
	BANKSEL	PORTB		;BANK0’a geç
C2_KONTROL		;------Karşılaştırıcı-2’nin kontrol edilmesi
	BTFSC 	CMCON,7	;C2OUT bit’i "1" mi?
	GOTO		RB7_YAK	;Evet, RB6'daki LED'i yak
C1_KONTROL		;------Karşılaştırıcı-1’in kontrol edilmesi
	BTFSC	CMCON,6	;C1OUT bit’i "1" mi?
	GOTO		RB6_YAK	;Evet, RB7'deki LED'i yak
	BCF		PORTB,6	;Hayır, RB6 ve RB7 LED'lerini 
	BCF		PORTB,7	;söndür.
	GOTO		C2_KONTROL 	;Karşılaştırıcı-2'yi kontrol et.
RB6_YAK					;RB6'daki LED'i yak
	BSF		PORTB,6	
	GOTO		C2_KONTROL
RB7_YAK					;RB7'deki LED'i yak
	BSF		PORTB,7
	GOTO		C1_KONTROL
	END
;-----------------------------------------------------------
