diff options
author | root <root@lamia.panaceas.james.local> | 2015-09-07 14:13:22 +0100 |
---|---|---|
committer | root <root@lamia.panaceas.james.local> | 2015-09-07 14:13:22 +0100 |
commit | ad7ab5552e41094bb8344e3e0fceef8c1dee90a7 (patch) | |
tree | c1f5dc8230a0425435ec87c150363dbcc4c77b4b /reverse_engineering/bits.pl | |
parent | 70af01e8de04f743f69c97048285c23e5234aa6f (diff) | |
download | bracelet-ad7ab5552e41094bb8344e3e0fceef8c1dee90a7.tar.gz bracelet-ad7ab5552e41094bb8344e3e0fceef8c1dee90a7.tar.bz2 bracelet-ad7ab5552e41094bb8344e3e0fceef8c1dee90a7.zip |
fish
Diffstat (limited to 'reverse_engineering/bits.pl')
-rwxr-xr-x | reverse_engineering/bits.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/reverse_engineering/bits.pl b/reverse_engineering/bits.pl index c6b3c7f..a5fda4f 100755 --- a/reverse_engineering/bits.pl +++ b/reverse_engineering/bits.pl @@ -126,15 +126,19 @@ my $ocd=open_ocd('127.0.0.1:4444' ); my $ov=-1; while (1) { -my $v=dir_get($ocd); +my $v=io_get($ocd); next if $v == $ov; $ov=$v; -printf "%04b %04b %04b %04b %04b %04b %04b %04b\n", - ($v >>28) &0xf, +printf "%b %b %b %b %04b %04b %04b %04b %04b %04b %04b %04b\n", + ($v >>20) &0x1, + ($v >>19) &0x1, + ($v >>18) &0x1, + ($v >>17) &0x1, + ($v >>24) &0xf, ($v >>20) &0xf, |