-----------------------------------------------------------------------------
--   Name: PMC Module
--Created: 03/27/2015
-----------------------------------------------------------------------------
-- This is auto-generated code from PmcEditor. Do not edit this file! Go
-- back to the ladder diagram source for changes in the logic

-- U_xxx symbols correspond to user-defined names. There is such a symbol
-- for every internal relay, variable, timer, and so on in the ladder
-- program. I_xxx symbols are internally generated.

local Router = {}

local pmcvars = {} -- One local variable to conatain all pmc generated variables

local hIo, hReg, hSig, rc

-- Generated function for MachAPI.
local function Read_Register(mInst, path)
    local value
    if (path:find('AnalogInput/')) then
        local index = string.gsub(path, 'AnalogInput/', '')
        index = tonumber(index)
        value, rc = mc.mcAnalogInputRead(mInst, index)
        if (rc == mc.MERROR_NOERROR) then
            return value
        end
    elseif (path:find('AnalogOutput/')) then
        local index = string.gsub(path, 'AnalogOutput/', '')
        index = tonumber(index)
        value, rc = mc.mcAnalogOutputRead(mInst, index)
        if (rc == mc.MERROR_NOERROR) then
            return value
        end
    else
        hReg, rc = mc.mcRegGetHandle(mInst, path)
        if (rc == mc.MERROR_NOERROR) then
            value, rc = mc.mcRegGetValue(hReg)
            if (rc == mc.MERROR_NOERROR) then
                return value
            end
        end
    end
    return 0
end

-- Generated function for MachAPI.
local function Write_Register(mInst, path, value)
    if (path:find('AnalogOutput/')) then
        local index = string.gsub(path, 'AnalogOutput/', '')
        index = tonumber(index)
        rc = mc.mcAnalogOutputWrite(mInst, index, value)
        if (rc == mc.MERROR_NOERROR) then
            return
        end
    else
        hReg, rc = mc.mcRegGetHandle(mInst, path)
        if (rc == mc.MERROR_NOERROR) then
            rc = mc.mcRegSetValue(hReg, value)
            if (rc == mc.MERROR_NOERROR) then
                return
            end
        end
    end
    return
end

-- Generated function for MachAPI.
local function Read_Signal(mInst, path)
    hSig = 0
    rc = mc.MERROR_NOERROR
    hSig, rc = mc.mcSignalGetHandle(mInst, path)
    if (rc == mc.MERROR_NOERROR) then
        local state = 0;
        state, rc = mc.mcSignalGetState(hSig)
        if (rc == mc.MERROR_NOERROR) then
            return state
        end
    end
    return 0
end

-- Generated function for MachAPI.
local function Write_Signal(mInst, path, v)
    hSig = 0
    rc = mc.MERROR_NOERROR
    hSig, rc = mc.mcSignalGetHandle(mInst, path)
    if (rc == mc.MERROR_NOERROR) then
        mc.mcSignalSetState(hSig, v)
    end
end

-- Generated function for MachAPI.
local function Read_Io(mInst, path)
    hIo = 0
    rc = mc.MERROR_NOERROR
    hIo, rc = mc.mcIoGetHandle(mInst, path)
    if (rc == mc.MERROR_NOERROR) then
        local state = 0
        state, rc = mc.mcIoGetState(hIo)
        if (rc == mc.MERROR_NOERROR) then
            return state
        end
    end
    return 0
end

-- Generated function for MachAPI.
local function Write_Io(mInst, path, v)
    hIo, rc = mc.mcIoGetHandle(mInst, path)
    if (rc == mc.MERROR_NOERROR) then
        mc.mcIoSetState(hIo, v)
    end
end

-- Generated function for MachAPI.
local function JogStart(mInst, axis, dir)
    local type = 0
    type, rc = mc.mcJogGetType(mInst, axis)
    if (rc == mc.MERROR_NOERROR) then
        if (type == 0) then -- velocity
            mc.mcJogVelocityStart(mInst, axis, dir)
        else                -- incremental
            local inc = 0
            inc, rc = mc.mcJogGetInc(mInst, axis)
            if (rc == mc.MERROR_NOERROR) then
                inc = inc * dir
                mc.mcJogIncStart(mInst, axis, inc)
            end
        end
    end
end
local function JogStop(mInst, axis)
    local type = 0
    type, rc = mc.mcJogGetType(mInst, axis)
    if (rc == mc.MERROR_NOERROR) then
        if (type == 0) then -- velocity
            mc.mcJogVelocityStop(mInst, axis)
        end
    end
end

pmcvars.I_b_mcr = 0
local function Read_I_b_mcr() return pmcvars.I_b_mcr; end
local function Write_I_b_mcr(x) pmcvars.I_b_mcr = x; end
pmcvars.I_b_rung_top = 0
local function Read_I_b_rung_top() return pmcvars.I_b_rung_top; end
local function Write_I_b_rung_top(x) pmcvars.I_b_rung_top = x; end
pmcvars.I_b_parOut_0000 = 0
local function Read_I_b_parOut_0000() return pmcvars.I_b_parOut_0000; end
local function Write_I_b_parOut_0000(x) pmcvars.I_b_parOut_0000 = x; end
pmcvars.I_b_parThis_0000 = 0
local function Read_I_b_parThis_0000() return pmcvars.I_b_parThis_0000; end
local function Write_I_b_parThis_0000(x) pmcvars.I_b_parThis_0000 = x; end

-- Generated function for signal read.
local function Read_U_b_FXHomed()
    return Read_Signal(0, 1129)
end

-- Generated function for signal write.
local function Write_U_b_FXHomed(v)
    Write_Signal(0, 1129, v)
end

-- Generated function for signal read.
local function Read_U_b_FYHomed()
    return Read_Signal(0, 1130)
end

-- Generated function for signal write.
local function Write_U_b_FYHomed(v)
    Write_Signal(0, 1130, v)
end

-- Generated function for signal read.
local function Read_U_b_FZHomed()
    return Read_Signal(0, 1131)
end

-- Generated function for signal write.
local function Write_U_b_FZHomed(v)
    Write_Signal(0, 1131, v)
end

-- Generated function for signal read.
local function Read_U_b_FCHomed()
    return Read_Signal(0, 1134)
end

-- Generated function for signal write.
local function Write_U_b_FCHomed(v)
    Write_Signal(0, 1134, v)
end

-- Generated function for signal read.
local function Read_U_b_FJogInhibitOverride()
    return Read_Signal(0, 1113)
end

-- Generated function for signal write.
local function Write_U_b_FJogInhibitOverride(v)
    Write_Signal(0, 1113, v)
end

-- Generated function for signal read.
local function Read_U_b_GJogInhibit()
    return Read_Signal(0, 187)
end

-- Generated function for signal write.
local function Write_U_b_GJogInhibit(v)
    Write_Signal(0, 187, v)
end
pmcvars.I_d_scratch2 = 0
pmcvars.U_d_ToolNumber = 0

-- Generated function for signal read.
local function Read_U_b_FVFD_Time_2()
    return Read_Signal(0, 1110)
end

-- Generated function for signal write.
local function Write_U_b_FVFD_Time_2(v)
    Write_Signal(0, 1110, v)
end


-- Call this function to retrieve the PMC cycle time interval
-- that you specified in the PmcEditor.
function Router.GetCycleInterval()
    return 10
end


-- Call this function once per PLC cycle. You are responsible for calling
-- it at the interval that you specified in the MCU configuration when you
-- generated this code. */
function Router.PlcCycle()
    Write_I_b_mcr(1)
    
    -- start rung 1
    Write_I_b_rung_top(Read_I_b_mcr())
    
    -- start series [
    -- start parallel [
    Write_I_b_parOut_0000(0)
    Write_I_b_parThis_0000(Read_I_b_rung_top())
    -- start contact [
    if (Read_U_b_FXHomed() == 1) then
        Write_I_b_parThis_0000(0)
    end
    -- ] finish contact
    
    if (Read_I_b_parThis_0000() == 1) then
        Write_I_b_parOut_0000(1)
    end
    Write_I_b_parThis_0000(Read_I_b_rung_top())
    -- start contact [
    if (Read_U_b_FYHomed() == 1) then
        Write_I_b_parThis_0000(0)
    end
    -- ] finish contact
    
    if (Read_I_b_parThis_0000() == 1) then
        Write_I_b_parOut_0000(1)
    end
    Write_I_b_parThis_0000(Read_I_b_rung_top())
    -- start contact [
    if (Read_U_b_FZHomed() == 1) then
        Write_I_b_parThis_0000(0)
    end
    -- ] finish contact
    
    if (Read_I_b_parThis_0000() == 1) then
        Write_I_b_parOut_0000(1)
    end
    Write_I_b_parThis_0000(Read_I_b_rung_top())
    -- start contact [
    if (Read_U_b_FCHomed() == 1) then
        Write_I_b_parThis_0000(0)
    end
    -- ] finish contact
    
    if (Read_I_b_parThis_0000() == 1) then
        Write_I_b_parOut_0000(1)
    end
    Write_I_b_rung_top(Read_I_b_parOut_0000())
    -- ] finish parallel
    -- start contact [
    if (Read_U_b_FJogInhibitOverride() == 1) then
        Write_I_b_rung_top(0)
    end
    -- ] finish contact
    
    -- start coil [
    Write_U_b_GJogInhibit(Read_I_b_rung_top())
    -- ] finish coil
    
    -- ] finish series
    
    -- start rung 2
    Write_I_b_rung_top(Read_I_b_mcr())
    
    -- start series [
    -- start core value read [
    if (Read_I_b_rung_top() == 1) then
        pmcvars.U_d_ToolNumber = scr.DroRead(0, 2)
    end
    -- ] finish core value read
    
    -- ] finish series
    
    -- start rung 3
    Write_I_b_rung_top(Read_I_b_mcr())
    
    -- start series [
    -- start test [
    pmcvars.I_d_scratch2 = 200
    if (pmcvars.I_d_scratch2 > pmcvars.U_d_ToolNumber) then
        Write_I_b_rung_top(0)
    end
    -- ] finish test
    
    -- start test [
    pmcvars.I_d_scratch2 = 300
    if (pmcvars.U_d_ToolNumber > pmcvars.I_d_scratch2) then
        Write_I_b_rung_top(0)
    end
    -- ] finish test
    
    -- start coil [
    Write_U_b_FVFD_Time_2(Read_I_b_rung_top())
    -- ] finish coil
    
    -- ] finish series
end

return Router