;AÇIKLAMA==========;Program ilk olarak PIC16F628A'ya B port’unun 8 ucunu da 
;çıkış olarak tanıtacak. Daha sonra bu port’un ilk dört 
;bit’ini lojik 1, sonraki dört bit’ini de lojik 0 yapacak.
 Son olarak program sonsuz bir döngüye girecektir. 	
;İSİM ================================================================= PICTEST1.ASM =========
;TARİH=================================================================== 26.07.2005 =========
;HAZILAYAN ======================================================== ORHAN ALTINBAŞAK =========
;OSİLATOR==================================================== 4 MHz KRİSTAL OSİLATOR =========

;Program ilk olarak PIC16F628A'ya B port’unun 8 ucunu da 
;çıkış olarak tanıtacak. Daha sonra bu port’un ilk dört 
;bit’ini lojik 1, sonraki dört bit’ini de lojik 0 yapacak.
; Son olarak program sonsuz bir döngüye girecektir. 
		LIST	P=16F628A
;------------------------------------------------------
;	Adres tanımlama bloğu
STATUS	EQU	0x03
PORTB	EQU	0x06
TRISB	EQU	0x86
;------------------------------------------------------
		ORG	0x00			; programı 0x00'dan başlat
;------------------------------------------------------
;	Port’ların durumunu belirleme bloğu 
BASLA		
CLRF	PORTB		; PortB'nin içini sıfırla
		BSF	STATUS,5		; BANK1'e geç
		CLRF	TRISB		; PortB'nin uçlarını çıkış yap
		BCF	STATUS,5		; tekrar BANK0'a geç
;-------------------------------------------------------
;	Program bloğu
	MOVLW	0x0F		; W saklayıcısına 0x0F'i yükle
		MOVWF	PORTB	; W'yi portB'ye yükle
;--------------------------------------------------------
;	Sonlandırma bloğu
DONGU
		GOTO	DONGU
		END
;======================================================