double: switching between effects

vaporlock/doubledouble/double.s

@@ -232,6 +232,19 @@ double_loop:
 	inc	FRAMEH
 frame_no_oflo:
 
+	lda	FRAMEH
+	lsr
+	and	#$7
+	tax
+	lda	middle_table1,X
+	sta	middle_smc1+1
+	lda	middle_table2,X
+	sta	middle_smc2+1
+	lda	middle_table3,X
+	sta	middle_smc3+1
+	lda	middle_table4,X
+	sta	middle_smc4+1
+
 	;====================
 	; play music
 	;  in theory should be less than the 4550 cycles we have
@@ -250,11 +263,6 @@ no_music_for_you:
 vblank_smc:
 	jsr	$ffff
 
-
-;	.include "effect_static.s"
-;	.include "effect_dhgr_hgr.s"
-;	.include "effect_midline.s"
-
 	jsr	effect_dhgr_dgr
 
 	jmp	double_loop	; 3
@@ -357,3 +365,26 @@ sin_table:
 
 fighting_zx02:
 .incbin "music/fighting.zx02"
+
+; 0 = DGR page1
+; 1 = 40 Column TEXT page2
+; 2 = HGR page2
+; 3 = 80 Column TEXT page1
+; 4 = ?? page 1
+; 5 = LO-RES page1
+; 6 = ??
+; 7 = double hi-res
+
+middle_table1:
+	.byte	<LORES,<SET_TEXT,<HIRES,<SET_TEXT
+	.byte	<HIRES,<LORES,<HIRES,<HIRES
+middle_table2:
+	.byte	<SET80COL,<CLR80COL,<CLR80COL,<SET80COL
+	.byte	<SET80COL,<SET80COL,<CLR80COL,<SET80COL
+middle_table3:
+	.byte	<CLRAN3,<SETAN3,<SETAN3,<SETAN3
+	.byte	<SETAN3,<SETAN3,<CLRAN3,<CLRAN3
+middle_table4:
+	.byte	<PAGE1,<PAGE2,<PAGE2,<PAGE1
+	.byte	<PAGE1,<PAGE1,<PAGE2,<PAGE1
+

vaporlock/doubledouble/effect_dhgr_dgr.s

@@ -1,4 +1,4 @@
-; double hi-res / double lo-res
+; double hi-res with configuratble sliding window
 
 ; show dhgr image on page1
 ;	show sliding 32-line window of dgr page 1
@@ -34,10 +34,16 @@ aloop_24:
 	;==========================
 				; -1
 	ldx	#32		; 2
+middle_smc1:
 	sta	LORES		; 4
-	sta	PAGE1		; 4
+middle_smc2:
 	sta	SET80COL	; 4
+middle_smc3:
 	sta	CLRAN3		; 4
+middle_smc4:
+	sta	PAGE1		; 4
+
+
 ; 17
 	nop
 	nop
@@ -80,13 +86,12 @@ bloop_24:
 effect_bottom_smc:		; -1
 	ldx	#60		; 2
 
+	bit	SET_GR		; 4
 	bit	HIRES		; 4
 	sta	CLRAN3		; 4
 	sta	SET80COL	; 4
 	bit	PAGE1		; 4
-; 17
-	nop			; 2
-	nop			; 2
+; 21
 	jmp	cloop_plus_24	; 3
 
 cloop:

vaporlock/doubledouble/setup_graphics.s

@@ -152,8 +152,8 @@ stringing_done:
 eloop:
 	lda	#' '+$80
 	sta	$800,X		; line 0
-	sta	$880,X		; line 1
-	sta	$900,X		; line 2
+;	sta	$880,X		; line 1
+;	sta	$900,X		; line 2
 	dex
 	bpl	eloop
 

vaporlock/doubledouble/title.s

@@ -33,7 +33,7 @@ title_loop:
 	rts
 
 title_text:
-.byte  0, 0,"LOADING DOUBLE V1.00 (13 MAY 2023)",0
+.byte  0, 0,"LOADING DOUBLE V1.00 (15 MAY 2023)",0
 .byte  0, 3,"  ART  : BASED ON PIC BY @helpcomputer0",0
 .byte  0, 5,"  MUSIC: N. UEMATSU",0
 .byte  0, 8,"                     ",0