summaryrefslogtreecommitdiffstats
path: root/t80-ini.diff
blob: c779d40e3d83f523f4fcec313fb195b4f6f65207 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
This patch is against T80 version 0247; it is required for the string
I/O instructions (INI, IND, INIR, INDR, OUTI, OUTD, OTIR, OTDR) to
work correctly.

Index: T80_MCode.vhd
===================================================================
RCS file: /home/hpa/hwhacks/cvsroot/abc80/t80/T80_MCode.vhd,v
retrieving revision 1.5
diff -u -r1.5 T80_MCode.vhd
--- T80_MCode.vhd	5 Oct 2003 04:54:16 -0000	1.5
+++ T80_MCode.vhd	14 Oct 2003 16:12:18 -0000
@@ -1840,9 +1840,9 @@
 					Set_Addr_To <= aXY;
 				when 3 =>
 					if IR(3) = '0' then
-						IncDec_16 <= "0010";
+						IncDec_16 <= "0110";
 					else
-						IncDec_16 <= "1010";
+						IncDec_16 <= "1110";
 					end if;
 					TStates <= "100";
 					Write <= '1';
@@ -1869,9 +1869,9 @@
 					Set_Addr_To <= aBC;
 				when 3 =>
 					if IR(3) = '0' then
-						IncDec_16 <= "0010";
+						IncDec_16 <= "0110";
 					else
-						IncDec_16 <= "1010";
+						IncDec_16 <= "1110";
 					end if;
 					IORQ <= '1';
 					Write <= '1';