// Global Variable
#constant TX_COM_BUFFER_SIZE_ENCODED_FRAME 1024
var TXbuff [TX_COM_BUFFER_SIZE_ENCODED_FRAME];



func main()

[Some inits]

com_Reset();
com_SetBaud(COM0, 39700); // Parameter for the function is Baud/10
com_Init(RXbuff, BACKGROUND_SERIAL_COM_BUFFER_SIZE,0);
com_TXbuffer(TXbuff,TX_COM_BUFFER_SIZE_ENCODED_FRAME*2,0); // Each array cell is 2 bytes

func sendSerialFrame(var cmd, var * dat, var dataLength)

var i := 0;
var checksum := 0;

var tst_start ;
var tst_stop ;


tst_start := sys_T();


// Make sure the previous frame is completely sent (equivalent to while(isDMABusy()) )
while(com_TXcount() > 0) ;


// Tell TXBuffer that we want to fill the buffer, but not send directly
com_TXbufferHold(ON);    // REMOVED WHEN TRYING NON-BUFFERED


// START CODE
serout(SERIAL_COMMUNICATION_START_CODE) ;

// Command (need to add an ESCAPE if required)
if((cmd == SERIAL_COMMUNICATION_START_CODE) | (cmd == SERIAL_COMMUNICATION_STOP_CODE) | (cmd == SERIAL_COMMUNICATION_ESCAPE_CODE))
     serout(SERIAL_COMMUNICATION_ESCAPE_CODE) ;
endif
serout(cmd) ;
checksum := cmd ;


// All data
// Using the same loop, compute the checksum.
// Using a while() is a bit faster than for() !!
while(i<dataLength)
     // If any of these byte needs an ESCAPE, add the ESCAPE to the encoded frame
     if((dat[i] == SERIAL_COMMUNICATION_START_CODE) | (dat[i] == SERIAL_COMMUNICATION_STOP_CODE) | (dat[i] == SERIAL_COMMUNICATION_ESCAPE_CODE))
          serout(SERIAL_COMMUNICATION_ESCAPE_CODE) ;
     endif
     serout(dat[i]) ;

     // The checksum does not take into account the START, STOP and ESCAPE
     checksum := checksum + dat[i] ;
     if(checksum > 255)
          checksum := (checksum - 256) ;
     endif

i++ ;
wend


// Checksum
serout(checksum) ;

// STOP CODE
serout(SERIAL_COMMUNICATION_STOP_CODE) ;

// Release TX buffer : all the data will be sent !
com_TXbufferHold(OFF);   // REMOVED WHEN TRYING NON-BUFFERED

// Display the execution duration
tst_stop := sys_T();
putstrXY(0,0,"Total: ");
putnumXY(50,0, DEC, tst_stop-tst_start);
endfunc

hndl := file_LoadImageControl("count.dat", "count.gci", 1);

img_Show(hndl, icount); // show all digits at 0, only do this once

i := 0;
repeat
  ledDigitsDisplay(0, iicount, 0, 2, 1, 36, 0) ;
  i++;
  if ( i > 99 )
    i := 0;
  endif
pause(1000);
forever