Sayfa 20

dbra Tits ;programa geri dön

şalttaki rutin guru hatasını sağlar

gürü: move.l intbase,a6 ;library adresi lea Gtext,a0 ;guru texti adresi move.l — move.l — #$12,d7 şana zamanlayıcı Settime: — move.1#$26000,d6 ;zamanlayıcı Time: sub.l #1,d6 ;zamanlayıcı kontrolü bne Time ;zaman bitti mi? behg #1,$bfe001;power ledi değiştir sub.b #1,d7 ;zamanlayıcıyı azalt bne Settime — ;bu değer 0 oldu mu? İsr -$5a(a6) ;guru penceresi (alert) Tts initoper: gfxbase,a6;graphics library adresi

;burada scroll bitmap var

lea bitmap1,a0 ;text bitmap adresi move.l — #$70000,8(a0) ;txt alanı bitmapl1-4-8 'e move.l — #bitmapl rastport144;bitmap adresi lea rastportl,al ;Tastport adresi jsr -48(a6) ;els (ekranı temizler) Tts ;Tutine geri dön

renkeycle:moveg.l — #53,d4

;55 adet raster çubuğu lea cycin,al

ster çubuğunun başı

lea — cycinl,a2 ;ve sonu move.la2,a3 şaynı adresi a3'e kopyala eycloop: move.w 2(a2),10(a2) şeycle işlemi sub.l #8,a2 ;bir sonraki renk — d4,cycloop move.w10(a3),2(a1) ;renkleri resetler Tts şana rutine dön »...... ;burada scroll rutini var Tts ;Tutin sonu

götextser:move.l gfxbase,a6;gfx.library adresi

move.l — moveg.l #5,d6 ;6 satır text printscloop: move.l — txtbasescr,a0 ;harfin adresi bsr locate ;koordinatları ayarla move.l — #rastportl,al ;rastport adresi move.l — #24,d0 ;24 adet harf -60(a6) — ;printext (harfleri bas) adda.l #24, txtbasescer;sonraki satıra geç addi.l #10,d5 — ;yeksenini ayarla dbfd6,printscloop şana döngü Tts ;Tutine geri dön locate: move.l — #rastportl,al ;rastport adresi move.l — #65,d0 (65. pixele bas) move.l — — İsr -240(a6) ;move cursor Tits

rutin yıldızları hareket ettirir

Sply: lea $7a000-1,a0 ;yıldızlar bu adreste move.l — #255,d7 ;255 tane yıldız Splp: addg.b — #1,$2(a0) add.w #8,a0 addg.b — #2,$2(a0) add.w addg.b — #1.$2(a0) add.w #8,a0 addg.b — #2,$2(a0)

— #8,a0 addg.b — #3,$2(a0) ;bu rutinler hareketi add.w ;sağlar dbf d7.Splp ;döngü Tts ;Tutine dön

; Buraya noisetracker v2.0 replay rutinini yükleyin ; Bu rutin birçok utility disk içinde bulunur ; özellikle AERO TOOL v3.0 adlı utility disk içinde hepsi var.

bizim kullanacağımız copperlist ------

newcop: dc.w $008e,$2c81,$0090,$2cc1,$0092,$0038,$0094,$00d0 dc.w $0102,$0000,$0104,$0000,$0120,$0000,$0122,$0000 de.w $0120,$0007,$0122,$a000

dc.w $0108,$0006 şmodulo 6 dc.w $0100,$1200 ;scroll tek bitplane (2 renk) de.w ;bitplane points ($60000 adres)j

;logo renkleri buraya

.W $b407,$fffe de.w $0100,$0000 ;— renk çubukları 2 --- ;burada ilk raster bar olacak.

dec.w $0100,$1200 de.w $0108,$0000 de.w $00e0,$0007,$00e2,$0000 — ;text ekranı burayı aynen yazın dc.w $0182,$0000,$c807,$fffe ;kalanını yazın, renk registerleri eycin: dc.w $0182,$0111,$c907,$fffe dc.w $0182,$0222,$ca07,$fffe dc.w $0182,$0333,$cb0T7,$fffe dc.w $0182,$0444,$cc07,$fffe $0182,$0555,$cd07,$fffe dc.w $0182,$0666,$ce07,$fffe dc.w $0182,$0777,$cf07T,$fffe dc.w $0182,$0888,$d007,$fffe dc.w $0182,$0999,$d107,$fffe dc.w $0182,$0aaa,$d207,$fffe dc.w $0182,$0bbb,$d307,$fffe dc.w $0182,$0ccc,$d407,$fffe dc.w $0182,$0ddd,$d507,$fffe dc.w $0182,$0cee,$d607,$fffe dc.w $0182,$0fEf,$d707,$fffe dc.w $0182,$0ffe,$d807,$fffe dc.w $0182,$0ffd,$d907,$fffe dc.w $0182,$0ffc,$da07,$fffe dc.w $0182,$0ffb,$db07,$fffe dc.w $0182,$0ffa,$dc07,$fffe dc.w $0182,$0ff9,$dd0O7,$fffe dc.w $0182,$0ff8,$de07,$fffe dc.w $0182,$0ff7,$dfO7,$fffe dc.w $0182,$0ff6,$e007,$fffe dc.w $0182,$0ff5,$e107,$fffe dc.w $0182,$0f£4,$e207,$fffe dc.w $0182,$0ff3,$e307,$fffe dc.w $0182,$0ff2,$e407,$fffe de.w $0182,$0ff1,$e507,$fffe dc.w $0182,$0fe1,$e607,$fffe dc.w $0182,$0fd2,$e707,$fffe dc.w $0182,$0fc3,$e807,$fffe dc.w $0182,$0fb4,$e907,$fffe