Changeset 79

Timestamp:

Sep 15, 2010, 12:42:37 PM (10 years ago)

Author:

mulligan

Message:

One of the ANL instruction combinations implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -816 +816 @@
          let lower_nibble = nibble_of_int lower_nibble_int_val in
            { status with acc = (upper_nibble, lower_nibble) }
+ | ANL (`U1(`A, ag)) ->
+     let (ac1,ac2,ac3,ac4),(ac5,ac6,ac7,ac8) = fetch_arg8 status `A in
+     let (ag1,ag2,ag3,ag4),(ag5,ag6,ag7,ag8) = fetch_arg8 status ag in
+     let and_val = ((ac1 && ag1, ac2 && ag2, ac3 && ag3, ac4 && ag4),
+                   (ac5 && ag5, ac6 && ag6, ac7 && ag7, ac8 && ag8)) in
+       set_arg8 status and_val `A
 (*
  (* logical operations *)