Amiga Dunyasi - Sayi 31 (Aralik 1992).pdf - Retro Dergi

GelişmişAssemblerCem GENCERSelam! İşte yine bir source ile beraberiz. Bu sefer birçok crackergrubunun kullanmış olduğu gayet kısa bir intro yayınlamayakarar verdim. Source'u olmadığından ReSource programını kullanarakintro'yu AsmOne source'u haline getirmem bir hayli yorucuoldu. Fakat işte sonucu: Arkada yıldızların kaydığı birsinüs-scroll rutini. Artık incelemesi de size kalıyor. Source oldukçagüzel; zira içerisinde blitter ile ilgili çok güzel örneklervar. Source'un ilk iki satırının AsmOne'da doğru çalışabilmesiiçin Prefs menüsünden ReqLibrary fonksiyonunu kapamanız gerekmekte.Bu iki satır ile disketten iki data file'ı yüklenir. Bu dalafile'ları ve source'un hazır yazılmış halini derginin tüm assemblersource'larının bulunduğu diskette bulabilirsiniz. Disketide tabii ki benden temin etmeniz gerekmekte.Adresim PK: 46 - 81110 Bostancı-İST. Benden şimdilik bu kadar;hoşçakalın...AUTOAUTOrb\df0:sources/vf-dat4\$73000\\rb\df0:sources/vf-dat5\$71000WStart move.l 4.A6clr.l D0lea GfxName.Aljsr -132(A6)jsr -552(A6)move.l D0.Dat1addi.l #$32,D0move.l D0,A6move.l A6,Dat2move.l (A6),Dat3jsr Jump1jsr Jump2jsr Jııınp3jsr Jump4jsr Jump5jsr Jump6move.l #$70000,(A6)move.w #$0068.Dat4move.w #$8400,$dff096move.l #$72000,Dat5move.w #Sd9f0,Dat6lea ScroIlTcxt,A5move.w #$0006,Dat7move.w #$0003,Dat8move.w #$0002,Dat9move.w DAT7,Dat10move.w #2,Dat11move.w #$c,Dat12Weiter cmpi.b #$40,$dff006bne.l Weilermove.b Sdff006,$6a000btsl #1,Dat13bne.l Sofibsr.l Rotaddi.w #l,Dat14move, w Datl4,D0cmp.w Dat 10. D0bne.l Softmove, w #0,Datl4bsr.l KillSoft btst #1,Dat 13beq.l Trottaddi.w #1.Dat 15cmpi.w #$8c,Dat15bne.l Trottmove.w #0,Dat15bclr #1,Datl3Trott bsr.l Maxbsr.l Headroomjsr Maimove.b $dff006,$06a001btst #6,$bfe001bne.l Weilermove.l Dat2,A6move.l Dat3.(A6)move.l 4.A6jsr -138(A6)move.w #$8020,$dff096move.w #$0400,$dff096clr.l D0rtsJumpl lea S72000.A0Testi clr.l (A0)+cmpa.l #$73000, A0bne.l Testilea $60000,A0Test2 clr.l (A0)+cmpa.l #$65000,A0bne.l Test2lea S75000.A0Test3 clr.l (A0)+cmpa.l #$7a000,A0bne.l Test3rtsJump2 lea S70000.A0lea Copper1, A1Ort move.l (A1),(A0)+cmpi.l #$fffffffe,( A1)+bne.l Ortrts