		csect	program

		xdef	@qblit

*
* Copy the zoomed array onto the screen
*
* void
* qblit(short *screen, void *zoomed, short width)
*
* Lattice requires that functions preserve d2-d7/a2-6
*
@qblit
		swap.w	d0
		clr.w	d0
		swap.w	d0
		sub.l	#12,d0		After each line, we need to add width - 12
		move.w	#127,d1		128 lines to copy
doline
		move.l	(a1)+,(a0)+
		move.l	(a1)+,(a0)+
		move.l	(a1)+,(a0)+
		move.l	(a1)+,(a0)
		adda.l	d0,a0		Down one line and back to the start of the line
		dbra	d1,doline

		rts

		end

* End of qblit.s
