Changeset 81 for Deliverables/D4.1

Timestamp:

Sep 15, 2010, 5:25:39 PM (10 years ago)

Author:

mulligan

Message:

INC DPTR partially implemented.

File:

• Deliverables/D4.1/ASMInterpret.ml (modified) (1 diff)

Deliverables/D4.1/ASMInterpret.ml

@@ -759 +759 @@
       in
        set_flags (set_arg8 status v `A) c (Some ac) ov
-(*
-   | INC `DPTR -> assert false
-*)
+   | INC `DPTR ->
+       let dpl_int_val = int_of_byte status.dpl in
+       let dph_int_val = int_of_byte status.dph in
+       let inc_dpl = dpl_int_val + 1 in
+         if inc_dpl > 255 then
+           let inc_dpl = 0 in
+           (* DPM: finish *)
+             status
+         else
+           (* DPM: finish *)
+           status
    | INC ((`A | `REG _ | `DIRECT _ | `INDIRECT _) as d) ->
       let b = fetch_arg8 status d in