]> iEval git - clump.git/blob - id.pl
Make it work
[clump.git] / 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;
This page took 0.038551 seconds and 4 git commands to generate.