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

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

extern unsigned long bin_bcd1(unsigned long);
extern void move_dir(char);
extern void mov_write(char,char);

extern float const_cor;
extern unsigned long buf_long;
extern unsigned long out_bcd;
extern unsigned long out_bcd1;
extern unsigned char i;
extern unsigned char poz;

void out_corm(unsigned char poz,float const_cor)
{
		 buf_long=(long)(const_cor*100000.001); /*ЇаҐ®Ўа §®ў ­ЁҐ ў 楫®Ґ*/
	     out_bcd=bin_bcd1(buf_long); /*ЇаҐ®Ўа §®ў ­ЁҐ ў ¤ў®Ёз­®-¤ҐбпвЁз­®Ґ*/

		 out_bcd1=out_bcd>>20;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz,i); /*§ ЇЁбм 6-Ј® §­ Є */
		 out_bcd1=out_bcd>>16;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz+2,i); /*§ ЇЁбм 5-Ј® §­ Є */
		 out_bcd1=out_bcd>>12;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz+3,i); /*§ ЇЁбм 4-Ј® §­ Є */
		 out_bcd1=out_bcd>>8;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz+4,i); /*§ ЇЁбм 3-Ј® §­ Є */
		 out_bcd1=out_bcd>>4;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz+5,i); /*§ ЇЁбм 2-Ј® §­ Є */
		 i=((char)out_bcd&0x0f)+0x30;
         mov_write(poz+6,i); /*§ ЇЁбм ¬« ¤иҐЈ® (1-Ј®) §­ Є */
}