;C prototype: void DrawSmallShadowBlock (short x, short y, void *dest);
;
;void DrawSmallShadowBlock (register short x asm("%d0"),
;		 	    register short y asm("%d1"),
;			    register void *dest asm("%a0"));

	xdef _DrawSmallShadowBlock

_DrawSmallShadowBlock:
	move.w	d3,-(a7)    	
    	add.w	d1,d1
    	add.w	d1,d1
	move.w	d1,d3
	lsl.w	#3,d3
	sub.w	d1,d3

    	lsr.w    #3,d0

    	add.w    d0,d3
    	adda.w   d3,a0
    	
	moveq.l	 #6,d2
\bcl_draw_shadow:
	move.b	 (a0),d0
	move.b   3724(a0),d1
	
	;lightplane
	move.b	 d0,d3
	not.b	 d3
	or.b	 d1,d3
	move.b	 d3,(a0)
	
	;darkplane
	or.b	 d0,d1
	move.b   d1,3724(a0)
	lea.l	 28(a0),a0
	dbf.s	 d2,\bcl_draw_shadow	
	
	move.w	 (a7)+,d3
	rts