fork download

copy

/*======================================*/
/* インクルード                         */
/*======================================*/
#include "sfr_r838a.h"                  /* R8C/38A SFRの定義ファイル    */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <math.h>
#include  <errno.h>
#include "printf_lib.h"                 /* printf使用ライブラリ         */
//#include "hd44780.h"
 
/*======================================*/
/* シンボル定義                         */
/*======================================*/
 
#define LCD_DB	p3
#define LCD_DB7	p3_3
#define LCD_DB6	p3_2
#define LCD_DB5	p3_1
#define LCD_DB4	p3_0
#define LCD_STB	p3_4
#define LCD_RS	p3_5
#define LCD_LGT	p3_6
#define PWRKEY	p3_7
 
#define KEY_INTERVAL 3 //キーパッド　サンプリング間隔[ms]
 
#define	AUTOLIGHTOFF	10000 //バックライトオフまでの時間(ms) 1000*10→10秒
#define	AUTOPOWEROFF	90000 //オートパワーオフまでの時間(ms) 1000*60*1.5→1.5分
 
 
#define SPACE	' '				//空白
//#define PI pi					//円周率
#define PI (atan(1.0) * 4.0)	//円周率
 
//#define ERRORMESSAGE	
 
/*	キー・ID定義	*/
#define KEYID_BKLGT		0x72
#define KEYID_71		0x71
#define KEYID_MODE		0x70
 
#define KEYID_RIGHT		0x34		//右	→
#define KEYID_LEFT		0x31		//左	←
#define KEYID_UP		0x33		//上	↑
#define KEYID_DOWN		0x32		//下	↓　
#define KEYID_SELECT	0x30		//中央(決定)
 
#define KEYID_NUM0		0x20
#define KEYID_NUMPOINT	0x01
#define KEYID_NUM1		0x22
#define KEYID_NUM2		0x03
#define KEYID_NUM3		0x02
#define KEYID_NUM4		0x24
#define KEYID_NUM5		0x05
#define KEYID_NUM6		0x04
#define KEYID_NUM7		0x26
#define KEYID_NUM8		0x07
#define KEYID_NUM9		0x06
#define KEYID_NUMDEL	0x17
#define KEYID_NUMAC		0x16
#define KEYID_NUMEQUAL	0x10
#define KEYID_NUMPLUS	0x13
#define KEYID_NUMMINUS	0x12
#define KEYID_NUMX		0x15
#define KEYID_NUMSLASH	0x14
#define KEYID_NUM11		0x11
#define KEYID_NUM00		0x00
 
#define KEYID_INV		0x50	//正負
#define KEYID_NEG		0x47	//逆数
#define KEYID_SQUARE	0x51	//二乗
#define KEYID_SQROOT	0x52	//平方根
#define KEYID_POWER		0x53	//累乗（xのy乗）
 
#define KEYID_LOG10		0x25	//log10
#define	KEYID_LN		0x27	//loge(ネイピア数)
 
#define KEYID_DEGRAD	0xff	//度数法・弧度法　モード変更(ラーージーーーアーーーーーン！ディィィーーーーグリーーー！）
#define KEYID_SIN		0xff	//未指定
#define KEYID_COS		0xff	//未指定
#define	KEYID_TAN		0xff
 
#define MODEID_PWROFF	00		//電源OFF
#define MODEID_IFX		01		//(InFiX mode).....中間記法
#define	MODEID_RPN		02		//(Reverse Polish Notation mode).....逆ポーランド記法
#define MODEID_LOGICAL	03		//論理演算モード(2進数、8進数、10進数、16進数)
#define	MODEID_CHMOD	0xff	//モードチェンジ用画面表示#
#define	MODEID_DEFAULT	02		//初期状態
 
#define CHMOD_SCROLLY_0 	Lcd_line_print(2,MsgChmod2);Lcd_line_print(3,MsgChmod3);Lcd_line_print(4,MsgChmod4);
#define CHMOD_SCROLLY_1 	Lcd_line_print(2,MsgChmod3);Lcd_line_print(3,MsgChmod4);Lcd_line_print(4,MsgChmod5);
#define CHMOD_SCROLLY_2 	Lcd_line_print(2,MsgChmod4);Lcd_line_print(3,MsgChmod5);Lcd_line_print(4,MsgChmod6);
#define CHMOD_SCROLLY_3 	Lcd_line_print(2,MsgChmod5);Lcd_line_print(3,MsgChmod6);Lcd_line_print(4,MsgChmod7);
#define CHMOD_SCROLLY_4 	Lcd_line_print(2,MsgChmod6);Lcd_line_print(3,MsgChmod7);Lcd_line_print(4,MsgChmod8);
#define CHMOD_SCROLLY_MAX 4
#define CHMOD_SCROLLY_MIN 0
#define CHMOD_SCROLLY_PRINTLCD switch(scrollY){case 0: CHMOD_SCROLLY_0 break; case 1: CHMOD_SCROLLY_1 break; case 2: CHMOD_SCROLLY_2 break; case 3: CHMOD_SCROLLY_3 break; case 4: CHMOD_SCROLLY_4 break; default: scrollY=0; cursorY = 2; CHMOD_SCROLLY_0 break;}
 
/*======================================*/
/* プロトタイプ宣言                     */
/*======================================*/
void init( void );
void timer( unsigned long timer_set );
unsigned char dipsw_get( void );
 
unsigned char chmod(void);
void mode_rpn(void);
void mode_infix(void);
void mode_logical(void);
 
void Lcd_init(void);				//LCD初期化
void Lcd_output(char *str);			//
void Lcd_clear(void);
void Lcd_black(void);
void Lcd_cmd(char cmd);
void Lcd_data(char asci);
void Lcd_out(char code, char flag);
void Lcd_locate(char x, char y);													//カーソルの位置指定
void Lcd_cursol(char c_mode);														//カーソルの表示を変更
void Lcd_line_print(char y,char *str);												//LCDに出力。行数指定有り
void Lowspeed_Lcd_line_print(char y,unsigned long w,char *str);						//LCDに出力。行数指定有り。タイプライターっぽく遅延しながら表示
void Lcd_Itostring(char y, int digit, unsigned long data, char *buffer, char z);
void Lcd_line_print_cgram(char y);
void Lcd_backlight(char z);
char Lcd_backlight_stat(void);
 
void Delay(long usec);
void Delay_ms(unsigned long msec);
 
//void Itostring(int digit, unsigned long data, char *buffer);
//void Ltostring(int digit, unsigned long long data, char *buffer);
void Ltostring_int(int digit, unsigned long long data, char *buffer);
void Ltostring_decimal(int digit, unsigned long long data, char *buffer);
 
void Keypad_read(void);
 
void Poweroff(void);
 
unsigned char Check_key_bit(unsigned char keyid,const char *buffer);
 
void stackin(char in,char digits,char position,char *stack);
 
 
void myftoa(char *string, double f, int figure);
 
double myatof(const char *string);
 
unsigned long long POW(int a, int b);
 
void mode_infomation(void);
 
double DegtoRad(double degree);
double RadtoDeg(double radian);
 
void error_handing(void);
/*======================================*/
/* グローバル変数の宣言                 */
/*======================================*/
unsigned long   cnt0;                   /* timer関数用                  */
unsigned char	cnt1;                   /* main内で使用                */
char cnt2;
char cnt3;
unsigned char pwrhold = 0;
char backlight_stat = 0;
char key0 = 0;
char keystat[8] = {0,0,0,0,0,0,0,0};
char keynow[8] = {0,0,0,0,0,0,0,0};
char keypast[8] = {0,0,0,0,0,0,0,0};
char keypast0[8] = {0,0,0,0,0,0,0,0};
char keypast1[8] = {0,0,0,0,0,0,0,0};
//char keypast2[8] = {0,0,0,0,0,0,0,0};
//char keypast3[8] = {0,0,0,0,0,0,0,0};
//char keypast4[8] = {0,0,0,0,0,0,0,0};
char keypast5[8] = {0,0,0,0,0,0,0,0};
char key0to1[8] = {0,0,0,0,0,0,0,0};
char key1to0[8] = {0,0,0,0,0,0,0,0};
unsigned long delayms = 0;
char Is_InfomationMode = 0;
 
/************************************************************************/
/* メインプログラム                                                     */
/************************************************************************/
void main( void )
{
	unsigned char mode = MODEID_DEFAULT;
	/* マイコン機能の初期化 */
	init();                             /* 初期化                       */
    asm(" fset I ");                    /* 全体の割り込み許可           */
 
	while(1){				
		Lcd_init();
		Lcd_clear();
		Lcd_cursol(4);	
		Lcd_clear();
		switch(mode){
			case MODEID_PWROFF:		//電源OFF
				Poweroff();
				break;
 
			case MODEID_IFX:		//中間記法（普通の数式）モード
				mode_infix();		//中間記法(InFiX mode)
				mode = MODEID_CHMOD;
				break;
 
			case MODEID_RPN:		//RPN（逆ポーランド記法）モード
				mode_rpn();
				mode = MODEID_CHMOD;
				break;
			case MODEID_LOGICAL:	
				mode_logical();
				mode = MODEID_CHMOD;
				break;
			case MODEID_CHMOD:
			default:								
				mode = chmod();		//モード変更画面
				break;
		}
	}
}//←←←←←←←メイン関数終了
 
unsigned char chmod(void){		//チェンジモード　モードIDを返します
	char cursorX,cursorY,scrollY,i; 
	char MsgChmod1[21] = " *** ChangeMODE 0-2 ";
	char MsgChmod2[21] = "0.PWR OFF           ";
	char MsgChmod3[21] = "1.InFiX MODE        ";
	char MsgChmod4[21] = "2.RPN MODE          ";
	char MsgChmod5[21] = "3.Logical operation ";
	char MsgChmod6[21] = "4.Undefined ...     ";
	char MsgChmod7[21] = "5.Undefined ...     ";
	char MsgChmod8[21] = "6.Undefined ...     ";
 
	Lcd_line_print(1,MsgChmod1);
 
	cursorX = 1;cursorY = 2;scrollY = 0;
 
	CHMOD_SCROLLY_PRINTLCD
	Lcd_locate(cursorX,cursorY);
	printf("/*** Change MODE ***/\n");
 
	while(1)
	{	
		Delay_ms(1);
		for(i=0;i<=7;i++)
		{
			key0to1[i] = keystat[i] & ~keypast5[i];
			keypast5[i] = keystat[i];
		}
		if(Check_key_bit(KEYID_RIGHT,key0to1))
		{
			cursorX++;
			Lcd_locate(cursorX,cursorY);
		}
		if(Check_key_bit(KEYID_LEFT,key0to1))
		{
			cursorX--;
			Lcd_locate(cursorX,cursorY);
		}
		if(Check_key_bit(KEYID_DOWN,key0to1))
		{
			cursorY++;
			Lcd_locate(cursorX,cursorY);
		}
		if(Check_key_bit(KEYID_UP,key0to1))
		{
			cursorY--;
			Lcd_locate(cursorX,cursorY);
		}
		if(Check_key_bit(KEYID_SELECT,key0to1)){
			switch(cursorY + scrollY){
				case 2:
				return MODEID_PWROFF;
				break;
				case 3:
				return MODEID_IFX;
				break;
				case 4:
				return MODEID_RPN;
				break;
				case 5:
				return MODEID_LOGICAL;
				return 3;
				break;
				case 6:
				return 4;
				break;
			}
		}
		if(Check_key_bit(KEYID_NUM0,key0to1)){
			return MODEID_PWROFF;
		}
		if(Check_key_bit(KEYID_NUM1,key0to1)){
			return MODEID_IFX;
		}
		if(Check_key_bit(KEYID_NUM2,key0to1)){
			return MODEID_RPN;
		}
		if(Check_key_bit(KEYID_NUM3,key0to1)){
			return MODEID_LOGICAL;
		}
		if(cursorY > 4)
		{
			scrollY++;
			cursorY = 4;			
			CHMOD_SCROLLY_PRINTLCD
			Lcd_locate(cursorX,cursorY);
		}
		if(cursorY < 2)
		{
			scrollY--;
			cursorY = 2;
			CHMOD_SCROLLY_PRINTLCD
			Lcd_locate(cursorX,cursorY);
		}
	if(cursorX > 20) {cursorX = 1;Lcd_locate(cursorX,cursorY);}
	if(cursorX < 1) {cursorX = 20;Lcd_locate(cursorX,cursorY);}
	}
	return MODEID_CHMOD;
}		//←←←←←←←chmod関数終了
 
void mode_infix(void){	//Infixモード（中間記法）
	printf("/*** Infix MODE ***/\n");
	return;	
}		//←←←←←←←mode_infix関数終了
 
void mode_rpn(void){	//RPNモード（逆ポーランド記法）
    unsigned char	i = 0; 
	char demical = 0;
	char MsgPrint1[25] = "\0"; 
	char MsgPrint2[25] = "\0"; 
	char MsgPrint3[25] = "\0"; 
	char MsgPrint4[25] = "\0";
 
	char KeyStack1[21];
	char KeyStack2[21];
	char KeyStack3[21];
	char KeyStack4[21];
	char KeyStack5[21];
	char KeyStack6[21];
 
	double Stack[7] = {0,0,0,0,0,0,0};
 
	char Is_nextStackShift = 0;
	char cursor = 0;
	char cursormode = 4;
	char RefreshLCD = 1;
	char cursorpast = cursor;	
 
	for(i=0;i<=20;i++)
	{
			KeyStack1[i] = SPACE;
			KeyStack2[i] = SPACE;
			KeyStack3[i] = SPACE;
			KeyStack4[i] = SPACE;
			KeyStack5[i] = SPACE;
			KeyStack6[i] = SPACE;
	}
	KeyStack1[20] = '\0';
	KeyStack2[20] = '\0';
	KeyStack3[20] = '\0';
	KeyStack4[20] = '\0';
	KeyStack5[20] = '\0';
	KeyStack6[20] = '\0';	
 
	printf("/*** RPN MODE ***/\n");
 
	while(1)
	{	//printf("While Head\n");
		Delay_ms(1);
		for(i=0;i<=7;i++)
		{
			key0to1[i] = keystat[i] & ~keypast5[i];
			keypast5[i] = keystat[i];
		}
		{
				if(cursor > 19) cursor = 0;
				if(Check_key_bit(KEYID_MODE,key0to1))			//モードキーが押された時の処理
				{
					while(Check_key_bit(KEYID_MODE,keystat));	//モードキーが離されるまで待つ
					return;										//main()関数に戻る
				}
				if(Check_key_bit(0x73,key0to1))	//テスト用のキー。あとで変更する
				{ 
					cursormode++;
					if(cursormode >= 5) cursormode = 1;
					Lcd_cursol(cursormode);
				}
 
				if(Check_key_bit(KEYID_LEFT,key0to1)) //方向キー　←
				{ 
					if(cursor) cursor--;
					while(Check_key_bit(KEYID_LEFT,keystat))
					{
						if(Check_key_bit(KEYID_NUM0,key0to1)) cursor =	0;
						if(Check_key_bit(KEYID_NUM1,key0to1)) cursor--;
						if(Check_key_bit(KEYID_NUM2,key0to1)) cursor -= 2;
						if(Check_key_bit(KEYID_NUM3,key0to1)) cursor -= 3;
						if(Check_key_bit(KEYID_NUM4,key0to1)) cursor -= 4;
						if(Check_key_bit(KEYID_NUM5,key0to1)) cursor -= 5;
						if(Check_key_bit(KEYID_NUM6,key0to1)) cursor -= 6;
						if(Check_key_bit(KEYID_NUM7,key0to1)) cursor -= 7;
						if(Check_key_bit(KEYID_NUM8,key0to1)) cursor -= 8;
						if(Check_key_bit(KEYID_NUM9,key0to1)) cursor -= 9;
						if(cursor > 19) cursor = 0;
						if(cursorpast != cursor)	Lcd_locate(cursor+1,4);
						cursorpast = cursor;
						for(i=0;i<=7;i++)
						{
							key0to1[i] = keystat[i] & ~keypast5[i];
							keypast5[i] = keystat[i];
						}
					}
				}
 
				if(Check_key_bit(KEYID_RIGHT,key0to1)) //方向キー　→
				{ 
					if(cursor<=19) cursor++;
					while(Check_key_bit(KEYID_RIGHT,keystat))
					{
						if(Check_key_bit(KEYID_NUM0,key0to1)) cursor =	19;
						if(Check_key_bit(KEYID_NUM1,key0to1)) cursor++;
						if(Check_key_bit(KEYID_NUM2,key0to1)) cursor += 2;
						if(Check_key_bit(KEYID_NUM3,key0to1)) cursor += 3;
						if(Check_key_bit(KEYID_NUM4,key0to1)) cursor += 4;
						if(Check_key_bit(KEYID_NUM5,key0to1)) cursor += 5;
						if(Check_key_bit(KEYID_NUM6,key0to1)) cursor += 6;
						if(Check_key_bit(KEYID_NUM7,key0to1)) cursor += 7;
						if(Check_key_bit(KEYID_NUM8,key0to1)) cursor += 8;
						if(Check_key_bit(KEYID_NUM9,key0to1)) cursor += 9;
						if(cursor > 19) cursor = 0;
						if(cursorpast != cursor)	Lcd_locate(cursor+1,4);
						cursorpast = cursor;
						for(i=0;i<=7;i++)
						{
							key0to1[i] = keystat[i] & ~keypast5[i];
							keypast5[i] = keystat[i];
						}
					}
				}
 
				if(Check_key_bit(KEYID_NUMAC,key0to1))	//AC押した時
				{ 
					printf("Check key AC\n");
					Is_nextStackShift = 0;					
					Lcd_clear();
					cursor = 0;
					for(i=0;i<=19;i++)
					{
						KeyStack1[i] = SPACE;
						KeyStack2[i] = SPACE;
						KeyStack3[i] = SPACE;
						KeyStack4[i] = SPACE;
					}
					for(i=0;i<=6;i++)
					{
						Stack[i] = 0;
					}
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUMDEL,key0to1))	//DEL押した時
				{ 
					printf("Check key DEL\n");
					if(cursor) cursor--;  //cursorが"0"以外なら実行
					if(cursor <= 19) stackin(0x7f,19,cursor,KeyStack1); //0x7f…アスキーコードで「DEL」をあらわす
					Is_nextStackShift = 0;
					RefreshLCD = 1;
					i = 0;
					while(Check_key_bit(KEYID_NUMDEL,keystat))
					{
						i++;
						Delay_ms(10);
						if(Check_key_bit(KEYID_NUMAC,keystat))
						{
							for(i=0;i<=19;i++)
							{
								KeyStack1[i] = SPACE;
							}
							cursor = 0;
							break;
						}
						if(i >= 150)
						{
							for(i=0;i<=19;i++)
							{
								KeyStack1[i] = SPACE;
							}
							cursor = 0;
							break;
						}
					}
					i = 0;
				}
 
				if(Check_key_bit(KEYID_NUMPOINT,key0to1))	//小数点キー押した時
				{ printf("Check key Dot\n");
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					stackin('.',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM0,key0to1))	//数字キー 0
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 0\n");
					stackin('0',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM1,key0to1))	//数字キー 1
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 1\n");
					stackin('1',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM2,key0to1))	//数字キー 2
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 2\n");
					stackin('2',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM3,key0to1))	//数字キー 3
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 3\n");
					stackin('3',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM4,key0to1))	//数字キー 4
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 4\n");
					stackin('4',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM5,key0to1))	//数字キー 5
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 5\n");
					stackin('5',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM6,key0to1))	//数字キー 6
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 6\n");
					stackin('6',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM7,key0to1))	//数字キー 7
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 7\n");
					stackin('7',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM8,key0to1))	//数字キー 8
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 8\n");
					stackin('8',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
 
				if(Check_key_bit(KEYID_NUM9,key0to1))	//数字キー 9
				{ 
					if(Is_nextStackShift)
					{
						Is_nextStackShift = 0;
						Stack[6] = Stack[5];
						Stack[5] = Stack[4];
						Stack[4] = Stack[3];
						Stack[3] = Stack[2];
						Stack[2] = Stack[1];
						cursor = 0;
						//Lcd_clear();
						for(i=0;i<=19;i++)
						{
							KeyStack1[i] = SPACE;
						}
					}
					printf("Check key 9\n");
					stackin('9',19,cursor,KeyStack1);
					++cursor;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_NUMEQUAL,key0to1))	//イコール＝　キー
				{ 
					Stack[6] = Stack[5];
					Stack[5] = Stack[4];
					Stack[4] = Stack[3];
					Stack[3] = Stack[2];
					if(Is_nextStackShift)
					{
						Stack[2] = Stack[1];
					}else{
						Stack[2] = myatof(KeyStack1);
					}
					Stack[1] = 0;
					printf("Check key Equal\n");
					cursor = 0;
					for(i=0;i<=19;i++)
					{
						KeyStack1[i] = SPACE;
					}
					Is_nextStackShift = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_NUMPLUS,key0to1))	//プラス　+　押した時
				{ 
					printf("Check key PLUS +\n");
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1]  += Stack[2];
					myftoa(KeyStack1,Stack[1],0);
					Stack[2] = Stack[3];
					Stack[3] = Stack[4];
					Stack[4] = Stack[5];
					Stack[5] = Stack[6];
					Is_nextStackShift = 1;
					Stack[6] = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_NUMMINUS,key0to1))	//マイナス -　押した時
				{ 
					printf("Check key MINUS\n");
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = Stack[2] - Stack[1];
					myftoa(KeyStack1,Stack[1],0);
					Stack[2] = Stack[3];
					Stack[3] = Stack[4];
					Stack[4] = Stack[5];
					Stack[5] = Stack[6];
					Is_nextStackShift = 1;
					Stack[6] = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_NUMX,key0to1))	//かける×　押した時
				{ 
					printf("Check key X(KAKEZAN)\n");
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1]  *= Stack[2];
					myftoa(KeyStack1,Stack[1],0);
					Stack[2] = Stack[3];
					Stack[3] = Stack[4];
					Stack[4] = Stack[5];
					Stack[5] = Stack[6];
					Is_nextStackShift = 1;
					Stack[6] = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_NUMSLASH,key0to1))	//割る÷　押した時
				{ 
					printf("Check key WARIZAN\n");
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = Stack[2] / Stack[1];
					myftoa(KeyStack1,Stack[1],0);
					Stack[2] = Stack[3];
					Stack[3] = Stack[4];
					Stack[4] = Stack[5];
					Stack[5] = Stack[6];
					Is_nextStackShift = 1;
					Stack[6] = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_INV,key0to1))	//　逆数
				{ 
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = 1 / Stack[1];
					myftoa(KeyStack1,Stack[1],0);
					RefreshLCD = 1;
					Is_nextStackShift = 1;
				}
				if(Check_key_bit(KEYID_NEG,key0to1))	//　正負変換
				{	
					if((KeyStack1[0]==SPACE)||(KeyStack1[1]==SPACE))
					{
						RefreshLCD = 1;				
						KeyStack1[0] = '-';
						cursor = 1;
					}else
					{
						if(~Is_nextStackShift)
						{
							Stack[1] = myatof(KeyStack1);
						}
						Stack[1] = 0 - Stack[1];
						myftoa(KeyStack1,Stack[1],0);
						RefreshLCD = 1;
						Is_nextStackShift = 1;
					}
				}
				if(Check_key_bit(KEYID_SQUARE,key0to1))	//　二乗
				{ 
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = Stack[1] * Stack[1];
					myftoa(KeyStack1,Stack[1],0);
					RefreshLCD = 1;
					Is_nextStackShift = 1;
				}
				if(Check_key_bit(KEYID_SQROOT,key0to1))	//　平方根
				{ 
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = sqrt(Stack[1]);
					myftoa(KeyStack1,Stack[1],0);
					RefreshLCD = 1;
					Is_nextStackShift = 1;
				}
				if(Check_key_bit(KEYID_POWER,key0to1))	//累乗(xのy乗) Stack2^Stack1
				{
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = pow(Stack[2],Stack[1]);
					myftoa(KeyStack1,Stack[1],0);
					Stack[2] = Stack[3];
					Stack[3] = Stack[4];
					Stack[4] = Stack[5];
					Stack[5] = Stack[6];
					Is_nextStackShift = 1;
					Stack[6] = 0;
					RefreshLCD = 1;
				}
				if(Check_key_bit(KEYID_LOG10,key0to1))	//常用対数　log10
				{ 
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = log10(Stack[1]);
					myftoa(KeyStack1,Stack[1],0);
					RefreshLCD = 1;
					Is_nextStackShift = 1;
				}
				if(Check_key_bit(KEYID_LN,key0to1))	//自然対数　log e (ネイピア数
				{ 
					if(~Is_nextStackShift)
					{
						Stack[1] = myatof(KeyStack1);
					}
					Stack[1] = log(Stack[1]);
					myftoa(KeyStack1,Stack[1],0);
					RefreshLCD = 1;
					Is_nextStackShift = 1;
				}
		}
	//printf("cursor: %d\n",cursor);
	if(RefreshLCD == 1)
	{
		myftoa(KeyStack2,Stack[2],0);
		myftoa(KeyStack3,Stack[3],0);
		myftoa(KeyStack4,Stack[4],0);
		Lcd_cursol(1);
		Lcd_line_print(1,KeyStack4);
		Lcd_line_print(2,KeyStack3);
		Lcd_line_print(3,KeyStack2);
		Lcd_line_print(4,KeyStack1);
		RefreshLCD = 0;
		Lcd_locate(cursor+1,4);
		Lcd_cursol(cursormode);/*
		printf("\nStack1 : %g\n",Stack[1]);
		printf("\nStack2 : %g\n",Stack[2]);
		printf("\nStack3 : %g\n",Stack[3]);
		printf("\nStack4 : %g\n",Stack[4]);
		printf("\nStack5 : %g\n",Stack[5]);
		printf("\nStack6 : %g\n",Stack[6]);*/
		printf("KeyStack1 : %s\n",KeyStack1);
		printf("KeyStack2 : %s\n",KeyStack2);
		printf("KeyStack3 : %s\n",KeyStack3);
		printf("KeyStack4 : %s\n",KeyStack4);
	}
	if(errno)	//エラー時の処理
	{
		error_handing();
		RefreshLCD = 0;
	}
	if(cursorpast != cursor) 	Lcd_locate(cursor+1,4);
	cursorpast = cursor;
	}
 
}     //←←←←←←←mode_rpn関数終了
 
void mode_logical(void)
{
}     //←←←←←←←mode_logical関数終了
 
/************************************************************************/
/* R8C/38A スペシャルファンクションレジスタ(SFR)の初期化                */
/************************************************************************/
void init( void )
{
    int i;
 
    /* クロックをXINクロック(20MHz)に変更 */
    prc0  = 1;                          /* プロテクト解除               */
    cm13  = 1;                          /* P4_6,P4_7をXIN-XOUT端子にする*/
    cm05  = 0;                          /* XINクロック発振              */
    for(i=0; i<50; i++ );               /* 安定するまで少し待つ(約10ms) */
    ocd2  = 0;                          /* システムクロックをXINにする  */
    prc0  = 0;                          /* プロテクトON                 */
 
    /* ポートの入出力設定  0:入力　1:出力 76543210 */
    prc2 = 1;                           /* PD0のプロテクト解除          */
    pd0 = 0x00;                         /*         */
    pd1 = 0xd0;                         /* 5:RXD0 4:TXD0 3-0:DIP SW   1101 0000  */
    p2  = 0xc0;
    pd2 = 0xfe;                         /*   */
    pd3 = 0xff;                         /*LCD 0-DB4～3-DB7 4-Enable 5-RS 6-BkLGT*/
	p3	= 0x00;
    p4  = 0x00;                         /* P4_5のLED:初期は消灯         */
    pd4 = 0xb8;                         /* 7:XOUT 6:XIN 5:LED 2:VREF    */
    pd5 = 0x00;                         /*	キーマトリックス・入力	プルアップON	*/
	pu12 = 1;pu13 = 1;
    pd6 = 0xff;                         /*	キーマトリックス・出力			*/
	drr14 = 1; drr15 = 1;
    pd7 = 0x00;                         /* 	電池電圧検出用とか */
 
    pd8 = 0xff;                         /*                              */
    pd9 = 0x00;                         /*   0-5 IN                           */
	//p9 = 0x38;
    pur0 = 0x04;                        /* P1_3～P1_0のプルアップON     */
 
	vlt22 = 1;							/* P9_0～P9_5 入力スレッショルド→0.35×VCCにセット */
	vlt23 = 0;							/*  */
 
 
    /* タイマRBの設定 */
    /* 割り込み周期 = 1 / 20[MHz]   * (TRBPRE+1) * (TRBPR+1)
                    = 1 / (20*10^6) * 200        * 100
                    = 0.001[s] = 1[ms]
    */
    trbmr  = 0x00;                      /* 動作モード、分周比設定       */
    trbpre = 200-1;                     /* プリスケーラレジスタ         */
    trbpr  = 100-1;                     /* プライマリレジスタ           */
    trbic  = 0x06;                      /* 割り込み優先レベル設定       */
    trbcr  = 0x01;                      /* カウント開始                 */
 
 
    /* タイマRD リセット同期PWMモードの設定*/
    /* PWM周期 = 1 / 20[MHz]   * カウントソース * (TRDGRA0+1)
               = 1 / (20*10^6) * 8              * 40000
               = 0.016[s] = 16[ms]
    */
    trdpsr0 = 0x08;                     /* TRDIOB0,C0,D0端子設定        */
    trdpsr1 = 0x05;                     /* TRDIOA1,B1,C1,D1端子設定     */
    trdmr   = 0xf0;                     /* バッファレジスタ設定         */
    trdfcr  = 0x01;                     /* リセット同期PWMモードに設定  */
    trdcr0  = 0x23;                     /* ソースカウントの選択:f8      */
    trdgra0 = trdgrc0 ;      /* 周期                         */
    trdgrb0 = trdgrd0 = 0;              /* P2_2端子のON幅設定           */
    trdgra1 = trdgrc1 = 0;              /* P2_4端子のON幅設定           */
    trdgrb1 = trdgrd1 ;   /* P2_5端子のON幅設定           */
    trdoer1 = 0xcd;                     /* 出力端子の選択               */
    trdstr  = 0x0d;                     /* TRD0カウント開始             */
 
	//Delay_ms(2);
	p4  = 0x20;                         /* P4_5のLED:初期は点灯         */
 
	init_uart0_printf( SPEED_9600 );
	 printf(
        "\n/* START Function Calcrator Alpha Ver. */\n"
		"/* Made by Toyoda Kouhei ( ->kuriuzu ) */ \n"
        "/* This is UART Debug Console */\n"
    );
}
 
/************************************************************************/
/* タイマRB 割り込み処理                                                */
/************************************************************************/
#pragma interrupt intTRB(vect=24)
void intTRB( void )
{	
	delayms++;
    cnt0++;
    cnt1++;
	cnt2++;
	if(cnt2 == KEY_INTERVAL){
		cnt2 = 0;
		Keypad_read();
	}
}
 
/************************************************************************/
/* タイマ本体                                                           */
/* 引数  タイマ値 1=1ms                                                */
/************************************************************************/
void timer( unsigned long timer_set )
{
    delayms = 0;
    while( delayms < timer_set );
}
 
/************************************************************************/
/* ディップスイッチ値読み込み                                           */
/* 戻り値 スイッチ値 0～15                                              */
/************************************************************************/
unsigned char dipsw_get( void )
{
    unsigned char sw;
 
    sw = p1 & 0x0f;                     /* P1_3～P1_0読み込み           */
 
    return  sw;
}
 
 
 
//-----  ディレイ関数　msec単位 -----
 
void Delay_ms(unsigned long msec) //！注意！最大-1[ms]の誤差が出ます。！注意！
{
	delayms = 0;
	while(delayms < msec)
	{
		_asm(
				"fset	I;"
				"wait;"
				"nop;"
				"nop;"
				"nop;"
				"nop;"
				);
	}
}	
 
//-----  ディレイ関数  1usec単位 -----
 
void Delay(long usec)
{
	usec = (usec * 20000) / 45000;
	while(usec--){}
}
 
//----------------------------------------------------
//  液晶表示器制御ライブラリ
//----------------------------------------------------
 
//-----  LCD初期化関数  -----
 
void Lcd_init()
{
	Delay(20000);				//20msec wait
	Lcd_out(0x03, 1);			//8bit mode set
	Delay(5000);				//5msec wait
	Lcd_out(0x03, 1);			//8bit mode set
	Delay(1000);
	Lcd_out(0x03, 1);			//8bit mode set
	Delay(1000);
	Lcd_out(0x02, 1);			//4bit mode set
	Delay(1000);
	Lcd_cmd(0x2C);				//DL=0 4bit mode
	Lcd_cmd(0x08);				//display off C=D=B=0
	Lcd_cmd(0x0E);				//display on D=B=1 C=0
	Lcd_cmd(0x06);				//entry I/D=1 S=0
	Lcd_cmd(0x01);				//all clear
}
 
//-----  データ出力サブ関数  -----
 
void Lcd_out(char code, char flag)
{
	LCD_DB = (LCD_DB & 0xf0) | (code & 0x0f);
								//出力データ下位４ビットを出力
	if (flag == 0)				//表示データかコマンドか
		LCD_RS = 1;				//表示データの場合RS=1
	else
		LCD_RS = 0;				//コマンドデータの場合RS=0
	asm("NOP");					//NOP　スキュー確保		
	LCD_STB = 1;				//STB ON
	asm("NOP");
	asm("NOP");					//パルス幅確保230nsec以上
	asm("NOP");
	asm("NOP");
	LCD_STB = 0;					//STB OFF
}
 
//-----  １文字表示関数  -----
 
void Lcd_data(char asci)
{
	Lcd_out(asci>>4, 0);		//上位４ビット出力
	Lcd_out(asci, 0);			//下位４ビット出力
	Delay(50);					//50μsec待ち
}
 
//-----  コマンド出力関数  -----
 
void Lcd_cmd(char cmd)
{
	Lcd_out(cmd>>4, 1);			//上位４ビット出力
	Lcd_out(cmd, 1);			//下位４ビット出力
	if((cmd == 0x01) || (cmd == 0x02))
		Delay(2000);			//2msec待ち
	else
		Delay(50);				//50usec待ち
}
 
//-----  全消去関数  -----
 
void Lcd_clear()
{
	Lcd_cmd(0x01);				//初期化コマンド出力
}
 
//-----  文字列出力関数  -----
 
void Lcd_output(char *str)
{
	while(*str != 0x00)			//文字列の終わり判定
	{
		Lcd_data(*str);			//文字列１文字出力
		str++;					//ポインタ＋１
	}
}
 
//-----  カーソル位置に移動  -----
 
void Lcd_locate(char x, char y)
{
	char i;
	if (y == 1){
		Lcd_cmd(0x02);
		x--;
		while ( x ){
			Lcd_cmd(0x14);
			x--;
		}
	}else if (y == 2){
		Lcd_cmd(0x02);
		x--;
		for (i=1;i<=40;i++){
			Lcd_cmd(0x14);
		}
		while ( x ){
			Lcd_cmd(0x14);
			x--;
		}
	}else if (y == 3){
		Lcd_cmd(0x02);
		x--;
		for (i=1;i<=20;i++){
			Lcd_cmd(0x14);
		}
		while ( x ){
			Lcd_cmd(0x14);
			x--;
		}
	}else if (y == 4){
		Lcd_cmd(0x02);
		x--;
		for (i=1;i<=60;i++){
			Lcd_cmd(0x14);
		}
		while ( x ){
			Lcd_cmd(0x14);
			x--;
		}
	}
}
 
//-----  カーソル表示制御  -----
 
void Lcd_cursol(char c_mode)
{
	switch ( c_mode){
	case 1:				// 1.カーソルOFF、ブリンクOFF
		Lcd_cmd(0x0c);
		break;
	case 2:				// 2.カーソルOFF、ブリンクON
		Lcd_cmd(0x0d);
		break;
	case 3:				// 3.カーソルON、ブリンクOFF
		Lcd_cmd(0x0e);
		break;
	case 4:				// 4.カーソルON、ブリンクON
		Lcd_cmd(0x0f);
		break;
	}	
}
 
//-----  文字列出力関数(行指定あり)  -----
 
void Lcd_line_print(char y,char *str)
{
	if (y == 1){
		Lcd_cmd(0x80);
	} else if(y == 2){
		Lcd_cmd(0xC0);
	}else if(y == 3){
		Lcd_cmd(0x94);
	}else if(y == 4){
		Lcd_cmd(0xD4);
	}
	while(*str != 0x00){			//文字列の終わり判定
		Lcd_data(*str);			//文字列１文字出力
		str++;					//ポインタ＋１
	}
}
 
void Lowspeed_Lcd_line_print(char y,unsigned long w,char *str)
{
	if (y == 1){
		Lcd_cmd(0x80);
	} else if(y == 2){
		Lcd_cmd(0xC0);
	}else if(y == 3){
		Lcd_cmd(0x94);
	}else if(y == 4){
		Lcd_cmd(0xD4);
	}
	while(*str != 0x00){			//文字列の終わり判定
		Lcd_data(*str);			//文字列１文字出力
		Delay_ms(w);
		str++;					//ポインタ＋１
	}
}
 
void Lcd_black(void){
	char lp;
	Lcd_cmd(0x80);
	for(lp=0;lp<=0x67;lp++){		
		Lcd_data(0xff);		
	}
}
 
void Lcd_line_print_cgram(char y)
{	
	char lp;
	if (y == 1){
		Lcd_cmd(0x80);
	} else if(y == 2){
		Lcd_cmd(0xC0);
	}else if(y == 3){
		Lcd_cmd(0x94);
	}else if(y == 4){
		Lcd_cmd(0xD4);
	}
	while(lp <= 0x0f){			//文字列の終わり判定
		Lcd_data(lp);			//文字列１文字出力
		Delay_ms(250);
		lp++;					//ポインタ＋１
	}
}
void Lcd_backlight(char z)	//バックライト 0....OFF 1....ON
{
	backlight_stat = z;
	LCD_LGT = z;
}
char Lcd_backlight_stat(void)	//バックライト 0....OFF 1....ON
{
	return LCD_LGT;
}
/* //使われない関数
void Itostring(int digit, unsigned long data, char *buffer)
{
	char i;	
	buffer += digit;						//文字列の最後
	for(i=digit; i>0; i--)					//最下位桁から上位へ
	{	
		buffer--;							//ポインター１
		*buffer = (data % 10) + '0';		//その桁数値を文字にして格納
		data = data / 10;					//桁-1
	}
}
 
void Ltostring(int digit, unsigned long long data, char *buffer)
{
	char i;	
	buffer += digit;						//文字列の最後
	for(i=digit; i>0; i--)					//最下位桁から上位へ
	{	
		buffer--;							//ポインター１
		*buffer = (data % 10) + '0';		//その桁数値を文字にして格納
		data = data / 10;					//桁-1
	}
}
*/
 
void Ltostring_int(int digit, unsigned long long data, char *buffer)	
{
	char i;	
	buffer += digit;						//文字列の最後
	for(i=digit; i>0; i--)					//最下位桁から上位へ
	{	
		buffer--;							//ポインター１
		*buffer = (data % 10) + '0';		//その桁数値を文字にして格納
		data = data / 10;					//桁-1
	}
}
void Ltostring_decimal(int digit, unsigned long long data, char *buffer)
{
	char i;	
	char not_space = 0;
	char number;
	buffer += digit;						//文字列の最後
	for(i=digit; i>0; i--)					//最下位桁から上位へ
	{	
		buffer--;							//ポインター１
		number = data % 10;
		if(number != 0)
		{
			not_space = 1;
		}
		if(not_space)
		{
			*buffer = number + '0';		//その桁数値を文字にして格納
		}else{
			*buffer = SPACE;
		}
		data = data / 10;					//桁-1
	}
	if(~not_space)
	{
		*buffer = number + '0';
	}
}
 
void Keypad_read(void)
{
	keypast[key0] = keystat[key0];
	keypast1[key0] = keypast0[key0];
	keypast0[key0] = keynow[key0];
	keynow[key0] = ~p5;
 
		/*	3msごとに実行したい処理とかを記述	*/	
		if(p5 != 0xff){
			cnt0 = 0;	
			Lcd_backlight(backlight_stat);
		}
 
	/*以下、通常のキーパッド読み込み業務*/
	if((keypast1[key0]==keypast0[key0])&(keypast0[key0]==keynow[key0])){keystat[key0] = keynow[key0];}
	switch(key0){
		case 0:
			key0++;
			p6 = ~0x02;
			break;
		case 1:
			key0++;
			p6 = ~0x04;
			break;
		case 2:
			key0++;
			p6 = ~0x08;
			break;
		case 3:
			key0++;
			p6 = ~0x10;
			break;
		case 4:
			key0++;
			p6 = ~0x20;
			break;
		case 5:
			key0++;
			p6 = ~0x40;
			break;
		case 6:
			key0++;
			p6 = ~0x80;
			break;
		default:
			key0 = 0;
			p6 = ~0x01;
				/*	以下、24[ms]ごとに実行したい処理を記述		*/
				if(p9_0){pwrhold++;}else{pwrhold = 0;}	//電源ボタンのポーリング
				if(pwrhold & ~Is_InfomationMode){
					mode_infomation();					//
				}
				if(Check_key_bit(KEYID_BKLGT,keystat) && (!Check_key_bit(KEYID_BKLGT,keypast)))	//バックライトボタンのポーリング
				{
					Lcd_backlight(~Lcd_backlight_stat());
				}				
				if(cnt0 >= AUTOLIGHTOFF)		/*	バックライト・オフの時間が来たか確認	*/
				{					
					if(cnt0  > AUTOPOWEROFF)	/*	オートパワーオフの時間が来たら電源OFF	*/
					{
						Poweroff();
					}
					else
					{	/*	オートパワーオフの時間が来てなかったらバックライトOFF	*/
						if(Lcd_backlight_stat)	
						{
							Lcd_backlight(0);
							backlight_stat = 1;
						}
					}
				}
				/*　終わり　*/
			break;
		}
}
void Poweroff(void)
{
	char MsgPwrOFF1[21] = " *** PWR OFF ***    ";
	char MsgPwrOFF2[21] = "                    ";
	char MsgPwrOFF3[21] = "GOOD - BYE          ";
	char MsgPwrOFF4[21] = "     Made By Kuriuzu";		
		Lcd_line_print(1,MsgPwrOFF1);
		Lcd_line_print(2,MsgPwrOFF2);
		Lcd_line_print(3,MsgPwrOFF3);
		Lcd_line_print(4,MsgPwrOFF4);
	printf("/*** POWER OFF !!! ***/\n");
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Delay(500000);
	Lcd_backlight(1);	/*電解コンデンサの電荷放電のためバックライトON*/
	asm(" fclr I ");                    /* 全体の割り込み禁止           */
	while(p9_0);
	Delay(250000);
	p4  = 0x00; 
	Lcd_backlight(0);	/*電解コンデンサの電荷放電のためバックライトON*/
	while(1);
}
 
unsigned char Check_key_bit(unsigned char keyid,const char *buffer)
{	
	if(keyid == 0xff)	return 0;	//0xff  
	buffer += (0x07 & (keyid>>4));
	return (*buffer >> (0x07 & keyid)) & 0x01;
}
 
void stackin(char in,char digits,char position,char *stack)     //in : 入力 digits：桁数 position；カーソル位置 stack (入力がD、dならcursor位置の文字削除)
{
        int i = 0;
        int j = 0;
        char point = 0;
        char buffer[35];
		buffer[digits + 1] = SPACE;
        if(position >= digits)
        {
                printf("ERROR : stackin() POSITION Over Digits\n");
				return;
        }else{
                for(i=0;i<=digits;i++)
                {
                        buffer[j] = *(stack + i);
                        j++;
                }
				if(in == 0x7f){	//DELキー押された時の処理
					    //↓カーソル位置(position)より後ろの配列を一個前にシフト
                        for(i = position;i <digits;i++)
                        {
                                buffer[i] = buffer[i+1];
                        }
						buffer[digits] = SPACE;
 
				}else if(buffer[position] == SPACE)
                {
                        buffer[position] = in;
                }else{
                        //↓カーソル位置(position)より後ろの配列を一個後ろにシフト
                        for(i = digits;i >=position;i--)
                        {
                                buffer[i] = buffer[i-1];
                        }
                        buffer[position] = in;
                }
                for(i=0;i<=digits;i++)
                {
                        *stack = buffer[i];
                        stack++;
                }
        }
}
 
void myftoa(char *string, double f, int figure)
{		
		double requiddigit; //その数を表すのに必要な桁数を格納
		int Integralpart = 1;//整数部桁数
		int Decimalpart = 17;//小数部桁数
		unsigned long long Decimal;//小数部のデータ
		if(f>0) 
		{
			//sign = 1;
			*string = ' ';
		}
		if(f==0){
			//sign = 0;
			*string = SPACE;
		}
		if(f<0) 
		{
			//sign = -1;
			f *= -1;
			*string = '-';
		}
		if(f)
		{
			requiddigit = log10(f);
		}else{
			requiddigit = 0;
		}
		if(requiddigit >= 0)
		{	
			requiddigit = log10(f+1);
			Integralpart = (int)requiddigit;
			++Integralpart;
			if(Integralpart > 19)	Integralpart = 19;
			Decimalpart = 18 - Integralpart;
		}else if(requiddigit < 0)
		{
		}
		Decimal = (unsigned long long) POW(10,Decimalpart)*(f - (unsigned long long)f);
		string++;		
		Ltostring_int(Integralpart,(unsigned long long) f, string);
		if(Integralpart >= 19)	return;
		string += Integralpart;
		*string = '.';
		if(Integralpart >= 18)	return;
		string++;
		Ltostring_decimal(Decimalpart,Decimal,string);
 
}
 
double myatof(const char *string){
			int i;
            double rtn = 0;
            int decimal = 0;
            double temp = 0;
			int Exponent = 1; //指数表記の時に使用　m e x = m E x = m×10^x
            int Is_positive = 1; //正の数・・・1 負の数・・・-1
 
            while(*string != '\0')
            {
 
                    if((*string == 'e' )|( *string == 'E')){
                                                                            //指数表記の時の処理　（例：1.234×105 = 1.234e5）
 
                    }
                    else if(*string == '.' ){
                                                                            //小数点　ドットが来た時の処理
                        decimal++;
 
                    }else if(*string == '-' ){
                                                                            //負の数　マイナスが来た時の処理
                        Is_positive = -1;
 
 					}else if((*string >= '0')&(*string <= '9')){
                        if(decimal == 0)
                        {
                                rtn *= 10;
                            temp = *string - 0x30;
                            rtn += temp;
                        }
						else{
                                temp = *string - 0x30;
								for(i=0;i<decimal;i++){	temp /= 10;}
                                rtn += temp; 
                                decimal++;
 
                        }
                    }else{
 
					}
            string++;
            }
			rtn = rtn * Is_positive * Exponent;
        return rtn;
}
 
unsigned long long POW(int a, int b)
{
	int i;
	long long ret = 1;
	for( i=0; i<b; i++)ret *= a;
	return ret;
}
 
void mode_infomation(void)	/*動作状態表示とか(の予定)。PWRボタンで呼び出される*/
{
	unsigned int count = 0;
	Is_InfomationMode = 0;
	if(cnt0 <= 1000)	return;	
	Is_InfomationMode = 1;
	//Delay_ms(100);
	/*	*/
	while(p9_0)
	{	
		Delay(1000);
		count++;
		if(count >= 750)	Poweroff();
	}
 
	Is_InfomationMode = 0;
	return;
}
 
double DegtoRad(double degree)
{
	return degree * PI / 180.0;
}
double RadtoDeg(double radian)
{
	return radian * 180.0 / PI;
}
void error_handing(void)
{	
	char MsgContentError[41];
	char MsgError1[] = " !!!!! ERROR !!!!!";
	char MsgError2[21] = "     Error No. : 000";
	char MsgError4[] = "      Please push AC";
	Lcd_clear();
	strcpy(MsgContentError,strerror(errno));
	Ltostring_int(3,errno,&MsgError2[17]);
	Lcd_line_print(1,MsgError1);
	Lcd_line_print(2,MsgError2);
	Lcd_line_print(3,MsgContentError);
	Lcd_line_print(4,MsgError4);
	errno = 0;
}