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

/*”г­ЄжЁп ўў®¤  ®¤­®Ј® Ї®Їа ў®з­®Ј® Є®ндд. ЊЉ7006 ь30*/
         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ў­гв७­Ёе ॣЁбва®ў 80‘31*/
#include <io51.h>
         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ЎЁЎ«Ё®вҐз­ле дг­ЄжЁ©*/
#include <stdlib.h>
extern unsigned char num_key(void);
extern void move_dir(char);
extern void mov_read(char);
extern void mov_write(char,char);

         /*®ЇаҐ¤Ґ«Ґ­ЁҐ вЁЇ  ЇҐаҐ¬Ґ­­ле*/
extern float m_cor_flt[81];
extern unsigned char poz;
unsigned char poz1;
unsigned char m_cor[8];
extern unsigned char i;
extern unsigned char j;
extern unsigned char number;
extern unsigned char nom;

void singl_cor(unsigned char nom)
{
singl_cor_0:
			poz1=poz;
singl_cor_1:
	        move_dir(poz1);
         number=num_key();		/*®ЇаҐ¤Ґ«Ґ­ЁҐ ­®¬Ґа  ­ ¦ в®© Є­®ЇЄЁ*/
 if(number!=12&&number!=13&&number!=14&&number!=15&&number!=16)
	 {
        switch (number) {     /*ЇҐаҐе®¤л Ї® ­®¬Ґаг Є­®ЇЄЁ*/
		    case 1 : i=0x37;
		    break;
		    case 2 : i=0x34;
		    break;
		    case 3 : i=0x31;
		    break;
                case 4 : i=0x30;
		    break;
		    case 5 : i=0x38;
		    break;
		    case 6 : i=0x35;
		    break;
		    case 7 : i=0x32;
		    break;
		    case 8 : i=0x2c;
		    break;
	          case 9 : i=0x39;
		    break;
		    case 10 : i=0x36;
		    break;
		    case 11 : i=0x33;
		    break;
		}
            mov_write(poz1,i);
	        poz1=poz1+1;
			if(poz1>(poz+6))poz1=poz1-7;
	        goto singl_cor_1;
	 }
	 if(number==13||number==16)return;
	 if(number==14)
	 {
		 for(poz1=poz,j=0;j<=6;poz1++,j++)
		 {
			mov_read(poz1);
			if(i==0x2c)i=0x2e;
			m_cor[j]=i;
		 }
		 m_cor[7]=0x2f;
		 m_cor_flt[nom]=atof(m_cor);
		 return;
	 }
	 goto singl_cor_1;
}