Ignore:
Timestamp:
Sep 9, 2010, 1:19:58 PM (10 years ago)
Author:
mulligan
Message:

Fixed bug in ASMInterpret functions: CPL functions were not implemented.
More work on pretty printing.

File:
1 edited

Legend:

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

    r46 r49  
    130130       let pc,b1 = next pc in
    131131         CLR (`BIT b1), pc, 1
     132   | (true,true,true,true),(false,true,false,false) ->
     133         CPL `A, pc, 1
     134   | (true,false,true,true),(false,false,true,true) ->
     135         CPL `C, pc, 1
     136   | (true,false,true,true),(false,false,true,false) ->
     137       let pc,b1 = next pc in
     138         CPL (`BIT b1), pc, 1
    132139   | (true,true,false,true),(false,true,false,false) ->
    133140         DA `A, pc, 1
     
    405412  | CLR (`BIT b1) ->
    406413    [(true,true,false,false),(false,false,true,false);  b1]
     414  | CPL `A ->
     415    [(true,true,true,true),(false,true,false,false)]
     416  | CPL `C ->
     417    [(true,false,true,true),(false,false,true,true)]
     418  | CPL (`BIT b1) ->
     419    [(true,false,true,true),(false,false,true,false); b1]
    407420  | DA `A ->
    408421    [(true,true,false,true),(false,true,false,false)]
Note: See TracChangeset for help on using the changeset viewer.