Sayfa 15

lda newcol ;Yeni renk değerini al sta ($fd),y ;Renk Ram’õndaki adrese yaz pla ;Yõğõndaki değeri al jsr $ffd2 ;Ekrana bas ldy #$a0 ;Y registerine $A0 yükle (Gecikme sayacõ) delay ldx #$00 ;X registerini sõfõrla jsr $eeb3 ;ROM’daki 1 milisecond delay rutinine git dey ;Sayacõ 1 azalt bne delay ;”0” olmadõysa gecikmeye devam lda oldcol ;Eski renk değerini oku sta ($fd),y ;Renk Ram’õndaki adrese geri yaz rts ;Alt rutinden geri dön ;------------------------------------------------------------------- ;Değişkenler, tablo(lar), yazõlar vs. bu kõsõmda bulunmaktadõr. ;------------------------------------------------------------------- oldcol .byte 0 newcol .byte 7 temp .byte 0 colmem .word $d829,$d82b,$d82d,$d82f .word $d879,$d87b,$d87d,$d87f .word $d8c9,$d8cb,$d8cd,$d8cf .word $d919,$d91b,$d91d,$d91f text .byte $8e,$d5,$c3,$b2,$c3,$b2 .byte $c3,$b2,$c3,$c9,$0d,$c2 .byte $30,$c2,$31,$c2,$32,$c2 .byte $33,$c2,$0d,$ab,$c3,$db .byte $c3,$db,$c3,$db,$c3,$b3 .byte $0d,$c2,$34,$c2,$35,$c2 .byte $36,$c2,$37,$c2,$0d,$ab .byte $c3,$db,$c3,$db,$c3,$db .byte $c3,$b3,$0d,$c2,$38,$c2 .byte $39,$c2,$41,$c2,$42,$c2 .byte $0d,$ab,$c3,$db,$c3,$db .byte $c3,$db,$c3,$b3,$0d,$c2 .byte $43,$c2,$44,$c2,$45,$c2 .byte $46,$c2,$0d,$ab,$c3,$b1 .byte $c3,$b1,$c3,$b1,$c3,$b1 .byte $c3,$c3,$c3,$c3,$c3,$c3 .byte $c3,$c3,$c3,$c3,$c3,$c9 .byte $0d,$c2,$20,$48,$45,$58 .byte $20,$2d,$20,$44,$45,$43 .byte $20,$43,$45,$56,$49,$52 .byte $49,$43,$49,$c2,$0d,$c2 .byte $4b,$41,$53,$49,$4d,$2f .byte $32,$30,$30,$32,$20,$28 .byte $43,$29,$48,$41,$44,$45 .byte $53,$c2,$0d,$ca,$c3,$c3 .byte $c3,$c3,$c3,$c3,$c3,$c3 .byte $c3,$c3,$c3,$c3,$c3,$c3 .byte $c3,$c3,$c3,$c3,$c3,$cb .byte $05,$0d,$00,$00,$00,$00 ;programõn sonu