чуть дружелюбнее переход в режим спектрума

src/altera/acex/k30/DCP.TDF

@@ -220,39 +220,39 @@ VARIABLE
 BEGIN
 
 %
-	DC.CLK42	= CLK42;
-	DC./RESET	= /RESET;
-
-	DC.A[15..0]	= A[15..0];
-
-	DC./IO		= /IO;
-	DC./WR		= /WR;
-	DC./M1		= /M1;
-
---	DC./IOM;
---	DC./IOMM;
---	DC.DCP[7..0];
-
-	DC.DOS		= DOS;
-	DC.CNF[1..0]= CNF[4..3];
-
-	DC.SYS		= SYS;
-
---	DC.PORT_X;
+-- 	DC.CLK42	= CLK42;
+-- 	DC./RESET	= /RESET;
+-- 
+-- 	DC.A[15..0]	= A[15..0];
+-- 
+-- 	DC./IO		= /IO;
+-- 	DC./WR		= /WR;
+-- 	DC./M1		= /M1;
+-- 
+-- --	DC./IOM;
+-- --	DC./IOMM;
+-- --	DC.DCP[7..0];
+-- 
+-- 	DC.DOS		= DOS;
+-- 	DC.CNF[1..0]= CNF[4..3];
+-- 
+-- 	DC.SYS		= SYS;
+-- 
+-- --	DC.PORT_X;
 %
 
 
 --	==============================================================
 %
-	CT[].clk	= CLK42;
-
-	IF CT1 THEN
-		CT[1..0] 	= GND;
-		CT2			= !CT2;
-	ELSE
-		CT[1..0]	= CT[1..0]+1;
-		CT2			= CT2;
-	END IF;
+-- 	CT[].clk	= CLK42;
+-- 
+-- 	IF CT1 THEN
+-- 		CT[1..0] 	= GND;
+-- 		CT2			= !CT2;
+-- 	ELSE
+-- 		CT[1..0]	= CT[1..0]+1;
+-- 		CT2			= CT2;
+-- 	END IF;
 %
 
 	/RES	= DFFE(VCC,CLK42,,,CT0);
@@ -319,18 +319,18 @@ BEGIN
 	END IF;
 
 %
-	MA_[11..0]	bit0 - WG_A5
-				bit1 - WG_A6
-				bit2 - MUX_KP11, 0 - WG,CMOS	1 - KMPS,TM9
-				bit3 - RD/WR	 0 - WRITE		1 - READ
-				bit4 - CS_WG93 or WR_TM9
-				bit5 - HDD/CMOS strobe
-				bit7,6	- 	00 - not
-							01 - ????
-							10 - HDD1/2
-							11 - CMOS
-				bit8 - HDD CS1/CS3 or CMOS data/adr
-				bit9,10,11 - HDD_A[2..0]
+--	MA_[11..0]	bit0 - WG_A5
+--				bit1 - WG_A6
+--				bit2 - MUX_KP11, 0 - WG,CMOS	1 - KMPS,TM9
+--				bit3 - RD/WR	 0 - WRITE		1 - READ
+--				bit4 - CS_WG93 or WR_TM9
+--				bit5 - HDD/CMOS strobe
+--				bit7,6	- 	00 - not
+--							01 - ????
+--							10 - HDD1/2
+--							11 - CMOS
+--				bit8 - HDD CS1/CS3 or CMOS data/adr
+--				bit9,10,11 - HDD_A[2..0]
 %
 	CASE A[15..14] IS
 		WHEN 0 => SP_SCR = GND;		SP_SA = GND;
@@ -357,11 +357,11 @@ BEGIN
 		WHEN 1 => X_MA_[] = (HDD_A[2..0],B"00000",/WR,VCC,A[6..5]);
 	END CASE;
 %
-	CASE MA_CT1 IS
---		WHEN 0 => MA_[] = X_ADR[];
-		WHEN 0 => MA_[] = (GND,X_ADR[10..0]);
-		WHEN 1 => MA_[] = (HDD_A[2..0],X_MA_[8..4],/WR,X_MA_[3],A[6..5]);
-	END CASE;
+--	CASE MA_CT1 IS
+----		WHEN 0 => MA_[] = X_ADR[];
+--		WHEN 0 => MA_[] = (GND,X_ADR[10..0]);
+--		WHEN 1 => MA_[] = (HDD_A[2..0],X_MA_[8..4],/WR,X_MA_[3],A[6..5]);
+--	END CASE;
 %
 
 	CASE (IO_RW,MA_CT1) IS
@@ -667,7 +667,7 @@ END GENERATE;
 	SC[].clrn		= /RESET & !CNF6;	-- Scorpion-OFF
 
 	PN[5..0].clrn	= /RESET & !CNF5;	-- reset PN5
-	PN[7..5].clrn	= /RESET & CNF7;	-- set Pentagon-512
+	PN[7..6].clrn	= /RESET & CNF7;	-- set Pentagon-512
 
 	PN4Q	= PN4;