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

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

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

unsigned long buf_long;
unsigned long buf1_long;
unsigned long buf2_long;
float val_float;
unsigned long out_bcd;
unsigned long out_bcd1;
extern unsigned char i;
extern unsigned char poz;
extern unsigned char buf_ch1;
extern unsigned char buf_ch2;

void out_f14(unsigned char poz,float val_float)
{
	 	 buf_long=(long)(val_float*10000.0);   /*ЇаҐ®Ўа §®ў ­ЁҐ Ё ®ЄагЈ«Ґ­ЁҐ*/
		 buf1_long=(long)(val_float*100000.0); /*¤® 4-x жЁда Ї®б«Ґ § Їпв®©*/
		 buf2_long=buf_long*10;
		 buf_ch1=(char)buf1_long;
		 buf_ch2=(char)buf2_long;
		 if((buf_ch1-buf_ch2)>=5)buf_long=buf_long+1;
	     out_bcd=bin_bcd1(buf_long);

		 out_bcd1=out_bcd>>16;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz,i); /*§ ЇЁбм 5-Ј® §­ Є */
             i=0x2c;
         mov_write(poz+1,i); /*§ ЇЁбм § Їпв®©*/

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