include "includes.i"

	xdef SwitchBuffers
		
SwitchBuffers:
	;; offscreen - bitplane address
	movem.l	d0/a0-a1,-(sp)
	move.l	offscreen,a0
	move.l	onscreen,offscreen
	move.l	a0,onscreen
	moveq.l	#0,d0
	move.l	a0,a1
	lea 	copperListBplPtr,a0
	jsr	PokeBitplanePointers
	movem.l (sp)+,d0/a0-a1
	rts

PokeBitplanePointers:
	; d0 = frame offset in bytes
	; a0 = BPLP copper list address
	; a1 = bitplanes pointer
	movem.l	d0-a6,-(sp)
	add.l	d0,a1 ; Offset for odd/even frames
	moveq	#SCREEN_BIT_DEPTH-1,d0
.bitplaneloop:
	move.l 	a1,d1
	move.w	d1,2(a0)
	swap	d1
	move.w  d1,6(a0)
	lea	SCREEN_WIDTH_BYTES(a1),a1
	addq	#8,a0
	dbra	d0,.bitplaneloop
	movem.l (sp)+,d0-a6
	rts