//******************************************************************************************
//  PIC18F14K50 Sample Program
//   Project      :
//   Program Name :
//   Programer    :
//   Create date  :  Version 1.0    H22.11.02
//   Replace date :
//   History      :
//   Laungage     :  MPLAB C18 
//******************************************************************************************
//   Description
// 
//     1)Define I/O PORT
//         PORTC(0)    :  DCM16117A(E)
//         PORTC(1)    :  DCM16117A(RS)
//         PORTC(7-4)  :  DCM16117A(DB7-4)
//
//         PORTC(2)    :  Terminal(0)
//         PORTB(4)    :  Terminal(1)
//         PORTB(6)    :  Terminal(2)
//
//         PORTB(5)    :  Serial PORT(Rx)
//         PORTB(7)    :  Serial PORT(Tx)
//         
//     2)OSC
//         48MHz (12MHz Crystal * PLL4)
//
//******************************************************************************************
#include	<p18f14k50.h>
#include	<stdio.h>
#include	<string.h>
#include	<stdlib.h>
#include	<math.h>
#include	<ctype.h>
#include	<io.h>
#include	<adc.h>
//
//Define configration
//
#pragma config CPUDIV=NOCLKDIV //CPU System Clock Selection bit(No CPU System Clock divide)
#pragma config USBDIV = OFF //USB Clock Selection bit(USB Clock comes directly from the OSC1/OSC2 oscillator block; no divide)
#pragma config FOSC = HS //Oscillator Selection bits(HS oscillator)
#pragma config PLLEN = ON //X PLL Enable bit(Oscillator multiplied by 4)
#pragma config PCLKEN = OFF //Primary Clock Enable Bit(Primary clock is under software control)
#pragma config FCMEN = OFF
#pragma config IESO = OFF //Internal/External Oscillator Switchover bit(Oscillator Switchover mode disabled)
#pragma config PWRTEN = OFF,BOREN = OFF,BORV = 19
#pragma config WDTEN = OFF,WDTPS = 1
#pragma config MCLRE = OFF //MCLR Pin Enable bit(RE3 input pin enabled; MCLR disabled)
#pragma config HFOFST = OFF,STVREN = OFF,LVP = OFF,BBSIZ = OFF,XINST = OFF
#pragma config CP0 = OFF,CP1 = OFF,CPB = OFF,CPD = OFF,WRT0 = OFF,WRT1 = OFF,WRTB = OFF,WRTC = OFF,WRTD = OFF,EBTR0 = OFF,EBTR1 = OFF,EBTRB = OFF
//
//Define function
//
void Demo01(void);
void Demo02(void);
void Init_POS0(void);
void Init_POS1(void);
void Init_LCD(void);
void LCD_Disp(unsigned char);
void LCD_CLR(void);
void LCD_SETH(unsigned char);
void LCD_SETL(unsigned char);
void BCF(unsigned int);
void BSF(unsigned int);
void mnop(unsigned int);
void Wait_10mS(unsigned int);
void Timer(void);
void LCD_SCR_CLR(void);
void LCD_SCR_DSP(unsigned char);
void LCD_SCR_DSPS(unsigned char *, unsigned int);
//
#define   LCD_E      0
#define   LCD_RS     1
#define   LCD_DB4    4
#define   LCD_DB5    5
#define   LCD_DB6    6
#define   LCD_DB7    7
#define   TERM_0     2
#define   TERM_1     4
#define   TERM_2     6
#define   PI_NORMAL  0
#define   PI_FAILURE 1
//
#define   PI_LCD_bufsize   8
unsigned int G_LCD_IDX = 0;
unsigned char G_LCD_BUFH[PI_LCD_bufsize];
unsigned char G_LCD_BUFL[PI_LCD_bufsize];

void main(void)
{
// *****************************
//   1.Initialized Segment
// *****************************
// (1)Define I/O port
    PORTA = 0x00;
    PORTB = 0x00;
    PORTC = 0x00;

    TRISA = 0b11111111;
    TRISB = 0b11111111;
    TRISC = 0b00000000;

    ANSEL  = 0b00000000;  //All Degital PORT
    ANSELH = 0b00000000;  //All Degital PORT

// (2)Initialized LCD
    Init_LCD();

// *****************************
//   2.Program main
// *****************************
// (1)Demo Program;

    Demo01();

    Demo02();

    while(1);

}

//******************************************************************************************
//   Function name : Demo01
//   Title         : 
//   Input         :
//   Output        :
//******************************************************************************************
void Demo01(void)
{
// *******************
// Start Pic 18 表示
// *******************
//  (1)領域0を選択
    Init_POS0();
//  (2)表示
    LCD_Disp('S');
    LCD_Disp('t');
    LCD_Disp('a');
    LCD_Disp('r');
    LCD_Disp('t');
    LCD_Disp(' ');
    LCD_Disp('P');
    LCD_Disp('I');
//
//  (3)領域1を選択
    Init_POS1();
//  (4)表示
    LCD_Disp('C');
    LCD_Disp('1');
    LCD_Disp('8');
    LCD_Disp(' ');
    LCD_Disp(' ');
    LCD_Disp(' ');
    LCD_Disp(' ');
    LCD_Disp(' ');

//  (5)少し待つ
    Wait_10mS(100);

// *******************
// 18F14K50 OK> 表示
// *******************
//  (0)画面クリア
    LCD_CLR();
//  (1)領域0を選択
    Init_POS0();
//  (2)表示
    LCD_Disp('P');
    LCD_Disp('I');
    LCD_Disp('C');
    LCD_Disp('1');
    LCD_Disp('8');
    LCD_Disp('F');
    LCD_Disp('1');
    LCD_Disp('4');
//
//  (3)領域1を選択
    Init_POS1();
//  (4)表示
    LCD_Disp('K');
    LCD_Disp('5');
    LCD_Disp('0');
    LCD_Disp(' ');
    LCD_Disp('O');
    LCD_Disp('K');
    LCD_Disp('>');
    LCD_Disp(' ');

//  (5)少し待つ
    Wait_10mS(200);

// *******************
// 画面クリア
// *******************
    LCD_CLR();
}

//******************************************************************************************
//   Function name : Demo02
//   Title         : 
//   Input         :
//   Output        :
//******************************************************************************************
void Demo02(void)
{
    unsigned int lp;
    static unsigned char msg[]=" PIC18F14K50 Connected OK>     ";

    while(1){
        LCD_SCR_DSPS(&msg[0],10);
    }
}

//******************************************************************************************
//   Function name : LCD_SCR_DSPS
//   Title         : スクロール表示（文字列）
//   Input         :
//   Output        :
//******************************************************************************************
void LCD_SCR_DSPS(unsigned char in_str[], unsigned int int_time)
{
    unsigned int lp=0;
    while(1){
        lp=0;
        while( in_str[lp] != 0x00){
            LCD_SCR_DSP(in_str[lp]);
            Wait_10mS(int_time);
            lp++;
        }
    }

}

//******************************************************************************************
//   Function name : LCD_SCR_CLR
//   Title         : スクロール表示（クリア）
//   Input         :
//   Output        :
//******************************************************************************************
void LCD_SCR_CLR(void)
{
    G_LCD_IDX = 0;
    LCD_CLR();
    Init_POS0();
}

//******************************************************************************************
//   Function name : LCD_SCR_DSP
//   Title         : スクロール表示（キャラクタ）
//   Input         :
//   Output        :
//******************************************************************************************
void LCD_SCR_DSP(unsigned char in_char)
{
    unsigned int lp;

    if(G_LCD_IDX < PI_LCD_bufsize){
        if(G_LCD_IDX == 0) Init_POS0();
        LCD_Disp(in_char);
        G_LCD_BUFL[G_LCD_IDX] = in_char;
        G_LCD_IDX++;
    }else if(G_LCD_IDX < (PI_LCD_bufsize * 2)){
        if(G_LCD_IDX == PI_LCD_bufsize) Init_POS1();
        LCD_Disp(in_char);
        G_LCD_BUFH[(G_LCD_IDX - PI_LCD_bufsize)] = in_char;
        G_LCD_IDX++;
    }else{
        for(lp=0;lp<( PI_LCD_bufsize - 1);lp++){
            G_LCD_BUFL[lp] = G_LCD_BUFL[lp+1];
        }
        G_LCD_BUFL[( PI_LCD_bufsize - 1)] = G_LCD_BUFH[0];

        for(lp=0;lp<( PI_LCD_bufsize - 1);lp++){
            G_LCD_BUFH[lp] = G_LCD_BUFH[lp+1];
        }
        G_LCD_BUFH[( PI_LCD_bufsize - 1)] = in_char;

        Init_POS0();
        for(lp=0;lp<PI_LCD_bufsize;lp++){
            LCD_Disp(G_LCD_BUFL[lp]);
        }
        Init_POS1();
        for(lp=0;lp<PI_LCD_bufsize;lp++){
            LCD_Disp(G_LCD_BUFH[lp]);
        }
    }
}

//******************************************************************************************
//   Function name : Init_POS0
//   Title         : LCDの1〜8に書き込む
//   Input         :
//   Output        :
//******************************************************************************************
void Init_POS0(void)
{
    PORTC = 0b10000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signal	
    Timer();

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signal	
    Timer();
}

//******************************************************************************************
//   Function name : Init_POS1
//   Title         : LCDの9〜16に書き込む
//   Input         :
//   Output        :
//******************************************************************************************
void Init_POS1(void)
{
    PORTC = 0b11000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signal	
    Timer();

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signal	
    Timer();
}

//******************************************************************************************
//   Function Name : Init_LCD
//   Title         : インストラクションによるLCDの初期化
//   Input         : 
//   Output        :
//******************************************************************************************
void Init_LCD(void)
{
// 1.ファンクションセット
// (1)15mS以上待つ
    Wait_10mS(10);

// (2)ファンクションセット(1); 	
    PORTC = 0b00110000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signal

// (3)4.1mS以上待つ
    Timer();

// (4)ファンクションセット(2)
    PORTC = 0b00110000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa

// (5)100μS以上待つ
    Timer();

// (6)ファンクションセット(3)
    PORTC = 0b00110000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

// 2.表示設定
// 
// (1)ファンクションセット
    PORTC = 0b00100000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b00100000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b10000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();
// 
// (2)表示OFF

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b10000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();
// 
// (3)表示クリア

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b00010000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();
// 
// (4)エントリーモードセット

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b01100000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

// 
// (5)表示ON

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b11000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

// 
//
// (6)DD RAM アドレスセット

    PORTC = 0b10000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();
}

//******************************************************************************************
//   Function Name : LCD_Disp
//   Title         : LCDに文字を表示する
//   Input         : 
//   Output        :
//******************************************************************************************
void LCD_Disp(unsigned char in_char)
{
    unsigned char tmp_c;

    LCD_SETH(in_char);
    BSF(LCD_RS);       //RS
    mnop(10);          //48MHz mode Only
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    mnop(10);          //48MHz mode Only
    BCF(LCD_RS);       //RS
    mnop(10);


    LCD_SETL(in_char);
    BSF(LCD_RS);       //RS
    mnop(10);          //48MHz mode Only
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    mnop(10);          //48MHz mode Only
    BCF(LCD_RS);       //RS
    mnop(10);

    Timer();
}

//******************************************************************************************
//   Function Name : LCD_CLR
//   Title         : LCDの画面クリア
//   Input         : 
//   Output        :
//******************************************************************************************
void LCD_CLR(void)
{

    PORTC = 0b00000000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

    PORTC = 0b00010000;
    BCF(LCD_RS);       //RS
    BSF(LCD_E );       //Enable-Signal
    mnop(10);
    BCF(LCD_E);        //Enable-Signa
    Timer();

}

//******************************************************************************************
//   Function Name : LCD_SETH
//   Title         : LCDのDB(7-4)にデータ設定
//   Input         : 
//   Output        :
//******************************************************************************************
void LCD_SETH(unsigned char tmp_data)
{
    PORTC = PORTC & 0b00001111;

    PORTC = PORTC | (tmp_data & 0b11110000);

}

//******************************************************************************************
//   Function Name : LCDDBH
//   Title         : LCDのDB(3-0)にデータ設定
//   Input         : 
//   Output        :
//******************************************************************************************
void LCD_SETL(unsigned char tmp_data)
{
    PORTC = PORTC & 0b00001111;

    PORTC = PORTC | ((tmp_data & 0b00001111) << 4);

}

//******************************************************************************************
//   Function Name : BCF
//   Title         : 
//   Input         : 
//   Output        : 
//******************************************************************************************
void BCF(unsigned int pos)
{
    PORTC = PORTC & ~(1 << pos);
}

//******************************************************************************************
//   Function Name : BCF
//   Title         : 
//   Input         : 
//   Output        : 
//******************************************************************************************
void BSF(unsigned int pos)
{
    PORTC = PORTC | (1 << pos);
}

//******************************************************************************************
//   Function Name : mnop
//   Title         : wait function
//   Input         : 
//   Output        : 
//******************************************************************************************
void mnop(unsigned int no)
{
    unsigned int lp;

    for(lp=0;lp<no;lp++){
    }
}

//******************************************************************************************
//   Function Name : Wait_10mS
//   Title         : wait function
//   Input         : 
//   Output        : 
//******************************************************************************************
void Wait_10mS(unsigned int no)
{
    unsigned int lp;

    for(lp=0;lp<no;lp++){
        Timer();
    }
}

//******************************************************************************************
//  Function Name : Timer
//  Title         : wait function (10mS)
//  Input         :
//  Output        :
//******************************************************************************************
void Timer(void)
{
// *******************************************************
// 1.Define T1CON(TIMER1 CONTROL REGISTER) Register
//*   T1CON(7)  RD16: 16-bit Read/Write Mode Enable bit
//                      1 = Enables register read/write of TImer1 in one 16-bit operation
//                      0 = Enables register read/write of Timer1 in two 8-bit operations
//*   T1CON(6)  T1RUN: Timer1 System Clock Status bit
//                      1 = Main system clock is derived from Timer1 oscillator
//                      0 = Main system clock is derived from another source
//*   T1CON(5-4)T1CKPS<1:0>: Timer1 Input Clock Prescale Select bits
//                      11 = 1:8 Prescale value
//                      10 = 1:4 Prescale value
//                      01 = 1:2 Prescale value
//                      00 = 1:1 Prescale value
//*   T1CON(3)  T1OSCEN: Timer1 Oscillator Enable bit
//                      1 = Timer1 oscillator is enabled
//                      0 = Timer1 oscillator is shut off
//                        The oscillator inverter and feedback resistor are turned off to eliminate power drain.
//*   T1CON(2)  T1SYNC: Timer1 External Clock Input Synchronization Select bit
//                      When TMR1CS = 1:
//                         1 = Do not synchronize external clock input
//                         0 = Synchronize external clock input
//                      When TMR1CS = 0:
//                         This bit is ignored. Timer1 uses the internal clock when TMR1CS = 0.
//*   T1CON(1)  TMR1CS: Timer1 Clock Source Select bit
//                      1 = External clock from the T13CKI pin (on the rising edge)
//                      0 = Internal clock (FOSC/4)
//*   T1CON(0)  bit 0 TMR1ON: Timer1 On bit
//                      1 = Enables Timer1
//                      0 = Stops Timer1
// *******************************************************

    T1CON = 0b10110001;  //   16-bit Read/Write Mode, 1:8 Prescale value

// *******************************************************
// 2.Define TMR1 Register
//    Caution(16-bit Read/Write Mode) !!!!:
//    (a)Writing to TMR1H does not directly affect Timer1.
//       Instead, the high byte of Timer1 is updated with the contents of TMR1H when a write occurs to TMR1L.
//       This allows all 16 bits of Timer1 to be updated at once.
//    (b)A read from TMR1L will load the contents of the high byte of Timer1 into the Timer1 high byte buffer. 
//       This provides the user with the ability to accurately read all 16 bits of Timer1 without the need to 
//       determine whether a read of the high byte, followed by a read of the low byte, has become invalid due 
//       to a rollover or carry between reads.
// *******************************************************
//   TMR1 data ( OSC:12MHz, 4X PLLON, 1:8 Prescale value, 0.01[S];100Hz )
//     10mS(100Hz): 12MHz * 4(PLLON) / 4(PIC) / 8(Prescale) / 100(100Hz)==> 0d15,000(Count) ==> 0x3A98(Count)
//     TMR1 = 0xFFFF - 0x3A98 ==> 0xC567
//     
    TMR1H = 0xC5;
    TMR1L = 0x67;

// *******************************************************
// 3.Timer
// *******************************************************
    PIR1bits.TMR1IF = 0;
    while(1){
        if(PIR1bits.TMR1IF != 0 )break;
    }
}