double: closer

vaporlock/doubledouble/double.s

@@ -222,6 +222,11 @@ skip_all_checks:
 
 .include "setup_graphics.s"
 
+	;=================================
+	; midline first, no music
+	;=================================
+
+.include "effect_midline.s"
 
 	;=================================
 	; main static loop

vaporlock/doubledouble/effect_midline.s

@@ -1,18 +1,101 @@
-; goal
-;
-;	192 lines
-;	window is 32 lines
-;		so 0...current
-;		current...current+32
-;		current+32...192
-; double hi-res / double lo-res
+effect_midline:
 
-; test, 100 lines of double-hires
-;	100*65 = 6500
+	lda	#7
+	sta	XX
 
-	; 2+ X*(12+2+3) - 1
+outer_outer_loop:
+	ldy	#120
 
-effect_top_smc:
+
+	; comes in with 4
+outer_loop:
+
+	ldx	#192		; 2
+; 6
+	lda	$00	; nop 3	; 3
+; 9
+	jmp	skip_nop
+; 12
+
+inner_loop:
+
+	nop			; 2
+	nop			; 2
+	nop			; 2
+	nop			; 2
+
+
+; 8
+
+	; set text
+	sta	LORES		; 4
+skip_nop:
+	sta	SET_TEXT	; 4
+	sta	SETAN3		; 4
+	sta	CLR80COL	; 4
+	bit	PAGE1		; 4
+
+; 28
+
+	jsr	delay_12	; 12
+
+; 40
+
+	; set double-hires
+	sta	SET_GR		; 4
+	sta	HIRES		; 4
+	sta	CLRAN3		; 4
+	sta	SET80COL	; 4
+	bit	PAGE2		; 4
+
+; 60
+
+	dex			; 2
+; 62
+	bne	inner_loop	; 2/3
+; 65
+
+				; -1
+	dey			; 2
+	bne	outer_loop	; 3
+
+	dec	XX
+	bne	outer_outer_loop
+
+
+
+.if 0
+; black and white
+
+	; set double-hires
+	sta	SET_GR		; 4
+	sta	HIRES		; 4
+	sta	CLRAN3		; 4
+	sta	SET80COL	; 4
+	bit	PAGE2		; 4
+; 20
+	jsr	delay_12
+; 32
+	; set text
+	sta	LORES		; 4
+	sta	SET_TEXT	; 4
+	sta	SETAN3		; 4
+	sta	CLR80COL	; 4
+	bit	PAGE1		; 4
+; 52
+
+	nop
+	nop
+	nop
+	nop
+	nop
+; 62
+	jmp	effect_midline	; 3
+; 65
+.endif
+
+
+.if 0
 
 	ldx	#192		; 2
 qloop:
@@ -32,13 +115,5 @@ qloop:
 	dex			; 2
 ; 62
 	bne	qloop		; 2/3
-
-
-
-
-
-
-
-
-
+.endif
 

vaporlock/doubledouble/hello.bas

@@ -1,4 +1,5 @@
 5 HOME
 10 PRINT CHR$(4);"CATALOG"
+15 PRINT:PRINT "LOADING DOUBLE..."
 20 PRINT CHR$(4);"BRUN DOUBLE"
 

vaporlock/doubledouble/title.s

@@ -20,7 +20,7 @@ show_title:
 
 	; print the text
 
-	ldx	#7
+	ldx	#10
 title_loop:
 
 	jsr	move_and_print
@@ -37,6 +37,9 @@ title_text:
 .byte  0, 3,"  ART  : BASED ON PIC BY @helpcomputer0",0
 .byte  0, 5,"  MUSIC: N. UEMATSU",0
 .byte  0, 8,"                     ",0
+.byte  0,12,"DON'T DESPAIR EMULATOR WRITERS",0
+.byte  0,13,"   THE STARTING MID-LINE EFFECT",0
+.byte  0,14,"   IS NON-DETERMINISTIC (VBLANK INEXACT)",0
 .byte  0,16,"        ______",0
 .byte  0,17,"      A \/\/\/ SOFTWARE PRODUCTION",0
 .byte  0,19,"  HTTP://WWW.DEATER.NET/WEAVE/VMWPROD",0