Changeset 81 for Deliverables/D4.1
- Timestamp:
- Sep 15, 2010, 5:25:39 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Deliverables/D4.1/ASMInterpret.ml
r80 r81 759 759 in 760 760 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 764 772 | INC ((`A | `REG _ | `DIRECT _ | `INDIRECT _) as d) -> 765 773 let b = fetch_arg8 status d in
Note: See TracChangeset
for help on using the changeset viewer.