Add LCD control structure.
Also add the Bin module to easily deal with binary.
This commit is contained in:
parent
52e5afa344
commit
644a1356a8
3 changed files with 39 additions and 1 deletions
4
src/bit.ml
Normal file
4
src/bit.ml
Normal file
|
@ -0,0 +1,4 @@
|
|||
let is_set num i =
|
||||
if i < 0 then failwith "Invalid bit index."
|
||||
(num lsr i) land 0b00000001 <> 0
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue