Untitled

	.CODE $200
;PORT KURMA
	
	LDA #0 		;A kaydedicisine 0 yükle
	STA CRA		;DDRA'ya haber ver
	STA CRB		;DDRB'ye haber ver
	LDA #FFH	;Hex decimal olan FF'nin karşılığı 1111 1111'dir. Bu değeri A kaydedicisine yükle
	STA DDRA	;A ve B portunu	
	STA DDRB	;çıkış yap
	LDA #$04	;0100 binary karşılığı, A kaydedicisine yükle
	STA CRA		;CRA ve CRB 'nin 2. bitini birle yani ORA ve ORB'yi seçmiş ol
	STA CRB		;
	
	LDA #00
	STA ORA
	STA ORB
	
	
   TEKRAR	LDA #0
		STA ORB
		JSR TEMIZLE
		LDA #0
		STA ORA	
		LDA #32
		STA ORB 
		LDA #$61   
		STA ORA 

JSR TEMIZLE
		LDA #0
		STA ORA	
		LDA #16
		STA ORB 
		LDA #$43   
		STA ORA 

	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #8
	STA ORB 
	LDA #$58
	STA ORA 


	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #4
	STA ORB 
	LDA #$4C   
	STA ORA 
	
	


 
	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #2
	STA ORB 
       	LDA #$61
        STA ORA 
	
	 
	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #1
	STA ORB 
	LDA #$43  
	STA ORA 
	

	LDA #$0  
	STA ORA 	;A kaydedicisindeki değeri ORA kaydedicisine yükle
	
	
	
	JMP TEKRAR 	;Başa dön
        BRK

	
TEMIZLE rts
	LDA #0
	STA ORA
	STA ORB
	RTS
	
	END