Sayfa 73

—sistem flaglerini etkilemez. Bu komutun kullanım şekilleri şunlardır... SUBA.B #1,(a0) SUBA.W #8,d0 SUBA-L $3,d7 Bu komuttan sonra, add ve sub komutlarını ve kullanım türlerini öğrenmiş olduk. Sub komutlarının örnekleri için bir önceki sayıda ADD komutu çeşitleri için verdiğim örnek programlara bakabilirsiniz. Şimdi sırada kontrol komutları var. TST komutu : TST (Test) komutu adı üstünde verilen registeri 0 değeri ile karşılaştırırve varılan sonucu, yani de sayının sıfırmı yoksa sıfırdan başka bir sayımı olduğunu sistem durum registerlerinden ilgili olanına yazılır. Kullanım şekli şöyledir. TST.B (a0) TST.W dO ISTE 07 Bu komut için program1 ve program2'ye bakın... Program 1'in açıklaması ; Satır 1 :tst dO ; dO registeri O değeriyle karşılaş- Satır 2 : bne don; eğer dü registeri O'dan farklı bir sayı ise <don> labelina git... Satır 3.: ris ; Sekaya geri dön. Satır 4 : cir.! dO ; dO registerini temizle. Satır 5 : rts;sekaya geri dön... Bu programın amacı, ilk önce dO registerini kontrol edip, eğer temizse geri dönmesi, değilse silip öyle geri dönmesi, olarak açıklanabilir... Şimdi Program 2'nin açıklaması ; Satır 1 :tst d0 ; d0 registeri O değeriyle karşılaş- O tirilir — Satır 2 : ;eğer sıfıra eşitse, don labelına it. : cir.| dO ; dO registerini temizle. Satır 4: ris ;Sekaya geri dön... u programın amacı, program1 ile tıpatıp aynıdır. Fakat dikkat ettiyseniz, tek bir komut değişikliğiyle bir adet satırdan kurtulduk... Ve işlemilisenin 1 / 1 000 000 oranında hızlandı abardık ama naapalım gerçekler)... ndide sırada şimdiye kadar anlattığımız koatları içer program var... m 3'ün açıklaması ;

PROGRAMI)

tst

D0 registerinden 1 değerini çıkarır. Satır 6: tst d0 ;d0 registerini sıfır değeriyle karşılaştırıp sonucu durum flaglerine yazar. Satır 7: bne cikart ; Eğer 0'a eşit değilse çıkarta gider. Satır 8: rts ; eğer sıfırsa seka'ya geri döner. Satır 9: buffer: dc.w 0 ;buffer adında bir word'lük yani iki baytlık bir değişken hazırlar... Satır 10: end ; programın bittiği belirtilir... Evet arkadaşlar, bu aylıkta bu kadar. Bana yazmak için adres şu...

PK 205 Beşiktaş (Program 3) Mutlaka bana ya- | 10: buffer,a0 zın. Sakın unut- 2 cir.l (a0) mayın... 3 move.l (a0),d0 BURAK ÖZIŞIK İ 4 move.w #500,d0 5 subg.w #1,d0 (PROGRAM 2) 6 tst Icon: tst 7 bne cikart

2 beg don 8 Tits 3 ari dü 9buffer:de.w O 4don: 10 end iç