[clump.git] / id.pl

#!/usr/bin/perl
use v5.14;
use warnings;
use lib '.';

use asm;

chip_select 1, sub {
	storei 0, 0x3;
};

chip_select 2, sub {
	storei 0, 0x2;
};

chip_select 4, sub {
	storei 0, 0x4;
};

chip_select 8, sub {
	storei 0, 0x8;
};

ledm 0;
Commit	Line	Data
46a95fd3 MG	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;