Changeset 60

Timestamp:

Sep 10, 2010, 4:20:09 PM (9 years ago)

Author:

mulligan

Message:

Finished implementing all jump instructions.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -886 +886 @@
        else
          status
+ | JB ((`BIT b1), (`REL rel)) ->
+     let val_bit = fetch_arg1 status (`BIT b1) in
+       if val_bit = true then
+         { status with pc = status.pc ++ (int_of_byte rel) }
+       else
+         status
+ | JNB ((`BIT b1), (`REL rel)) ->
+     let val_bit = fetch_arg1 status (`BIT b1) in
+       if val_bit = false then
+         { status with pc = status.pc ++ (int_of_byte rel) }
+       else
+         status
+ | JBC ((`BIT b1), (`REL rel)) ->
+    let val_bit = fetch_arg1 status (`BIT b1) in
+    let new_status = set_arg1 status false (`BIT b1) in
+       if val_bit = true then
+         { new_status with pc = status.pc ++ (int_of_byte rel) }
+       else
+         new_status
 (*
- | JB of rel
- | JNB of rel
- | JBC of bit * rel
  | ACALL of addr11
  | LCALL of addr16