;C prototype: void DrawScreenShadow (void *dest);
;
;void DrawScreenShadow (register void *dest asm("%a0"));

	xdef DrawScreenShadow

DrawScreenShadow:
	move.l	 d3,-(a7)
	lea	 242(a0),a0
	moveq.l	 #6,d2

	moveq.l	 #0,d3
	moveq.l	 #0,d1
	
	;move.l	 (a0),d0
	;move.l	 6000(a0),d1
	
	;lightplane
	;move.l	 d0,d3
	;not.l	 d3
	;or.l	 d1,d3
	
	;darkplane
	;or.l	 d0,d1
	
;Gris clair
\bcl_shad_up:
	;Shadow
	move.l	 (a0),d0
	move.l	 6000(a0),d1
	
	;Shadow lightplane
	move.l	 d0,d3
	not.l	 d3
	or.l	 d1,d3
	
	;Shadow darkplane
	or.l	 d0,d1
	
	;lightplane
	move.l  d3,(a0)+
	move.l  d3,(a0)+
	move.l  d3,(a0)+
	move.l  d3,(a0)+
	move.l  d3,(a0)+
	move.l  d3,(a0)+
	ror.l	#8,d3
	move.b	d3,(a0)
	
	;darkplane
	lea	6000-6*4(a0),a0
	move.l  d1,(a0)+
	move.l  d1,(a0)+
	move.l  d1,(a0)+
	move.l  d1,(a0)+
	move.l  d1,(a0)+
	move.l  d1,(a0)+
	ror.l	#8,d1
	move.b	d1,(a0)
	
	lea	6-6000(a0),a0
	dbf	d2,\bcl_shad_up
	move.l	(a7)+,d3
	rts