source: Deliverables/D4.1/physical.mli @ 46

Last change on this file since 46 was 46, checked in by mulligan, 10 years ago

MOV done.

File size: 968 bytes
Line 
1exception Byte7_conversion
2
3type bit = bool
4type nibble = bit * bit * bit * bit
5type byte = nibble * nibble
6type byte7 = bit * bit * bit * nibble
7type word = byte * byte
8type word11 = bit * bit * bit * byte
9
10module Byte7Map : Map.S with type key = byte7
11module WordMap : Map.S with type key = word
12
13val byte7_of_byte: byte -> byte7
14
15val word_of_int: int -> word
16val byte7_of_int: int -> byte7
17val byte_of_int: int -> byte
18val int_of_bit: bit -> int
19val int_of_byte: byte -> int
20val int_of_byte7: byte7 -> int
21val int_of_nibble: nibble -> int
22val byte7_of_bit: bit -> byte7
23val byte_of_byte7: byte7 -> byte
24
25val (++): word -> int -> word
26
27val add8_with_c:
28 byte -> byte -> bit -> byte * bit * bit * bit (* +, c, ac, ov *)
29val subb8_with_c:
30 byte -> byte -> bit -> byte * bit * bit * bit (* -, c, ac, ov *)
31val dec: byte -> byte (* with roll-over *)
32val inc: byte -> byte (* with roll-over *)
33
34val nth_bit: int -> byte -> bit
35val set_nth_bit: int -> bit -> byte -> byte
Note: See TracBrowser for help on using the repository browser.