Gelişmiş Assembler

Cem 'Spaztica' Gencer · Amiga Dünyası sayı 31, Aralık 1992 · sayfa 23, 24, 25, 26

Cem GENCER btst #1,Dat13 Selam! İşte yine bir source ile beraberiz. Bu sefer birçok crac- bne.l Soft | ker grubunun kullanmış olduğu gayet kısa bir intro yayınlamaya Rot karar verdim. Source'u olmadığından ReSource programını kul- addi.w — #1,Dat14 lanarak intro'yu AsmOne source'u haline getirmem bir hayli yo- move.w Dat14,DO Tucu oldu. Fakat işte sonucu: Arkada yıldızların kaydığı bir cmp.w — Dat10,DO sinüs-scroll rutini. Artık incelemesi de size kalıyor. Source ol- bne.l Soft dukça güzel; zira içerisinde blitter ile ilgili çok güzel örnekler move.w #0,Dat14 var. Source'un iki satırının AsmOne'da doğru çalışabilmesi bsr. Kill için Prefs menüsünden RegLibrary fonksiyonunu kapamanız ge- Soft btst #1,Dat13 rekmekte. Bu iki satır ile disketten iki data file'ı yüklenir. Bu da- beg.l Trott ta file'ları ve source'un hazır yazılmış halini derginin tüm as- addi.w #1,Dat15 | sembler source'larının bulunduğu diskette bulabilirsiniz. Disketi cmpi.w — #$8c,Dat15 | de tabii ki benden temin etmeniz gerekmekte. bne.l Trott Adresim PK: 46 - 81110 Bostancı-İST. Benden şimdilik bu ka- move.w #0,Dat15 dar; hoşçakalın ... belr #1,Dat13 Trott — bsr.l Max AUTO — bsr.l Headroom AUTO İsr Mai move.b — $dff006,$06a001 Start . btst #6,$bfe001 cir.I DO bne.l Weiter lea move.l — Dat2,A6 jsr -132(A6) move.l — Dat3,(A6) İsr -552(A6) move.l — 4,A6 move.l — DO,Dati İsr -138(A6) addi.l #$32,DO move.w #$8020,$dff096 move.l — DO,A6 move.w #$0400,$dff096 move.l — A6,Dat2 DO move.l — (A6),Dat3 Tts İsr Jump2 lea $72000,A0 İsr Jump3 Testi (A0)4- İsr Jump4 cmpa.l — #$73000,A0 Jump5 bne.l Testi İsr Jump6 lea $60000,A0 move.l — #$70000,(A6) Test2 cir.l (A0)4 move.w #$0068,Dat4 cmpa.l — #$65000,A0 move.w #$8400,$dff096 bne.l Test2 move.l — #$72000,Dat5 lea $75000,A0 move.w #$d9f0,Dat6 Test3 cir.l (A0)4 lea ScrollText,AS cmpa.l — #$7a000,A0 move.w #$0006,Dat7 bne.l Test3 move.w #$0003,Dat8 Tits move.w #$0002,Dat9 move.w DAT7,Dat10 Jump2 lea $70000,A0 move.w #2,Datll lea Copper1,Al t move.w #Sc,Dat12 Ort move.l — (A1),(A0)4 Weiter empi.b — #$40,$dff006 empi.l — bne.l Weiter bne.l Ort move.b — $dff006,$6a000 rts MUTLAKA OKUYUN: SAYFA 96'da.

add.w DO,Daten4

Jump4 lea $70688,A0 cmpi.w — #$02d0,Daten4 il
bit. SoWas ile
Porter move.l move.w  #$0000,Daten4 AM , A
cmpi.l SoWas move.l — AMIĞA Dıza
bnel — Porter adda.w — #$700,A0 e
rts move.w  #$0100,$dff040
move.w  #0,$dff042 KATI BE
Max bist #1,Daten2 move.l — A0,$dff054
beg.l Earn move.w  #0,$dff066
move.l — #$75000,Dat5 move.w #$1128,$dff058
move.l — #$77800,Datenl rts
move.w  #$5000,$70026 AMIGA 500 ve PLUS icin 120
move.w  #$5028,$7002e lea $72000,A0 MB HD ve 40 Mhz 68030 kart
belr #1,Daten2 move.l — Dat5,Al AMIGA 3000'den 2 defa hızlı * 4-8
rts move.w  (A2),DO MB ram opsiyon * Game Switch *
subi.w Harici güç kaynağı
Earn — move.l — #$77800,Dat5 move.w
move.l #$75000,Daten1 Isl.w 050
move.w hi PLUS
add.w arddisk (8 MB ram ops.* 11 mis hız
Same Kaynağı)

ris adda.w — Daten3,A0 PC286 AT EMÜLA ÖR

Headroom ris Mhz'lik PC286 emülatör kartı
move.w
move.w  #$0,Daten3 Look — move.l — #$0dfc0000,$dff040 A2000
lea $71000,A2 move.l — D3,$dff044 AMIGA 2000 için SCSI kontrol kartı
adda.w — Daten4,A2 move.l — A0,$dff050 *8 MB 8 bit SIMM ram opsiyon
Anf — bsrl Look1 move.l —
move.l — #$cOffffOO,D3 move.l —
bsr.l Look | move.w  #$26,$dff062 AMIGA 3000 ve AMIGA 2000 için
adda.w move.w 68040 accelerators karl. 28-33'Mhz.
bsr.l Look1 a move.w  #$26,$dff066 hız sağlar. 16 Mb 32 bit ram
move.l — #$30ffff00,D3 move.w  #$401,$dff058 genişleme imkanı ve SCSI kontrol
bsr. Look rts kartı üzerinde
adda.w — Datli,A2
bsr.l Look1 Kill — DO
move.l — #$0cffffOO,D3 move.b — (A5)4,DO Masaüstü Yayıncılar ve Masaüstü
bsr.l Look cmp.b — #$00,DO Videocular için 24 bit grafik kartı.
adda.w — Datl1,A2 beg.l Short Real Time Digitizer * Frame Grabber
bsr.l Look1 * tüm videoları destekleyen
move.l — #$03fffF00,D3 begil — Shortl profesyonel Genlock (VİU)

bsr.l Look cmp.b #$02,DO
Dal11,A2

Look b | Tüm AMIGA'larda kullanılabilen 8 bit
move.l — 3 Short3 8 kanal Digital Stereo Sound Sampler
Look cmp.b — #$2e,DO
adda.w — — Short4
bsrl Lookl cmp.b — #$21.DO0
move.l — — Shortâ ve giriş ve çıkış.
bsr.l Look cmp.b #$31,DO Video Digitizer için RGB Color
adda.w Datl1,A2 beg.l Short5 Splitter, Software ile A-Rexx ve CLI
bsr.l Look1 cmp.b — #$27,DO Interface desteği, görüntüde ışık -
— begl — Short5 mix İmkanı,
bsrl — Look move.w  Dat7,Dat10
adda.w — Luft — subilb — #$20,DO Cl SP
bsrl Lookl Di
— yarablığınıza sınır
bsrl Look DİDO tanımayın.
adda.w — Datl1,A2 cir.l D2 ORJİNAL SOFTWARE & MANUEL
addi.w — #$2,Daten3 —
dbf move.w  DO,D2 LÜTFEN SAYFAYI ÇEVİRİN
cir.l DO #4,D2
move.w  Dat12,DO move.w  D2,D6

move.w DO,D2 mulu #$14,D2 Nikon lea Copper5,Al1

#2,D2 sub.w D2,DI move.w #3,DO
add.w D2,D6 mulu #2,DI List move.w (AD, (A0)4
move.w D6,D2 mulu #$2a8,DO move.w
sub.w — D2,DI move.l — #$73000,A2 move.w  (A1)4,(A3)4
#1,DI adda.w — DO,A2 dbf DO,List
move.w D2,D7 adda.w — DI,A2 dbf
İslw #5,D7 lea $60f4, AI lea $7d000,A0
add.w D2,D7 adda.w  Daten6,Al move.b — #$20,DI
add.w — D2,D7 move.w  #$09f0,Daten5 move.w  #1,D2
move.w D7,DO bsr.l Maga Shitty2 lea Copper6,A1
move.l — #$73000,A2 #$0002,Daten6 lea Copper7,A2
adda.w — DO,A2 dbf D7,Clear lea Copper8,A3
adda.w — DI,A2 subi.w — #$0024,Daten6 move.w  Daten8,DO
lea $72028,A1 addi.w — #$02a8,Daten6 İsr.w #1,DO
move.w  #$09f0,Daten5 dbf D6,Clear2 Shitty  move.b DI,D4
bsr.l Maga Tts move.b DI,0(A0)
addi.b #$01,DI
Rot move.w  #0,Daten7 move.b — D1,1024(A0)
Short lea SCrollText,A5 move.w  Dat6,$dff040 addi.b #$01,DI
jmp Kill move.w  #0,$dff042 move.b — D1,2048(A0)
move.l — #-1,$dff044 addi.b #$01,DI
Short5 move.w  Dat8,Dat10 move.w #0,$dff064 move.b
| jmp Luft move.w  #0,$dff066 addi.b — #$01,DI
lea $72000,A0 move.b DI,D4
Short4 move.w  Dat9,Datl0 lea move.b — DI1,2(A0)
jmp Luft move.l — A1,$dff050 addi.b #$01,DI
move.l — A0,$dff054 move.b — DI,1026(A0)
Shortl move.w #6,Dat7 move.w  #$328,$dff058 addi.b #$01,DI
move.w  #3,Dat8 lea $72002,A0 move.b — DI,2050(A0)
move.w #2,Dat9 move.w  #$0100,$dff040 move.b
move.w  #$d9f0,Dat6 move.w  #0,$dff042 addi.b — #$01,DI
jmp Kill move.l — A0,$dff054
4 move.w  #$26,$dff066 move.b (A2)4,1025(A0)
Short2. move.w  #3,Dat7 move.w move.b — (A3)4,2049(A0)
move.w  #2,Dat8 rts adda.w — #$0008,A0
move.w #1,Dat9 dbf DO,Shitty
move.w  #$a9f0,Dat6 Jump3 lea $70084,A0 dbf D2,Shitty2
jmp Kill lea Copper4,A1 rs
move.w  #$003f,DO
Short3 bset #1,Dat13 move.w #$5921,DI Mai lea $7d001,A0
jmp Kill Kati move.w lea $7d401,A1
move.l — #S$fffe0186,(A0)4 move.w  Daten8,DO
Maga move.w  Daten5,$dff040 move.w  (A1),(A0)4- Addieren addg.b — #1,(A0)
move.w  #0,$dff042 move.w  #$018e,(A0)4 addg.b —
move.l — move.w  (A1)4,(A0)4 adda.w — #8,A0
move.l — A2,$dff050 #$0100,DI adda.w #8,Al
move.l — A1,$dff054 dbf DO,Kati dbf DO,Addieren
move.w  #$26,$dff064 move.w  #$003f,DO lea $7d801,A0
move.w  #$26,$dff066 suba.w — #$0002,A1 move.w  Daten8,DO
move.w  #$0401,$dff058 Vera — move.w addi.w — #1,Daten9
ris move.l — #$fffe0186,(A0)4 cmpi.w — #2,Daten9 |
move.w  (A1),(A0)4 bne.l Branch |
Jump5 —lea move.w  #S$018e,(A0)4 move.w  #0,Daten9 |
move.w  #0,Daten6 move.w  -(A1),(A0)4 TLoop addg.b — #1,(A0) |
move.w #2,D6 #$0100,DI adda.w — #8,A0 |
Clear2 move.w #$11,D7 dbf DO, Vera dbf DO,TLoop İ
Clear DO move.l — #$01800000,(A0)4- lea $7d801,A0
DI move.l — move.w  Daten8,DO
move.b — (A5)4,DO rts Branch adda.w #2,A0
subi.b #$20,DO Lover  eori.b #1 (A0)
move.w Jump6 lea $7d000,A0 adda.w — #8,A0
move.w lea $7d400,A2 dbf DO,Lover
divu #$14,DO lea $7d800,A3 Tts
move.w  DO,D2 move.w  Daten8,DI1

HEDİYENİZİ ALMAYI UNUTMAYIN: SAYFA 96

Dat3
Datl
Dat2
Dat5
Datli
Datenl
Dat4
Daten2
Datend
Dat10
Dat12
Daten7
Daten6
Daten5
Dat15
Dat7
Dat9
Dat6
Dat13
Copperl

Copper2

de.b
de.w
dc.w
de.w
de.w
de.l
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
dc.w

$0001,$c490
$0000,$21fe
$0000,$2230
$0028
$75000
$0002
$0068
$0000,$0000
$0270
$0006
$000c
$0000
$0004
$0000
$0006
$0003
$0002
$d910
$0000
$0100,$3200,$0102,$0045
$O008;
$0108,$0000,$010a
$0092,$0030,$0094,

$0180,$0000,$

$0120,$0007,$01
$0130,$0007,$0132,$d800
$01b2,$0555,$01ba,$0000
$0104,$0004
$d921,$fffe
$0108,$ffb1,$010a,$ffbI
$0180,$0000,$
$0184,$0008,$0186,
$0188,$0000,$018a,$0005
$018c,$0008,$018e,$0006
$e021,$fffe
$0180,$0000,$0182,$0005
$0184,$0008,$0186,$0006
$0188,$0000,$018a,$0005
$018c,$0008,$018e,$0006
$e821,Sfffe
$0182,$0003,$0180,$0000
$0182,$0004,$0184,$0007
$0186,$0005,$0188,$0000
$018a,$0004,$018c,$0007
$018e,$0005
$1821,$fffe
$0182,$0001,$0180,$0000
$0182,$0003,$0184,$0006
$0186,$0004,$0188,$0000
D004

$ffe 1 $fffe
$0821,$fffe
$0182,$0000,$0180,$0000
$0182,
$0186,$0002,$0188,$0000
$018a,$0001,$018c,$0004
$018e,$0002
$1021,$fffe
,$0000
)000,$0182,$0000

$0180,
$0184,$0003,$0186,$0001

Copper4

Daten8
Daten9
Copper5
Copper6

Copper?

Copper8

Text

de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w
de.w

de.b

LED AND EDİTED"

ORSTUVWXYZ

de.b
dc.b
dc.b

de.b

$5400,$df45,$bce3,$05e7 $6428,$adc8

" VISION FACTORY "

SINE-SCROLL

"THE THIS IS THE

"OF VISION FACTORY ..." "SOURCE RE-ASSEMB-SEE YA..."

Gelismis Iste bircok kullanmis oldugu kisa yayinlamaya olmadigindan programini iste yildizlarin kaydigi sinus-scroll Artik kaliyor. dukca guzel; icerisinde cok guzel ornekler satirinin dogru calisabilmesi icin menusunden kapamaniz satir file'i yuklenir. file'lari hazir yazilmis tum source'larinin bulundugu Bostanci-IST. simdilik hoscakalin Isr AMIGA Diza hizli guc kaynagi hiz Kaynagi) EMULA OR emulator karti saglar. genisleme imkani uzerinde Masaustu Yayincilar karti. videolari (VIU) Tum kullanilabilen Shorta giris cikis. destegi, goruntude isik Imkani, yarabliginiza sinir DIDO tanimayin. ORJINAL LUTFEN CEVIRIN Islw Isr.w I HEDIYENIZI EDITED"