move.l	screen_a_ptr,a2
	add.l	#160*68,a2
	MOVE.L	#tiles_image+34,a0
	move.l	#tile_table,a6
	move.w	tile_count,d0
	lsl.w	#1,d0
	add.w	d0,a6
	add.w	(a6),a0

	move.l	#2-1,d7
.blit_plane
	move.l	#SOURCE_X_INC,a1
	move.w	#8,(a1)+				;Source X Inc: Number of bytes to reach next word to copy
	move.w	#8,(a1)+			;Source Y Inc, number of bytes until next LINE to copy
	move.l	a0,(a1)+			;Source Address - Where to copy FROM
	move.w	#-1,(a1)+			;Endmask 1
	move.w	#-1,(a1)+			;Endmask 2
	move.w	#-1,(a1)+			;Endmask 3
	move.w	#8,(a1)+			;Dest X Inc, how many bytes until next word to write
	move.w	#8,(a1)+			;Dest Y inc, number of bytes until next line
	move.l	a2,(a1)+			;Dest Address, where to copy the data TO
	move.w	#40,(a1)+			;How many words to copy per line
	move.w	#48,(a1)+			;How many lines to copy
	move.b	#2,(a1)+			;Set HOP Setting
	move.b	#3,(a1)+			;Set OP Setting
	move.b	#0,SKEW_REG			;No skew needed
	move.b	#128+64,CONTROL_REG		;Set Blitter to HOG Mode
	add.w	#2,a0
	add.w	#2,a2				;Next plane of both data and screen
	dbf	d7,.blit_plane			;Number of planes

	add.w	#1,tile_count

	rts