Changeset 68

Timestamp:

Sep 14, 2010, 12:11:25 PM (10 years ago)

Author:

mulligan

Message:

POP implemented ... at last.

File:

• Deliverables/D4.1/ASMInterpret.ml (modified) (3 diffs)

Deliverables/D4.1/ASMInterpret.ml

@@ -780 +780 @@
       let status = { status with acc = q ; b = r } in
        set_flags status false None false
-
 (*
+ | ANL (`U1 (`A, ag)) ->
+     let acc_val = fetch_arg8 status `A in
+     let ag_val = fetch_arg8 status ag in
  | DA  of acc
 
@@ -795 +797 @@
  | XRL of
     (acc * [ reg | direct | indirect ],
-     direct * [ acc | data ]) union2
-*)
- | CLR `A ->
-     set_arg8 status ((false,false,false,false),(false,false,false,false)) `A
+     direct * [ acc | data ]) union2 *)
+  | CLR `A -> set_arg8 status 
+     ((false,false,false,false),(false,false,false,false)) `A
  | CLR `C ->
      set_arg1 status false `C
@@ -857 +858 @@
 *)
  | SETB a -> set_arg1 status true a
-(*
- | PUSH of direct
- | POP of direct
-*)
-
+(* | PUSH (`DIRECT b) ->*)
+ | POP (`DIRECT b) ->
+     let contents = Byte7Map.find (byte7_of_byte status.sp) status.low_internal_ram in
+     let status = { status with pc = status.pc ++ (-1) } in
+     let status = set_arg8 status contents (`DIRECT b) in
+       status
  | XCH(`A, arg) ->
      let old_arg = fetch_arg8 status arg in