implement routing + storei instruction

[clump.git] / blink.pl

diff --git a/blink.pl b/blink.pl
new file mode 100644 (file)
index 0000000..9aac0fe
--- /dev/null
+++ b/blink.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use v5.14;
+use warnings;
+use lib '.';
+
+use asm;
+
+for (1 .. 3) {
+       ledi 1;
+       ledi 2;
+       ledi 4;
+       ledi 8;
+}
+nop;
+nop;
+nop;
+nop;