(bunnymark) Conserve bun energy on y-bounce.

projects/examples/demos/bunnymark.tal

@@ -86,22 +86,25 @@ BRK
 	[ LDA2k ] #05 SFT2 #0008 ADD2 [ .Screen/width DEI2 ] LTH2 ,&skip-max-x JCN
 	[ DUP2 #0004 ADD2 LDA2 ] #ffff MUL2 [ OVR2 #0004 ADD2 STA2 ]
 	&skip-max-x
+	( check for left wall collision + bounce x )
+	[ LDA2k ] #0f SFT2 #0000 EQU2 ,&skip-min-x JCN
+	[ DUP2 #0004 ADD2 LDA2 ] #ffff MUL2 [ OVR2 #0004 ADD2 STA2 ]
+	&skip-min-x
 	( check for bottom wall collision + bounce y )
 	[ DUP2 #0006 ADD2 LDA2 ] #0f SFT2 #0001 EQU2 ,&skip-max-y JCN
 	[ INC2k INC2 LDA2 ] #05 SFT2 #0008 ADD2 [ .Screen/height DEI2 ] LTH2 ,&skip-max-y JCN
 	[ DUP2 #0006 ADD2 LDA2 ] #ffff MUL2 [ OVR2 #0006 ADD2 STA2 ]
+	,&skip-gravity JMP
 	&skip-max-y
-	( check for left wall collision + bounce x )
-	[ LDA2k ] #0f SFT2 #0000 EQU2 ,&skip-min-x JCN
-	[ DUP2 #0004 ADD2 LDA2 ] #ffff MUL2 [ OVR2 #0004 ADD2 STA2 ]
-	&skip-min-x
 	( check for top wall collision + bounce x )
 	[ INC2k INC2 LDA2 ] #0f SFT2 #0000 EQU2 ,&skip-min-y JCN
 	[ DUP2 #0006 ADD2 LDA2 ] #ffff MUL2 [ OVR2 #0006 ADD2 STA2 ]
+	,&skip-gravity JMP
 	&skip-min-y
 
 	( apply gravity )
 	[ DUP2 #0006 ADD2 LDA2 ] #0004 ADD2 OVR2 #0006 ADD2 STA2
+	&skip-gravity
 
 	( draw the sprite )
 	( top )