Changeset 55 for Deliverables/D4.1

Timestamp:

Sep 10, 2010, 12:28:59 PM (10 years ago)

Author:

mulligan

Message:

CJNE instruction finished.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -880 +880 @@
  | JZ of rel
  | JNZ of rel
+*)
+ | CJNE ((`U1 (`A, ag)), `REL rel) ->
+     let ag_val = fetch_arg8 status ag in
+     let acc_val = status.acc in
+     let new_carry = acc_val < ag_val in
+       if ag_val <> acc_val then
+         { status with pc = status.pc ++ (int_of_byte rel) }
+       else
+         status
+ | CJNE ((`U2 (ag, `DATA d)), `REL rel) ->
+     let ag_val = fetch_arg8 status ag in
+     let new_carry = ag_val < d in
+       if ag_val <> d then
+         { status with pc = status.pc ++ (int_of_byte rel) }
+       else
+         status
+(*
  | CJNE of (acc * [ direct | data ], [ reg | indirect ] * data) union2 * rel
  | DJNZ of [ reg | direct ] * rel