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

/*ўў®¤ Ї®Їа ў®з­ле Є®нддЁжЁҐ­в®ў ЊЉ7007Ѓ 2009Ј.*/
         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ў­гв७­Ёе ॣЁбва®ў 80‘31*/
#include <io51.h>
         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ЎЁЎ«Ё®вҐз­ле дг­ЄжЁ©*/
#include <stdlib.h>

extern void out_corm(char,float);
extern void single_cor(char);
extern unsigned char num_key(void);
extern void move_dir(char);
extern void mov_read(char);
extern void mov_write(char,char);
extern void message(char[20],char[20],char[20],char[20]);

         /*®ЇаҐ¤Ґ«Ґ­ЁҐ вЁЇ  ЇҐаҐ¬Ґ­­ле*/
/*¬ ббЁў Ї®Їа ў®Є*/
float m_cor_flt[81];

/*float cor_u       =m_cor_flt[1] */
/*float cor_i_0005  =m_cor_flt[2] */
/*float cor_i_005   =m_cor_flt[3] */
/*float cor_i_05    =m_cor_flt[4] */

/*float cor_i_5     =m_cor_flt[5] */
/*float cor_i_10    =m_cor_flt[6] */
/*float cor_i_50    =m_cor_flt[7] */
/*float cor_f       =m_cor_flt[8] */

/*float cor_”_0005  =m_cor_flt[9] */
/*float cor_”_0005+-=m_cor_flt[10] */
/*float cor_”_005   =m_cor_flt[11] */
/*float cor_”_005+- =m_cor_flt[12] */

/*float cor_”_05    =m_cor_flt[13] */
/*float cor_”_05+-  =m_cor_flt[14] */
/*float cor_”_5     =m_cor_flt[15] */
/*float cor_”_5+-   =m_cor_flt[16] */

/*float cor_”_10    =m_cor_flt[17] */
/*float cor_”_10+-  =m_cor_flt[18] */
/*float cor_”_50    =m_cor_flt[19] */
/*float cor_”_50+-  =m_cor_flt[20] */

float const_cor;
extern unsigned char poz;
extern unsigned char i;
extern unsigned char j;
extern unsigned char k;
unsigned char nom;
extern unsigned char number;
/*-----------------------------------------------------------------------*/
code char screenP01[20]={"U        0,00000    "}; 
code char screenP02[20]={"I 0005   0,00000    "};
code char screenP03[20]={"I 005    0,00000    "};
code char screenP04[20]={"I 05     0,00000    "};
/*-----------------------------------------------------------------------*/
code char screenP05[20]={"I 5      0,00000    "};
code char screenP06[20]={"I 10     0,00000    "};
code char screenP07[20]={"I 50     0,00000    "};
code char screenP08[20]={"F        0,00000    "};
/*-----------------------------------------------------------------------*/
code char screenP09[20]={"Є 0005   0,00000    "};
code char screenP10[20]={"Є 0005+- 0,00000    "};
code char screenP11[20]={"Є 005    0,00000    "};
code char screenP12[20]={"Є 005+-  0,00000    "};
/*-----------------------------------------------------------------------*/
code char screenP13[20]={"Є 05     0,00000    "};
code char screenP14[20]={"Є 05+-   0,00000    "};
code char screenP15[20]={"Є 5      0,00000    "};
code char screenP16[20]={"Є 5+-    0,00000    "};
/*---------------------------------------------------------------------*/
code char screenP17[20]={"Є 10     0,00000    "};
code char screenP18[20]={"Є 10+-   0,00000    "};
code char screenP19[20]={"Є 50     0,00000    "};
code char screenP20[20]={"Є 50+-   0,00000    "};
/*-----------------------------------------------------------------------*/

void cor(void)
{
cor:
	for(k=0;k<=20;k=k+4)     /*ўлў®¤ Ї®Їа ў®Є ­  нЄа ­*/
	{
		if(k==0)
		{
			message(screenP01,screenP02,screenP03,screenP04);
			out_corm(0x89,m_cor_flt[1]);
			out_corm(0xc9,m_cor_flt[2]);
			out_corm(0x9d,m_cor_flt[3]);
			out_corm(0xdd,m_cor_flt[4]);
		}
		if(k==4)
		{
	   		message(screenP05,screenP06,screenP07,screenP08);
			out_corm(0x89,m_cor_flt[5]);
			out_corm(0xc9,m_cor_flt[6]);
			out_corm(0x9d,m_cor_flt[7]);
			out_corm(0xdd,m_cor_flt[8]);
		}
		if(k==8)
		{
			message(screenP09,screenP10,screenP11,screenP12);
			out_corm(0x89,m_cor_flt[9]);
			out_corm(0xc9,m_cor_flt[10]);
			out_corm(0x9d,m_cor_flt[11]);
			out_corm(0xdd,m_cor_flt[12]);
		}
		if(k==12)
		{
			message(screenP13,screenP14,screenP15,screenP16);
			out_corm(0x89,m_cor_flt[13]);
			out_corm(0xc9,m_cor_flt[14]);
			out_corm(0x9d,m_cor_flt[15]);
			out_corm(0xdd,m_cor_flt[16]);
		}
		if(k==16)
		{
			message(screenP17,screenP18,screenP19,screenP20);
			out_corm(0x89,m_cor_flt[17]);
			out_corm(0xc9,m_cor_flt[18]);
			out_corm(0x9d,m_cor_flt[19]);
			out_corm(0xdd,m_cor_flt[20]);
		}

screenP0_1:          /*ўў®¤ §­ зҐ­Ё© Ї®Їа ў®Є*/
		 poz=0x89;
		 nom=1+k;
		 singl_cor(nom);
	     move_dir(poz+7);
         number=num_key();		/*®ЇаҐ¤Ґ«Ґ­ЁҐ ­®¬Ґа  ­ ¦ в®© Є­®ЇЄЁ*/
	     if(number==13||number==16)return;
	     if(number==14)goto screenP0_2;
		 goto screenP0_1;
/*-----------------------------------------------------------------------*/
screenP0_2:
		 poz=0xc9;
		 nom=2+k;
		 singl_cor(nom);
	     move_dir(poz+7);
         number=num_key();		/*®ЇаҐ¤Ґ«Ґ­ЁҐ ­®¬Ґа  ­ ¦ в®© Є­®ЇЄЁ*/
	     if(number==16)return;
	     if(number==13)goto screenP0_1;
	     if(number==14)goto screenP0_3;
		 goto screenP0_2;
/*-----------------------------------------------------------------------*/
screenP0_3:
		 poz=0x9d;
		 nom=3+k;
		 singl_cor(nom);
	     move_dir(poz+7);
         number=num_key();		/*®ЇаҐ¤Ґ«Ґ­ЁҐ ­®¬Ґа  ­ ¦ в®© Є­®ЇЄЁ*/
	     if(number==16)return;
	     if(number==13)goto screenP0_2;
	     if(number==14)goto screenP0_4;
		 goto screenP0_3;
/*-----------------------------------------------------------------------*/
screenP0_4:
		 poz=0xdd;
		 nom=4+k;
		 singl_cor(nom);
	     move_dir(poz+7);
         number=num_key();		/*®ЇаҐ¤Ґ«Ґ­ЁҐ ­®¬Ґа  ­ ¦ в®© Є­®ЇЄЁ*/
	     if(number==16)return;
	     if(number==13)goto screenP0_3;
	     if(number==14&&k==16)goto cor;
	     if(number==14&&k!=16)continue;
		 goto screenP0_4;
	}
}