Changeset 79


Ignore:
Timestamp:
Sep 15, 2010, 12:42:37 PM (9 years ago)
Author:
mulligan
Message:

One of the ANL instruction combinations implemented.

File:
1 edited

Legend:

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

    r78 r79  
    816816         let lower_nibble = nibble_of_int lower_nibble_int_val in
    817817           { status with acc = (upper_nibble, lower_nibble) }
     818 | ANL (`U1(`A, ag)) ->
     819     let (ac1,ac2,ac3,ac4),(ac5,ac6,ac7,ac8) = fetch_arg8 status `A in
     820     let (ag1,ag2,ag3,ag4),(ag5,ag6,ag7,ag8) = fetch_arg8 status ag in
     821     let and_val = ((ac1 && ag1, ac2 && ag2, ac3 && ag3, ac4 && ag4),
     822                   (ac5 && ag5, ac6 && ag6, ac7 && ag7, ac8 && ag8)) in
     823       set_arg8 status and_val `A
    818824(*
    819825 (* logical operations *)
Note: See TracChangeset for help on using the changeset viewer.