blink.pl

   1 #!/usr/bin/perl
   2 use v5.14;
   3 use warnings;
   4 use lib '.';
   5
   6 use asm;
   7
   8 for (1 .. 3) {
   9         ledi 1;
  10         ledi 2;
  11         ledi 4;
  12         ledi 8;
  13 }
  14 nop;
  15 nop;
  16 nop;
  17 nop;