Changeset 108 for Deliverables/D4.1

Timestamp:

Sep 22, 2010, 4:13:39 PM (11 years ago)

Author:

mulligan

Message:

CPL instructions refactored.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -951 +951 @@
    | `CLR `C -> set_arg1 status false `C
    | `CLR ((`BIT b) as a) -> set_arg1 status false a
+   | `CPL `A -> { status with acc = complement status.acc }
+   | `CPL `C -> set_arg1 status (not (get_arg_1 status `C)) `C
+   | `CPL (`BIT b) -> set_arg1 status (not (get_arg_1 status (`BIT b))) (`BIT b)
 (*
- | CPL `A ->
-     let acc_val = get_arg_8 status `A in
-       { status with acc = complement acc_val }
- | CPL `C ->
-     let ag_val = get_arg_1 status `C in
-       set_arg1 status (not ag_val) `C
- | CPL (`BIT b) ->
-     let ag_val = get_arg_1 status (`BIT b) in
-       set_arg1 status (not ag_val) (`BIT b)
  | RL `A ->
      let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in