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

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

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

extern unsigned long bin_bcd1(unsigned long);

extern unsigned long buf_long;
extern unsigned char dot_place;
extern unsigned char i;
extern float size;

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

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

	buf_long=bin_bcd1(buf_long);

	i=(unsigned char)buf_long&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;
	}
	buf_long=buf_long>>4;
	i=(unsigned char)buf_long&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;
	}
	buf_long=buf_long>>4;
	i=(unsigned char)buf_long&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;
	}
	buf_long=buf_long>>4;
	i=(unsigned char)buf_long&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;
	}
	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;
	}
}