*=$FC00

	LDX #$FF ; Default stack pointer'ı

	SEI	 ; Interrupt'ları disable et. Açmıycaz bir daha

	TXS	 ; X register'ını stack pointer'ına gönder

	CLD	 ; Decimal modu kapat



	LDA #$37 ; Processor port için default değer, c64 default açılışı gibi

	STA $01  ; Processor port'a yaz.



	LDA #$00 ; Belleği $E000'dan $1000'a 

	STA $FC	 ; transfer etmek için hazırlık

	LDA #$E0 ; $FB/$FC = Kaynak

	STA $FD  ; $E000 adresini yazıyoruz bu iki ZP belleğe

	

	LDA #$00 ; Belleği $E000'dan $1000'a 

	STA $FA  ; transfer etmek için hazırlık

	LDA #$10 ; $FA/$FB = Hedef

	STA $FB  ; $1000 adresini yazıyoruz bu iki ZP belleğe

	

	LDX #$00 ; $20 sayfa kopyalayacağız. X'i sıfırlıyoruz.

TO:

	LDY #$00 ; Her bir sayfa transferi için Y'yi kullanıyoruz.

		 ; El mecbur, indexed indirect kullanacağız çünkü	

TX:	

	LDA ($FC), Y ; $E000 + (X * $100) + Y'den A'e oku 

	STA ($FA), Y ; $1000 + (X * $100) + Y'ye yaz

	INY	 ; Aynı sayfadaki bir sonraki adrese 

	BNE TX   ; Sayfa dolmadıysa devam

	INC $FD  ; Bir sayfa doldu, diğer sayfaya

	INC $FB  ; Bir sayfa doldu, diğer sayfaya

	INX      ; Sayfa sayısını takip ediyorduk, arttıralım.

	CPX #$20 ; $20 sayfa oldu mu?

	BNE TO   ; Olmadıysa yeni bir sayfa daha.

	

	JMP $2C30; Kod $FC00'a derlensin diye ayarladık ama bu ne alaka?	

THIS:		 ; Kodu kopyaladıktan sonra kernal rom'u altında execute etmekten

		 ; kurtulup daha güvenli bir yerde çalışmaya devam etmek lazım.

		 ; o bakımdan. Macro falan da yazılabilirdi, uğraşmak istemedim.

		 ; Kod bir alt satıra dallanıyor burada ama başka bir bellek bölgesinde.

PLAY:	

	LDA #$00  ; Müzik init

	JSR $1000 ;

OUTERLOOP:

	JSR $1003 ; Play rutinini çağır

	LDY #$E0  ; 224 defa dönelim demiştik, bu o.

LOOP:	

	INC $FB02 ; İşlemci ziyan etme kısmı.

	INC $FB02

	INC $FB02

	INC $FB02

	INC $FB02

	INC $FB02

	INC $FB02

	DEC $FB02

	DEC $FB02

	DEC $FB02

	DEC $FB02

	DEC $FB02

	DEC $FB02

	DEC $FB02

	DEY

	BNE LOOP

	JMP $2C35 ; Kod burada PLAY'e dallanıyor. RAM'a kopyalanmış yere.