Changeset 77 for Deliverables/D4.1

Timestamp:

Sep 15, 2010, 11:57:38 AM (10 years ago)

Author:

mulligan

Message:

ACALL implemented.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -15 +15 @@
    high_internal_ram: byte Byte7Map.t;
    external_ram: byte WordMap.t;
+
+   
 
    pc: word;
@@ -968 +970 @@
      let status = { status with sp = new_sp } in
        { status with pc = (high_bits, low_bits) }
-(*
- | ACALL of addr11
- | LCALL of addr16
-*)
+ | ACALL (`ADDR11 (b1,b2,b3,b)) ->
+     let status = { status with pc = status.pc ++ 2 } in
+     let status = { status with sp = byte_of_int ((int_of_byte status.sp) + 1) } in
+     let (bh, bl) = status.pc in
+     let lower_mem = Byte7Map.add (byte7_of_byte status.sp) bl status.low_internal_ram in
+     let status = { status with low_internal_ram = lower_mem } in
+     let status = { status with sp = byte_of_int ((int_of_byte status.sp) + 1) } in
+     let lower_mem = Byte7Map.add (byte7_of_byte status.sp) bh status.low_internal_ram in
+     let status = { status with low_internal_ram = lower_mem } in
+     let ((p1,p2,p3,p4),(p5,_,_,_)),b = status.pc in
+     let addr = (((p1,p2,p3,p4),(p5,b1,b2,b3)),b) in
+       { status with pc = addr }
+(* | LCALL (`ADDR16 addr) ->*)
  | 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 (((p1,p2,p3,p4),(p5,_,_,_)),(_,_)) = 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