//读时钟
      OPN   "DB1"
      L     LD    12
      T     DB1.DBD    0
      L     LD    16
      T     DB1.DBD    4

//M20.2=1 设置系统时钟

      A     "M20.2"
      JNB   _001
      OPN   "DB1"
      L     MD    90
      T     DB1.DBD    8
      L     MW    94
      T     DB1.DBW   12

      CALL  "SET_CLK"
       PDT    :="DB1".SetSysTime
       RET_VAL:=MW34
      CLR  
      =     "M20.2"

_001: NOP   0