id.pl

   1 #!/usr/bin/perl
   2 use v5.14;
   3 use warnings;
   4 use lib '.';
   5
   6 use asm;
   7
   8 chip_select 1, sub {
   9         storei 0, 0x3;
  10 };
  11
  12 chip_select 2, sub {
  13         storei 0, 0x2;
  14 };
  15
  16 chip_select 4, sub {
  17         storei 0, 0x4;
  18 };
  19
  20 chip_select 8, sub {
  21         storei 0, 0x8;
  22 };
  23
  24 ledm 0;