#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;
}
}
-static void lisp_cmd() {
- ao_lisp_read_eval_print();
+static void scheme_cmd() {
+ ao_scheme_read_eval_print();
}
static void
}
}
+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);
+}
+
__code 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 ~" },
{ ao_serial_blather, "S\0Blather on serial ports briefly" },
- { lisp_cmd, "l\0Run lisp interpreter" },
+ { scheme_cmd, "l\0Run scheme interpreter" },
+ { led_cmd, "L start value\0Show value (byte) at digit start" },
{ 0, NULL }
};
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");