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

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

extern unsigned long bin_bcd(unsigned int);
extern void mov_write(char,char);

unsigned char val_char;
extern unsigned long out_bcd;
extern unsigned long out_bcd1;
extern unsigned char i;
extern unsigned char poz;

void out_i2(unsigned char poz,unsigned char val_char)
{
	     out_bcd=bin_bcd(val_char);
		 out_bcd1=out_bcd>>4;
		 i=((char)out_bcd1&0x0f)+0x30;
         mov_write(poz,i); /*§ ЇЁбм 2-Ј® §­ Є */
		 i=((char)out_bcd&0x0f)+0x30;
         mov_write(poz+1,i); /*§ ЇЁбм ¬« ¤иҐЈ® (1-Ј®) §­ Є */
}