Changeset 53

Timestamp:

Sep 10, 2010, 11:36:40 AM (10 years ago)

Author:

mulligan

Message:

All RR* and RL* instructions implemented.

File:

• Deliverables/D4.1/ASMInterpret.ml (modified) (2 diffs)

Deliverables/D4.1/ASMInterpret.ml

@@ -802 +802 @@
      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
-*)
+ | RLC `A ->
+     let old_carry = carr status in
+     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
+     let new_status = set_arg1 status b1 `C in
+       { new_status with acc = (b2,b3,b4,b5),(b6,b7,b8,old_carry) }
  | 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
-*)
+ | RRC `A ->
+     let old_carry = carr status in
+     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
+     let new_status = set_arg1 status b8 `C in
+       { new_status with acc = (old_carry,b1,b2,b3),(b4,b5,b6,b7) }
  | SWAP `A ->
      let (acc_n_1, acc_n_2) = status.acc in
@@ -843 +847 @@
  | PUSH of direct
  | POP of direct
- | XCH of acc * [ reg | direct | indirect ]
+*)
+
+ | XCH(`A, arg) ->
+     let old_arg = fetch_arg8 status arg in
+     let old_acc = status.acc in
+     let new_status = set_arg8 status old_acc arg in
+       { status with acc = old_arg }
+(*
  | XCHD of acc * indirect