БЭМЗ полищук доки / mogilev yst / ce4_10_5 / OUT_ERR

/*дг­ЄжЁп ўлў®¤  б®®ЎйҐ­Ёп ®Ў ®иЁЎЄҐ ­  Ё­¤ЁЄ в®а –ќ7004M
      Copyright (C) ЃҐ«Ё«м­ЁЄ®ў ‚.„. 16.02.2001*/

         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ў­гв७­Ёе ॣЁбва®ў 80‘32*/
#include <io51.h>

extern long bin_bcd1(long);

extern long out_bcd;
extern long out_bcd1;
extern long buf_long;
extern char dot_place;
extern char i;
extern float size;

void out_(float size)
{
	if(size<0.0)
	{
		size=-size;
		ind0=0xbf;
	}
	else ind0=0xff;

	if(size>=1000.0)
	{
		buf_long=(long)size;
		dot_place=0;
	}
	if(size<1000.0&&size>=100.0)
	{
		buf_long=(long)(size*10.0);
		dot_place=1;
	}
	if(size<100.0&&size>=10.0)
	{
		buf_long=(long)(size*100.0);
		dot_place=2;
	}
	if(size<10.0)
	{
		buf_long=(long)(size*1000.0);
		dot_place=3;
	}

	out_bcd=bin_bcd1(buf_long);
	out_bcd1=out_bcd>>12;
	i=(char)out_bcd1&0x0f;
	switch(i){
		case 0 : ind1=0xc0;
		break;
		case 1 : ind1=0xf9;
		break;
		case 2 : ind1=0xa4;
		break;
		case 3 : ind1=0xb0;
		break;
		case 4 : ind1=0x99;
		break;
		case 5 : ind1=0x92;
		break;
		case 6 : ind1=0x82;
		break;
		case 7 : ind1=0xf8;
		break;
		case 8 : ind1=0x80;
		break;
		case 9 : ind1=0x90;
		break;
	}
	out_bcd1=out_bcd>>8;
	i=(char)out_bcd1&0x0f;
	switch(i){
		case 0 : ind2=0xc0;
		break;
		case 1 : ind2=0xf9;
		break;
		case 2 : ind2=0xa4;
		break;
		case 3 : ind2=0xb0;
		break;
		case 4 : ind2=0x99;
		break;
		case 5 : ind2=0x92;
		break;
		case 6 : ind2=0x82;
		break;
		case 7 : ind2=0xf8;
		break;
		case 8 : ind2=0x80;
		break;
		case 9 : ind2=0x90;
		break;
	}
	out_bcd1=out_bcd>>4;
	i=(char)out_bcd1&0x0f;
	switch(i){
		case 0 : ind3=0xc0;
		break;
		case 1 : ind3=0xf9;
		break;
		case 2 : ind3=0xa4;
		break;
		case 3 : ind3=0xb0;
		break;
		case 4 : ind3=0x99;
		break;
		case 5 : ind3=0x92;
		break;
		case 6 : ind3=0x82;
		break;
		case 7 : ind3=0xf8;
		break;
		case 8 : ind3=0x80;
		break;
		case 9 : ind3=0x90;
		break;
	}
	i=(char)out_bcd&0x0f;
	switch(i){
		case 0 : ind4=0xc0;
		break;
		case 1 : ind4=0xf9;
		break;
		case 2 : ind4=0xa4;
		break;
		case 3 : ind4=0xb0;
		break;
		case 4 : ind4=0x99;
		break;
		case 5 : ind4=0x92;
		break;
		case 6 : ind4=0x82;
		break;
		case 7 : ind4=0xf8;
		break;
		case 8 : ind4=0x80;
		break;
		case 9 : ind4=0x90;
		break;
	}
	switch(dot_place){
		case 0 : ind4=ind4&0x7f;
		break;
		case 1 : ind3=ind3&0x7f;
		break;
		case 2 : ind2=ind2&0x7f;
		break;
		case 3 : ind1=ind1&0x7f;
		break;
	}
}