Sayfa 23

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.