double: update effect

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 \

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
 
 

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
+
+
+
+
+
+
+
+
+