tinyledmatrix.pl

   1 #!/usr/bin/perl
   2 use v5.14;
   3 use warnings;
   4 use lib '.';
   5
   6 use asm;
   7
   8 storei 0, 0xF;
   9 route 0, 1, 1;
  10 nop;
  11 nop;
  12 nop;
  13 nop;
  14 nop;
  15 storei 0, 0xF0;
  16 route 0, 1, 1;
  17 nop;
  18 nop;
  19 nop;
  20 nop;
  21 nop;
  22 storei 0, 0x111;
  23 route 0, 1, 1;
  24 nop;
  25 nop;
  26 nop;
  27 nop;
  28 nop;