Changeset 79
- Timestamp:
- Sep 15, 2010, 12:42:37 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Deliverables/D4.1/ASMInterpret.ml
r78 r79 816 816 let lower_nibble = nibble_of_int lower_nibble_int_val in 817 817 { 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 818 824 (* 819 825 (* logical operations *)
Note: See TracChangeset
for help on using the changeset viewer.