16f84a start stop yapamadım

[Selo_1]

arkadaslar nasıl oluyo payamadım yardım edrseniz sevinirim.

LIST	P=16F84
	INCLUDE	"P16F84.INC"
	CLRF	PORTB
	BSF	STATUS,5
	CLRF 	TRISB
	MOVLW	H'FF'
	MOVWF	TRISA
	BCF	STATUS,5

BAS
	BTFSC	PORTA,1
	GOTO	BAS  
	MOVWF	B'00000100'
	MOVWF	PORTB
	
CEK	BTFSS	PORTA,2
	MOVWF	B'00000000'
	MOVWF	PORTB
DONGU
	GOTO DONGU
	END

MOD NOTU : LUTFEN CODE TAGINI KULLANALIM.

[ilker_32]

list      p=16f84         
#include <p16f84.inc>        
org 0		
bsf STATUS,5	
movlw b'00000000'
movwf TRISB		
movlw b'11111111'
movwf TRISA		
bcf STATUS,5	
basla	
movlw B'00000000'
movwf PORTB
test1	
btfsc PORTA, 1
goto test1
bsf PORTB, 0
test2	
btfsc PORTA, 2
goto test2
goto basla
END

MOD NOTU : LUTFEN CODE TAGINI KULLANALIM.

[Selo_1]

verdiğin örneği denedim ama cıkıs diek olarak yandı.

[ilker_32]

Devreyi yanlış kurmuş olabilirsin. Aşağıdaki linke bakın,

http://rapidshare.com/files/90120289/a.rar

[dombilik]

        
list      p=16f84          
#include <p16f84.inc>        
org 0       
bsf STATUS,5    
movlw b'00000000' 
movwf TRISB       
movlw b'11111111' 
movwf TRISA       
bcf STATUS,5    
basla    
movlw B'00000000' 
movwf PORTB 
test1    
btfsc PORTA, 1 
goto test1 
bsf PORTB, 0 
test2    
btfsc PORTA, 2 
goto test2
bcf PORTB,0 
goto test1 
END

Yukarıdaki kodu deneyin.Çalışacaktır..
selo_1;
uygulamanızda da;

MOVWF B'00000100'
MOVWF PORTB

yazmışsınız bu satır hatalı..W registere MOVLW B'00000100' olarak yazıp
MOVWF PORTB ile registere aktarın..