X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Femulator%2Fstatus%2Fstatus.ma;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Femulator%2Fstatus%2Fstatus.ma;h=deaf39aad0c1a058ff4bccb91965062122cec051;hb=b886a562ccbfc3f63b8f64a135bcf70e4b189999;hp=ae5c97c7c4ecb12bd2e395a681c764f1234abead;hpb=34cdd4af2d7bdac3bab74a54123fbfcb02fa0403;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/emulator/status/status.ma b/helm/software/matita/contribs/ng_assembly/emulator/status/status.ma
index ae5c97c7c..deaf39aad 100755
--- a/helm/software/matita/contribs/ng_assembly/emulator/status/status.ma
+++ b/helm/software/matita/contribs/ng_assembly/emulator/status/status.ma
@@ -24,6 +24,7 @@ include "emulator/memory/memory_abs.ma".
 include "emulator/status/HC05_status.ma".
 include "emulator/status/HC08_status.ma".
 include "emulator/status/RS08_status.ma".
+include "emulator/status/IP2022_status.ma".
 include "emulator/opcodes/opcode.ma".
 
 (* *********************************** *)
@@ -39,7 +40,8 @@ ndefinition aux_clk_type ≝ λm:mcu_type.Prod5T byte8 (aux_op_type m) (aux_im_t
 nrecord any_status (mcu:mcu_type) (t:memory_impl): Type ≝
  {
  alu : match mcu with
-  [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08 ];
+  [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08
+  | IP2022 ⇒ alu_IP2022 ];
 
  (* descritore della memoria *)
  mem_desc : aux_mem_type t;
@@ -64,15 +66,18 @@ ndefinition eq_alu ≝
  match m
   return λm.
    match m with
-    [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08 ] →
+    [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08
+    | IP2022 ⇒ alu_IP2022 ] →
    match m with
-    [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08 ] →
+    [ HC05 ⇒ alu_HC05 | HC08 ⇒ alu_HC08 | HCS08 ⇒ alu_HC08 | RS08 ⇒ alu_RS08
+    | IP2022 ⇒ alu_IP2022 ] →
    bool
  with
   [ HC05 ⇒ eq_HC05_alu
   | HC08 ⇒ eq_HC08_alu
   | HCS08 ⇒ eq_HC08_alu
   | RS08 ⇒ eq_RS08_alu
+  | IP2022 ⇒ eq_IP2022_alu
   ].
 
 (* confronto di una regione di memoria [addr1 ; ... ; addrn] *)
@@ -83,8 +88,8 @@ nlet rec forall_memory_ranged
  (addrl:list word32) on addrl ≝
  match addrl return λ_.bool with
   [ nil ⇒ true
-  | cons hd tl ⇒ (eq_option byte8 (mem_read t mem1 chk1 hd)
-                            (mem_read t mem2 chk2 hd) eq_b8) ⊗
+  | cons hd tl ⇒ (eq_option byte8 eq_b8 (mem_read t mem1 chk1 hd)
+                                        (mem_read t mem2 chk2 hd)) ⊗
                  (forall_memory_ranged t chk1 chk2 mem1 mem2 tl)
   ].