Lea	Sprite0(pc),a0
	Move.w	XPos(pc),d0
	Move.w	YPos(pc),d1

	Move.b	d0,d2
	And.b	#1,d2
	Lsr.w	#1,d0
	Btst	#8,d1
	Beq	NoSetBit1
	Or.b	#%100,d2
NoSetBit1	Move.b	d1,(a0)+
	Move.b	d0,(a0)+
	Add.w	#9,d1
	Btst	#8,d1
	Beq	NoSetBit2
	Or.b	#%10,d2
NoSetBit2	Move.b	d1,(a0)+
	Move.b	d2,(a0)
	Rts

XPos	Dc.w	0
YPos	Dc.w	0

Sprite0	Dc.w	0,0,0,0