newsled.pl

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