Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Assembler/dse-src6.dms/in.adf/BOUNCHSRCS.LZH/stjernor.S

Text File | 1987-05-18 | 5.0 KB | 414 lines

initstars:
move.l #sprite1,d0
move.w d0,spritepointers+6
swap d0
move.w d0,spritepointers+2
move.l #sprite2,d0
move.w d0,spritepointers+14
swap d0
move.w d0,spritepointers+10
move.l #sprite3,d0
move.w d0,spritepointers+22
swap d0
move.w d0,spritepointers+18
rts

stars:    ;jump to this once every scan!
move.w ant,d0
subq.w #1,d0
lea sprite1,a0
lea sprite2,a1
lea sprite3,a2
loop:
tst sdir
beq minus
add.b #3,1(a0)
add.b #2,1(a1)
add.b #1,1(a2)
bra nominus
minus:
sub.b #3,1(a0)
sub.b #2,1(a1)
sub.b #1,1(a2)
nominus:
addi.l #8,a0
addi.l #8,a1
addi.l #8,a2
dbf d0,loop
rts

;Put this line to your copperlist!
dc.l $01a20fff,$01a40888,$01aa0555

Sprite1:
dc.l $20702100
dc.w 1,0
dc.l $24302500
dc.w 1,0
dc.l $26902700
dc.w 1,0
dc.l $29a02a00
dc.w 1,0
dc.l $2c702d00
dc.w 1,0
dc.l $2fc03000
dc.w 1,0
dc.l $31403200
dc.w 1,0
dc.l $33303400
dc.w 1,0
dc.l $36103700
dc.w 1,0
dc.l $39f03a00
dc.w 1,0
dc.l $3c753d00
dc.w 1,0
dc.l $40354100
dc.w 1,0
dc.l $43234400
dc.w 1,0
dc.l $47b74800
dc.w 1,0
dc.l $4a3c4b00
dc.w 1,0
dc.l $4cfe4d00
dc.w 1,0
dc.l $500f5100
dc.w 1,0
dc.l $53875400
dc.w 1,0
dc.l $552c5600
dc.w 1,0
dc.l $58f15900
dc.w 1,0
dc.l $5ce15d00
dc.w 1,0
dc.l $63016400
dc.w 1,0
dc.l $66376700
dc.w 1,0
dc.l $695e6a00
dc.w 1,0
dc.l $742b7500
dc.w 1,0
dc.l $77797800
dc.w 1,0
dc.l $7aff7b00
dc.w 1,0
dc.l $7dbb7e00
dc.w 1,0
dc.l $826d8300
dc.w 1,0
dc.l $859d8600
dc.w 1,0
dc.l $88d68900
dc.w 1,0
dc.l $8a5d8b00
dc.w 1,0
dc.l $8c808d00
dc.w 1,0
dc.l $92669300
dc.w 1,0
dc.l $95cd9600
dc.w 1,0
dc.l $970c9800
dc.w 1,0
dc.l $9a599b00
dc.w 1,0
dc.l $9c5d9d00
dc.w 1,0
dc.l $a075a100
dc.w 1,0
dc.l $a445a500
dc.w 1,0
dc.l $a736a800
dc.w 1,0
dc.l $aae6ab00
dc.w 1,0
dc.l $ad69ae00
dc.w 1,0
dc.l $b1d4b200
dc.w 1,0
dc.l $b60db700
dc.w 1,0
dc.l $b92cba00
dc.w 1,0
dc.l $bdfabe00
dc.w 1,0
dc.l $c23bc300
dc.w 1,0
dc.l $c595c600
dc.w 1,0
dc.l $c855c900
dc.w 1,0
dc.l $ce36cf00
dc.w 1,0
dc.l $d5d8d600
dc.w 1,0
dc.l $d7e5d800
dc.w 1,0
dc.l $dcd7dd00
dc.w 1,0
dc.l $ea0deb00
dc.w 1,0
dc.l $eee5ef00
dc.w 1,0
dc.l $f4a2f500
dc.w 1,0
dc.l $f801f900
dc.w 1,0
dc.l $fad5fb00
dc.w 1,0
dc.l $fc9bfd00
dc.w 1,0
dc.l 0

sprite2:
dc.l $21692200
dc.w 0,1
dc.l $25642600
dc.w 0,1
dc.l $27a72800
dc.w 0,1
dc.l $2af82b00
dc.w 0,1
dc.l $2d832e00
dc.w 0,1
dc.l $2f863000
dc.w 0,1
dc.l $31873200
dc.w 0,1
dc.l $34983500
dc.w 0,1
dc.l $37863800
dc.w 0,1
dc.l $3a283b00
dc.w 0,1
dc.l $3d7c3e00
dc.w 0,1
dc.l $40354100
dc.w 0,1
dc.l $45df4600
dc.w 0,1
dc.l $487c4900
dc.w 0,1
dc.l $4a9a4b00
dc.w 0,1
dc.l $4c5a4d00
dc.w 0,1
dc.l $4ea34f00
dc.w 0,1
dc.l $52395300
dc.w 0,1
dc.l $549c5500
dc.w 0,1
dc.l $57f15800
dc.w 0,1
dc.l $5a875b00
dc.w 0,1
dc.l $60006100
dc.w 0,1
dc.l $63d36400
dc.w 0,1
dc.l $66766700
dc.w 0,1
dc.l $6a876b00
dc.w 0,1
dc.l $70507100
dc.w 0,1
dc.l $747a7500
dc.w 0,1
dc.l $7aa47b00
dc.w 0,1
dc.l $802f8100
dc.w 0,1
dc.l $83c58400
dc.w 0,1
dc.l $87378800
dc.w 0,1
dc.l $89868a00
dc.w 0,1
dc.l $8ca38d00
dc.w 0,1
dc.l $925c9300
dc.w 0,1
dc.l $95349600
dc.w 0,1
dc.l $974c9800
dc.w 0,1
dc.l $99aa9a00
dc.w 0,1
dc.l $9c879d00
dc.w 0,1
dc.l $a659a700
dc.w 0,1
dc.l $a936aa00
dc.w 0,1
dc.l $adf6ae00
dc.w 0,1
dc.l $b155b200
dc.w 0,1
dc.l $b391b400
dc.w 0,1
dc.l $b608b700
dc.w 0,1
dc.l $b95bba00
dc.w 0,1
dc.l $bdd1be00
dc.w 0,1
dc.l $c065c100
dc.w 0,1
dc.l $c405c500
dc.w 0,1
dc.l $c7bcc800
dc.w 0,1
dc.l $d186d200
dc.w 0,1
dc.l $d423d500
dc.w 0,1
dc.l $dcdadd00
dc.w 0,1
dc.l $e094e100
dc.w 0,1
dc.l $e762e800
dc.w 0,1
dc.l $eaa2eb00
dc.w 0,1
dc.l $eed5ef00
dc.w 0,1
dc.l $f402f500
dc.w 0,1
dc.l $f851f900
dc.w 0,1
dc.l $fa25fb00
dc.w 0,1
dc.l $fc3bfd00
dc.w 0,1
dc.l 0

Sprite3:
dc.l $22352300
dc.w 1,0
dc.l $24362500
dc.w 1,0
dc.l $26f12700
dc.w 1,0
dc.l $28942900
dc.w 1,0
dc.l $2acb2b00
dc.w 1,0
dc.l $2c892d00
dc.w 1,0
dc.l $31e93200
dc.w 1,0
dc.l $337d3400
dc.w 1,0
dc.l $365f3700
dc.w 1,0
dc.l $38a03900
dc.w 1,0
dc.l $3b813c00
dc.w 1,0
dc.l $41614200
dc.w 1,0
dc.l $45004600
dc.w 1,0
dc.l $47924800
dc.w 1,0
dc.l $4a254b00
dc.w 1,0
dc.l $4c504d00
dc.w 1,0
dc.l $51515200
dc.w 1,0
dc.l $53175400
dc.w 1,0
dc.l $56515700
dc.w 1,0
dc.l $58a15900
dc.w 1,0
dc.l $5b615c00
dc.w 1,0
dc.l $63916400
dc.w 1,0
dc.l $66536700
dc.w 1,0
dc.l $69246a00
dc.w 1,0
dc.l $72567300
dc.w 1,0
dc.l $76a17700
dc.w 1,0
dc.l $78257900
dc.w 1,0
dc.l $7c667d00
dc.w 1,0
dc.l $81418200
dc.w 1,0
dc.l $86508700
dc.w 1,0
dc.l $88518900
dc.w 1,0
dc.l $8aa08b00
dc.w 1,0
dc.l $8ce58d00
dc.w 1,0
dc.l $93329400
dc.w 1,0
dc.l $95569600
dc.w 1,0
dc.l $970c9800
dc.w 1,0
dc.l $9a609b00
dc.w 1,0
dc.l $9cf29d00
dc.w 1,0
dc.l $a092a100
dc.w 1,0
dc.l $a4c1a500
dc.w 1,0
dc.l $a745a800
dc.w 1,0
dc.l $aa91ab00
dc.w 1,0
dc.l $b122b200
dc.w 1,0
dc.l $b3f1b400
dc.w 1,0
dc.l $b760b800
dc.w 1,0
dc.l $bb69bc00
dc.w 1,0
dc.l $c351c400
dc.w 1,0
dc.l $c5efc600
dc.w 1,0
dc.l $c9b8ca00
dc.w 1,0
dc.l $cd69ce00
dc.w 1,0
dc.l $d356d400
dc.w 1,0
dc.l $d691d700
dc.w 1,0
dc.l $dac4db00
dc.w 1,0
dc.l $e554e600
dc.w 1,0
dc.l $e996ea00
dc.w 1,0
dc.l $ee95ef00
dc.w 1,0
dc.l $f361f400
dc.w 1,0
dc.l $f7e5f800
dc.w 1,0
dc.l $fa05fb00
dc.w 1,0
dc.l $fe56ff00
dc.w 1,0
dc.l 0

ant: dc.w 60    ;numbers of stars
sdir: dc.w 0    ;direction of stars!!