#include "spce061.h"
#include "global.h"
#include "LCD.h"
#include "簡易頻譜分析.h"

#define writedate()     PB|=0x0100;PB&=(~0x0100);//
#define readedate()     PB|=0x0200;PB&=(~0x0200);//
#define alechontrol()   PB|=0x0400;PB&=(~0x0400);//
#define writexchannel() PB|=0x1000;PB|=0x0800;PB&=(~0x0800);//
#define writeychannel() PB&=(~0x1000);PB|=0x0800;PB&=(~0x0800);//
#define hzaddr 0x08
/*
key0  0    key1  1    key2  2    key3  3    
key4  4    key5  5    key6  6    key7  7   
key8  8    key9  9    keya  自動 keyb  標定
keyc  回放 keyd  顯示 keye  －》 keyf  確定
*/

uint status;
#define MONO 0
#define SET 1

uint wavetype;

uint dispbuf1[256];
uint dispbuf2[256];
uint fobuf[5];//中心頻率
uint fdbuf[5];//帶寬
uint fsbuf[5];//步進
uint frbuf[5];//實際頻率
uint keybuf;
uint dispallow;
uint bdallow;
uint fobit;//設置fo
uint fdbit;//設置fd
uint fsbit;//設置step
uint aotostep;
uint fo,fd,step,fr;//中心頻率，帶寬，步進
uint fstatus;//設置時調整的位置
uint bufmax;//顯存中的最大值

const uint addr[5]={0x09,0x0a,0x0b,0x0c,0x0d}; 

extern uint re;

const uint welcome[]=
{
/*--  welcome  --*/
/*--  寬度x高度=128x64  --*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3E,0x01,0xF8,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3E,0x01,0xF8,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3E,0x01,0xF8,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3E,0x01,0xF8,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3E,0x01,0xF8,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x18,0x00,0x70,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x18,0x00,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x18,0x00,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x18,0x10,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x10,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x08,0x30,0x60,0x0F,0x00,0x06,0x00,0x1F,0x20,0x0F,0x80,0x01,0xE3,0xC0,0x03,0xE0,
0x08,0x70,0x60,0x0F,0x80,0x06,0x00,0x1F,0xA0,0x0F,0xC0,0x3B,0xE7,0xE0,0x03,0xE0,
0x08,0x78,0x60,0x1F,0x80,0x06,0x00,0x3F,0xE0,0x1F,0xC0,0x3F,0xF7,0xE0,0x07,0xF0,
0x08,0x78,0x60,0x1F,0xC0,0x06,0x00,0x3F,0xE0,0x1F,0xE0,0x3F,0xFF,0xE0,0x07,0xF0,
0x08,0x78,0x40,0x3F,0xE0,0x06,0x00,0x7F,0xE0,0x3F,0xE0,0x3F,0xFF,0xE0,0x07,0xF8,
0x08,0x78,0x40,0x3F,0xE0,0x06,0x00,0x7F,0xE0,0x3F,0xF0,0x3F,0xFF,0xF0,0x0F,0xF8,
0x08,0x78,0x40,0x38,0xE0,0x06,0x00,0x70,0xE0,0x38,0x70,0x3F,0x3E,0x30,0x0E,0x38,
0x0C,0x78,0xC0,0x70,0x60,0x06,0x00,0xE0,0xE0,0x30,0x70,0x3E,0x1C,0x30,0x0C,0x18,
0x0C,0x78,0xC0,0x70,0x70,0x06,0x00,0xC0,0x60,0x60,0x30,0x0C,0x18,0x30,0x0C,0x0C,
0x0C,0x78,0xC0,0x60,0x30,0x06,0x00,0xC0,0x60,0x60,0x18,0x0C,0x18,0x10,0x18,0x0C,
0x0C,0x68,0xC0,0x60,0x30,0x06,0x00,0xC0,0x20,0x60,0x18,0x0C,0x18,0x10,0x18,0x0C,
0x0C,0x68,0xC0,0x60,0x30,0x06,0x00,0x80,0x20,0x40,0x18,0x0C,0x18,0x10,0x18,0x0C,
0x0C,0x68,0xC0,0x60,0x30,0x06,0x00,0x80,0x20,0x40,0x18,0x08,0x18,0x10,0x18,0x04,
0x0C,0x48,0xC0,0xC0,0x30,0x06,0x01,0x80,0x20,0xC0,0x1C,0x08,0x18,0x10,0x10,0x04,
0x04,0xCC,0xC0,0xC0,0x18,0x06,0x01,0x80,0x20,0xC0,0x0C,0x08,0x18,0x10,0x10,0x06,
0x04,0xCC,0xC0,0xC0,0x18,0x06,0x01,0x80,0x20,0xC0,0x0C,0x08,0x18,0x10,0x10,0x06,
0x04,0xCC,0xC0,0xC0,0x18,0x06,0x01,0x80,0x20,0xC0,0x0C,0x08,0x18,0x10,0x10,0x06,
0x04,0xCC,0xC0,0xC0,0x18,0x06,0x01,0x80,0x20,0xC0,0x0C,0x08,0x18,0x10,0x10,0x06,
0x04,0xCC,0xC0,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0xC0,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0xC0,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0xC0,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0xC0,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0x80,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0xC4,0x80,0xFF,0xF8,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x3F,0xFE,
0x04,0x84,0x80,0x80,0x00,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x30,0x00,
0x07,0x87,0x80,0x80,0x00,0x06,0x01,0x00,0x00,0x80,0x0C,0x08,0x18,0x10,0x30,0x00,
0x07,0x87,0x80,0xC0,0x00,0x06,0x01,0x80,0x00,0xC0,0x0C,0x08,0x18,0x10,0x10,0x00,
0x07,0x87,0x80,0xC0,0x00,0x06,0x01,0x80,0x00,0xC0,0x0C,0x08,0x18,0x10,0x10,0x00,
0x07,0x87,0x80,0xC0,0x00,0x06,0x01,0x80,0x00,0xC0,0x0C,0x08,0x18,0x10,0x10,0x00,
0x07,0x87,0x80,0xC0,0x00,0x06,0x01,0x80,0x00,0xC0,0x0C,0x08,0x18,0x10,0x10,0x00,
0x07,0x07,0x80,0xC0,0x00,0x06,0x01,0x80,0x00,0xC0,0x1C,0x08,0x18,0x10,0x10,0x00,
0x07,0x03,0x80,0xE0,0x00,0x06,0x00,0x80,0x10,0x40,0x18,0x08,0x18,0x10,0x18,0x00,
0x03,0x03,0x00,0x60,0x00,0x06,0x00,0x80,0x30,0x40,0x18,0x08,0x18,0x10,0x18,0x00,
0x03,0x03,0x00,0x60,0x08,0x06,0x00,0xC0,0x30,0x60,0x18,0x08,0x18,0x10,0x18,0x02,
0x03,0x03,0x00,0x60,0x08,0x06,0x00,0xC0,0x30,0x60,0x18,0x08,0x18,0x10,0x18,0x02,
0x03,0x03,0x00,0x60,0x18,0x06,0x00,0xC0,0x30,0x60,0x30,0x08,0x18,0x10,0x08,0x06,
0x03,0x03,0x00,0x70,0x38,0x06,0x00,0xE0,0x60,0x70,0x30,0x0C,0x18,0x30,0x0C,0x0E,
0x03,0x03,0x00,0x78,0x78,0x4F,0x00,0x60,0xE0,0x38,0x70,0x3E,0x3E,0x3C,0x0E,0x0E,
0x03,0x03,0x00,0x38,0xF8,0x7F,0xE0,0x79,0xE0,0x3C,0xF0,0x3E,0x3E,0x7C,0x0F,0x3E,
0x03,0x03,0x00,0x3F,0xF0,0x7F,0xE0,0x7F,0xE0,0x3F,0xE0,0x3E,0x3E,0x7C,0x07,0xFC,
0x03,0x03,0x00,0x3F,0xF0,0x7F,0xE0,0x3F,0xC0,0x1F,0xE0,0x3E,0x3E,0x7C,0x07,0xFC,
0x03,0x03,0x00,0x1F,0xE0,0x7F,0xE0,0x3F,0xC0,0x1F,0xE0,0x3E,0x3E,0x7C,0x07,0xF8,
0x02,0x01,0x00,0x0F,0xE0,0x7F,0xE0,0x3F,0x80,0x1F,0xC0,0x3E,0x3E,0x7C,0x03,0xF8,
0x02,0x01,0x00,0x0F,0xC0,0x40,0x40,0x1F,0x80,0x0F,0xC0,0x02,0x26,0x24,0x03,0xF0,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
};

const uint made[]=
{
/*--  調入了一幅圖像：F:\凌陽大學\lingyang\頻率計\made.bmp  --*/
/*--  寬度x高度=128x64  --*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x01,0x40,0x18,0x00,0x00,0x00,0x01,0x18,0x00,0x00,0x00,0x04,0x60,0x00,0x00,0x00,
0x02,0x80,0x7C,0x00,0x00,0x00,0x06,0x58,0x00,0x00,0x00,0x3F,0x80,0x00,0x00,0x00,
0x05,0x11,0x9E,0x00,0x00,0x00,0x0B,0x18,0x00,0x00,0x00,0x70,0x24,0x00,0x00,0x00,
0x05,0x11,0x92,0x00,0x00,0x00,0x1C,0x18,0x00,0x00,0x00,0x64,0x3C,0x00,0x00,0x00,
0x0F,0x1B,0x1A,0x00,0x00,0x00,0x3D,0x18,0x00,0x00,0x00,0x3C,0x3E,0x00,0x00,0x00,
0x0F,0x1B,0x0F,0x06,0x00,0x00,0x64,0x18,0x00,0x60,0x00,0x74,0x3D,0x00,0x83,0x78,
0x0E,0x18,0x0F,0x36,0xF9,0x01,0x34,0x18,0x3B,0x18,0x00,0x74,0x3E,0x07,0xA6,0xFC,
0x06,0x0A,0x07,0x1C,0x06,0xE6,0x8C,0x1C,0x7C,0x6F,0x00,0x74,0x39,0xA2,0x1D,0x8C,
0x0C,0x0C,0x85,0x38,0x59,0x46,0x01,0x1D,0xC0,0x53,0x00,0x74,0x20,0x74,0x16,0x84,
0x1C,0x84,0x87,0x18,0x6C,0xC6,0x01,0x1D,0xA3,0xA3,0x00,0x74,0x04,0x35,0x8E,0x88,
0x1C,0x80,0x86,0x1D,0xFC,0x4F,0x05,0x1C,0x62,0xC3,0x80,0x74,0x04,0x39,0x8C,0x88,
0x04,0xC0,0x83,0x16,0x0C,0x42,0x0D,0x1D,0xC3,0x83,0x80,0x74,0x3B,0x1A,0x8D,0x30,
0x0D,0x40,0x83,0x18,0x0C,0x66,0x0C,0x1D,0xC3,0x66,0x00,0x74,0x3B,0x30,0x8E,0x30,
0x0D,0x61,0x43,0x04,0x1C,0x66,0x1C,0x1D,0xC3,0x81,0x00,0x74,0x3B,0x30,0xC7,0x30,
0x0B,0x61,0x42,0x18,0x5C,0x66,0x1C,0x1D,0xC3,0x1E,0x00,0x74,0x3F,0x31,0xC7,0x20,
0x0B,0xA3,0x41,0x39,0x9C,0x66,0x35,0x1D,0xC0,0x66,0x00,0x74,0x3F,0x35,0x66,0x40,
0x11,0xA3,0x41,0x39,0xDC,0x66,0x19,0x1F,0xC1,0xB9,0x00,0x38,0x3E,0x37,0x60,0x40,
0x12,0xA4,0x61,0x39,0xDC,0x66,0x19,0x1A,0xC0,0xC0,0x00,0x18,0x26,0x33,0xA0,0x40,
0x12,0xD6,0xE0,0x98,0x5C,0x46,0x0D,0x1A,0x41,0xB6,0x00,0x18,0x3A,0x33,0xA0,0xC0,
0x62,0xD7,0xE0,0x38,0x68,0x85,0x0D,0x05,0xA0,0x26,0x00,0x18,0x1B,0x36,0xC0,0xA0,
0x62,0x67,0xA0,0x58,0x00,0x4C,0x84,0x05,0xC0,0x43,0x00,0x18,0x02,0x24,0x91,0xA0,
0x62,0xAD,0xA1,0xB8,0x10,0x46,0x86,0x05,0xB0,0x13,0x00,0x11,0x00,0x62,0x56,0xC0,
0x3C,0xA5,0x84,0x3E,0x7F,0xCC,0x1E,0xFC,0x64,0x6C,0x00,0x15,0xC3,0xC6,0x23,0x40,
0x3F,0x7D,0xF3,0x89,0xB3,0xC7,0x62,0x7C,0x1B,0xD8,0x00,0x36,0x65,0xA2,0x46,0x80,
0x00,0x01,0xBC,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x08,0x07,0xE2,0x09,0xC0,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x06,0xC7,0xB6,0x80,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x02,0x47,0x80,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x05,0x80,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0xF0,0x07,0xF8,0x07,0xF0,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0xFE,0x45,0xFE,0xC7,0xFF,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x02,0xC3,0x81,0x86,0x01,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0xC3,0xA3,0x87,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0xC3,0xC3,0x87,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0xC3,0xC3,0x87,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0x43,0xC3,0x87,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0x43,0xC3,0x81,0xE0,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x62,0x43,0xC1,0x81,0xE2,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x63,0xC3,0xC2,0xC1,0xE2,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x63,0xC3,0xC1,0xC1,0xE2,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x63,0xC3,0xC1,0xC1,0xE2,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x63,0xC1,0xC1,0xC1,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x01,0x62,0xC1,0xC1,0xC1,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x01,0x61,0xC1,0xC1,0xC1,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x01,0x61,0xC1,0xC1,0x01,0xE1,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x01,0x61,0xC1,0xC2,0xC1,0xC1,0x80,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x61,0xB9,0xC2,0xD9,0xC1,0x98,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x61,0xBB,0xC2,0x69,0xC1,0xBC,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x61,0xA3,0xC1,0xE1,0xC1,0xE2,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x60,0x03,0xC0,0x06,0xC0,0x03,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x00,0x03,0x80,0x0F,0x80,0x02,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0xFF,0xFB,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x1F,0x83,0xBF,0x07,0x9F,0x82,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x47,0xFB,0xC3,0xFF,0xE7,0xF8,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x04,0x00,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
};
 
void main()
{
initIO();
initLCD();
initMEM();
displayscreen(welcome,0);
delayxms(2000);
displayscreen(made,0);
delayxms(2000);
clrscreen();
displaymenu();
initdispdate();
while(1)
{
key();
if(keybuf!=0xff)
{
keycheck();
keybuf=0xff;
}
if(dispallow)
  displaycrt();
}
}

void initMEM()
{
dispallow=0;
status=MONO;
fo=10000;
fd=10000;
fobuf[0]=1;
fobuf[1]=0;
fobuf[2]=0;
fobuf[3]=0;
fobuf[4]=0;
fdbuf[0]=1;
fdbuf[1]=0;
fdbuf[2]=0;
fdbuf[3]=0;
fdbuf[4]=0;
fsbuf[0]=0;
fsbuf[1]=0;
fsbuf[2]=0;
fsbuf[3]=7;
fsbuf[4]=8;
step=78;
bdallow=0;
re=0;
wavetype=NONE;
aotostep=0;
}

void keycheck()
{
uint fo_buf;
uint fd_buf;
uint fs_buf;
uint maxdate;
uint i;
if(status==SET)
{
switch(keybuf)
{
case 0 :      
case 1 :
case 2 :
case 3 :
case 4 :
case 5 :
case 6 :
case 7 :
case 8 :
case 9 :if(fobit)
           {
            fobuf[fstatus]=keybuf;
            dispnumber(addr[fstatus],0,keybuf);
            if(++fstatus==5)
              fstatus=0;
            re=1;
            dispnumber(addr[fstatus],0,fobuf[fstatus]);
           }
        else if(fdbit)
           {
            fdbuf[fstatus]=keybuf;
            dispnumber(addr[fstatus],1,keybuf);
            if(++fstatus==5)
              fstatus=0;
            re=1;
            dispnumber(addr[fstatus],0,fdbuf[fstatus]);
           }
        else if(fsbit)
           {
            fsbuf[fstatus]=keybuf;
            dispnumber(addr[fstatus],1,keybuf);
            if(++fstatus==5)
              fstatus=0;
            re=1;
            dispnumber(addr[fstatus],0,fsbuf[fstatus]);
           }
        re=0;
        break; 
case 14:if(fobit)
           {
           fobit=0;
           fdbit=1;
           fsbit=0;
           }
        else if(fdbit)
           {
           fobit=0;
           fdbit=0;
           fsbit=1;
           }
        else
           {
           fobit=1;
           fdbit=0;
           fsbit=0;
           }
        break;
case 15:fo_buf=fobuf[0]*10000;
        fo_buf+=fobuf[1]*1000;
        fo_buf+=fobuf[2]*100;
        fo_buf+=fobuf[3]*10;
        fo_buf+=fobuf[5];
		fd_buf=fdbuf[0]*10000;
        fd_buf+=fdbuf[1]*1000;
        fd_buf+=fdbuf[2]*100;
        fd_buf+=fdbuf[3]*10;
        fd_buf+=fdbuf[5];
        fs_buf=fsbuf[0]*10000;
        fs_buf+=fsbuf[1]*1000;
        fs_buf+=fsbuf[2]*100;
        fs_buf+=fsbuf[3]*10;
        fs_buf+=fsbuf[5];
        if(fo_buf>fd_buf)
          {
           status=MONO;
           fo=fo_buf;
           fd=fd_buf;
           step=fs_buf;
           if(step==0)
             aotostep=1;
           else
             aotostep=0;
          }
        break;
default:break;
}
}
else 
{
switch(keybuf)
{
case 10:maxdate=readdate(10,30000,5,0);
		memocpy(0x01);
		readdate(((10+maxdate*5)-5*128),((10+maxdate*5)-5*128),5,1);//將數據讀入＃1顯示緩存
		datecheck();
        dispallow=1;
        break;
case 11:bufmax=0;//顯示區最大的數據
        for(i=0;i<256;i++)
          {
           if(bufmax<dispbuf1[i])
               bufmax=dispbuf1[i];
          }
        bdallow=1;
        break;
case 12:memocpy(1);
        break;
case 13:memocpy(1);
        readdate(fo-fd,fd+fd,step,1);
        datecheck();
        break;
case 15:status=SET;
        fobit=1;//指向中心頻率
		fdbit=0;//指向掃頻帶寬
		fstatus=0;//設置位置初始化
		dispallow=0;
		break;
default:break;
}
}
}

void memocpy(uint type)//存儲器拷貝
{
uint i;
if(type==1)