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

Bug in LCALL fixed.

File:
1 edited

Legend:

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

    r144 r145  
    44open Pretty;;
    55open IntelHex;;
     6open Util;;
    67open Parser;;
    78
     
    943944  else true
    944945;;
    945 
    946 let ($) f x = f x
    947946
    948947let read_at_sp status =
     
    12001199       let status = { status with sp = new_sp } in
    12011200       let pc_upper_byte, pc_lower_byte = from_word status.pc in
    1202        let status = write_at_sp status pc_upper_byte in
     1201       let status = write_at_sp status pc_lower_byte in
    12031202       let cry, new_sp = half_add status.sp (vect_of_int 1 `Eight) in
    12041203       let status = { status with sp = new_sp } in
    1205        let status = write_at_sp status pc_lower_byte in
     1204       let status = write_at_sp status pc_upper_byte in
    12061205         { status with pc = addr }
    12071206  | `AJMP (`ADDR11 a) ->
Note: See TracChangeset for help on using the changeset viewer.