Sayfa 47

vermeniz gerekir. Bu şekilde özelleştirilmiş sinüs tablosunu hazırladıktan sonra sıra logoyu sallayacak programı incelemeye geldi. Ekranın en üstünde logo sallamaya çalıştığımız için, $D016'nın değerini $32 raster satırında değiştirmemiz gerekli. Bunun için ilk olarak raster'ın $32'ye gelmesini bekliyoruz, daha sonra tablodan $D016'nın şu anki değerini alarak doğrudan veriyoruz. Daha sonra logonun sallandığı alanın sonunu bekleyip (burada biraz fazla tuttum, azaltabilirsiniz) $D016'nın değerini düzeltiyoruz. Sonra tablo gösteri-

PROGRAM ADI 00010

00020 00030

FOR.Rz0O TO 255

BAYTI

00040 Y-(K-(K AND 7))/8:REM

RAKTER POZİSYONU 00050 00060

00070 NEXT

PROGRAM

LOGO

PÖKE PÖKE 491524512-4*R,1924X:REM

cisinin bir ileri alıp, gelecek taramada görünecek olan ekranı ayarlıyoruz. Eğer INC $C0FF'i şimdi değil de ekranı ayarladıktan sonra verirsek, karakter pozisyonuyla $D016 pozisyonu arasında bir baytlık fark doğar ve bu sebeple de logonuz titrer, karakter pozisyonuyla (sanırım şimdi neden logolarınızın titrediğini anlamışsınızdır Derya Bey). Gelecek ekranı tasarlamak için karakter pozisyonunu $C200'dan alıp, bu pozisyondan itibaren 40 karakteri ekranın en üstüne basmamız yeterlidir. Logo kaydıracak arkadaşlar ise bu transferi $0400, $0428, $0450, vb. için

SINUS YAPICI

) X-7-(K AND 7):REM

$D016'NIN İLK UC LOGONUN X KA

-$C100 z$C200

20 20 12 De

21

20 ZO

satır satır yaparsa yeterli olur. Daha sonra da ekranın alt kısmında bulunan $32. raster satırını geçip (yani $0132, - ama kullanarak yalnızca $32'sini görebiliriz) döngüye tekrar giriyoruz. Logo sallama denilen musibet şey bundan ibarettir yalnızca. Eğer gene de anlayamadığınız bir yer olursa tekrar yazmaktan çekinmeyin, anlamadığınız kısımları daha detaylı olarak anlatmaktan zevk duyarım. Hepiniz gelecek aya kadar hoşçakalın. Mektuplarınızı bekliyorum.

Program 1: .,C000 SEI LDA CMP LDY LDA STA LDA CMP

#$32 $DO12 $COFF $C200,Y $DO16

n003

BNE LDA STA INC LDY LDX LDY

$C013 #SC8 $DO16 $COFF $COFF $COFF,Y #S00 LDA $C300,x STA $0400,Y (başka satırlar için LDA $C380,X | STA $0428,X vb.) INY CPY BNE LDA BPL LDA BMI JMP