/****************************************Copyright (c)**************************************************
**                               廣州周立功單片機發展有限公司
**                                     研    究    所
**                                        產品一部 
**
**                                 http://www.zlgmcu.com
**
**--------------文件信息--------------------------------------------------------------------------------
**文   件   名: modem.c
**創   建   人: 陳明計
**最后修改日期: 2004年4月23日
**描        述: μCOS-II下LPC2000的Modem底層驅動 
**              
**--------------歷史版本信息----------------------------------------------------------------------------
** 創建人: 陳明計
** 版  本: v1.0
** 日　期: 2004年2月23日
** 描　述: 原始版本
**
**------------------------------------------------------------------------------------------------------
** 修改人:
** 版  本:
** 日　期:
** 描　述:
**
**--------------當前版本修訂------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
** 描　述: 
**
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/

#define IN_MODEM
#include "config.h"

extern const char SerivePhone[];

static OS_EVENT *ModemSem, *Uart1Send;
static uint16 ModemState;
static uint32 ModemGetBuf[3000];

NetHardDrivesSocket ModemDrive;
uint16 ModeFlag;

/*********************************************************************************************************
** 函數名稱: UART1Init
** 功能描述: 初始化UART0 
** 輸　入: bps：波特率
**
** 輸　出:TRUE  :成功
**        FALSE:失敗
** 全局變量: Uart0Sem
** 調用模塊: OSSemCreate
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
********************************************************************************************************/
        void UART1Init(uint32 bps)
{
    uint16 Fdiv;
    
    PINSEL0 = (PINSEL0 & 0x0000ffff) | 0x55550000;  /* 選擇管腳為UART0 */

    U1LCR = 0x80;                                   /* 允許訪問分頻因子寄存器 */
    Fdiv = (Fpclk / 16) / bps;                      /* 設置波特率 */
    U1DLM = Fdiv / 256;							
	U1DLL = Fdiv % 256;						
    U1LCR = 0x03;                                   /* 禁止訪問分頻因子寄存器 */
                                                    /* 且設置為8,1,n */
	U1IER = 0x0f;                                   /* 允許接收和發送中斷 */
    U1FCR = 0x87;                                   /* 初始化FIFO */
    U1MCR = 0x03;
    Uart1Send = OSSemCreate(1);
}

/*********************************************************************************************************
** 函數名稱: GetModemState
** 功能描述: 獲取MODEM狀態
** 輸　入: 無
**        
** 輸　出: MODEM狀態
** 全局變量: 無
** 調用模塊: 無
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint16 GetModemState(void)
{
    return ModemState;
} 

/*********************************************************************************************************
** 函數名稱: ModemPutch
** 功能描述: 發送多個字節數據
** 輸　入: Data:發送數據存儲位置
**        NByte:發送數據個數
** 輸　出:無
** 全局變量: 無
** 調用模塊: UART0Putch
**
** 作　者: 陳明計
** 日　期: 2004年2月25日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemPutch(char Data)
{
    uint8 err;
    OSSemPend(ModemSem, 0, &err);
    OSSemPend(Uart1Send, 0, &err);
    U1THR = Data;
    OSSemPost(ModemSem);
    return TRUE;
} 

/*********************************************************************************************************
** 函數名稱: ModemWrite
** 功能描述: 發送多個字節數據
** 輸　入: Data:發送數據存儲位置
**        NByte:發送數據個數
** 輸　出:無
** 全局變量: MODEM狀態
** 調用模塊: OSSemPend
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint16 ModemWrite(char *Data, uint16 NByte)
{
    uint8 err,i;
    
    OSSemPend(ModemSem, 0, &err);
    while (NByte > 0)
    {
        OSSemPend(Uart1Send, 0, &err);
        for (i = 0; i < 16; i++)
        {
            U1THR = *Data++;
            NByte--;
            if (NByte == 0)
            {
                break;
            }
        }
    }
    OSSemPost(ModemSem);
    return ModemState;
} 

/*********************************************************************************************************
** 函數名稱: ModemGetch
** 功能描述: 接收一個字節
** 輸　入: Rt:字符指針，返回的數據存儲在這個指針指向的變量中
** 輸　出: NO_ERR:沒有錯誤
** 全局變量: 無
** 調用模塊: 無
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemGetch(uint8 *Rt)
{
    while(QueueRead(Rt,ModemGetBuf) != QUEUE_OK)
    {
        OSTimeDly(4);
    }
    return NO_ERR;
} 

/*********************************************************************************************************
** 函數名稱: ModemDialUp
** 功能描述: 通過modem撥號 
** 輸　入: 電話號碼
**
** 輸　出: TRUE:成功
**        FALSE:失敗
** 全局變量: ModemState
** 調用模塊: ModemWrite,OSTimeDly
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
**-------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemDialUp(char Number[])
{
    char *cp;
    uint8 i;
    
    if (ModemState == NET_HARD_CLOSE)
    {
        QueueFlush(ModemGetBuf);

        ModemWrite("ATD", 3);
        i = 0;
        cp = Number;
        while (*cp++ != 0)
        {
            i++;
        }
        ModemWrite(Number, i);
        ModemWrite("\r\n", 2);

        U1IER = U1IER | 0x01;                   /* 允許接收中斷 */
        for (i = 0; i < 120; i++)
        {
            OSTimeDly(OS_TICKS_PER_SEC);
            if (ModemState == NET_HARD_OPEN)
            {
                return TRUE;
            }
        }
    }
    return FALSE;
}

/*********************************************************************************************************
** 函數名稱: ModemOpen
** 功能描述: 建立鏈接 
** 輸　入: 無
**
** 輸　出: TRUE:成功
**        FALSE:失敗
** 全局變量: SerivePhone
** 調用模塊: ModemDialUp
**
** 作　者: 陳明計
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------