commodore.gen.tr

!to"raster.prg",cbm

                * = $0900	;<--Kodumuzun başlangıç adresi

		jsr $e544	 

		lda #$00	 
		sta $d020	 
		sta $d021	 

;====Burada irq ayarlarımızı yapıyoruz=======

               	sei

	 	lda #$7f
               	sta $dc0d

               	lda #$01
               	sta $d01a

		lda #$00
		sta $dc0e
	
              	lda #$1b
              	sta $d011

		lda #$6d
		sta $d012
		
		lda #<irq
		sta $0314
		lda #>irq
	   	sta $0315
 
              	cli
		jmp *
		
;====irq 'ya girip logomuzu gösteriyoruz====
irq
		inc $d019
;burada üst raster'ı basıyoruz.

		lda #$00		;ekran rengini siyah yapıyoruz
		sta $d020
		sta $d021
		
		ldx #$01		;zamanlamayı tam satır başında 
		dex			;yaklamak için bekleme yapıyoruz
		bne *-1

		ldx #0			
-		lda üst_renk,x		;iç ve dış ekran rengini
		sta $d020		;tablodan okuyup,ilgili register
		sta $d021		;lara yazıyoruz.

		ldy ust_raster_gecikme,x ;burada tek bir satırın sonuna kadar 	
		dey			;çizilmesini bekleyip
		bne *-1

		inx			;tablodaki diğer rengi okuması için counter'ımızı 1 arttırıyoruz.
		cpx #4			;tablo sonuna geldikmi diye kontrol ediyoruz.
		bne -

		ldx #$01
		dex
		bne *-1

		lda #$00		;iç ve dış ekranı tekrar 
		sta $d020		;siyah renk yapıyoruz.
		sta $d021

		lda #$a2		;bir sonraki irq'nun başlayacağı
		sta $d012		;satırı belirtiyoruz.

		lda #<irq1
		sta $0314
		lda #>irq1
	   	sta $0315

		jmp $ea81

irq1
		inc $d019
;burada alt raster'ı basıyoruz.	
		ldx #$06
		dex
		bne *-1

		ldx #0
-		lda alt_renk,x
		sta $d020
		sta $d021

		ldy alt_raster_gecikme,x
		dey
		bne *-1

		inx
		cpx #4
		bne -

		ldx #$02
		dex
		bne *-1

		lda #$00
		sta $d020
		sta $d021

		lda #$6d
		sta $d012

		lda #<irq
		sta $0314
		lda #>irq
	   	sta $0315       
   
		jmp $ea81 

;=========== kodumuzun sonu ======================
üst_renk    
	!by $06,$0e,$03,$01	 

alt_renk
	!by $01,$03,$0e,$06
            
ust_raster_gecikme       
	!by $08, $08, $08, $08	 

alt_raster_gecikme       
	!by $08, $08, $08, $07