SPB M1
CALL "GP_HP"
//HIER ANWENDERPROGRAMM EINFUEGEN
//Insert Userprogram from here
UN "CHANEL 1"
U "AMDI"
SPB R100
CALL "MCP_IFT"
BAGNo :=B#16#1
ChanNo :=B#16#1
SpindleIFNo:=B#16#3
FeedHold :="Feed hold"
SpindleHold:="Spindle hold"
R100: NOP 0
UN "CHANEL 2"
U "CHANEL 1"
O(
UN "AMDI"
)
SPB R200
CALL "MCP_IFT"
BAGNo :=B#16#1
ChanNo :=B#16#2
SpindleIFNo:=B#16#3
FeedHold :="Feed hold"
SpindleHold:="Spindle hold"
R200: NOP 0
U "ONE"
R "A3.5"
//FC 48: PLC INPUTS
CALL "MACHINE TO PLC INPUTS"
//FC 49: flasher and mode
CALL "CNC OPERATING MODE"
/appel fc10 pour acquittement d alarmes
U DB19.DBX 20.2
= "Key.Alarm.Cansel"
M1: NOP 0
O "Reset PB"
O "Key.Alarm.Cansel"
= "RST ALARM"
CALL "AL_MSG"
ToUserIF:=TRUE
Quit :="RST ALARM"
O "AC_ALARM"
ON "AC_ALARM"
R DB19.DBX 20.2