Changeset 70

Timestamp:

Sep 14, 2010, 12:33:19 PM (10 years ago)

Author:

mulligan

Message:

XCHD implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -873 +873 @@
      let new_status = set_arg8 status old_acc arg in
        { new_status with acc = old_arg }
-(*
- | XCHD of acc * indirect
-*)
+ | XCHD(`A, (`INDIRECT i)) ->
+     let ((a1,a2,a3,a4),(a5,a6,a7,a8)) = fetch_arg8 status `A in
+     let ((i1,i2,i3,i4),(i5,i6,i7,i8)) = fetch_arg8 status (`INDIRECT i) in
+     let new_acc_val = ((a1,a2,a3,a4),(i5,i6,i7,i8)) in
+     let new_reg_val = ((i1,i2,i3,i4),(a5,a6,a7,a8)) in
+     let status = set_arg8 status new_acc_val `A in
+     let status = set_arg8 status new_reg_val (`INDIRECT i) in
+       status
  (* program branching *)
  | JC (`REL rel) ->