Bu sayfadaki yazılar
Sayfanın metni
Sayfa 21
dc.w $0182,$0fa5,$ea07,$fffe dc.w $0182,$0f96,$eb07,$fffe dc.w $0182,$0£87,$ec07,$fffe dc.w $0182,$0178,$ed07,$fffe de.w $0182,$0f69,$ee07,$fffe dc.w $0182,$0f5a,$ef07,$fffe dc.w $0182,$0f4b,$f007,$fffe dc.w $0182,$0f3c,$f107,$fffe de.w $0182,$0f2d,$f207,$fffe dc.w $0182,$0f1e,$f307,$fffe dc.w $0182,$0e2c,$f407,$fffe dc.w $0182,$0e3b,$f507,$fffe dc.w $0182,$0d5a,$f607,$fffe dc.w $0182,$0c79,$f707,$fffe dc.w $0182,$0888,$f807,$fffe dc.w $0182,$0777,$f907,$fffe dc.w $0182,$0666,$fa07,$fffe
BÖLGELER, MADENLER,
Günlük 20 döviz kurunu takip edebilir, istatistik ve farklarını görebilirsiniz. Yerinde karar verebilmeniz için hazırlandı...
dc.w $0182,$0555. $fbOT7 $fffe AdLibAntigue | dc.w $0182,50444,$fc07,$fffe ALBERTUSBANCO İŞ dc.w $0182,$0343,$fd07,$fffe Araviteci Corvinuş Arguitecfura bOr'VİNU: Şimdi Masaüstü dc.w $0182,$0222,$fe07,$fffe Caslon540 de.w $0182,$0111,$ff07,$fffe EuroStil Fontlari m adet olup dc.w FrizOuaGiliSans ; FrizOua Shannon dc.w ;copper listin sonu Garamond Omega Ti ;Star datasını buraya yükleyin (label' in adı star olmalı) GartGra N ; alttaki örneğe bakın, sartGra New Yorker Bütün fontları ; . lere | Micro Palacio Star: Futura n — del $3AD83BO00,$80008000,$3C843D00,$80000000 Ün form Uncial Poraw 3.0 devam eder... mt data: egu $30000 ;module adresiz$30000 bitmap: bik.b 40,0 :G bitmap1: bik.b 40,0 rastport: — bik.b 100,0 rastportl: bik.b 100,0 txtbase: scrolltxt :G txtbaseser: dc.l txtscr oldcop: del 0 6 gixbase: dc.l 0 :G intbase: de.l o timer: de.l 0 oldaddy: dc.l 0 gfxname: dc.b "graphics.library",0,0 ;G int: dc.b "intuition.library",O de.b — 10,110 dc.b — " Software Failure. Press left mouse button to continue.",O Şubelerini arayınız dc.b — $ff,50,$be dc.b "Guru Meditation #$1000009.00c0371a",0 even scrolltxt:
; burada scroll texti var.
şalttaki text mesaj textidir, 6 satır ve 24 harf olmalı txtser: de.b " GLOBAL TRASH ASSEMBLER "
de.b " — ÖRNEK 2: TEXTSCREEN dc.b — " PROGRAM: " dc.b GORDUGUNUZ MINI de.b il INTRONUN TAMAMI dec.b " ASM-ONE İLE YAZILMISTI end ;programın sonu
Klavyeyle gezinmek için ← ve → tuşları.
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