From cd72e91c0d6e95c59206822c2d8decd5f537891f Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 14 May 2023 01:44:14 -0400
Subject: [PATCH] double: update effect

---
 vaporlock/doubledouble/Makefile       |  2 +-
 vaporlock/doubledouble/double.s       |  4 +-
 vaporlock/doubledouble/effect_slide.s | 58 +++++++++++++++++++++++++++
 3 files changed, 62 insertions(+), 2 deletions(-)
 create mode 100644 vaporlock/doubledouble/effect_slide.s

diff --git a/vaporlock/doubledouble/Makefile b/vaporlock/doubledouble/Makefile
index 23573a3a..a2c95936 100644
--- a/vaporlock/doubledouble/Makefile
+++ b/vaporlock/doubledouble/Makefile
@@ -31,7 +31,7 @@ double.o:	double.s \
 	interrupt_handler.s pt3_lib_mockingboard_patch.s \
 	wait_a_bit.s wait.s pt3_lib_init.s \
 	music/fighting.zx02 \
-	effect_static.s \
+	effect_static.s effect_slide.s \
 	graphics/sworg_hgr.hgr.zx02 \
 	graphics/sworg_dhgr.aux.zx02 \
 	graphics/sworg_dhgr.bin.zx02 \
diff --git a/vaporlock/doubledouble/double.s b/vaporlock/doubledouble/double.s
index 2393ce67..21c52f38 100644
--- a/vaporlock/doubledouble/double.s
+++ b/vaporlock/doubledouble/double.s
@@ -434,7 +434,8 @@ vblank_smc:
 	jsr	$ffff
 
 
-	.include "effect_static.s"
+;	.include "effect_static.s"
+	.include "effect_slide.s"
 
 
 	jmp	double_loop	; 3
@@ -473,6 +474,7 @@ wait_until_keypress:
 	lda	KEYBOARD
 	bpl	wait_until_keypress
 	bit	KEYRESET
+delay_12:
 	rts
 
 
diff --git a/vaporlock/doubledouble/effect_slide.s b/vaporlock/doubledouble/effect_slide.s
new file mode 100644
index 00000000..a07617d3
--- /dev/null
+++ b/vaporlock/doubledouble/effect_slide.s
@@ -0,0 +1,58 @@
+; 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
+
+	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
+
+	sta	LORES
+	sta	PAGE1
+	sta	SET80COL
+	sta	CLRAN3
+	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	HIRES
+	ldx	#60		; 2
+cloop:
+	jsr	delay_12	; 12
+	jsr	delay_12	; 12
+	jsr	delay_12	; 12
+	jsr	delay_12	; 12
+	jsr	delay_12	; 12
+	dex			; 2
+	bne	cloop		; 2/3
+
+
+
+
+
+
+
+
+