FreeCalypso > hg > fc-tourmaline
diff src/g23m-aci/uart/uart_txf.c @ 1:fa8dc04885d8
src/g23m-*: import from Magnetite
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 16 Oct 2020 06:25:50 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/g23m-aci/uart/uart_txf.c Fri Oct 16 06:25:50 2020 +0000 @@ -0,0 +1,856 @@ +/* ++----------------------------------------------------------------------------- +| Project : +| Modul : ++----------------------------------------------------------------------------- +| Copyright 2002 Texas Instruments Berlin, AG +| All rights reserved. +| +| This file is confidential and a trade secret of Texas +| Instruments Berlin, AG +| The receipt of or possession of this file does not convey +| any rights to reproduce or disclose its contents or to +| manufacture, use, or sell anything it may describe, in +| whole, or in part, without the specific written consent of +| Texas Instruments Berlin, AG. ++----------------------------------------------------------------------------- +| Purpose : This modul is part of the entity UART and implements all +| procedures and functions as described in the +| SDL-documentation (TX-statemachine) ++----------------------------------------------------------------------------- +*/ + +#ifndef UART_TXF_C +#define UART_TXF_C +#endif /* !UART_TXF_C */ + +#define ENTITY_UART + +#ifndef FF_MULTI_PORT +/*==== INCLUDES =============================================================*/ + +#ifdef WIN32 +#include "nucleus.h" +#endif /* WIN32 */ +#include "typedefs.h" /* to get Condat data types */ +#include "vsi.h" /* to get a lot of macros */ +#include "macdef.h" /* to get a lot of macros */ +#include "custom.h" +#include "gsm.h" /* to get a lot of macros */ +#include "cnf_uart.h" /* to get cnf-definitions */ +#include "mon_uart.h" /* to get mon-definitions */ +#include "prim.h" /* to get the definitions of used SAP and directions */ +#ifdef DTILIB +#include "dti.h" /* to get dti lib */ +#endif /* DTILIB */ +#include "pei.h" /* to get PEI interface */ +#ifdef _TARGET_ +#include "uart/serialswitch.h" +#include "uart/traceswitch.h" +#else /* _TARGET_ */ +#include "serial_dat.h" /* to get definitions of serial driver */ +#endif /* _TARGET_ */ +#include "uart.h" /* to get the global entity definitions */ + +#ifdef _SIMULATION_ +#include <stdio.h> /* to get sprintf */ +#endif /* _SIMULATION_ */ +#include <string.h> /* JK, delete warnings: to get memcpy */ + +/*==== CONST ================================================================*/ + +/*==== LOCAL VARS ===========================================================*/ + +/*==== PRIVATE FUNCTIONS ====================================================*/ + +/*==== PUBLIC FUNCTIONS =====================================================*/ + + + +/* ++------------------------------------------------------------------------------ +| Function : tx_proc_output ++------------------------------------------------------------------------------ +| Description : The function tx_proc_output() is the actual callback function +| to write data into the send buffer. +| +| Parameters : uart_device - database for the affected UART device +| ++------------------------------------------------------------------------------ +*/ +LOCAL void tx_proc_output(T_UART_DATA* uart_device) +{ + USHORT i, len, pos; + T_DLC *dlc; /* used Data Link Connection */ + UBYTE transmit_state; /* state of transmission */ + T_desc2* cur_desc; /* currently used descriptor */ + UBYTE temp_field; /* multi purpose value */ + UBYTE frame_size; /* numbr of octets in Information field */ + UBYTE fcs; /* Frame Check Sequence */ + SHORT error_code; /* Error code returned from a function */ + + TRACE_FUNCTION( "tx_proc_output" ); + + if(uart_device->tx.dlc_instance EQ UART_EMPTY_INSTANCE) + { + /* + * Raw Data + */ + /* + * use entry 0 for raw data + */ + dlc = &uart_device->dlc_table[UART_CONTROL_INSTANCE]; + cur_desc = dlc->transmit_data; + /* + * search next descriptor that includes data + */ + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + /* + * for each ring buffer segment + */ + for (i=0; i < uart_device->tx.ndest; i++) + { + pos = 0; + /* + * while ring buffer segment is not yet full and + * there are still data to send + */ + while((uart_device->tx.size[i] > 0) && (cur_desc)) + { + /* + * determine length to copy + */ + len = cur_desc->len - dlc->transmit_pos; + if(len > uart_device->tx.size[i]) + len = uart_device->tx.size[i]; + /* + * copy data + */ + memcpy((char*) &uart_device->tx.dest[i][pos], + (char*) &cur_desc->buffer[dlc->transmit_pos], + len); + /* + * updata values + */ + uart_device->tx.size[i]-= len; + dlc->transmit_pos += len; + pos += len; + /* + * if current descriptor completly send + * then move to next descriptor + */ + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + } + } + } + else + { + /* + * Multiplexer Data + */ + dlc = &uart_device->dlc_table[uart_device->tx.dlc_instance]; + cur_desc = dlc->transmit_data; + temp_field = 0; + /* + * search next descriptor that includes data + */ + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + if(cur_desc) + { + /* + * initiailze destination values + */ + i = 0; + while((i < uart_device->tx.ndest) && (uart_device->tx.size[i] EQ 0)) + { + i++; + } + pos = 0; + /* + * send start HDLC Flag + */ + uart_device->tx.dest[i][pos] = UART_HDLC_FLAG; + fcs = UART_INITFCS; + transmit_state = UART_TX_ADDRESS; + frame_size = 0; + /* + * increase destination position + */ + pos++; + uart_device->tx.size[i]--; + while((i < uart_device->tx.ndest) && + (uart_device->tx.size[i] EQ 0)) + { + pos = 0; + i++; + } + while(transmit_state NEQ UART_TX_END) + { + switch(transmit_state) + { + case UART_TX_ADDRESS: + /* + * send Address field + */ + if(uart_device->tx.dlc_instance EQ UART_CONTROL_INSTANCE) + { + /* + * at Control Channel the address field + * is included in source data + */ + temp_field = cur_desc->buffer[dlc->transmit_pos]; + /* + * if current descriptor completly send + * then move to next descriptor + */ + dlc->transmit_pos++; + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + } + else + { + /* + * at Data Channel the address field + * is calculated with the DLCI + */ + temp_field = (dlc->dlci << UART_DLCI_POS) | UART_EA; + } + /* + * calculate FCS + */ + fcs = uart_device->fcstab[fcs ^ temp_field]; + /* + * next field is Control field + */ + transmit_state = UART_TX_CONTROL; + break; + + case UART_TX_CONTROL: + /* + * send Control field + */ + if(uart_device->tx.dlc_instance EQ UART_CONTROL_INSTANCE) + { + /* + * at Control Channel the control field + * is included in source data + */ + temp_field = cur_desc->buffer[dlc->transmit_pos]; + /* + * if current descriptor completly send + * then move to next descriptor + */ + dlc->transmit_pos++; + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + } + else + { + /* + * at Data Channel the control field + * is always an UIH frame with P/F bit set to 0 + */ + temp_field = UART_UIH_DATA_FRAME; + } + /* + * calculate FCS + */ + fcs = uart_device->fcstab[fcs ^ temp_field]; + /* + * if there are still data to send the + * next field is Information field + * otherwise next field is FCS field + */ + if(cur_desc) + transmit_state = UART_TX_INFORMATION; + else + transmit_state = UART_TX_FCS; + break; + + case UART_TX_INFORMATION: + /* + * send Information field + */ + temp_field = cur_desc->buffer[dlc->transmit_pos]; + /* + * check if there is still data in the current descriptor and + * the maximum frame size is not yet reached + */ + dlc->transmit_pos++; + frame_size++; + if((frame_size >= uart_device->n1) || + (dlc->transmit_pos >= cur_desc->len)) + { + /* + * if current descriptor completly send + * then move to next descriptor + */ + while((cur_desc) && + (dlc->transmit_pos >= cur_desc->len)) + { + cur_desc = (T_desc2*)cur_desc->next; + dlc->transmit_pos = 0; + } + /* + * if no more data to send available or + * maximum frame size is reached then + * the next field is FCS field + */ + if((frame_size >= uart_device->n1) || + (cur_desc EQ NULL)) + transmit_state = UART_TX_FCS; + } + break; + + case UART_TX_FCS: + /* + * send FCS field + */ +#ifdef _SIMULATION_ + /* + * clear FCS field in simulation mode + */ + temp_field = UART_GOODFCS; +#else /* _SIMULATION_ */ + temp_field = (0xff - fcs); +#endif /* _SIMULATION_ */ + /* + * frame complete + */ + transmit_state = UART_TX_END; + break; + default: + TRACE_EVENT_P1("Warning: Unexpected TX ISR state %d", transmit_state); + break; + } + if((temp_field EQ UART_HDLC_FLAG) || + (temp_field EQ UART_HDLC_ESCAPE) || + (temp_field EQ uart_device->xon) || + (temp_field EQ uart_device->xoff)) + { + /* + * send Control Escape and map character + */ + /*lint -e661 (Warning -- access of out-of-bounds pointer) */ + uart_device->tx.dest[i][pos] = UART_HDLC_ESCAPE; + /*lint +e661 (Warning -- access of out-of-bounds pointer) */ + temp_field ^= 0x20; + /* + * increase destination position + */ + pos++; + uart_device->tx.size[i]--; + while((i < uart_device->tx.ndest) && + (uart_device->tx.size[i] EQ 0)) + { + pos = 0; + i++; + } + } + /* + * send character + */ + /*lint -e661 -e662 (Warning -- access/creation of out-of-bounds pointer) */ + uart_device->tx.dest[i][pos] = temp_field; + /*lint +e661 +e662 (Warning -- access/creation of out-of-bounds pointer) */ + /* + * increase destination position + */ + pos++; + uart_device->tx.size[i]--; + while((i < uart_device->tx.ndest) && + (uart_device->tx.size[i] EQ 0)) + { + pos = 0; + i++; + } + } + /* + * send stop HDLC Flag + */ + /*lint -e661 -e662 (Warning -- access/creation of out-of-bounds pointer) */ + uart_device->tx.dest[i][pos] = UART_HDLC_FLAG; + /*lint +e661 +e662 (Warning -- access/creation of out-of-bounds pointer) */ + /* + * update size value + */ + uart_device->tx.size[i]--; + } + } + /* + * write current descriptor back to table + */ + dlc->transmit_data = cur_desc; + +#ifndef _SIMULATION_ + PSIGNAL(hCommUART, UART_DRIVER_SENT_IND, uart_device); +#endif /* !_SIMULATION_ */ + *uart_device->tx.reInstall = rm_noInstall; + + /* + * update pointer in UART driver + */ + if((error_code = UF_OutpAvail (uart_device->device)) < 0) + { + TRACE_ERROR_P2("UF Driver: data pointer update failed, [%d], uart_txf.c(%d)", + error_code, __LINE__); + } + +} /* tx_proc_output() */ + + + +/* ++------------------------------------------------------------------------------ +| Function : tx_init ++------------------------------------------------------------------------------ +| Description : The function tx_init() initializes the TX service. +| +| Parameters : no parameters +| ++------------------------------------------------------------------------------ +*/ +GLOBAL void tx_init () +{ +#ifndef _SIMULATION_ +#ifdef WIN32 +#ifndef _TARGET_ + char buf[80]; +#endif /* !_TARGET_ */ + STATUS sts; +#endif /* WIN32 */ +#endif /* !_SIMULATION_ */ + + TRACE_FUNCTION( "tx_init" ); + +#ifndef _SIMULATION_ +#ifdef WIN32 + sts = NU_Create_HISR (&uart_data->tx.tx_HISR, + "TX_HISR", + tx_proc_output, + 2, + uart_data->HISR_stack, + HISR_STACK_SIZE); +#ifndef _TARGET_ + sprintf (buf, "NU_Create_HISR(TX) = %d", sts); + TRACE_EVENT (buf); +#endif /* !_TARGET_ */ +#endif /* WIN32 */ +#endif /* !_SIMULATION_ */ + + uart_data->tx.lines = 0x80000000; /* invalid */ + uart_data->tx.dlc_instance = UART_EMPTY_INSTANCE; + uart_data->tx.p_zero = 0; + uart_data->tx.send_state = UART_TX_NOT_SENDING; + + INIT_STATE( UART_SERVICE_TX , TX_DEAD ); +} /* tx_init() */ + + + +/* ++------------------------------------------------------------------------------ +| Function : tx_flushUart ++------------------------------------------------------------------------------ +| Description : The function tx_flushUart() flush the output buffer of the +| UART driver. +| +| Parameters : no parameters +| ++------------------------------------------------------------------------------ +*/ +GLOBAL void tx_flushUart () +{ +#ifndef _TARGET_ + USHORT oa; /* output available */ +#endif /* !_TARGET_ */ +#ifndef ALR + T_UFRET mt; +#endif /* ALR */ + USHORT counter; + + TRACE_FUNCTION( "tx_flushUart" ); + + counter = 0; + while( +#ifndef ALR + ((mt = UF_CheckXEmpty(uart_data->device)) == UF_NOT_READY) || +#endif /* !ALR */ + (UF_OutpAvail (uart_data->device) < UF_MAX_BUFFER_SIZE)) + { +#ifndef _TARGET_ + oa = UF_OutpAvail (uart_data->device); + TRACE_EVENT_P1("waiting - output not flushed oa:%d",oa); +#endif /* !_TARGET_ */ + /* + * poll permanent in the first 500ms + * after that poll 1 minute only every second + * after that give up + */ + if(counter < 50) + { + if(vsi_t_sleep (VSI_CALLER ONE_FRAME) NEQ VSI_OK) + { + TRACE_ERROR_P1("VSI entity: Can't suspend thread, uart_txf.c(%d)", + __LINE__); + } + } + else if(counter < 110) + { + if(vsi_t_sleep (VSI_CALLER 1000) NEQ VSI_OK) + { + TRACE_ERROR_P1("VSI entity: Can't suspend thread, uart_txf.c(%d)", + __LINE__); + } + } + else + { + break; + } + counter++; + } +} /* tx_flushUart() */ + + + +/* ++------------------------------------------------------------------------------ +| Function : tx_next_send_allowed ++------------------------------------------------------------------------------ +| Description : The function tx_next_send_allowed() determines which dlc is the +| next dlc allow to send. The result of the calculation is stored +| in dlc_instance. +| +| Parameters : no parameters +| ++------------------------------------------------------------------------------ +*/ +GLOBAL void tx_next_send_allowed () +{ + UBYTE diff; + UBYTE inst; + UBYTE next_inst; + T_DLC* dlc; + + TRACE_FUNCTION( "tx_next_send_allowed" ); + + diff = 255; + next_inst = UART_EMPTY_INSTANCE; + for(inst = 0; inst <= UART_MAX_NUMBER_OF_CHANNELS; inst++) + { + dlc = &uart_data->dlc_table[inst]; + if(dlc->transmit_data) + { + if(dlc->p_counter EQ uart_data->tx.p_zero) + { + uart_data->tx.dlc_instance = inst; + return; + } + if(diff > (dlc->p_counter - uart_data->tx.p_zero)) + { + diff = dlc->p_counter - uart_data->tx.p_zero; + next_inst = inst; + } + } + } + uart_data->tx.p_zero+= diff; + uart_data->tx.dlc_instance = next_inst; +} /* tx_next_send_allowed() */ + + + +/* ++------------------------------------------------------------------------------ +| Function : tx_writeInFunc_0 ++------------------------------------------------------------------------------ +| Description : The function tx_writeInFunc_0() is the official callback +| function to write data into the send buffer of UART device 0. +| It just copies the parameters and calls then the actual +| function. +| +| Parameters : cldFromIrq - called from interrupt +| reInstall - reinstallation mode +| ndest - number of destination pointers +| dest - array of destination pointers +| size - array of sizes for every destinition pointer +| ++------------------------------------------------------------------------------ +*/ +GLOBAL void tx_writeInFunc_0 (BOOL cldFromIrq, + T_reInstMode *reInstall, + UBYTE ndest, + UBYTE *dest[], + USHORT *size) +{ +#ifndef _SIMULATION_ +#ifndef _TARGET_ + char buf[40]; +#endif /* !_TARGET_ */ +#endif /* !_SIMULATION_ */ + T_UART_DATA* uart_device; + + TRACE_FUNCTION( "tx_writeInFunc_0" ); + + /* + * select UART device 0 + */ + uart_device = &(uart_data_base[0]); + + /* + * store parameters + */ + uart_device->tx.cldFromIrq = cldFromIrq; + uart_device->tx.ndest = ndest; + uart_device->tx.dest[0] = dest[0]; + uart_device->tx.dest[1] = dest[1]; + uart_device->tx.size = size; + uart_device->tx.reInstall = reInstall; + +#ifndef _SIMULATION_ +#ifdef WIN32 + if (cldFromIrq) + { + STATUS sts; + /* + * interrupt context of the UART driver -> activate the HISR + */ + sts = NU_Activate_HISR (&uart_device->tx.tx_HISR); +#ifndef _TARGET_ + sprintf (buf, "NU_Activate_HISR(TX) = %d", sts); + TRACE_EVENT (buf); +#endif /* !_TARGET_ */ + } + else +#endif /* WIN32 */ +#endif /* !_SIMULATION_ */ + { + /* + * normal callback from UF_WriteData + */ + tx_proc_output(uart_device); + +#ifdef _SIMULATION_ + { + /* + * trace output + */ + UBYTE* trace_dest[2]; + USHORT trace_size[2]; + USHORT i; + USHORT pos; + char buf[90]; + + + trace_dest[0] = dest[0]; + trace_dest[1] = dest[1]; + + trace_size[0] = size[0]; + trace_size[1] = size[1]; + + trace_size[0]-= uart_device->tx.size[0]; + trace_size[1]-= uart_device->tx.size[1]; + + if((trace_size[0]) || + (trace_size[1])) + { + + TRACE_EVENT("=== OUTRAW"); + i = 0; + pos = 0; + while(pos < trace_size[0]) + { + i+= sprintf(&buf[i], "0x%02x, ", trace_dest[0][pos]); + pos++; + if(i > 80) + { + TRACE_EVENT( buf ); + i = 0; + } + else if(pos >= trace_size[0]) + { + TRACE_EVENT( buf ); + } + } + i = 0; + pos = 0; + while(pos < trace_size[1]) + { + i+= sprintf(&buf[i], "0x%02x, ", trace_dest[1][pos]); + pos++; + if(i > 80) + { + TRACE_EVENT( buf ); + i = 0; + } + else if(pos >= trace_size[1]) + { + TRACE_EVENT( buf ); + } + } + } + } +#endif /* _SIMULATION_ */ + } +} /* tx_writeInFunc_0() */ + + + +#ifdef FF_TWO_UART_PORTS +/* ++------------------------------------------------------------------------------ +| Function : tx_writeInFunc_1 ++------------------------------------------------------------------------------ +| Description : The function tx_writeInFunc_1() is the official callback +| function to write data into the send buffer of UART device 0. +| It just copies the parameters and calls then the actual +| function. +| +| Parameters : cldFromIrq - called from interrupt +| reInstall - reinstallation mode +| ndest - number of destination pointers +| dest - array of destination pointers +| size - array of sizes for every destinition pointer +| ++------------------------------------------------------------------------------ +*/ +GLOBAL void tx_writeInFunc_1 (BOOL cldFromIrq, + T_reInstMode *reInstall, + UBYTE ndest, + UBYTE *dest[], + USHORT *size) +{ +#ifndef _SIMULATION_ +#ifndef _TARGET_ + char buf[40]; +#endif /* !_TARGET_ */ +#endif /* !_SIMULATION_ */ + T_UART_DATA* uart_device; + + TRACE_FUNCTION( "tx_writeInFunc_1" ); + + /* + * select UART device 1 + */ + uart_device = &(uart_data_base[1]); + + /* + * store parameters + */ + uart_device->tx.cldFromIrq = cldFromIrq; + uart_device->tx.ndest = ndest; + uart_device->tx.dest[0] = dest[0]; + uart_device->tx.dest[1] = dest[1]; + uart_device->tx.size = size; + uart_device->tx.reInstall = reInstall; + +#ifndef _SIMULATION_ +#ifdef WIN32 + if (cldFromIrq) + { + STATUS sts; + /* + * interrupt context of the UART driver -> activate the HISR + */ + sts = NU_Activate_HISR (&uart_device->tx.tx_HISR); +#ifndef _TARGET_ + sprintf (buf, "NU_Activate_HISR(TX) = %d", sts); + TRACE_EVENT (buf); +#endif /* !_TARGET_ */ + } + else +#endif /* WIN32 */ +#endif /* !_SIMULATION_ */ + { + /* + * normal callback from UF_WriteData + */ + tx_proc_output(uart_device); + +#ifdef _SIMULATION_ + { + /* + * trace output + */ + UBYTE* trace_dest[2]; + USHORT trace_size[2]; + USHORT i; + USHORT pos; + char buf[90]; + + + trace_dest[0] = dest[0]; + trace_dest[1] = dest[1]; + + trace_size[0] = size[0]; + trace_size[1] = size[1]; + + trace_size[0]-= uart_device->tx.size[0]; + trace_size[1]-= uart_device->tx.size[1]; + + if((trace_size[0]) || + (trace_size[1])) + { + + TRACE_EVENT("=== OUTRAW"); + i = 0; + pos = 0; + while(pos < trace_size[0]) + { + i+= sprintf(&buf[i], "0x%02x, ", trace_dest[0][pos]); + pos++; + if(i > 80) + { + TRACE_EVENT( buf ); + i = 0; + } + else if(pos >= trace_size[0]) + { + TRACE_EVENT( buf ); + } + } + i = 0; + pos = 0; + while(pos < trace_size[1]) + { + i+= sprintf(&buf[i], "0x%02x, ", trace_dest[1][pos]); + pos++; + if(i > 80) + { + TRACE_EVENT( buf ); + i = 0; + } + else if(pos >= trace_size[1]) + { + TRACE_EVENT( buf ); + } + } + } + } +#endif /* _SIMULATION_ */ + } +} /* tx_writeInFunc_1() */ +#endif /* FF_TWO_UART_PORTS */ +#endif /* !FF_MULTI_PORT */