CUBE


mySprite
	dc.w	%0000000000000001
	dc.w	%0000000000000010
	dc.w	%0000000000000100
	dc.w	%0000000000001000
	dc.w	%0000000000010000
	dc.w	%0000000000100000
	dc.w	%0000000001000000
	dc.w	%0000000010000000
	dc.w	%0000000100000000
	dc.w	%0000001000000000
	dc.w	%0000010000000000
	dc.w	%0000100000000000
	dc.w	%0001000000000000
	dc.w	%0010000000000000
	dc.w	%0100000000000000
	dc.w	%1000000000000000


myTilingSprite
	lea		mySprite,a0
	move.w	(a0),d0				;
	move.w	d0,d1
	move.w	d0,d1				; save d0
	roxr.w	d1					; shift bit out
	roxr.w	d0					; shift bit in

	; now tile d0
.y set .y
	REPT 200
.x set .y
		REPT 20
			or.w	d0,.x
.x set .x+8
		ENDR
	ENDR