Amiga Dunyasi - Sayi 30 (Kasim 1992).pdf - Retro Dergi

dbramove.ladd.lLoop5clr.bclr.bclr.bdbramove.ladd.lLoop6add.lclr.bclr.bclr.bdbraadd.ldbramove.lrtsd2,Loop3d1,d2#1,d2(a0)+Slf40(a0)Slf40*2(a0)d2,Loop5d1,d2#1,d2#40,a0(a0)Slf40(a0)Slf40*2(a0)d2,Loop6#2,d1d0.Loopl#0,AdderDoMovemove.l 12(a2,d6-W),d3move.l 16(a2,d6.W),d4add.l 0(a2,d6.W),d3add.l 4(a2,d6.W),d4tst.l d3bmi.L GetANewStartst.l d4bmi.L GetANewSlarcmp.l #$01400000,d3bge.L GetANewSlarcmp.l #S00c80000,d4bge.L GetANewStarmove.l d3,0(a2,d6.W)move.l d4,4(a2,d6.W)move.l 20(a2,d6.W),d3move.l 24(a2,d6.W),d4add.l 8(a1.d6.W),d3add.l 12(a1,d6.W).d4move.l d3.8(a1,d6.W)move.l d4,12(a1,d6.W)move.l 28(a2,d6.W),d5move.l 0(a4,d5.L),d1cmp.l d1,d3bge.S NewSpeedAndColorcmp.l d1 ,d4ble.S EndMoveStarNewSpeedAndColormove.l 20(a2,d6.W),d0move.l 24(a2,d6.W),d1isr.l #1,d0move.l d0,d2asl.l #1,d0add.l d2,d0lsr.l #1,d1move.l d 1 ,d2asl.l #1,d1add.l d2,d1move.l 64(a4,d5.L).d2move.l d2,8(a2,d6.W)add.l #4,28(a2,d6.W)move.l d0,20(a2,d6.W)move.l d 1,24(a2,d6.W)NewPositionmove.lmove.lmove.lmove.lbtstbeq.Snot.lNotNegativeAMIGA DÜNYASI 4420(a2,d6.W),d0d0,12(a2,d6.W)24(a2,d6.W),d0d0, 16(a2,d6.W)#1,20(a1,d6.W)NotNegative12(a2,d6.W)btstbeq.Snot.lEndMoveStarrtsGetANewStarclr.lclr.lclr.lbsr.Lclr.lbsr.Sand.ladd.lmove.lbsr.Sand.ladd.lmove.lbsr.Sand.lmove.lbsr.Sand.lmove.lbsr.Smove.lbra.L#2,20(a1,d6.W)EndMoveStar16(a2,d6.W)28(a2,d6.W)8(a1,d6.W)12(a1,d6.W)Zufa1l8(a2,d6.W)Zufa1l#$30000,d0#$9e0000,d0d0,0(a2,d6.W)Zufa1l#S30000,d0#$620000,d0d0.4(a2,d6.W)Zufa1l#$ffff.d0d0,20(a2,d6.W)Zufa1l#$ffff,d0d0,24(a2.d6.W)Zufa1ld0,20(a1,d6.W)NewPositionComputeAddresslea BitPlane.a0clr.l d1move.l 0(a2,d6.W),d0swap d0move, w d0.d1and.l #7,d0eor.w #7,d0divu #8.d1move.l 4(a2,d6.W),d2swap d2and.l #Sff,d2mulu #$28,d2add.w d2,d1add.w d 1 ,a0rtsZufallmove.l Rndl(pc),a3move.l (a3),d0add.l #$5000,a3move.l (a3),d1eor.l d1.d0move.l Rnd2(pc),d1add.l #$42f5402,d0eor.l d1.d0add.w Sdff006,d0eor.l #$dff006,d0move.l d0,Rnd2add.l #2,Rnd1rtsBitPlaneequ $60000CMPundColordc.l $000c0000,$00180000,$00240000,$00300000dc.l $003c0000,$00480000.$00540000,$00600000dc.l $006c0000,$00780000,$00840000,$00900000dc.l $009c0000,$00a80000,$00b40000.$00b80000dc.l $00000001,$00000002,$00000003,$00000004dc.l $00000005,$00000006,$00000007.$00000007dc.l $00000007,$00000007,$00000007,$00000007dc.l $00000008,$00000008.$00000008.$00000008CopListdc.w $008e$2c61,$0090.$ffc1dc.w $0092,$0038,$0094,S00d0dc.w $0100,$3200dc.w $0108,$0000,$010a.$0000dc.w $00e0,$0006,S00e2,$0000dc.w $00e4,$0006.$00e6,$1f40dc.w $00e8,$0006,$00ea,$3c80dc.w $0180,$0000,$0182,$0222dc.w $0184,$0444,$0186,50666dc.w $0188,$0999,$018a,$0bbbdc.w $018c,$0ddd,$018e,$0fffdc.l SfffffffeAdder dc.l 0Rndl dc.l 0Rnd2 dc.l 0PosControl blk.l $1020,0Retter blk.l $1020,0; Drive ile müzik çaldırma ...q movem.l d0-d7/a0-a6,-(sp)movebsetbclrmove.lleaStart1move.lmove.lStart2bsetbclrbsr.bbtstbeq.bcmp.lbeq.bsub.lbra.bAus dbraFinitomovem.lrtsWait move.lWait 1 beq.bsub.lbra.bAusWaitrts#$4000,$dff09a#3,$bfd100#3,$bfd100#MSize,d5MusicDatas,a5(a5)+,Frequenz1(a5)+,Frequenz2#0,$bfd100#0,$bfd100Wait#6,$bfe001Finito#0,Frequenz1Aus#1,Frequenz1Start2d5,Start1(a7)+,d0-d7/a0-a6Frequenz2,d3Aus Wait#1,d3Wait1MusicDatasdc.l 1300,100,700,90,1100,80,1250,90dc.l 1150,75.1100,81,700,90.500,110dc.l 900.102,1400,59.1200,67,1100,76dc.l 1000,82,950.92,600,82,500,106dc.l 1300,65dc.l 900,100,900,90,900,80,900,75dc.l 1300,66,0,$8000.1200.66,0,$2000dc.l 1000,60.0,$4000,800,60,0,$4000dc.l 800,60,0,$4000,800,60,0,$4000dc.l 1200,66,0,$ 13000,1000,60,0,$4000dc.l 800.60,0,$4000,800,60,0,$4000dc.l 800.60.0,$4000,1200,66,0,$4000dc.l 800,75.0,$4000,800,75,0,$4000dc.l 800,75,0,$4000,800,75,0,$400dc.l 1200,90,0,$4000,1200,90,0,$2000dc.l 700,66,0,$2000.700,66,0,$2000dc.l 700.66,0,$2000,700,66,0,52000dc.l 1000,100Rnd dc.l 0Frequenz1 dc.l 0Frequenz2 dc.l 0MSize equ [MEnd-MusicDatas]/8-l