Changeset 76

Timestamp:

Sep 14, 2010, 5:21:08 PM (10 years ago)

Author:

mulligan

Message:

MOVC instruction implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -879 +879 @@
     let arg = fetch_arg1 status b2 in
       set_arg1 status arg b1
-
+ | MOVC (`A, `A_DPTR) ->
+     let acc_int_val = int_of_byte status.acc in
+     let dptr_int_val = int_of_word (status.dph, status.dpl) in
+     let addr = word_of_int (dptr_int_val + acc_int_val) in
+     let lookup = WordMap.find addr status.code_memory in
+       { status with acc = lookup }
+ | MOVC (`A, `A_PC) ->
+     let acc_int_val = int_of_byte status.acc in
+     let new_pc_int_val = (int_of_word status.pc) + 1 in
+     let addr = word_of_int (new_pc_int_val + acc_int_val) in
+     let lookup = WordMap.find addr status.code_memory in
+       { status with acc = lookup; pc = word_of_int new_pc_int_val }
  (* data transfer *)
 (*
- | MOVC of acc * [ acc_dptr | acc_pc ]
  | MOVX of (acc * [ indirect | indirect_dptr ],
             [ indirect | indirect_dptr ] * acc) union2