PutSpr:			;put AT sprite. a0=sprdef(X.w,Y.w,H.w,Ptr.L,CopPtr.L)
	movem.w (a0)+,d0-d2
	move.l (a0)+,a1
	add.w #$38*2+16,d0
	add.w #$28,d1
	moveq #$ffffff80,d3		;(only byte used)
	cmp.w #256,d1
	blt.s .NoE8
	addq.b #4,d3
.NoE8:	move.b d1,(a1)+
	lsr.w #1,d0
	bcc.s .NoH0
	addq.b #1,d3
.NoH0:	move.b d0,(a1)+
	add.w d2,d1
	cmp.w #256,d1
	blt.s .NoL8
	addq.b #2,d3
.NoL8:	move.b d1,(a1)+
	move.b d3,(a1)+
	add.w d2,d2
	add.w d2,d2			;hgt*4=spritesize
	lea 4(a1,d2.w),a2		;skip ctrl.L (auto) & end0.L
	move.l -(a1),(a2)		;set 2nd AT-sprite ctrlword
	move.l a1,d3
	move.l (a0)+,a1			;copptr
	move.w d3,4(a1)
	swap d3
	move.w d3,(a1)
	move.l a2,d3
	move.w d3,12(a1)
	swap d3
	move.w d3,8(a1)
	RTS