Changeset 52


Ignore:
Timestamp:
Sep 10, 2010, 11:20:52 AM (8 years ago)
Author:
mulligan
Message:

RL, RR and SWAP implemented.

File:
1 edited

Legend:

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

    r51 r52  
    798798 | CLR of [ acc | carry | bit ]
    799799 | CPL of [ acc | carry | bit ]
    800  | RL of acc
     800*)
     801 | RL `A ->
     802     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
     803       { status with acc = (b2,b3,b4,b5),(b6,b7,b8,b1) }
     804(*
    801805 | RLC of acc
    802  | RR of acc
     806*)
     807 | RR `A ->
     808     let (b1,b2,b3,b4),(b5,b6,b7,b8) = status.acc in
     809       { status with acc = (b8,b1,b2,b3),(b4,b5,b6,b7) }
     810(*
    803811 | RRC of acc
    804  | SWAP of acc
    805812*)
    806 
     813 | SWAP `A ->
     814     let (acc_n_1, acc_n_2) = status.acc in
     815       { status with acc = (acc_n_2, acc_n_1) }
    807816 | MOV(`U1(b1, b2)) ->
    808817                let arg = fetch_arg8 status b2 in
Note: See TracChangeset for help on using the changeset viewer.