OSDN Git Service

ora supported.
authorastoria-d <astoria-d@mail.goo.ne.jp>
Fri, 26 Jul 2013 10:00:55 +0000 (19:00 +0900)
committerastoria-d <astoria-d@mail.goo.ne.jp>
Fri, 26 Jul 2013 10:00:55 +0000 (19:00 +0900)
simulation/cpu/decoder.vhd

index ddafdde..3f1317c 100644 (file)
@@ -1424,6 +1424,13 @@ end  procedure;
                 elsif instruction  = conv_std_logic_vector(16#05#, dsize) then
                     --zp
                     d_print("ora");
+                    a2_zp;
+                    if exec_cycle = T2 then
+                        arith_en_n <= '0';
+                        back_oe(acc_cmd, '0');
+                        back_we(acc_cmd, '0');
+                        set_nz_from_alu;
+                    end if;
 
                 elsif instruction  = conv_std_logic_vector(16#15#, dsize) then
                     --zp, x