Changeset 75 for Deliverables/D4.1

Timestamp:

Sep 14, 2010, 4:13:53 PM (10 years ago)

Author:

mulligan

Message:

AJMP implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -961 +961 @@
  | ACALL of addr11
  | LCALL of addr16
- | AJMP of addr11
 *)
+ | AJMP (`ADDR11 (b1,b2,b3,b)) ->
+     let status = { status with pc = status.pc ++ 2 } in
+     let (((p1,p2,p3,p4),(p5,p6,p7,p8)),(_,_)) = status.pc in
+     let addr = (((p1,p2,p3,p4),(p5,b1,b2,b3)),b) in
+     let new_pc = word_of_int ((int_of_word status.pc) + (int_of_word addr)) in
+       { status with pc = new_pc }
  | LJMP (`ADDR16 (lb,hb)) ->
      { status with pc = (lb,hb) }