modem.c

周立功的PPP拨号演示程序

** 修改人: 
** 日　期: 
**-------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemOpen(void)
{
    return  ModemDialUp((char *)SerivePhone);
}


/*********************************************************************************************************
** 函数名称: ModemDialDown
** 功能描述: 挂断modem 
** 输　入: 无
**
** 输　出: modem状态
**
** 全局变量: ModemState
** 调用模块: OSTimeDly
**
** 作　者: 陈明计
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
**-------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemDialDown(void)
{
    U1MCR = 0x02;
    OSTimeDly(OS_TICKS_PER_SEC / 10);
    U1MCR = 0x03;
    OSTimeDly(OS_TICKS_PER_SEC / 10);
    return TRUE;
}

/*********************************************************************************************************
** 函数名称: ModemCommand
** 功能描述: 向modem发送命令 
** 输　入: 命令字符串
**
** 输　出: modem状态
**
** 全局变量: ModemState
** 调用模块: ModemWrite,ModemGetch,
**
** 作　者: 陈明计
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
**-------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemCommand(char *Command)
{
    char *cp;
    uint8 i,err;
    
    if (ModemState == NET_HARD_CLOSE)
    {
        QueueFlush(ModemGetBuf);
        
        cp = Command;
        i = 0;
        while(*cp++ != 0)
        {
            i++;
        }
        ModemWrite(Command, i);
        ModemWrite("\r\n", 2);
        ModemGetch(&i);
        if (i == 'A' || i == 'a')
        {
            while (1)
            {
                err = i;
                ModemGetch(&i);
                if (err == 'O' || err == 'o')
                if (i == 'K' || i == 'k')
                {
                    ModemGetch(&i);
                    break;
                }
            }
        }
        else
        {
            while (1)
            {
                if (i == '0')
                {
                    break;
                }
                ModemGetch(&i);
            }
        }
    }
    return TRUE;
}

/*********************************************************************************************************
** 函数名称: ModemInit
** 功能描述: 初始化Modem 
** 输　入: 波特率
**
** 输　出: modem状态
**
** 全局变量: ModemState
** 调用模块: UART1Init,OSTimeDly,ModemCommand,
**
** 作　者: 陈明计
** 日　期: 2004年2月23日
**-------------------------------------------------------------------------------------------------------
** 修改人: 
** 日　期: 
**-------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        uint8 ModemInit(uint32 bps)
{
    UART1Init(bps);

    ModemState = NET_HARD_CLOSE;
    ModemDrive.Putch = ModemPutch;
    ModemDrive.Getch = ModemGetch;
    ModemDrive.Open = ModemOpen;
    ModemDrive.Close = ModemDialDown;
    ModemDrive.InputISRHook = NULL;
    ModemDrive.ThisLayerUp = NULL;
    ModemDrive.ThisLayerDown = NULL;
    ModemDrive.GetFlag = GetModemState;

    QueueCreate((void *)ModemGetBuf, sizeof(ModemGetBuf), NULL, NULL);

    ModemSem = OSSemCreate(1);
    if (ModemSem != NULL)
    {

        if ((U1MSR & 0x30) != 0x30)
        {
            OSTimeDly(OS_TICKS_PER_SEC);
            if ((U1MSR & 0x30) != 0x30)
            {
                ModemState = NOT_FIND_NET_HARD;
            }
        }
        if (ModemState == NET_HARD_CLOSE)
        {
            ModemCommand("ATE0");
            ModemCommand("ATV0");
            ModemCommand("AT&C1");
            ModemCommand("AT&D2");
            ModemCommand("AT&R0");
            ModemCommand("AT&S0");
            ModemCommand("ATS0=2");
        }
    }
    else
    {
        ModemState = NOT_INIT_NET_HARD;
    }
    return ModemState;
}

/*********************************************************************************************************
** 函数名称: UART1_Exception
** 功能描述: UART1中断服务程序
** 输　入: 无
**
** 输　出: 无
**         
** 全局变量: ModemState
** 调用模块: OSSemPost
**
** 作　者: 陈明计
** 日　期: 2004年4月23日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
        void UART1_Exception(void)
{
    uint8 IIR, temp;
    
    OS_ENTER_CRITICAL();
    while(((IIR = U1IIR) & 0x01) == 0)
    {                                                   /* 有中断未处理完 */
        switch (IIR & 0x0e)
        {
            case 0x00:                                  /* Modem状态变化 中断    */
                if ((U1MSR & 0x80) != 0)
                {
                    ModemState = NET_HARD_OPEN;
                    if (ModemDrive.ThisLayerUp != NULL)
                    {
                        ModemDrive.ThisLayerUp();
                    }
                }
                else
                {
                    ModemState = NET_HARD_CLOSE;
                    if (ModemDrive.ThisLayerDown != NULL)
                    {
                        ModemDrive.ThisLayerDown();
                    }
                }
                if ((U1MSR & 0x40) != 0)
                {
                    ModemState = NET_HARD_RING;
                }
                if ((U1MSR & 0x30) != 0x30)
                {
                    ModemState = NOT_INIT_NET_HARD;
                }
                break;
            case 0x02:                                  /* THRE中断    */
                OSSemPost(Uart1Send);
                break;
            case 0x04:                                  /* 接收数据可用 */
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                QueueWrite(ModemGetBuf,U1RBR);
                break;
            case 0x0c:                                  /* 字符超时指示 */
                if ((U1LSR & 0x00000001) != 0)
                {
                    QueueWrite(ModemGetBuf,U1RBR);
                }
                break;
            case 0x06:                                  /* 接收线状态   */
                temp = U1LSR;
                break;
            default :
                break;
        }
    } 
    VICVectAddr = 0;            // 通知中断控制器中断结束
    OS_EXIT_CRITICAL();
}

/*********************************************************************************************************
**                            End Of File
********************************************************************************************************/