Changeset 33


Ignore:
Timestamp:
Sep 3, 2010, 2:32:15 PM (9 years ago)
Author:
mulligan
Message:

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

Location:
Deliverables/D4.1
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/ASMInterpret.ml

    r32 r33  
    251251       let pc,b2 = next pc in
    252252         MOV (`U4 (`DPTR, `DATA16(b1,b2))), pc, 2
     253   | (true,false,false,true),(false,false,true,true) ->
     254         MOVC (`A, `A_DPTR), pc, 2
     255   | (true,false,false,false),(false,false,true,true) ->
     256         MOVC (`A, `A_PC), pc, 2
     257   | (true,true,true,false),(false,false,true,i1) ->
     258         MOVX (`U1 (`A, `INDIRECT i1)), pc, 2
     259   | (true,true,true,false),(false,false,false,false) ->
     260         MOVX (`U1 (`A, `IND_DPTR)), pc, 2
     261   | (true,true,true,true),(false,false,true,i1) ->
     262         MOVX (`U2 (`INDIRECT i1, `A)), pc, 2
     263   | (true,true,true,true),(false,false,false,false) ->
     264         MOVX (`U2 (`IND_DPTR, `A)), pc, 2
     265   | (true,false,true,false),(false,true,false,false) ->
     266         MUL(`A, `B), pc, 4
     267   | (false,false,false,false),(false,false,false,false) ->
     268         NOP, pc, 1
     269   | (false,true,false,false),(true,r1,r2,r3) ->
     270         ORL (`U1(`A, `REG(r1,r2,r3))), pc, 1
    253271 with
    254272  Not_found -> raise BOO
Note: See TracChangeset for help on using the changeset viewer.