CALL "READ_CLK" //调用SFC1
RET_VAL:=#RET_VAL //返回值
CDT :=#DATE_TIME //CPU的时间和日期
LAR1 P##DATE_TIME //装入地址寄存器
L LB [AR1,P#0.0]
T #YEAR //得到“年”
L LB [AR1,P#1.0]
T #MONTH //得到“月”
L LB [AR1,P#2.0]
T #DAY //得到“日”
L LB [AR1,P#3.0]
T #HOUR //得到“小时”
L LB [AR1,P#4.0]
T #MINUTE //得到“分钟”
L LB [AR1,P#5.0]
T #SECOND //得到“秒”
L LW [AR1,P#6.0]
SRD 4
T #MILLSEC //计算得到“毫秒”
L LW [AR1,P#6.0]
AW W#16#F
T #WEEK //得到“星期”