Sayfa 24

RUN STOP 4 RESTORE ile programdan çıkın ve monitör'e girin. İlk renk doğru yere gelene kadar interrupt'un başındaki X sayacının değeriyle oynayın. Ekranın ilk pikselinin başının rengi siyah olunca bu sayacı ayarlamışsınız demektir. Bundan sonra zamanlama tablosunun değerlerini ayarlamanız gerekecek. İkinci satırın rengi beyaz olana kadar zamanlama tablosunun ilk baytının değeriyle oynayın. İkinci satır beyaz olduğu anda ikinci zamanlama baytını düzeltin ve ardışık raster satırları farklı renk alana kadar tüm tabloyu ayarlayın. Satırlarınız siyah-beyaz-siyah sırasına girdiği zaman, renk tablosuyla istediğiniz gibi oynayın ve programınız kullanıma hazır duruma gelsin. Eğer zamanlama tutturmaya çalışırken bir raster satırının rengi satır başı yerine ortalarda bir yerde değişiyorsa, bir önceki satırın zamanlama baytının değerini bir azaltın. Artık programın nasıl tasarlanacağını da bildiğinize göre bizim programı anlatmaya geçebilirim: Program, bundan önce yaptıklarım gibi standart bir interrupt girişiyle başlamıyor. Daha önce Logo datalarını ekrana yerleştirme, karakter seti göstericisi olan $D018'in değerini düzeltme, logonun renklerini ayarlama ve multicolor'a geçme gibi bazı angarya işleri halletmemiz gerekiyor. Programı yazması kolay olsun diye rutinlerin hepsini ve grafik datalarını düzenli bir şekilde Basic başlangıç adresinin arkasına sıraladım ve Basic'den çağrılan bir rutinle gereken her şeyi yerli yerine taşıyıp ekran sallama rutinine sıçrıyorum. İlk yüklediğiniz programda rutinler ve datalar şu şekilde yerleşmiş durumdalar: $0D00-$1100: Logonun karakter dataları (FONT'u) $0B00-$0CFF: Logonun ekran dataları (MATRİS'i) $0880-$0AFF: Ekranı dalgalandıran rutin. Bu programlar gerekli yerlere taşındıktan ve ekranın renkleri ayarlandıktan sonra $C000'daki rutine sıçrıyoruz. Her zamanki standart interrupt başlangıçlarından biri yer almakta. Asıl işi $C030'dan başlayan interrupt programımız yüklenmiş durumda tabi ki. Raster satırı $002D olduğunda (garantili olsun diye biraz erken giriyorum) interrupt başlıyor ve X'i $39'dan geri saydırıyor. Bu sayede elektron ekranın ilk satırının tam başındayken $D016'yı değiştirme şansımız bulunuyor. Daha sonra $C070 adresinden, ilk satırın tam başına gelebilmek için gereken zamanlama baytını okuyoruz (önce bekleme yapıp sonra raster satırına ait işlemleri yaptığım için, bu rutinde 0. zamanlama baytı, ekranın başlangıcından bir önceki raster satırına ait zamanlama baytı oluyor). Gereken miktarda bekledikten sonra (elektron satırın başına gelince), $C0C0 adresindeki tablodan, gerekli kayma miktarının ilkini okuyor ve bunu $D016'ya yazıyoruz. Dikkat! Logonuz multi-color ise (çok renkli ise) D016'ya verilecek baytın $D0+Kayma (0 Kayma 8) olmasına çok dikkat edin. X'i bir arttırıyoruz ve bütün bu işlemleri X'in değeri $50 olana kadar tekrarlıyoruz. Yani 10 karakter satırını ($50/8 = 10($0A)) dalgalandırıyoruz. Bu işlemleri yapan kısa rutini aşağıda görebilirsiniz.

Bu işi bitirdikten sonra $D016'nın değerini eski haline çevirmeliyiz (ekranın X koordinatını sıfırlamalı ve kolon sayısını 40'a çıkarmalıyız). Yani $D016'ya Multicolor için $D8, normal için $C8 olursa tüm ekran siyah olacaktı. Programlarınızda bu tür ufak noktalara çok dikkat etmelisiniz. Hataların yüzde 90'ı bu tür noktalara gizlenirler çünkü. On satıra belli bir dalga şekli verildikten sonra, dalgalanmanın yukarı kayması için, $C111'de yer alan 256 baytlık sinüs tablosundaki yerimizi bir ileri alıyoruz ve bu yeni yerden $50(80) baytı $C0C0 adresine okuyoruz. Böylece gelecek ekran taramasında dalgalanma şeklimiz bir piksel yukarı kaymış oluyor. Eğer ne demek istediğimi tam olarak anlayamadıysanız, $C061'de bulunan INC $C110 komutunu LDA $C110'a çevirin ve bu sayede sinüs tablosundaki yerimizin ilerlemesini durdurun. Programı bu halde (SYS 49152, G