LDmicro0.1
MICRO=Microchip PIC16F628 18-PDIP or 18-SOIC
CYCLE=5000 us at Timer0, YPlcCycleDuty:0, ConfigurationWord(s):0xC2FB569B00003F50
CRYSTAL=4000000 Hz
BAUD=2400 Hz, RATE=0 Hz, SPEED=0 Hz
COMPILED=E:\Luikbesturing\Luikbesturing.hex

IO LIST
    Xbutton at 6 0 0
    Xcurrent at 9 0 0
    Xmaxdwn at 12 0 0
    Xmaxup at 13 0 0
    Ybeep at 18 0 0
    Ydwnrelay at 11 0 0
    Yled at 17 0 0
    Ymaxdwn at 1 0 0
    Ymaxup at 2 0 0
    Yuprelay at 10 0 0
END

PROGRAM
RUNG
  COMMENT -- Luik besturing  MGP 22/08/21
END
RUNG
  COMMENT --add comment here--
END
RUNG
  CONTACTS Xbutton 1 1
  TON T1 10000 -1
  COIL Rstart 0 0 0 0
END
RUNG
  COMMENT -- button beep
END
RUNG
  PARALLEL
    SERIES
      CONTACTS Rstart 0 0
      OSR
      TOF Tbeep 100000 -1
    END
    CONTACTS Rcurrent 0 0
  END
  COIL Ybeep 0 0 0 0
END
RUNG
  COMMENT -- select command
END
RUNG
  CONTACTS Rstart 0 0
  OSR
  CTU Cpulse 4 0 /
END
RUNG
  CONTACTS Rstart 0 0
  OSR
  COIL Rtime 0 1 0 0
END
RUNG
  CONTACTS Rtime 0 0
  TON Trun 1000000 -1
  OSR
  PARALLEL
    MOVE command Cpulse
    RES Cpulse
    COIL Rtime 0 0 1 0
  END
END
RUNG
  PARALLEL
    SERIES
      LEQ command 1
      CONTACTS Rcurrent 1 0
    END
    SERIES
      GRT command 1
      TCY Tled 350000 -1
    END
  END
  COIL Yled 0 0 0 0
END
RUNG
  COMMENT -- relay up/down
END
RUNG
  CONTACTS Xmaxup 1 1
  PARALLEL
    COIL Ymaxup 0 0 0 0
    SERIES
      OSR
      MOVE command 0
    END
  END
END
RUNG
  CONTACTS Xmaxdwn 1 1
  PARALLEL
    COIL Ymaxdwn 0 0 0 0
    SERIES
      OSR
      MOVE command 0
    END
  END
END
RUNG
  EQU command 2
  CONTACTS Ydwnrelay 1 0
  TON T3 200000 -1
  CONTACTS Rcurhigh 1 0
  CONTACTS Ymaxup 1 0
  COIL Yuprelay 0 0 0 0
END
RUNG
  EQU command 3
  CONTACTS Yuprelay 1 0
  TON T4 200000 -1
  CONTACTS Rcurhigh 1 0
  CONTACTS Ymaxdwn 1 0
  COIL Ydwnrelay 0 0 0 0
END
RUNG
  COMMENT --add comment here--
END
RUNG
  COMMENT -- overcurrent
END
RUNG
  CONTACTS Xcurrent 1 1
  TON Tcurrent 20000 -1
  PARALLEL
    SERIES
      TOF Tdel 5000000 -1
      TCY Tcur 100000 -1
      COIL Rcurrent 0 0 0 0
    END
    COIL Rcurhigh 0 0 0 0
    MOVE command 0
  END
END