БЭМЗ полищук доки / mogilev yst / МК7007БМ / SW_ON_U

 
/*функция плавного включения напряжения МК7007Б 2009г.*/
         /*подключение заголовков внутренних регистров 80С31*/
#include <io51.h>

         /*определение адресов устройств ввода-вывода*/
#define inta_wrrg2 (*(char*) 0x015800) /*сброс запроса клавиатуры -по чтению*/
                                      /*запись в регистр амплитуд -по записи*/

extern  void delayi(char);
extern  void loadcw(void);

float volt_new;
float volt_new_a;
float volt_old;
float l_volt_old;
float const_cor_a;
float pszu;
int pszu_int;
char a;
extern float m_cor_flt[81];
char number_step;


void sw_on_u(float volt_new,float volt_old,float l_volt_old,char number_step)
{
        const_cor_a=m_cor_flt[1];

      volt_new_a=volt_new*const_cor_a;

for (a=1;a<=number_step;a=a+1)
{
pszu=((volt_old+((volt_new_a-volt_old)/number_step)*a)/l_volt_old)*15600.0;
		pszu_int=(unsigned int)pszu; 
		cw0=(char)pszu_int;
		pszu_int=pszu_int>>8;
		cw1=(char)pszu_int;
            inta_wrrg2=0x01;
		loadcw();
            inta_wrrg2=0;

		delayi(10);
}
}