uxnemu: fix console_vector handling
This commit is contained in:
parent
0c0bcb7e73
commit
9ee039f413
6 changed files with 103 additions and 80 deletions
|
|
@ -21,16 +21,11 @@ val stack : machine -> bool -> stack
|
|||
type machine_state = Break | Next of int
|
||||
|
||||
type _ Effect.t +=
|
||||
| BRK : int Effect.t (* Returns a new PC if handled *)
|
||||
| DEI : int -> int Effect.t
|
||||
| DEI2 : int -> int Effect.t
|
||||
| BRK : int Effect.t
|
||||
| DEI : ([ `Byte | `Short ] * int) -> int Effect.t
|
||||
| DEO : (int * int) -> unit Effect.t
|
||||
| Trace : (int * Instr.t * int list) -> unit Effect.t
|
||||
| Breakpoint : int -> unit Effect.t
|
||||
|
||||
val create : string -> machine
|
||||
|
||||
val dispatch :
|
||||
?dbg:(machine -> Instr.t -> int -> unit) option ->
|
||||
?cycles:int ->
|
||||
machine ->
|
||||
int ->
|
||||
unit
|
||||
val dispatch : ?trace:bool -> ?breakpoints:int list -> machine -> int -> 'a
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue