X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fcortexelf-v1%2Fao_cortexelf.c;h=6bc2624fb06e1a006ff1f1c92a8b77b6ff099bd1;hb=2de8922b505f0358a36933721fbddf6a9ef7e9a4;hp=1dc0a4be0180fc0d33f8784e9ca1e07abe9d4174;hpb=1f5f0638f283fbb784021873c649109d4ed0257c;p=fw%2Faltos

diff --git a/src/cortexelf-v1/ao_cortexelf.c b/src/cortexelf-v1/ao_cortexelf.c
index 1dc0a4be..6bc2624f 100644
--- a/src/cortexelf-v1/ao_cortexelf.c
+++ b/src/cortexelf-v1/ao_cortexelf.c
@@ -27,7 +27,12 @@
 #include <ao_console.h>
 #include <ao_sdcard.h>
 #include <ao_fat.h>
-#include <ao_lisp.h>
+#include <ao_scheme.h>
+#include <ao_button.h>
+#include <ao_event.h>
+#include <ao_as1107.h>
+#include <ao_hex.h>
+#include <ao_1802.h>
 
 struct ao_task ball_task;
 
@@ -183,19 +188,62 @@ ao_console_send(void)
 	}
 }
 
-static void lisp_cmd() {
-	ao_lisp_read_eval_print();
+static void scheme_cmd() {
+	ao_scheme_read_eval_print();
 }
 
-__code struct ao_cmds ao_demo_cmds[] = {
+static void
+ao_serial_blather(void)
+{
+	char c;
+
+	while ((c = getchar()) != '~') {
+		ao_serial1_putchar(c);
+		ao_serial2_putchar(c);
+	}
+}
+
+static void
+led_cmd(void)
+{
+	uint8_t	start;
+	uint8_t value;
+	ao_cmd_decimal();
+
+	start = ao_cmd_lex_i;
+	ao_cmd_hex();
+	value = ao_cmd_lex_i;
+	if (ao_cmd_status != ao_cmd_success)
+		return;
+	ao_as1107_write_8(start, value);
+}
+
+const struct ao_cmds ao_demo_cmds[] = {
 	{ ao_video_toggle, "V\0Toggle video" },
 	{ ao_ball_toggle, "B\0Toggle ball" },
 	{ ao_ps2_read_keys, "K\0Read keys from keyboard" },
 	{ ao_console_send, "C\0Send data to console, end with ~" },
-	{ lisp_cmd, "l\0Run lisp interpreter" },
+	{ ao_serial_blather, "S\0Blather on serial ports briefly" },
+	{ scheme_cmd, "l\0Run scheme interpreter" },
+	{ led_cmd, "L start value\0Show value (byte) at digit start" },
 	{ 0, NULL }
 };
 
+static struct ao_task event_task;
+
+static void
+ao_event_loop(void)
+{
+	for (;;) {
+		struct ao_event	ev;
+
+		ao_event_get(&ev);
+		printf("type %d uint %d tick %d value %d\n",
+		       ev.type, ev.unit, ev.tick, ev.value);
+		flush();
+	}
+}
+
 int
 main(void)
 {
@@ -224,9 +272,18 @@ main(void)
 
 	ao_usb_init();
 
+	ao_button_init();
+
+	ao_as1107_init();
+	ao_matrix_init();
+	ao_1802_init();
+
+	ao_hex_init();
+
 	ao_config_init();
 
 	ao_add_task(&ball_task, ao_ball, "ball");
+	ao_add_task(&event_task, ao_event_loop, "events");
 	ao_cmd_register(&ao_demo_cmds[0]);
 
 	ao_start_scheduler();