;=========================================================
	; hgr copy from $2000 to $4000
	;=========================================================
	; copy $2000 to $4000

	; intentionally slow for the miniblind effect

hgr_copy:
	ldy	#0		; start at beginning
	sty	INL
	sty	OUTL

	lda	#$20
	sta	INH
	lda	#$40
	sta	OUTH


;	ldy	#0
hgr_copy_outer:

hgr_copy_inner:
	lda	#1			; artificial slowdown
	jsr	wait

	lda	(INL),Y
	sta	(OUTL),Y
	iny
	bne	hgr_copy_inner

	inc	INH
	inc	OUTH
	lda	OUTH
	cmp	#$60
	bne	hgr_copy_outer

	rts