Sayfa 23

Kaç aydır “Bana yazın. Sorununuz olursa, ne kadar basit olursa olsun. Çekinmeyin. Cevaplamaya diye diye dilimde tüy bitti, ama hiçbirinizi bana yazmaya ikna edemedim. Bu durumda iki ihtimal var: Ya hepiniz her şeyi en ince ayrıntısına kadar anlıyorsunuz, ya da yazdıklarımı bir tek ben okuyorum. Ben gene de ilk ihtimali göz önüne alarak, yazıda daha da ileri gitmeye karar verdim. Ama bu işi yaparken, bir de intro yapacağım. Daha doğrusu bu sefer introyu birlikte hazırlayacağız. “Bir intro hazırlamanın ilk ve en zor basamağı, kaba olarak nerede ne tür hareketler yapılacağına karar vermektir. Daha sonra bu hareketleri yaptıracak rutinleri düzgün bir şekilde ve en az belleği işgal edecek biçimde bir sıraya sokmamız gerekiyor.” diyebiliriz. Ama bu sefer her şeyi tasarlanmış bir intro yerine, “Şurada da şu işi yapalım.” diye diye, rutinleri kafadan atma yerlere çok da düzgün olmadan yerleştirerek gidelim. Biliyorum, bu söylediğim sistem şimdiye kadar söylediğim her şeyle çelişiyor. Ama, koşullar bu şekilde çalışmanızı gerektirebilir (Umarım gerekmez, çünkü bu şekilde bir intro bitirmek oldukça uzun zaman alır). Neyse. Sözü pek fazla uzatmadan intromuzu yapmaya girişelim. İntromuza ne koyacaksak koyalım, bir interrupt başlatma rutinine ihtiyacımız olacak. Bu yüzden yeterince geride olan $0900'e Tablo-1'de gördüğünüz standart programı yazarak ilk adımımızı atalım. Unutmayın, şu anda ne yapacağımıza karar vermediğimiz için $D012'ye verdiğimiz değerin bir anlamı yok. Yalnızca ilk interrupt parçacığını, $0900'e en yakın yuvarlak adres olan $0A00'a koymaya karar vermek oldukça yerinde olur. Çünkü, daha sonra $0900'de bulunan rutine sprite açtırma, grafik ekranına geçme, data taşıma gibi garip işler yaptırmaya karar verebiliriz. Rutinlerin neye benzediği ortaya çıktıkça, kısa bazı rutinlerle de $0A00'a kadar olan boşluğu doldurabiliriz. Şu ana kadar yaptıklarımız yeterince saçma geldi mi? Ne yazık ki çoğu programcı bu şekilde çalışır, ve programları genelde ilk denemede çalışmaz. Bu yüzden bu introyu yapış stilimizi asla kendinize örnek almayın (Yani öğretmeninizin dediğini yapın, ama yaptığını yapmayın!). Şimdi ilk adımı attığımıza göre oturup düşünebiliriz (önce düşünüp sonra adımı atsaydık ya!!!). Ne yapsak hoş olur? Mesela bir kayan yazıyı yukarı aşağı oynatsak? Çok alanı kaplar ve o kadar da göz doldurucu değil! Ne yaparsak bu alanı doldururuz? Arkasına renkleri döşersek tabii ki. (Burada okuduklarınız, ne yapacağına karar veremeyen programcıların genelde düşündüğü şeylerin bir özetidir. Kendi kendilerine yaptıkları bu tartışma genelde bir-iki güne kadar uzayabilir.) Ama biz hem ekranı aşağı kaldırmayı, hem de renk dizmeyi bilmiyoruz ki. Şimdiye kadar anlattığım rutinler, bir raster satırında en fazla bir işlem yapabiliyordu. Aslında çok da zor değil hem ekranı aşağı kaydırıp hem de renk dizmek. Hatta DMA satırları ortadan kalktığı için tek zamanlamayla tüm satırların en başında işlem yapmanız garanti edilmiş durumdadır. Yani yapacağımız tek iş, ekranı bir satır aşağı kaydırmak, hemen sonra ekran rengini değiştirmek ve ekran kaydırabileceğimiz noktaya gelmeyi beklemek. Pek de zor gibi görünmüyor değil mi? Deneyin de görün ne kadar kolay olduğunu. Denemek gibi bir niyetiniz yoksa, Tablo-2'ye bir göz atarak ekranı istediğiniz kadar aşağı renkli olarak kaydıran rutinin kısalığını görün. Kısaca rutinin yaptığı işi anlatayım: İlk iki NOP komutunu kullanarak, tam ekranı kaydıracak noktada elektronu kontrol altına alıyoruz. Sonra ilk üç bitinde bulunan Y pozisyonunu bir aşağı alıyoruz. Tüm baytı değil, yalnızca ilk üç biti değiştirmeye çalıştığımız için sonucun ilk üç bitinden başka tüm bitlerini izole ediyoruz, ve bu bitleri, 25 satırlık karakter ekranını tanımlayacak bitlere ORA'lıyoruz. Bu sonucu $D011'e yazdığımızda, ekranın bir nokta aşağıda olduğunu sanıyor bilgisayarımız. Sonra ilk rengi alıp $D020 ve $D021 adreslerine (çerçeve ve ekran rengine) yazıyoruz. Y'yi 4'den geri saydırıp üç de NOP bekletince, elektron için gerekli zamanlamayı yapmış oluyoruz. Y'yi 4'den geri sayacağımızı ve üç NOP koyacağımızı nasıl mı buldum? Kolay. Önce Y'yi 0-8 arası bir değerden geri saydırdım ve hiç NOP kullanmadım. Olmadı tabii ki. Kafadan attığım (Tabii ki destekli attım. İlk değerin az, çok veya aşırı çok gelmiş olduğunu renklerden ve ekranın yamulmasından anlayabiliriz) ikinci bir değeri denedim, ve bu şekilde dört değerini buldum. Tabii ki tek başına dört işe yaramadı. Beş veya üç kullanınca da olmadığına göre, işimiz NOP'lara kaldı diye iki NOP attım. Neyse ki ilk denemede tuttu. Yoksa duruma göre iki NOP yerine bir BIT $EA kullanmam gerekecekti. Niye mi $EA? BIT komutunun kodunu $BA yaptığım zaman ikinci baytın da direkt olarak NOP olması için. BIT $00 kullanarak da zamanlama tutturulurdu, ama ilk baytı NOP yapıp bırakırsanız artan $00 baytını da NOP yapmanız gerekecekti.