ТЕМА:

// Вычисление задержки спадающего фронта импульса SHallA от нарастающего фронта импульса DFsA
// Период SHallA всегда равен периоду DFsA, но должен отставать от него на величину del.
  
module Del(FTakt, DFsA, SHallA, del);
input FTakt;	
input DFsA;	
input SHallA;	
output reg [5:0] del; 

reg tmp;	

always@(posedge FTakt)
begin
	//if(DFsA==1) tmp <= 1;	
	//else tmp <= 1'b0;			
	//это эквивалентно:
	tmp <= DFsA; 
			
	//if((tmp==1)&&(SHallA)==1)	
	if(tmp&SHallA)							
		del <= del + 6'b1;		
	else tmp <= 0;			
end
endmodule

module SetSpeed(FSlow, But33, But45, SAcsel, RSpd);
// Пины всех входов кнопок "притянуты" к земле. При нажатиии кнопки на соответствующий пин подается Vcc.
	input FSlow;				// Клок с частотой Fslow
	input But33;				// Сигнал включения скоросnи 33 об/мин
	input But45;				// Сигнал включения скорости 45 об/мин
	input SAcsel;				// Сигнал "Режим разгона"
	output reg RSpd;			// Регистр скорости
			 wire s33;			// Служебная линия
			 wire s45;			// Служебная линия
			 reg r33;			// Регистр кнопки скорости 33 
			 reg r45;			// Регистр кнопки скорости 45

	assign s33 = ~r33 & But33;
	assign s45 = ~r45 & But45;
	initial RSpd <= 1;	

always @(posedge FSlow)
	begin
	r33 <= But33;
	r45 <= But45;
	end
// Обработка нажатия кнопок выбора скорости
always @(posedge FSlow)
	if(SAcsel==0)				// Если не включен режим разгона, 
		begin				// то разрешен выбор рабочей скорости 33
			if(s33 == 1)		// При нажатии кнопки s_33
				RSpd <= 1;	 // устанавливаем сигнал скорости 33 об/мин,
			if(s45 == 1)		// При нажатии кнопки s_45			
				RSpd <= 0;	 // устанавливаем сигнал скорости 33 об/мин.
			if(s33&s45==1)		// При одновременном нажатии двух кнопок				
				RSpd <= RSpd;	// возвращаем ранее выбранное значение
		end
endmodule

module VarSpeed(FSlow, ButUp, ButDn, SAcsel, SWork, RSpd, SStop, DSpeed);
// Пины всех входов кнопок "притянуты" к земле. При нажатиии кнопки на соответствующий пин подается Vcc.
	input FSlow;				// Клок с частотой Fslow
	input ButUp;				// Сигнал увеличения скорости
	input ButDn;				// Сигнал уменьшения скорости
	input SAcsel;				// Сигнал "Режим разгона"
	input SWork;				// Сигнал "Рабочий режим"
	input SStop;				// Сигнал "Останов"
	input RSpd;				// Сигнал выбора скорости
	output reg [9:0]DSpeed;     	       // Шина данных на установку прескалера
		 reg [9:0]temp;	               // Регистр-времянка

// Установки выбранной скорости
always @(posedge FSlow)
	begin
		if ((SAcsel==1)||(SStop==1))				// По сигналу "Разгон", или "Стоп"
			begin
				if (RSpd==1)				// в зависимости от ранее выбранной скорости,
					DSpeed <= 10'd837;		// пишем одну, 
				else
					DSpeed <= 10'd620;		// или другую константу,
			end
			begin
				temp <= DSpeed;			// Дублируем ее в temp,
				temp <= (temp >> 3);		// и делим ее на 8 (3 сдвига вправо)
			end
			
// Обработка нажатия кнопки "Увеличение скорости"
		if(SWork==1)					// При включенном сигнале "Рабочий режиме"
			begin					// разрешены операции подстройки скорости:
				if(ButUp==1) 					// При нажатии, и удержании кнопки ButUp:
					if(DSpeed < (temp*9)) 			// Если не вышли за верхний предел диапазона изменения скорости,
						DSpeed <= (DSpeed+1'b1);	// начинаем увеличивать скорость,
					else					// иначе
						DSpeed <= DSpeed;		// переписываем предельное (верхнее) значение DSpeed
				end
				
// Обработка нажатия кнопки "Уменьшение скорости"
				if(ButDn == 1) 					// При нажатии, и удержании кнопки ButDn:
					if(DSpeed > (temp*7)) 			// Если не вышли за нижний предел диапазона изменения скорости
						DSpeed <= (DSpeed-1'b1);	// начинаем уменьшать скорость,
					else					// иначе
						DSpeed <= DSpeed;		// переписываем предельное (нижнее) значение DSpeed
	end
endmodule

  		if ((SAcsel==1)||(SStop==1))				// По сигналу "Разгон", или "Стоп"
			begin
				if (RSpd==1)				// в зависимости от ранее выбранной скорости,
					DSpeed <= 10'd837;		// пишем одну, 
				else
					DSpeed <= 10'd620;		// или другую константу,
			//end
			//begin
				//temp <= DSpeed;			// Дублируем ее в temp,
				//temp <= (temp >> 3);		// и делим ее на 8 (3 сдвига вправо)
				temp <= DSpeed >> 3;
			end