Ignore:
Timestamp:
Sep 9, 2010, 2:52:08 PM (10 years ago)
Author:
mulligan
Message:

More missing cases added to the ASMInterpret functions. Pretty printer
finished.

File:
1 edited

Legend:

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

    r49 r50  
    320320       let pc,b1 = next pc in
    321321         SJMP (`REL b1), pc, 2
     322   | (true,false,false,true),(true,r1,r2,r3) ->
     323       SUBB (`A, `REG(r1,r2,r3)), pc, 1
    322324   | (true,false,false,true),(false,true,false,true) ->
    323325       let pc,b1 = next pc in
     
    554556  | SJMP (`REL b1) ->
    555557    [(true,false,false,false),(false,false,false,false); b1]
     558  | SUBB (`A, `REG(r1,r2,r3)) ->
     559    [(true,false,false,true),(true,r1,r2,r3)]
    556560  | SUBB (`A, `DIRECT b1) ->
    557561    [(true,false,false,true),(false,true,false,true); b1]
Note: See TracChangeset for help on using the changeset viewer.