Changeset 74 for Deliverables/D4.1

Timestamp:

Sep 14, 2010, 3:46:22 PM (10 years ago)

Author:

mulligan

Message:

RETI instruction implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -950 +950 @@
      let status = { status with sp = new_sp } in
        { status with pc = (high_bits, low_bits) }
+ | RETI ->
+     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
  | LCALL of addr16
- | RET
- | RETI
  | AJMP of addr11
 *)