More robust midi implementation

2026-01-31 23:58:57 +01:00
parent 15a4300db5
commit 2100b82dad
12 changed files with 393 additions and 201 deletions
--- a/crates/forth/src/words.rs
+++ b/crates/forth/src/words.rs
@@ -2396,11 +2396,21 @@ pub const WORDS: &[Word] = &[
        aliases: &[],
        category: "MIDI",
        stack: "(cc chan -- val)",
-        desc: "Read CC value 0-127 from MIDI input",
+        desc: "Read CC value 0-127 from MIDI input (uses dev param for device)",
        example: "1 1 ccval",
        compile: Simple,
        varargs: false,
    },
+    Word {
+        name: "dev",
+        aliases: &[],
+        category: "MIDI",
+        stack: "(n --)",
+        desc: "Set MIDI device slot 0-3 for output/input",
+        example: "1 dev 60 note m.",
+        compile: Param,
+        varargs: false,
+    },
 ];

 pub(super) fn simple_op(name: &str) -> Option<Op> {