L DB1.DBB 0 // Year
T LB 0
L DB1.DBB 1 // Month
T LB 1
L DB1.DBB 2 // Day
T LB 2
L DB1.DBB 3 // Hour
T LB 3
L DB1.DBB 4 // Minutes
T LB 4
L DB1.DBB 5 // Secounds
T LB 5
L DB1.DBB 6 // 1/1000 Sec
T LB 6
L DB1.DBB 7 // 1/1000 Sec
T LB 7

CALL "SET_CLK"
PDT :=#TimeStamp
RET_VAL:=#ret_value
R DB1.DBX 8.0 //reset Flag

end: NOP 0