Amiga Dünyası sayı 24, sayfa 28

Bu sayfadaki yazılar

Sayfanın metni

Sayfa 28

move, w d0,10(a0)

move.l #Spritel,d0 move.l #Spritel,d1 swap d1 and.l #$ffff,d0 and.l #$ffff,d1 move, w d1.l4(a0) move.w d0,18(a0)

move.l #Sprite2,d0 move.l #Sprite2,d1 swap d1 and.l #$ffff,d0 and.l #$ffff,d1 move.w d1,22(a0) move.w d0,26(a0)

move.l #Sprite3,d0 move.l #Sprite3,d1 swap d1 and.l #$ffff,d0 and.l #$ffff,d1 move.w d1,30(a0) move.w d0,34(a0) rts

CopySprites: move.l Count,d0 add.l #1.d0 ^ move.l d0,Count cmp.l #20,d0 beq.b OK rts

OK: move.l #0,Count lea Sprite0Table,a0 lea Sprite ITableal lea Sprite2Table,a2 lea Sprite3Table,a3 move.l SpriteNumber,d0 mulu #4,d0 move.l (a0,d0),a0 move.l (al,d0),al move.l (a2,d0),a2 move.l (a3,d0),a3 lea Sprite0,a5 lea Sprite2,a6 move.l #31,d7 SprCopy:

move.l (a0)+,0(a5) move.l (al)+,256(a5) move.l (a2)+,0(a6) move.l (a3)+,256(a6) add.l #4,a5 add.l #4,a6 dbf d7,SprCopy add.l #1,SpriteNumber move.l SpriteNumber,d0 cmp.l #15,d0 beq.b D0Zero rts

D0Zero: move.l #0,SpriteNumber rts

NewCopper: dc.w $0100,$ 1200 dc.w $0120,$0000,$0122,$0000

dc.w $0124,$0000,$0126,$0000 dc.w $0128,$0000,$012a,$0000 dc.w $012c,$0000,$012e,$0000 dc.w $0102,$0000,$0104,$0000 dc.w $0092,$0038,$0094,$00d0 dc.w $008e,$2c81,$0090,$2ccl dc.w $0180,$0000,$0182,$0000 dc.w $01a0,$0000,$01a2,$0fff dc.w $01a4,$0ff0,$01a6,$0f00 dc.w $01a8,$0c00,$01aa,$0900 dc.w $01ac,$0700,$01ae,$0400 dc.w $01b0,$00b6,$01b2,$00dd dc.w $01b4,$00af,$01b6,$007c dc.w $01b8,$000f,$01ba,$070f dc.w $01bc,$0c0e,$01be,$0c08 dc.w $00e0,$0004.S00c2.$0000 dc.w $ffff,$fffe

GfxName: dc.b 'graphics.library',0,0 GfxBase: dc.l 0 OldCopper: dc.l 0 SpriteNumber: dc.l 0 Count dc.l 0

Sprite0: blk.b 256.0 Sprite 1: blk.b 256,0 Sprite2: blk.b 256.0 Sprite3: blk.b 256,0

Sprite0Table: del Spr01Le,Spr02Le,Spr03Le,Spr04Le,Spr05Le del Spr06Le,Spr07Le,Spr08Le,Spr09Le,Spr10Le del Spr11Le,Spr12Le,Spr13Le,Spr14Le,Spr15Le Sprite 1 Table: del Spr01Lo,Spr02Lo,Spr03Lo,Spr04Lo,Spr05Lo del Spr06Lo,Spr07Lo,Spr08Lo,Spr09Lo,Spr10Lo del Spr11Lo,Spr12Lo,Spr13Lo,Spr14Lo,Spr15Lo Sprite2Table: del Spr01Re,Spr02Re,Spr03Re,Spr04Re,Spr05Re del Spr06Re,Spr07Re,Spr08Re,Spr09Re,Spr10Re del Spr11Re,Spr12Re,Spr13Re,Spr14Re,Spr15Re Sprite3Table: del Spr01Ro,Spr02Ro,Spr03Ro,Spr04Ro,Spr05Ro del Spr06Ro,Spr07Ro,Spr08Ro,Spr09Ro,Spr10Ro del Spr11Ro,Spr12Ro,Spr13Ro,Spr14Ro,Spr15Ro

Spr01Le: dc.w $7080,$9100

dc.w $0000,$0000,$0000,$0000.$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$000F,$001F,$0030,$0070 dc.w $0011,$00FF.$002E,$01DE,$0174,$038C,$02AC,$02DC dc.w $02D8.$06F8,$05F0,$05F0,$0580,$0580,$0500,$0500 dc.w $0500,$0500.$0400.$0400,$0000,$0000,$0000,$0000 dc.w $0000,$0400.$0000.$0000,$0100,$0200,$0080,$0100 dc.w $00405$0080.$0033.$0043,$000F,$0010,$0000,$0000 dc.w $0000.$0000.$0000.$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000 Spr01Lo: dc.w $7080.S9180 dc.w S0000.$0000,$0000.S0000,$0000,$0000,$0000,$0000 dc.w S0000.S0000.$0000.S0000,$0010,$0000,$0040,$0000 dc.w $00bF,$0000,$017E,$0000,$02DC,$0000,$00FC,$0000 dc.w $04F8,$0000,S01F0.$0000,$0180,$0000,$0100,$0000 dc.w S0100.$0000.$0000.$0000,$0400,$0000,$0400,$0000 dc.w $0600,$0000,$0200,$0000,$0300,$0000,$0180,$0000 dc.w $00C0,$0000,$0073,$0000,$001 F,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$00(K),$0000 dc.w $0000,$0000 Spr01Re: dc.w $7088,$9100 dc.w $0000.$0000.$0000.$0000.$0000.$0000.$0000.$0000

Klavyeyle gezinmek için ← ve → tuşları.