Changeset 73 for Deliverables/D4.1

Timestamp:

Sep 14, 2010, 3:45:13 PM (10 years ago)

Author:

mulligan

Message:

RET instruction implemented.

File:

• Deliverables/D4.1/ASMInterpret.ml (modified) (3 diffs)

Deliverables/D4.1/ASMInterpret.ml

@@ -815 +815 @@
            { status with acc = (upper_nibble, lower_nibble) }
 (*
- | ANL (`U1 (`A, ag)) ->
-     let acc_val = fetch_arg8 status `A in
-     let ag_val = fetch_arg8 status ag in
- | DA  of acc
-
  (* logical operations *)
  | ANL of
@@ -832 +827 @@
     (acc * [ reg | direct | indirect ],
      direct * [ acc | data ]) union2 *)
-  | CLR `A -> set_arg8 status 
+ | CLR `A -> set_arg8 status 
      ((false,false,false,false),(false,false,false,false)) `A
  | CLR `C ->
@@ -947 +942 @@
        else
          new_status
+ | RET ->
+     let high_bits = (Byte7Map.find (byte7_of_byte status.sp) status.low_internal_ram) in
+     let new_sp = byte_of_int ((int_of_byte status.sp) - 1) in
+     let status = { status with sp = new_sp } in
+     let low_bits = (Byte7Map.find (byte7_of_byte status.sp) status.low_internal_ram) in
+     let new_sp = byte_of_int ((int_of_byte status.sp) - 1) in
+     let status = { status with sp = new_sp } in
+       { status with pc = (high_bits, low_bits) }
 (*
  | ACALL of addr11