From bfbe169364a3dd778493ff4d1963c7531172d2fb Mon Sep 17 00:00:00 2001
From: Michael Martin <mcmartin@gmail.com>
Date: Wed, 14 May 2014 23:03:52 -0700
Subject: [PATCH] Range-check inputs on kinematics example

---
 examples/kinematics.oph | 34 ++++++++++++++++++++++++++++++++--
 1 file changed, 32 insertions(+), 2 deletions(-)

diff --git a/examples/kinematics.oph b/examples/kinematics.oph
index 7bc6115..ff00c46 100644
--- a/examples/kinematics.oph
+++ b/examples/kinematics.oph
@@ -1,16 +1,44 @@
 .include "../platform/c64header.oph"
 .include "../platform/c64kernal.oph"
 
-	`print_str angle_prompt
+*	`print_str angle_prompt
 	jsr	get_num
+	`fp_store theta
+
+	;; Range-check result: 1-90
+	`fp_subtract f_1
+	jsr	fac1_sign
+	cmp	#$ff
+	beq	-
+
+	`fp_load theta
+	`fp_subtract f_90
+	jsr	fac1_sign
+	cmp	#$01
+	beq	-
+
+	;; Range check passes, convert to radians
+	`fp_load theta
 	`fp_multiply f_pi
 	`fp_divide f_180
 	`fp_store theta
 
-	`print_str speed_prompt
+*	`print_str speed_prompt
 	jsr	get_num
 	`fp_store speed
 
+	;; Range-check result: 1-100
+	`fp_subtract f_1
+	jsr	fac1_sign
+	cmp	#$ff
+	beq	-
+
+	`fp_load speed
+	`fp_subtract f_100
+	jsr	fac1_sign
+	cmp	#$01
+	beq	-
+
 	`fp_load theta
 	jsr	sin_fac1
 	`fp_multiply speed
@@ -69,6 +97,8 @@ height_1:
 
 f_0_125: .byte 126,0,0,0,0
 f_9_8:	.byte 132,28,204,204,204
+f_90:	.byte 135,52,0,0,0
+f_100:	.byte 135,72,0,0,0
 f_180:	.byte 136,52,0,0,0
 
 get_num: