Changeset 71 for Deliverables/D4.1

Timestamp:

Sep 14, 2010, 2:40:33 PM (10 years ago)

Author:

mulligan

Message:

Two more jump instructions implemented.

Location:

Deliverables/D4.1

Files:

• ASMInterpret.ml (modified) (1 diff)
• physical.mli (modified) (1 diff)

Deliverables/D4.1/ASMInterpret.ml

@@ -922 +922 @@
  | LJMP (`ADDR16 (lb,hb)) ->
      { status with pc = (lb,hb) }
-(*
- | SJMP of rel
- | JMP of indirect_dptr
-*)
+ | SJMP (`REL rel) ->
+     { status with pc = status.pc ++ (int_of_byte rel) }
+ | JMP `IND_DPTR ->
+     let acc_val = status.acc in
+     let dptr_low = status.dpl in
+     let dptr_high = status.dph in
+     let dptr = (dptr_high, dptr_low) in
+     let jmp_addr = (int_of_word dptr) + (int_of_byte acc_val) in
+       { status with pc = status.pc ++ jmp_addr }
  | JZ (`REL rel) ->
      if status.acc = ((false,false,false,false),(false,false,false,false)) then

Deliverables/D4.1/physical.mli

@@ -14 +14 @@
 
 val word_of_int: int -> word
+val int_of_word: word -> int
 val byte7_of_int: int -> byte7
 val byte_of_int: int -> byte