ledmatrix.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, 9, 1;
  10 ledi 1;
  11 news_mm 0, 1, -1, 0;
  12 route 1, 9, 1;
  13 ledi 2;
  14 news_mm 1, 2, -1, 0;
  15 route 2, 9, 1;
  16 ledi 4;
  17 news_mm 2, 3, -1, 0;
  18 route 3, 9, 1;
  19 ledi 8;