Changeset 32 for Deliverables/D4.1/ASMInterpret.ml

Timestamp:

Sep 3, 2010, 1:36:32 PM (11 years ago)

Author:

mulligan

Message:

All MOV variations done.

File:

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

Deliverables/D4.1/ASMInterpret.ml

@@ -198 +198 @@
        let pc,b2 = next pc in
          LJMP (`ADDR16 (b1,b1)), pc, 2
+   | (true,true,true,false),(true,r1,r2,r3) ->
+         MOV (`U1 (`A, `REG(r1,r2,r3))), pc, 1
+   | (true,true,true,false),(false,true,false,true) ->
+       let pc,b1 = next pc in
+         MOV (`U1 (`A, `DIRECT b1)), pc, 1
+   | (true,true,true,false),(false,true,true,i1) ->
+         MOV (`U1 (`A, `INDIRECT i1)), pc, 1
+   | (false,true,true,true),(false,true,false,false) ->
+       let pc,b1 = next pc in
+         MOV (`U1 (`A, `DATA b1)), pc, 1
+   | (true,true,true,true),(true,r1,r2,r3) ->
+         MOV (`U2 (`REG(r1,r2,r3), `A)), pc, 1
+   | (true,false,true,false),(true,r1,r2,r3) ->
+       let pc,b1 = next pc in
+         MOV (`U2 (`REG(r1,r2,r3), (`DIRECT b1))), pc, 2
+   | (false,true,true,true),(true,r1,r2,r3) ->
+       let pc,b1 = next pc in
+         MOV (`U2 (`REG(r1,r2,r3), (`DATA b1))), pc, 1
+   | (true,true,true,true),(false,true,false,true) ->
+       let pc,b1 = next pc in
+         MOV (`U3 (`DIRECT b1, `A)), pc, 1
+   | (true,false,false,false),(true,r1,r2,r3) ->
+       let pc,b1 = next pc in
+         MOV (`U3 (`DIRECT b1, `REG(r1,r2,r3))), pc, 2
+   | (true,false,false,false),(false,true,false,true) ->
+       let pc,b1 = next pc in
+       let pc,b2 = next pc in
+         MOV (`U3 (`DIRECT b1, `DIRECT b2)), pc, 2
+   | (true,false,false,false),(false,true,true,i1) ->
+       let pc,b1 = next pc in
+         MOV (`U3 (`DIRECT b1, `INDIRECT i1)), pc, 2
+   | (false,true,true,true),(false,true,false,true) ->
+       let pc,b1 = next pc in
+       let pc,b2 = next pc in
+         MOV (`U3 (`DIRECT b1, `DATA b2)), pc, 2
+   | (true,true,true,true),(false,true,true,i1) ->
+         MOV (`U2 (`INDIRECT i1, `A)), pc, 1
+   | (true,false,true,false),(false,true,true,i1) ->
+       let pc,b1 = next pc in
+         MOV (`U2 (`INDIRECT i1, `DIRECT b1)), pc, 2
+   | (false,true,true,true),(false,true,true,i1) ->
+       let pc,b1 = next pc in
+         MOV (`U2 (`INDIRECT i1, `DATA b1)), pc, 1
+   | (true,false,true,false),(false,false,true,false) ->
+       let pc,b1 = next7 pc in
+         MOV (`U5 (`C, `BIT b1)), pc, 1
+   | (true,false,false,true),(false,false,true,false) ->
+       let pc,b1 = next7 pc in
+         MOV (`U6 (`BIT b1, `C)), pc, 2
+   | (true,false,false,true),(false,false,false,false) ->
+       let pc,b1 = next pc in
+       let pc,b2 = next pc in
+         MOV (`U4 (`DPTR, `DATA16(b1,b2))), pc, 2
  with
   Not_found -> raise BOO