mode7_demo: split out island vs checkerboard flying

gr-sim/bounce.c

@@ -0,0 +1,28 @@
+#include <stdio.h>
+
+int main(int argc, char **argv) {
+
+	double x,v0,g,t,d;
+
+	x=10.0;
+	d=0.0;
+	v0=0;
+	g=-9.8;
+
+#define T	0.01
+
+	for(t=0;t<10;t+=T) {
+
+		x+=v0*T;
+		v0+=g*T;
+
+		if (x<0) v0=-v0;
+
+		printf("%.2f %.2f\n",t,x);
+
+
+
+	}
+
+	return 0;
+}

mode7_demo/mode7.s

@@ -19,8 +19,23 @@ CONST_LOWRES_HALF_F	EQU	$00
 
 	; pre-programmed directions
 
-flying_directions:
-	.byte	$20,$00, $1,'Z', $10,'D', $1,' ', $40,$00, $1,'Q'
+checkerboard_flying_directions:
+	.byte	$18,$00		; 24 frames, do nothing
+	.byte	$10,'D'		; 16 frames, turn right
+	.byte	$10,$00		; 16 frames, do nothing
+	.byte	$f,'A'		; 15 frames, turn left
+	.byte	$10,$00		; 16 frames, do nothing
+	.byte	$1,'Z'		; start moving forward
+	.byte	$20,$00		; 32 frames, do nothing
+	.byte	$1,'Q'		; quit
+
+island_flying_directions:
+	.byte	$20,$00		; 32 frames, do nothing
+	.byte	$1,'Z'		; start moving forward
+	.byte	$10,'D'		; 16 frames, turn right
+	.byte	$1,' '		; stop
+	.byte	$40,$00		; 64 frames, do nothing
+	.byte	$1,'Q'		; quit
 
 	;=====================
 	; Flying
@@ -55,6 +70,7 @@ mode7_flying:
 	sta	DISP_PAGE
 	sta	KEY_COUNT
 	sta	KEY_OFFSET
+	sta	FRAME_COUNT
 
 	lda	#2		; initialize sky both pages
 	sta	DRAW_SKY
@@ -80,10 +96,12 @@ flying_keyboard:
 	bne	done_key
 
 	ldy	KEY_OFFSET
-	lda	flying_directions,Y
+direction_smc_1:
+	lda	island_flying_directions,Y
 	sta	KEY_COUNT
 	iny
-	lda	flying_directions,Y
+direction_smc_2:
+	lda	island_flying_directions,Y
 	sta	LASTKEY
 	inc	KEY_OFFSET
 	inc	KEY_OFFSET
@@ -313,9 +331,30 @@ draw_sphere:
         lda     #<sphere0						; 2
         sta     INL							; 3
 
+	lda	ANGLE
+	lsr
+	tax
+	lda	sphere_offset,X
+
+	clc
+	adc	INL
+	sta	INL
+	lda	#0
+	adc	INH
+	sta	INH
+
 	lda	#17							; 2
 	sta	XPOS							; 3
-	lda	#20							; 3
+
+	lda	FRAME_COUNT
+	and	#$0f
+	tax
+	lda	gravity,X
+	bne	no_click
+	bit	SPEAKER
+no_click:
+	clc
+	adc	#10							; 3
 	sta	YPOS							; 3
 	jsr	put_sprite						; 6
 
@@ -529,6 +568,8 @@ done_draw_spaceship:
 
 	jsr	page_flip						; 6
 
+	inc	FRAME_COUNT
+
 	;==================
 	; loop forever
 	;==================
@@ -1137,5 +1178,11 @@ horizontal_lookup:
 	.byte $A6,$97,$8A,$80,$76,$6E,$68,$61,$5C,$57,$53,$4F,$4B,$48,$45,$42
 	.byte $40,$3D,$3B,$39,$37,$35,$34,$32,$30,$2F,$2E,$2C,$2B,$2A,$29,$28
 
+gravity:
+; 10fps
+;	.byte 10,10,10,10,10, 8, 8, 8, 8, 6, 6, 4, 4, 2, 2, 0
+;	.byte  0, 2, 2, 4, 4, 6, 6, 8, 8, 8, 8,10,10,10,10,10
 
-
+; 5ps
+	.byte 10,10, 8, 8, 6, 4, 2, 0
+	.byte  0, 2, 4, 6, 8, 8, 10,10

mode7_demo/mode7_demo.s

@@ -54,6 +54,14 @@ checkerboard_demo:
 	lda	#>match
 	sta	nomatch+5
 
+	lda	#<checkerboard_flying_directions
+	sta	direction_smc_1+1
+	sta	direction_smc_2+1
+	lda	#>checkerboard_flying_directions
+	sta	direction_smc_1+2
+	sta	direction_smc_2+2
+
+
 	jsr	mode7_flying		; call generic mode7 code
 
 	rts
@@ -81,6 +89,13 @@ island_demo:
 	lda	#$29
 	sta	nomatch+5
 
+	lda	#<island_flying_directions
+	sta	direction_smc_1+1
+	sta	direction_smc_2+1
+	lda	#>island_flying_directions
+	sta	direction_smc_1+2
+	sta	direction_smc_2+2
+
 	jsr	mode7_flying
 
 	rts

mode7_demo/zp.inc

@@ -99,6 +99,7 @@ KEY_COUNT	EQU	$8C
 KEY_OFFSET	EQU	$8D
 DRAW_BLUE_SKY	EQU	$8E
 RANDOM_POINTER	EQU	$8F
+FRAME_COUNT	EQU	$90
 
 SHIPY           EQU     $E4
 
@@ -109,6 +110,7 @@ KEYRESET	EQU	$C010
 CLR80COL	EQU	$C000	; PAGE0/PAGE1 normal
 SET80COL	EQU	$C001	; PAGE0/PAGE1 switches PAGE0 in Aux instead
 EIGHTYCOL	EQU	$C00D
+SPEAKER		EQU	$C030
 SET_GR		EQU	$C050
 SET_TEXT	EQU	$C051
 FULLGR		EQU	$C052