U     DB1.DBX    8.0
       SPBN  end
 
      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