Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi

DİLLER
AMIGA
ASSEMBLER
Cem GENCER
Merhaba! İşte yine birlikteyiz. Bakalım
bu ay postadan neler çıktı? Tolga ATUĞ
arkadaşımız, tekrar yazarak birkaç ufak
sorununu belirtmiş. Bunlardan ilki, Örnek
17.1'de 59. satırda basımda oluşan bir hata.
Dergimizde 'dd.l #$54,a0' olarak basılan
satır 'add.l #$54,a0' olmalı. Herhalde
add komutunun da işlevini öğrendik? Tolga,
yardımcı olarak kullanılabilecek kitapları
listelememi istiyor.
İşte size gerekli olabilecek kitaplar:
* ROM Kernel Reference Manual:
Libraries and Devices
* ROM Kernel Reference Manual:
Exec
* ROM Kernel Reference Manual:
Autodocs and Includes
* Hardware Reference Manual
* Mapping the Amiga
Bunun dışında, Abacus'un Assembler
kitabı da bir hayli yararlı. Edinmenizde
fayda var, ama şart değil.
Diğer mektup ise Gürkan YENİÇE-
Rİ'den gelmekte. Bu arkadaşımızın da
karşılaştığı en önemli sorun, bazı programlarda
compile esnasında 'word at odd
adres' hatası vermesi. Bunun çözümü gayet
basit. Hata veren satırdan öncesine bir
satır ekleyerek buraya 'even' komutunu
yazmak yeterli.
Bu iki kısa mektuptan sonra, bu ayki
konularımıza geçebiliriz. Bu ay biraz hızlı
bir geçiş yapacağım. Farkettiyseniz, bu ay
yazabileceğiniz bir program yok. Bunun
nedeni, bu ay birkaç library fonksiyonu
açıklayacak olmam. Ayrıca assembler komutları
tablosu da bir hayli yer kaplıyor.
Geçen aylarda pencerelerin nasıl açıldığını,
buraya nasıl basım yapıldığını görmüştük.
İlk inceleyeceğimiz library fonksiyonu,
MoveWindow. Bu fonksiyon intuition
lirary'de bulunmakta ve istediğimiz
pencereyi istediğimiz yönde kaydırmaya
yaramakta. Parametreleri sadece üç
tane: Window, dx ve dy. Window, pozisyonu
değiştirilecek pencerenin pointer'ı, dx
ve dy ise dikey ve yatayda kayma değerleridir.
dx negatif bir sayı olduğunda pencere
sola, dy negatif olduğunda pencere yukarı
doğru verilen piksel kadar kayacaktır.
Aşağıdaki ufak rutinde, pencerenin pozisyonu
2'şer piksel sola çekilerek kaydırılıyor.
Pencere koordinatı 0 olduğunda da
ana programa dönülür. Tabii ki pencere
boyutları ekrandan küçük olmak zorunda.
MoveWindow:
move.l IntBase,a6
move.l WindowPtr,a0
move.l #-2,d0
move.l #0,dl
jsr -168(a6)
move.l WindowPtr,a0
move.vv 4(a0),d0
tst.w d0
bne.s MoveWindow
rts
Gayet kolay, değil mi? MoveScreen
fonksiyonu da aynı şekilde çalışır. Bu
fonksiyonda, sadece window structure adresi
yerine screen structure adresini a0'a
yazmamız gerekmekte. Fonksiyonun ofseti
de -162 (=-$a2).
Gelin şimdi de bir guru verdirelim bilgisayarımıza.
Hemen telaşlanmayın; bu guru
kontrollüdür. Sistem crash etmeyecek,
fakat o ünlü kırmızı kutu yanıp sönecektir.
Kutunun içine de istediğimiz yazıyı yazabiliriz.
DisplayAlert fonksiyonun kullanımı
gayet basit; sadece alert tipini, text
string'ini ve toplam yüksekliği bilgisayara
girmemiz yetiyor. String'in başlangıç adresini
aO register'ına, uzunluğunu ise di 'e
atıyoruz.
String tipi ise d0 register'ı aracılığıyla
belirlenmekte. Buraya 0 değerini yazdığınızda,
RECOVERABLE ALERT tipini
seçmiş oluyorsunuz. Bu, alert kutusu gösterildikten
sonra mouse tuşuna basılırsa,
programınıza geri dönmeyi sağlar. Şayet
fonksiyonu çağırmadan önce d0'ın 15. bitini
set ederseniz, (=$80000000)
DEADEND_ALERT yaratmış olursunuz.
Alert kutusu çıktıktan sonra mouse tuşuna
bastığınızda bilgisayar resetlenecektir.
String'imiz özel bir şekilde verilmek zorunda.
String içinde koordinatlar ve devam
etme bilgileri de bulunmakta. Koordinatları
ASCII string'in kendisinden önce
word ve byte olarak vermeliyiz. İlk word,
basılacak string'in kutu içersindeki x
koordinatı, ardından gelen byte ise y
koordinatıdır. Bundan sonra gelen ASCII
byte'lar string'in kendisini oluşturur.
String'in sonunda bir 0 byte'ı olmalıdır.
En son byte ise başka string satın olup olmadığını
gösterir. Eğer bu byte 0'dan
farklıysa, bu byte'ı diğer string tanımlamaları
izler. Başka string tanımlaması
yoksa, en son byte 0 değerini taşımalıdır.
Aşağıda alert rutinini çağıran ufak bir altrutin
görebilirsiniz.
Alert:
move.l IntBase,a6
move.l #0,d0
move.l #Str,a0
move.l #12,d1
jsr -90(a6)
its
Str:
dew 92
dc.b 2
dc.b 'Bu bir alert'tir.',0
dc.b 0
Dilerseniz bir de birden çok satirli alert
için de bir örnek rutin vereyim.
Alert:
move.l IntBase,a6
move.l #0,d0
move.l #Str,a0
move.l #22,d1
jsr -90(a6)
rts
Str:
de. w 108
dc.b
dc.b
2
'AMIGA DUNYASI\0
dc.b
dc.w
-1
92
dc.b
dc.b
12
'Bu bir alert'tir.\0
dc.b 0
Bu ay inceleyeceğimiz başka bir fonksiyon
da, yine Intuition library'de yer alan
ClearPointer fonksiyonu. Bu fonksiyon
ile istediğiniz window'un pointer'ını
ROM'daki sabit pointer göstergeciyle değiştirebilirsiniz.
Fonksiyonu çağırmak için
sadece window pointer'ını aü'a atmamız
ve 'jsr -60(a6)' ile de fonksiyonu çağırmamız
yeterli. Artık pointer'ını sildiğiniz
window'u aktif yaptığınızda, pointer değişerek
ROM'dakinin kopyası olacaktır.
Diğer çok kullanılan bir fonksiyon da
PrintlText. Bunun yardımıyla bir pencere
ya da sereen'in içine intuition text'i yazdırabilirsiniz.
Intuition text'in graphics
library'deki Text fonksiyonundan farkı,
intuition text'in window değişimlerinden
silinip bozulmaması. Graphics
library'deki text fonksiyonunu kullanarak
bir pencere içine yazı yazdırdığımızda ve
pencereyi küçülttüğümüzde, yazının pencere
boyutu dışında kalan kısmı silinir.
Fakat pencereyi tekrar büyüttüğümüzde,
yazımızın silinen bu kısmı tekrar yerine
konmaz. Oysa intuition text'te yazımızı
bozan her işlemden sonra window içeriği
refresh edilerek bozulmanın tekrar düzelmesi
sağlanır. Bütün bu işlemler otomatik
olarak intuition sistemi tarafından gerçekleştirilir.
PrintlText çağrılmadan önce 4 register
belli parametrelerle yüklenmelidir. Bunlardan
ilki, ekran ya da window'a ait rastport
adresinin atandığı a0 register'ıdır. Yazı
string'imizin başlangıç adresi ise al adres
register'ına atanmalıdır. Yazı string'inin
sonuna bir 0 byte'ı koymayı da unutmayın!
d0 ve di register'lan ise yazının
rastport'ta basılacağı x ve y koordinatla-
AMIGA DÜNYASI 46