X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=blink.pl;fp=blink.pl;h=9aac0fe0a60141baf1c979d541fe26a9949b4dcf;hb=7f1b6bd9e0070ddc074215defc46d64abef645ac;hp=0000000000000000000000000000000000000000;hpb=3b542afc856d736dfd2ff0eed081f647de07af4c;p=clump.git

diff --git a/blink.pl b/blink.pl
new file mode 100644
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;