/*
    XDemo11: Real-time I/O control

    Compiler: BC++ 3.1
    Compile mode: large
    Project: user.c
             v7000.c
             vModbus.c          [after vcom3002.lib]
             ..\Lib\7188EL.Lib
             ..\Lib\TCPIP32.Lib
             ..\Lib\VcomNNNN.Lib, with NNNN being the lib file's version.


    19i, 19I  -> read D/I form address 0
    19o, 19O  -> D/O to address 0

    This demo shows complex real time DI/DO operation in UserLoopFun.

    Hardware: [7188EA] or [7188E + D/I/O expansion board]
    Note: 7188EA(X107)'s DI base address is 1.
          The other expansion boards's DI and DO base address are all 0. 

    Refer 7188e\TCP\Doc\[Big5|Eng|Gb2312]\Vxcomm.htm 
          7188e\TCP\Xserver\Xserver.htm
          7188e\TCP\Xserver\Function.htm   
    to get more information.
	
	Because the kernal of Xserver used InstallCom() function.
	Please use printCom1() instead of Print() if you want to send formatted output from COM1.

   [20/Nov/2001] by Kevin
   [22,Sep,2004] Commented by Annita
   [14,Oct,2004] Modify by Annita
   [09/Aug/2005] by Liam
   [26,July,2011] by Nicholas
*/

#include <string.h>
#include <stdio.h>
#include <conio.h>
#include "..\lib\7188e.h"
#include "..\lib\tcpip32.h"
#include "..\lib\vxcomm.h"

unsigned char DI,DO;
char cVal[80];

void UserCount(void)
{
    /*
    User's timer trigger function.
    Please refer to XDemo04 for detail description.
    Please refer to XDemo09 for example code.
    */
}

void UserInit(void)
{
    /*
    Initialize user's program.
    Please refer to XDemo04 for detail description.
    Please refer to XDemo09 for example code.
    */
    
    InitLib();
}

void UserLoopFun(void)
{
    /*
    VxComm.exe will call this function every scan time
    real-time I/O control function
    DO0=!DI0, DO1=(DI1+DI2), DO2=(DI3)
    DO3 ~ DO6: control by host-pC
    */

    DI=inportb(1);                      // read DI (Use for I7188EA)
    //DI=inportb(0);                        // read DI (Use for the other I7188E series)

    if (DI&1) DO=DO&0xfe;               // DO0=!DI0
    else DO=DO | 1;

    if ((DI&2) || (DI&4)) DO=DO | 2;    // DO1=(DI1+DI2)
    else DO=DO & 0xfd;

    if (DI&8) DO=DO | 4;                // DO2=DI3
    else DO=DO & 0xfb;

    outportb(0, DO);                     // write value to DO0, DO1, DO2
}



int UserCmd(unsigned char *Cmd,unsigned char *Response)
{
    /*  
    Xserver executes this function when received a package 
    form TCP port 10000 and the first two bytes are "19".
    
    Funtion of Xserver, Please refer to XDemo04 for detail description.
    */  
    
    int iAddr=1;    //(Use for I7188EA)
    //int iAddr=0; //(Use for the other I7188E series)
    char DoVal;
    switch(Cmd[0])
    {
        case 'i':
        case 'I':
            DI=inportb(iAddr);
            sprintf(cVal,"%x",DI);
            break;
        case 'o':
        case 'O':
            sscanf(Cmd+1,"%x",&DoVal);
            sprintf(cVal,"%x",DoVal);
            DoVal=DoVal&0x78;
            DO=DO | DoVal;
            outportb(0,DoVal);
            break;
        default:
            return 0;                       // return Error
    };
    strcpy(Response,cVal);
    return 1;                           // return OK
}

int VcomUserBinaryCmd(TCPREADDATA *p)
{
    /* 
    VXCOMM.EXE 2.6.12(04,Sep,2001) or later will support this function.

    Xserver executes this function when received a package 
    form TCP port 10000 and the first two bytes are "23".
    
    Please refer to XDemo04 for detail description.
    Please refer to XDemo23 for example code.
    */
    return 1;   /* any value will be accept */
}

int VcomCmdUser(TCPREADDATA *p)  
{ 
    /*
    VCOM3005 (Feb,22,2002) or later will call this function for PortUser.
    When packets received by TCP PORT PortUser(user defined) 
    of 7188E/8000E, Xserver will call this function.

    Please refer to XDemo04 for detail description.
    */
    VcomSendSocket(p->Socket,p->ReadUartChar,p->Length);
    return 1;   /* any value will be accept */  
}

void PortUserStart(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E via the user's 
    defined port(PortUser), the Xserver calls the function once.

    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}
  
void Port9999Start(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E TCP port 9999, 
    the Xserver calls the function once.
 
    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}
 
void Port502Start(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E TCP port 502, 
    the Xserver calls the function once.
    
    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}