Changeset 33

Timestamp:

Sep 3, 2010, 2:32:15 PM (10 years ago)

Author:

mulligan

Message:

Instructions M--O added to `fetch' function. Presentation files for
Monday added to repository.

Location:

Deliverables/D4.1

Files:

• ASMInterpret.ml (modified) (1 diff)
• Presentation (added)
• Presentation/Paris-September-2010.tex (added)

Deliverables/D4.1/ASMInterpret.ml

@@ -251 +251 @@
        let pc,b2 = next pc in
          MOV (`U4 (`DPTR, `DATA16(b1,b2))), pc, 2
+   | (true,false,false,true),(false,false,true,true) ->
+         MOVC (`A, `A_DPTR), pc, 2
+   | (true,false,false,false),(false,false,true,true) ->
+         MOVC (`A, `A_PC), pc, 2
+   | (true,true,true,false),(false,false,true,i1) ->
+         MOVX (`U1 (`A, `INDIRECT i1)), pc, 2
+   | (true,true,true,false),(false,false,false,false) ->
+         MOVX (`U1 (`A, `IND_DPTR)), pc, 2
+   | (true,true,true,true),(false,false,true,i1) ->
+         MOVX (`U2 (`INDIRECT i1, `A)), pc, 2
+   | (true,true,true,true),(false,false,false,false) ->
+         MOVX (`U2 (`IND_DPTR, `A)), pc, 2
+   | (true,false,true,false),(false,true,false,false) ->
+         MUL(`A, `B), pc, 4
+   | (false,false,false,false),(false,false,false,false) ->
+         NOP, pc, 1
+   | (false,true,false,false),(true,r1,r2,r3) ->
+         ORL (`U1(`A, `REG(r1,r2,r3))), pc, 1
  with
   Not_found -> raise BOO