Changeset 81


Ignore:
Timestamp:
Sep 15, 2010, 5:25:39 PM (9 years ago)
Author:
mulligan
Message:

INC DPTR partially implemented.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/ASMInterpret.ml

    r80 r81  
    759759      in
    760760       set_flags (set_arg8 status v `A) c (Some ac) ov
    761 (*
    762    | INC `DPTR -> assert false
    763 *)
     761   | INC `DPTR ->
     762       let dpl_int_val = int_of_byte status.dpl in
     763       let dph_int_val = int_of_byte status.dph in
     764       let inc_dpl = dpl_int_val + 1 in
     765         if inc_dpl > 255 then
     766           let inc_dpl = 0 in
     767           (* DPM: finish *)
     768             status
     769         else
     770           (* DPM: finish *)
     771           status
    764772   | INC ((`A | `REG _ | `DIRECT _ | `INDIRECT _) as d) ->
    765773      let b = fetch_arg8 status d in
Note: See TracChangeset for help on using the changeset viewer.