Untitled

mail@pastecode.io avatar
unknown
plain_text
3 years ago
650 B
5
Indexable
Never
.CODE $200
	
	LDA #0 
	STA CRA	
	STA CRB
	LDA #FFH
	STA DDRA
	STA DDRB
	LDA #$04
	STA CRA
	STA CRB
	
	LDA #00
	STA ORA
	STA ORB
	
	
   TEKRAR	LDA #0
		STA ORB
		JSR TEMIZLE
		LDA #0
		LDA ORA	
		LDA #16
		STA ORB 
		LDA #$5B 
		STA ORA 

	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #8
	STA ORB 
	LDA #$3F
	STA ORA 


	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #4
	STA ORB 
	LDA #$3F   
	STA ORA 

 
	JSR TEMIZLE
	LDA #0
	STA ORA	
	LDA #2
	STA ORB 
       	LDA #$7F
        STA ORA 
	
	 
	 
	LDA #$0  
	STA ORA 
	
	
	
	JMP TEKRAR
        BRK

	
TEMIZLE rts
	LDA #0
	STA ORA
	STA ORB
	RTS
	
	END