27 lines
312 B
OCaml
27 lines
312 B
OCaml
|
(** http://bgb.bircd.org/pandocs.htm#cpuregistersandflags *)
|
||
|
|
||
|
type registers = {
|
||
|
a : char;
|
||
|
b : char;
|
||
|
c : char;
|
||
|
d : char;
|
||
|
e : char;
|
||
|
h : char;
|
||
|
l : char;
|
||
|
|
||
|
sp : int;
|
||
|
pc : int;
|
||
|
}
|
||
|
|
||
|
type flags = {
|
||
|
zf : bool;
|
||
|
n : bool;
|
||
|
h : bool;
|
||
|
cy : bool;
|
||
|
}
|
||
|
|
||
|
type t = {
|
||
|
reg : registers;
|
||
|
flags : flags;
|
||
|
}
|