ТЕМА:

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

// Установки выбранной скорости
always @(posedge FSlow)
	begin
	    if((SLoad==1)||(SStop==1))					// По сигналу "Загрузка", или "Стоп",
	    begin
	        if (RSpd==1)							// в зависимости от выбраной скорости,
	           DSpeed <= 10'd837;				// пишем одну, 
	        else
	          DSpeed <= 10'd620;				// или другую константу,
	    begin
	          tmp_h = DSpeed - 6'd60;		// вычисляем значение для регистра верхнего предела скорости,
	          tmp_l = DSpeed + 6'd60;		// и для регистра нижнего предела скорости.
	     end
	end

// Обработка нажатия кнопки "Увеличение скорости"
   if(SWork==1)									// При включенном сигнале "Рабочий режиме"
	begin											// разрешены операции подстройки скорости:
	if(ButUp==1) 							// При нажатии, и удержании кнопки ButUp:
		if(DSpeed < tmp_h) 				// Если не вышли за верхний предел диапазона изменения скорости,
			DSpeed <= DSpeed + 1'b1;	 // начинаем увеличивать скорость,
		else									// иначе
			DSpeed <= DSpeed;				// переписываем предельное (верхнее) значение DSpeed
		end

// Обработка нажатия кнопки "Уменьшение скорости"
	if(ButDn == 1) 						// При нажатии, и удержании кнопки ButDn:
		if(DSpeed > tmp_l) 				// Если не вышли за нижний предел диапазона изменения скорости
			DSpeed <= DSpeed - 1'b1;	// начинаем уменьшать скорость,
		else									// иначе
			DSpeed <= DSpeed;				// переписываем предельное (нижнее) значение DSpeed
	end
endmodule