Changeset 52 for Deliverables/D4.1

Timestamp:

Sep 10, 2010, 11:20:52 AM (10 years ago)

Author:

mulligan

Message:

RL, RR and SWAP implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -798 +798 @@
  | CLR of [ acc | carry | bit ]
  | CPL of [ acc | carry | bit ]
- | RL of acc
+*)
+ | RL `A ->
+     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
+       { status with acc = (b2,b3,b4,b5),(b6,b7,b8,b1) }
+(*
  | RLC of acc
- | RR of acc
+*)
+ | RR `A ->
+     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
+       { status with acc = (b8,b1,b2,b3),(b4,b5,b6,b7) }
+(*
  | RRC of acc
- | SWAP of acc
 *)
-
+ | SWAP `A ->
+     let (acc_n_1, acc_n_2) = status.acc in
+       { status with acc = (acc_n_2, acc_n_1) }
  | MOV(`U1(b1, b2)) ->
                 let arg = fetch_arg8 status b2 in