; **** Turn ****
; (C)1988 by Brian Postma
; J.v.Hartenstraat 51
; 7576 VX Oldenzaal (NL)
; Tel:05410-14763

start:	move.l		4,a0
	move.l		(a0),a0		;get gfxbase
 	move.l		(a0),a0		;from execbase
	move.l		a0,gfxbase
	move.l		$32(a0),oldcop	;save old copper list
	move.l		#newcop,$32(a0)	;that's my copperlist
	move.l		(a0),a0		;get intuitionbase from
	move.l		(a0),a0		;gfxbase
	move.l		56(a0),a0	;pointer to firstscreen
	move.l		192(a0),d0	;bitplanes from screen
	add.l		#20400,d0	;to end of bitplane
	move.w		d0,lo1		;in copperlist
	swap		d0
	move.w		d0,hi1
	move.l		196(a0),d0	;second bitplane
	add.l		#20400,d0	;to end
	move.w		d0,lo2		;also in copperlist
	swap		d0
	move.w		d0,hi2
wait:	btst		#7,$bfe001	;joystick button pressed
	bne		wait		;no ??
	move.l		gfxbase,a0	;restore old
	move.l		oldcop,$32(a0)	;copperlist
	clr.l		d0		;no error
	rts				;Bye
oldcop:	dc.l		0
gfxbase: dc.l		0
newcop:	dc.w	$0108,-160,$010a,-160,$100,$a000
	dc.w	$92,$38,$94,$d0,$8e,$2981,$90,$29c8,$e0
hi1: 	dc.w	0,$e2
lo1:	dc.w	0,$e4
hi2:	dc.w	0,$e6
lo2:	dc.w	0,$ffff,$fffe