Pic Programlama|Arkadaşlar Acil Ödev Konusudur Yrdımlarınız Bekleniyor..Eminim Yanıtlarsınız..

 
  ;----------------------------------------------- 
  ;Proje Adı:			Led 
  ;Yazan:				Samed YILDIRIM 
  ;Başlangıç Tarihi:	17.04.2010 
  ;Bitiş Tarihi:		17.04.2010 
  ;Kullanılan PIC:	PIC16F84 
  ;Osilatör:			4 MHz, Kristal Osilatör 
  ;----------------------------------------------- 
   
  	LIST	P=16F84 
  	INCLUDE "P16F84.INC" 
  	__CONFIG	_XT_OSC &_WDT_OFF &_PWRTE_ON &_CP_OFF 
   
  	BCF 	STATUS,	RP0 ; Bank0 a geçiş 
  	CLRF 	PORTB 		; PORTB yi temizle 
  	CLRF	PORTA		; PORTA yı temizle 
  	BSF 	STATUS,	RP0 ; Bank1 e geç 
  	MOVLW 	0x00		; W yazmacına 0x00 değeri ata  
  	MOVWF 	TRISB		; W yazmacını TRISB ye aktar, PORTB Çıkış 
  	MOVLW	0x01		; W yazmacına 0x01 değeri ata 
  	MOVWF	TRISA		; W yazmacını TRISA ye aktar, RA0 Giriş 
  	BCF 	STATUS,	RP0 ; Bank0 a geçiş 
   
  Basla: 
  	BTFSS	PORTA,	0	; RA0 ı kontrol et 
  	GOTO	Basla 
  	CALL 	Bekle		; RA0 butonunu bırakmanı bekliyor 
  	MOVLW	0x0F		; W yazmacına 0x0F değeri ata 
  	MOVWF	PORTB		; RB0, RB1, RB2, RB3 ledlerini yak 
   
  Test2: 
  	BTFSS	PORTA,	0	; RA0 ı kontrol et 
  	GOTO	Test2 
  	CALL 	Bekle		; RA0 butonunu bırakmanı bekliyor 
  	MOVLW	0xF0		; W yazmacına 0xF0 değeri ata 
  	MOVWF	PORTB		; RB4, RB5, RB6, RB7 ledlerini yak 
   
  Test3: 
  	BTFSS	PORTA,	0	; RA0 ı kontrol et 
  	GOTO	Test3 
  	CALL 	Bekle		; RA0 butonunu bırakmanı bekliyor 
  	CLRF	PORTB		; PORTB deki ledleri söndür 
  	GOTO Basla 
   
  Bekle: 
  	BTFSC	PORTA,	0	; RA0 ı kontrol et 
  	GOTO	Bekle 
  	RETURN	 
  	END 
   
  

;----------------------------------------------- 
  ;Proje Adı:			Led-2 
  ;Yazan:				Samed YILDIRIM 
  ;Başlangıç Tarihi:	22.04.2010 
  ;Bitiş Tarihi:		22.04.2010 
  ;Kullanılan PIC:	PIC16F84 
  ;Osilatör:			4 MHz, Kristal Osilatör 
  ;----------------------------------------------- 
   
  	LIST	P=16F84 
  	INCLUDE "P16F84.INC" 
  	__CONFIG	_XT_OSC &_WDT_OFF &_PWRTE_ON &_CP_OFF 
   
  	BCF 	STATUS,	RP0 ; Bank0 a geçiş 
  	CLRF 	PORTB 		; PORTB yi temizle 
  	CLRF	PORTA		; PORTA yı temizle 
  	BSF 	STATUS,	RP0 ; Bank1 e geç 
  	MOVLW 	0x00		; W yazmacına 0x00 değeri ata  
  	MOVWF 	TRISB		; W yazmacını TRISB ye aktar, PORTB Çıkış 
  	MOVLW	0x1F		; W yazmacına 0x1F değeri ata 
  	MOVWF	TRISA		; W yazmacını TRISA ye aktar, RA0 Giriş 
  	BCF 	STATUS,	RP0 ; Bank0 a geçiş 
   
  Basla: 
  	MOVF	PORTA,	0	; PORTA yı W registerine aktar 
  	MOVWF	PORTB		; W registerini PORTB ye aktar 
  	GOTO	Basla 
  	END