CALL "READ_CLK"
RET_VAL:=#FAULT
CDT :=#DATE_TIME // 8 Byte's
LAR1 P##DATE_TIME
L B [AR1,P#0.0] // Byte 1
BTI
T #Year
L B [AR1,P#1.0] // Byte 2
BTI
T #Month
L B [AR1,P#2.0] // Byte 3
BTI
T #Day
L B [AR1,P#3.0] // Byte 4
BTI
T #Hour
L B [AR1,P#4.0] // Byte 5
BTI
T #Minute
L B [AR1,P#5.0] // Byte 6
BTI
T #Second
L B [AR1,P#6.0] // byte 7
SRW 4 // Delete Weekday part (4 bits)
BTI
T #mS
L B [AR1,P#7.0] // byte 8
SLW 12
SRW 12 // Delete mS part (12 bits)
BTI
T #Weekday