1 Kasım 1990 Tarihli Commodore Gazetesi Sayfa 47

Lda $SCOE2, X Lda $COE2, X Bit $DO21 Clec Bcc Renkver Burada iki kez renk okumamız herhangi bir hoîodon dolayı değil. Yalnızca zaman harcıyoruz. Bit kormutu da burada yalnızca biraz zaman harcatmaya yarı- yor. JMP komutu yerine de CLC ve BCC komutları ar- dışık olarak kullanılıyor. Bu hem zamanlamayı ayarlı- yor hem de size değişik bir sistem göstermeye yarıyor. Renkson Lda#$C8 Sta- $DO16 Lda #515 Sta $DO18 renk şeritleri koyduğumuz ve yazı kaydırdığımız 16 satır bittiğine göre X pozisyonunu sıfırlayıp karakter se- tini normale çevirmenin zamanı geldi demektir. Lda $COF8 And # $07 Tay Dey $COF8 adresinde saklanan x pozisyonunu bir sola alıyoruz. Hızlı kayan yazılar isteyenler buraya bir-iki DEY koyabilirler. Bmı Satırsonu Eğer x pozisyonu O'dan küçükse yeni harfleri x ko- ordinatını ayarlamak gerekiyor. Bu komutla da bu İş- leri yaptırıyoruz. Ora # $SCO Sta — $COF8 Jmp Bitir eğer x pozisyonu 0-7 aralığındaysa bunu $DO16'ya yazılabilecek hale getirip, gerektiği zaman kullanmak üzere $COF8 adresine yazıyoruz. Multicolor kullanıcı- ları, buradaki ORA — $CO komutunu ORA SDO yap- mayı unutmayın. Satırsonu eğer x pozisyonunu 0'dan küçükse öncelikle x po- zisyonunu en sağa alıyoruz. Ldy # SO0 Kaydır Sta 0428, y Iny CpyjftSs27 Bne Kaydır ve ekranın ilk iki satırını bir sağa kaydırdık. Harfal — Lda SC100 Crmp # SFF Bne yaz Lda # 500 Sta Harfal 4 1 Lda # $c1 Sia Harfal4 2 Bne Harfal burada tanıdığımız bir harf alma rutini var. Zaten yazacağınız tüm yazı kaydırma rutinlerinde bu siste- mi kullanmanız kaçınılmaz. Bu yüzden bu satırlara alış- maya bakın. " Yaz Ora S$COF7 Sta $0428 Clc Adc # 580 Sta $0429 yazdığımız mesajın her harfi dört karakterden oluş- tuğundan harfleri yazma sistemini incelemeniz gere- kiyor. Kullandığımız sistemde harfin ilk kolonu harfin kendisi ve reverse'ünden oluşuyor. Yani harf ilk kez okunmuşsa harfin kodu ve $80 fazlasını ekrana yaz- malıyız. Eğer harf ikinci kez okunduysa $40 fazlasını (Shift-harf) ve bunun $80 fazlasını (yani reverse'ünü) basıyor. Lda $COF7 Eor # $40 Sta SCOF7 Bne Bitir her hartin okunuşundan sonra harfin kendisinin mi yoksa shift'inin mi basılacağına $COF7 adresi karar veriyor. Buraya her gelişinde $COF7 adresinin değeri $40 veya $80 arasında değiştiriliyor. Eğer değer $00 olduysa gelecek harfin okunması gerektiği için harfi okuyan komutun adresini bir artırıyoruz. Inc Harfal 4 1 Bne Bitir Inc Harfal -4 2 Inc $DO19 Jmp SEA81 Ve kontrolu Kernal'a veriyoruz. Unutmayın, prog- ramda ekran rengini ayarlamanız gerekiyor. Bir uya- n daha: Eğer programın RASTER IRA giriş satırını $31'den farklı bir yere alacaksınız bu satırın ($341--N”*8) formülüne uymasına dikkat edin. Hepinize program- cılık hayatınızda başarılar dilerim. Bitir AMIGA 500 İÇİN — . MACINTOSH EMULATOR.... a Hem de TÜRKÇE KULLANMA KLAVUZU İile birlikte... Bizden temin edebilirsiniz. AYRICA 512 kb RAM 1.8 Meg. RAM 5 25 TEAC Drıver er 4 DF2 çıkış çOK CAZİP FIYATLAR ILE YINE BİZDE SANAY TİĞARET mMTwmmmu 47