converters (s5time --> int and vice versa. time in int expressed in s x 10 i.e. 1234 = 123.4s)

FUNCTION "INT_S5TIME" : S5TIME
TITLE =Converts S5Time to Time in range 0..3276.7 seconds
//Function Converts Time in Integer [0..32767 ==> 0..3276.7seconds] to S5Time
//In case of Error ENO=False and 0 is returned
VERSION : 0.1


VAR_INPUT
I_TIME : INT ;    //Time Value to be converted to S5Time
END_VAR
VAR_TEMP
Time_Value : INT ;    //Extracted Time Value [as Integer]
Time_Base : INT ;    //Extracted Time Base
END_VAR
BEGIN
NETWORK
TITLE =Select Time Base

L     0;
L     #I_TIME; // Time as Integer 0..32767 --> 0..3276.7s
<I    ;
JC    CNVT; // Jump to Convert if Time>=0
CLR   ; // Otherwise Clear ENO and finish
SAVE  ;
BE    ;

CNVT: L     99; // Limit for 10ms Time Base = 9.9seconds
TAK   ; // Toggle Accumulators to have Time in ACC1
>=I   ; // Time<=Limit?
JC    T10m; // Jump to 10ms Time Base
L     999; // Limit for 100ms Time Base = 99.9seconds [1m 39.9s.]
TAK   ;
>=I   ; // Time<Limit?
JC    T100; // Jump to 100ms Time Base
L     9999; // Limit for 1s Time Base = 999seconds [16m 39s.]
TAK   ;
>=I   ; // Time<=Limit?
JC    T1s; // Jump to 1s Time Base
JU    T10s; // Jump to 10s Time Base if Above
NETWORK
TITLE =

T10m: L     10; // Multiply int value times 10
*I    ; // to get time in 10ms units
ITB   ; // Convert to BCD. Time Base Bits are 00
JU    ENDE;

T100: ITB   ; // Convert to BCD
OW    W#16#1000; // Apply Time Base [01 = 100ms]
JU    ENDE;

T1s:  L     10; // Divide int value by 10
/I    ; // to get time in 1s units
ITB   ; // Convert to BCD.
OW    W#16#2000; // Apply Time Base [10 = 1s]
JU    ENDE;

T10s: L     100; // Divide int value by 100
/I    ; // to get time in 10s units
ITB   ; // Convert to BCD.
OW    W#16#3000; // Apply Time Base [11 = 10s]
NETWORK
TITLE =Issue Result and ENO=1

ENDE: T     #RET_VAL;
SET   ;
SAVE  ;
END_FUNCTION

FUNCTION "S5TIME_INT" : DINT
TITLE =Converts S5Time to Time in range 0..3276.7 seconds
//Function Converts Time in S5Time to Integer [0..32767 ==> 0..3276.7seconds]
//In case of Error ENO=False and 0 is returned
VERSION : 0.1


VAR_INPUT
I_TIME : S5TIME ;    //Time Value to be converted to Integer
END_VAR
VAR_TEMP
Time_Value : INT ;    //Extracted Time Value Without Time Base [as Integer]
END_VAR
BEGIN
NETWORK
TITLE =Calculate Byte Value without time base code

L     #I_TIME; // Time as S5Time
AW    W#16#FFF; // Clear Time Base and Unused Bits. Leave Time Value
BTI   ; // Convert BCD --> Int
T     #Time_Value; // Time Value without Time Base
NETWORK
TITLE =Detect the Time Base

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#1000; // Check Time Base [01 = 100ms]
JP    T100;

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#2000; // Check Time Base [10 = 1s]
JP    T1s;

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#3000; // Check Time Base [11 = 10s]
JP    T10s;

JU    T10m; // Time Base Bits = 0 --> Time Base=10ms
NETWORK
TITLE =Calculate Time and return value

T100: L     #Time_Value; // Time Base: 100ms - Load Extracted Time
JU    ENDE; // and jump to End where it is returned

T1s:  L     #Time_Value; // Time Base: 1s - Load Extracted Time
L     10; // Calculate Time in 100ms Units
*I    ;
JU    ENDE; // and jump to End where it is returned

T10s: L     #Time_Value; // Time Base: 1s - Load Extracted Time
L     100; // Calculate Time in 100ms Units
*D    ; // D - multiply by 100 and return as double int to catch overflow
L     L#32767; // Check for Overflow
<=D   ; // Calculated Value<=32767?
JC    T_OK; // Jump to OK
T     #RET_VAL; // Return max possible value = 32767
CLR   ;
SAVE  ; // Retuen ENO=0 to indicate Overflow
BE    ; // Terminate Here

T_OK: POP   ; // Time is OK so get calculated time
JU    ENDE; // and jump to End where it is returned

T10m: L     #Time_Value; // Time Base: 10ms - Load Extracted Time
L     10; // Calculate Time in 100ms Units
/I    ; // Next network returns it with ENO=1
NETWORK
TITLE =Issue Result and ENO=1

ENDE: T     #RET_VAL;
SET   ;
SAVE  ;
END_FUNCTION

Tick Count rolls over at 2^31 so in case of overflow (time<start_time)
elapsed_time = (2147483648-Start_Time)+Current_Time+1;

else

elapsed_time=Current_Time-Start_Time;

Implementation for NPC Microcontrollers (timer rolls over at 2^32):

// Returns time difference Current Time - Start Time
// Current Time obtained from tick count LPC_TIM0->TC
unsigned int Elapsed_Time(unsigned int Start_Time) {
unsigned int Current_Time = LPC_TIM0->TC;
if (Current_Time>Start_Time)
{
return(Current_Time-Start_Time);
}
else
{
return((0xFFFFFFFF-Start_Time)+Current_Time+1);
}
}

Piotr.M

Tick Count rolls over at 2^31 so in case of overflow (time<start_time)
elapsed_time = (2147483648-Start_Time)+Current_Time+1;

else

elapsed_time=Current_Time-Start_Time;

Implementation for NPC Microcontrollers (timer rolls over at 2^32):

// Returns time difference Current Time - Start Time
// Current Time obtained from tick count LPC_TIM0->TC
unsigned int Elapsed_Time(unsigned int Start_Time) {
unsigned int Current_Time = LPC_TIM0->TC;
if (Current_Time>Start_Time)
{
return(Current_Time-Start_Time);
}
else
{
return((0xFFFFFFFF-Start_Time)+Current_Time+1);
}
}

How about following instead? 

elapsed_time := (Current_Time-Start_Time) MOD T#24D_20H_31M_23S_647MS

And here parentheses around subtraction are really required.

qwazee

TIME is a DINT number that only utilises the positive portion of the DINT values.

It is not. The range of the TIME data type is -T#24D_20H_31M_23S_648MS to T#24D_20H_31M_23S_647MS.