; goal
;
;	192 lines
;	window is 32 lines
;		so 0...current
;		current...current+32
;		current+32...192
; double hi-res / double lo-res

; test, 100 lines of double-hires
;	100*65 = 6500

	; 2+ X*(12+2+3) - 1

effect_top_smc:
	ldx	#100		; 2
aloop:
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	dex			; 2
	bne	aloop		; 2/3

	; return to regular hi-res

	sta	SETAN3		; leave double mode
	sta	CLR80COL	; leave 80-col mode
	bit	PAGE2

	ldx	#32		; 2
bloop:
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	dex			; 2
	bne	bloop		; 2/3


	bit	SET_GR
	bit	HIRES
	sta	CLRAN3		; enable double mode
	sta	SET80COL	; enable 80-column mode
	bit	PAGE1
effect_bottom_smc:
	ldx	#60		; 2
cloop:
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	jsr	delay_12	; 12
	inx			; 2
	cpx	#192
	bcs	cloop		; 2/3