s:		lea		$6ffa0,a0
		move.l		#$fffe,d0	;7680
sloop:		move.b		#0,(a0)+
		dbra		d0,sloop

		move.w		#2559,d0
		lea		sinus,a0
		move.l		#$73000,a1
loop3:		move.b		(a0)+,(a1)+
		dbf		d0,loop3

		move.l		4,a6
		lea		gfxnam,a1
		jsr		-408(a6)
		move.l		d0,gfxbas
		jsr		-132(a6)
		move.w		#$00a0,$dff096
		move.l		50(a0),oldcop
		move.l		#clist,50(a0)
		move.w		#$8080,$dff096

loop:		btst		#6,$bfe001
		beq.L		exit
rast1:		cmp.b		#$40,$dff006
		bne.s		rast1
		jsr		spritetale
		bra.L		loop

exit:		move.l		gfxbas,a0
		move.w		#$00a0,$dff096
		move.l		oldcop,50(a0)
		move.w		#$80a0,$dff096
		clr.l		d0
		rts

sinus:	
	blk.b	02560,0

;	org	$47000
;	load	$47000

SPRITETALE:
	move.b spd_x1	,d0
	add.b d0	,sinex1+3	 
	move.b spd_x2	,d0
	add.b d0	,sinex3+3
	move.b spd_x3	,d0
	add.b d0	,sinex5+3
	move.b spd_y1	,d0
	add.b d0	,siney1+3
	move.b spd_y2	,d0
	add.b d0	,siney3+3
	move.b spd_y3	,d0
	add.b d0	,siney5+3
	move.l sinex1	,sinex2
	move.l sinex3	,sinex4
	move.l sinex5	,sinex6
	move.l siney1	,siney2
	move.l siney3	,siney4
	move.l siney5	,siney6

	lea.l $73200	,a0		; spritelocation y
	lea.l $73201	,a1		; spritelocation x
	move.b #$08	,spr_nr		; number of sprites
	move.b add_x1	,d3
	move.b add_x2	,d4
	move.b add_x3	,d0

	move.b add_y1	,d5
	move.b add_y2	,d6
	move.b add_y3	,d7
spr_loop:
	add.b d3	,sinex2+3
	add.b d4	,sinex4+3
	add.b d0	,sinex6+3
	add.b d5	,siney2+3
	add.b d6	,siney4+3
	add.b d7	,siney6+3

	move.l siney2	,a2
	move.b (a2)	,d1
	move.l siney4	,a2
	move.b (a2)	,d2
	add.b d2	,d1
	move.l siney6	,a2
	move.b (a2)	,d2
	add.b d2	,d1

	add.b #$22	,d1
	move.b d1	,(a0)
	add.l #$02	,a0		
	add.b #$15	,d1		; sprite height
	move.b d1	,(a0)
	sub.l #$02	,a0

	move.l sinex2	,a2
	move.b (a2)	,d1
	move.l sinex4	,a2
	move.b (a2)	,d2
	add.b d2	,d1
	move.l sinex6	,a2
	move.b (a2)	,d2
	add.b d2	,d1
	move.l d1	,d2
	lsr.b #$01	,d1
	add.b #$4a	,d1
	move.b d1	,(a1)
	and.b #1	,d2
	add.l #$02	,a1
	move.b d2	,(a1)
	sub.l #$02	,a1

	add.l #$00f0	,a0		
	add.l #$00f0	,a1	; MEMORY SPACE FOR EACH SPRITE	
	subq.b #$01	,spr_nr
	bne spr_loop
	rts

spr_nr:	dc.b $00
	even

*****************
* WORK POINTERS *
*****************
spd_x1:		dc.b $03
spd_x2:		dc.b $04
spd_x3:		dc.b $02
spd_y1:		dc.b $fd
spd_y2:		dc.b $03
spd_y3:		dc.b $02
add_x1:		dc.b $0e
add_x2:		dc.b $09
add_x3:		dc.b $eb
add_y1:		dc.b $07
add_y2:		dc.b $ed
add_y3:		dc.b $0c

SINEx1:		dc.l $73000	
SINEx2:		dc.l $73000
SINEx3:		dc.l $73000
SINEx4:		dc.l $73000
SINEx5:		dc.l $73000 
SINEx6:		dc.l $73000
SINEy1:		dc.l $73100
SINEy2:		dc.l $73100
SINEy3:		dc.l $73100	
SINEy4:		dc.l $73100
SINEy5:		dc.l $73100	
SINEy6:		dc.l $73100

;********************
;*   COPPER LISTE   *  
;********************


clist:
	dc.w	$0013,$ff10
	dc.w	$0096,$80a0
	dc.w	$0180,$0000
	dc.w	$008e,$1073		
	dc.w	$0092,$0038
	dc.w	$0094,$00d0
	dc.w	$01a2,$000f,$01a4,$000b,$01a6,$0007	; spr col 1-2
	dc.w	$01aa,$000e,$01ac,$000a,$01ae,$0006	; spr col 3-4
	dc.w	$01b2,$000d,$01b4,$0009,$01b6,$0005	; spr col 5-6
	dc.w	$01ba,$000c,$01bc,$0008,$01be,$0004	; spr col 7-8
        dc.w	$0120,$0007,$0122,$3200			; pointers 1-8
        dc.w	$0124,$0007,$0126,$32f0
	dc.w	$0128,$0007,$012a,$33e0
        dc.w	$012c,$0007,$012e,$34d0
        dc.w	$0130,$0007,$0132,$35c0
        dc.w	$0134,$0007,$0136,$36b0
        dc.w	$0138,$0007,$013a,$37a0
	dc.w	$013c,$0007,$013e,$3890
	dc.w	$0100,$1200
	dc.w	$00e0,$0007,$00e2,$4000
	dc.w	$ffff,$fffe			;Slut på copperlist.

gfxnam:	dc.b	'graphics.library',0
	even
gfxbas:	dc.l	0
oldcop:	dc.l	0