Sayfa 44

Program 1: Sei Beklel Lda $DO12 Cmp #$A0 Bne Bekle Lda $DOl11 And #$80 Bne Bekle Lda #$01 Sta $DO20 Lda Bpl Bekle2 Lda $DOl11 Bmı Bekle3 -Lda #$00 Sta $DO20 Jmp Beklel

Yalnızca basit karşılaştırmalar kullanarak bu problemi halledebiliriz. Burada yapılan işlem basittir: Önce işimizi engellemesin diye tüm interrupt'ları kapatıyoruz (bir de Sei'yi kaldırıp programı çalıştırın ve tuşlara basmayı deneyin), ve raster'in $00A0 satırına gelmesini bekliyoruz. Buraya gelinir gelinmez çerçeve (arkaplan) rengini beyaza çeviriyoruz ve 9. bitin önce bir, sonra da sıfır değerini almasını bekliyoruz. Burada kullanılan metodu öğrenirseniz, her seferinde And $80 komutu verip sonra sıfır bayrağına bakmanıza gerek kalmaz. Eğer bir baytın 8. biti 1 ise Bmi komutu sıçrama yapar, 0 ise Bpl komutu. Bu işlemi yapınca, raster'i tam $0000 satırında tekrar yakalıyoruz (ki burası görünen ekranınızın üstündedir) ve çerçeve rengini siyaha çeviriyoruz ve aynı işi tekrarlamak üzere rutinin başına sıçrıyoruz. Aslında asıl sorunu burada çözmüş bulunuyoruz. Yani istenen koordinata gelene kadar bekleyip karakter ekranına geçeriz (Lda And #$DF Sta $D011 veya Lda #$1B Sta $D011). Sonra ekranın tepelerinde bir yerde tekrar grafik ekranına gireriz (Lda $D011 Ora #$30 Sta $D011 veya Lda #$3B Sta $D011). Gördüğünüz gibi ekranın herhangi bir özelliğini istediğimiz anda değiştirebiliriz. Bu iş için sadece raster'ın gereken yere gelmesini beklememiz, sonra da değişiklikleri yapmamız yeterlidir. Bu aşamada değişik efektler yaratmayı, ekranı üçe, dörde, onbeşe, vb. bölmeyi denemenizi öneririm. Demin anlattığım işlemi yapması oldukça kolaydır, fakat bekleme sırasında başka işler yapabilecekken, yalnızca iki komutu işlettiğiniz için verimi düşüktür. Oysa asıl anlatacağımı bilirseniz, bilgisayarınız, istediğiniz raster satırına geldiğinde ana işini bırakıp, sizin işlemlerinizi yapabilir. Yani interrupt'ları belli raster satırlarına geldiği zaman yaratabilirsiniz. Bir raster interrupt'ı yaratmak için şöyle bir program kullanabilirsiniz: