window.dataLayer = window.dataLayer || []; function gtag(){dataLayer.push(arguments);} gtag('js', new Date());gtag('config', 'UA-141884085-1'); gtag('config', 'AW-761820283');

DIY-Robotics

About DIY-Robotics

This author has not yet filled in any details.
So far DIY-Robotics has created 131 blog entries.

Pro Home_Direct

Pro Home_Direct

LANGUAGE: Karel

CREATED: 2019-07-08

MODIFIED: 2019-11-22

CODE   
tag icon

/PROG  HOME_DIRECT   Macro
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1090;
CREATE  = DATE 19-07-08  TIME 21:51:32;
MODIFIED = DATE 19-11-22  TIME 08:02:42;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 20;
MEMORY_SIZE = 1390;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  CALL GET_HOME    ;
18:  UFRAME_NUM=1 ;
19:  UTOOL_NUM=1 ;
20:J PR[1:At Perch] 100% FINE    ;
/POS
/END

Mch1 Interlock Off

Mch1 Interlock Off

LANGUAGE: Karel

CREATED: 2019-07-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  INTLK_OFF_MCH1
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “Mch1 Interlock”;
PROG_SIZE = 1335;
CREATE  = DATE 19-07-08  TIME 22:13:16;
MODIFIED = DATE 19-11-21  TIME 11:34:38;
FILE_NAME = INTLK_OF;
VERSION  = 0;
LINE_COUNT = 25;
MEMORY_SIZE = 1607;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = *,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : TRUE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  !THIS PART OF THE PROGRAM ;
18:  !ENABLE THE CYCLE OF THE ;
19:  !MACHINE. DO NOT CHANGE ;
20:  !UNLESS YOU HAVE A GOOD ;
21:  !UNDERSTANDING OF THE PROGRAM ;
22:   ;
23:  !ENBL MACHINE CLOSE, CLAMP ;
24:  DO[210:EnbMoldClose]=ON ;
25:  DO[212:EnbEjectorBack]=ON ;
/POS
/END

MCH1 Interlock On

MCH1 Interlock On

LANGUAGE: Karel

CREATED: 2019-07-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  INTLK_ON_MCH1
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “Mch1 Interlock”;
PROG_SIZE = 1607;
CREATE  = DATE 19-07-08  TIME 22:13:50;
MODIFIED = DATE 19-11-21  TIME 11:34:52;
FILE_NAME = INTLK_ON;
VERSION  = 0;
LINE_COUNT = 39;
MEMORY_SIZE = 2083;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : TRUE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  !THIS PART OF THE PROGRAM ;
18:  !DISABLE THE CLOSING OF THE ;
19:  !MACHINE. DO NOT CHANGE ;
20:  !UNLESS YOU HAVE A GOOD ;
21:  !UNDERSTANDING OF THE PROGRAM ;
22:   ;
23:   ;
24:  LBL[10] ;
25:  !WAIT NEW PART AND ;
26:  !MACHINE MODE AUTO AND ;
27:  !MACHINE OPEN POSITION ;
28:  WAIT (DI[209:MoldOpen] AND F[1:NewPartMachine1] AND DI[214:PressInAuto]) TIMEOUT,LBL[20] ;
29:  !ENABLE MACHINE CLOSE OFF ;
30:  DO[210:EnbMoldClose]=OFF ;
31:  DO[213:EnbEjectorFwd]=OFF ;
32:  END ;
33:  LBL[20] ;
34:  !IF MACHINE AUTO JUMP LB 10 ;
35:  IF (DI[214:PressInAuto]),JMP LBL[10] ;
36:   ;
37:  LBL[500] ;
38:  F[36:UAlarm6]=(ON) ;
39:  F[30:CellAlarm]=(ON) ;
/POS
/END

MCH2 Interlock On

MCH2 Interlock On

LANGUAGE: Karel

CREATED: 2019-07-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  INTLK_ON_MCH2
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “Mch2 Interlock”;
PROG_SIZE = 1563;
CREATE  = DATE 19-07-08  TIME 22:15:32;
MODIFIED = DATE 19-11-21  TIME 11:34:58;
FILE_NAME = INTLK_ON;
VERSION  = 0;
LINE_COUNT = 35;
MEMORY_SIZE = 2055;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : TRUE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  !THIS PART OF THE PROGRAM ;
18:  !DISABLE THE CLOSING OF THE ;
19:  !MACHINE. DO NOT CHANGE ;
20:  !UNLESS YOU HAVE A GOOD ;
21:  !UNDERSTANDING OF THE PROGRAM ;
22:   ;
23:   ;
24:  LBL[10] ;
25:  !WAIT NEW PART AND ;
26:  !MACHINE MODE AUTO AND ;
27:  !MACHINE OPEN POSITION ;
28:  WAIT (DI[225] AND F[2:NewPartMachine2] AND DI[233]) TIMEOUT,LBL[20] ;
29:  !ENABLE MACHINE CLOSE OFF ;
30:  DO[226]=OFF ;
31:  DO[229]=OFF ;
32:  END ;
33:  LBL[20] ;
34:  !IF MACHINE AUTO JUMP LB 10 ;
35:  IF (DI[233]),JMP LBL[10] ;
/POS
/END

Prog pdemo_drop

Prog pdemo_drop

LANGUAGE: Karel

CREATED: 2019-07-08

MODIFIED: 2019-07-08

CODE   
tag icon

/PROG  PDEMO_DROP
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1059;
CREATE  = DATE 19-06-08  TIME 12:46:38;
MODIFIED = DATE 19-11-21  TIME 11:35:14;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 16;
MEMORY_SIZE = 1367;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
/POS
/END

Prog Pdemo_Homing

Prog Pdemo_Homing

LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  PDEMO_HOMING
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1289;
CREATE  = DATE 19-06-08  TIME 12:50:36;
MODIFIED = DATE 19-11-21  TIME 11:35:20;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 34;
MEMORY_SIZE = 1793;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  UFRAME_NUM=1 ;
18:  UTOOL_NUM=1 ;
19:   ;
20:  OVERRIDE=10% ;
21:   ;
22:  IF (UO[7:At perch]=ON OR R[4]=0),JMP LBL[9000] ;
23:   ;
24:  !Zone Section ;
25:   ;
26:   ;
27:   ;
28:  LBL[9000] ;
29:  UFRAME_NUM=1 ;
30:  UTOOL_NUM=1 ;
31:  CALL GET_HOME    ;
32:J PR[1:At Perch] 100% FINE    ;
33:  END ;
34:   ;
/POS
/END

Prog Pdemo_init

Prog Pdemo_init

LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  PDEMO_INIT
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1059;
CREATE  = DATE 19-06-08  TIME 12:45:48;
MODIFIED = DATE 19-11-21  TIME 11:35:26;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 16;
MEMORY_SIZE = 1367;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
/POS
/END

Prog Pdemo_MainSEQ

Prog Pdemo_MainSEQ

LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  PDEMO_MAINSEQ
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1469;
CREATE  = DATE 19-06-08  TIME 12:44:54;
MODIFIED = DATE 19-11-21  TIME 11:35:32;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 44;
MEMORY_SIZE = 1925;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  !CALL PARAM ;
18:  CALL SR[4]    ;
19:   ;
20:  !CALL INIT ;
21:  CALL SR[5]    ;
22:   ;
23:  LBL[1] ;
24:  !CYCLE TIMER ;
25:  TIMER[1]=STOP ;
26:  R[18:CycleTime]=TIMER[1]    ;
27:  TIMER[1]=RESET ;
28:  TIMER[1]=START ;
29:   ;
30:  !STOP REQ OR ALARM ;
31:  IF (F[30:CellAlarm] OR F[14:StopProdReq]),JMP LBL[9000] ;
32:   ;
33:  !CALL PICK ;
34:  CALL SR[6]    ;
35:   ;
36:  IF (F[30:CellAlarm]),JMP LBL[9000] ;
37:  !CALL DROP ;
38:  CALL SR[7]    ;
39:   ;
40:  JMP LBL[1] ;
41:   ;
42:  !END OF PRODUCTION ;
43:  LBL[9000] ;
44:  SR[21]=SR[29]    ;
/POS
/END

Prog Pdemo_Param

Prog Pdemo_Param

LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  PDEMO_PARAM
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1059;
CREATE  = DATE 19-06-08  TIME 12:45:26;
MODIFIED = DATE 19-11-21  TIME 11:35:38;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 16;
MEMORY_SIZE = 1367;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
/POS
/END

Prog Pdemo_Pick

Prog Pdemo_Pick

LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   
tag icon

/PROG  PDEMO_PICK
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1761;
CREATE  = DATE 19-06-08  TIME 12:46:10;
MODIFIED = DATE 19-11-21  TIME 11:35:46;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 65;
MEMORY_SIZE = 2277;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:   ;
18:  !WAIT MOLD ;
19:  LBL[1] ;
20:  UFRAME_NUM=… ;
21:  UTOOL_NUM=… ;
22:   ;
23:  !Move To Wait ;
24:J P[…] 100% CNT25    ;
25:  CALL INTLK_ON_MCH1    ;
26:   ;
27:  IF (!DI[214:PressInAuto] OR F[30:CellAlarm]),JMP LBL[999] ;
28:   ;
29:  UFRAME_NUM=… ;
30:  UTOOL_NUM=… ;
31:   ;
32:  !ENTERING MOLD ;
33:  WAIT DI[209:MoldOpen]=ON    ;
34:  F[1:NewPartMachine1]=(OFF) ;
35:   ;
36:  !Move Pick Pos ;
37:L P[…] 2000mm/sec CNT100    ;
38:   ;
39:  !EJECTORS LOGIC ;
40:  DO[213:EnbEjectorFwd]=ON ;
41:  WAIT DI[211:EjectorFwd]=ON    ;
42:   ;
43:  DO[212:EnbEjectorBack]=ON ;
44:  WAIT DI[210:EjectorBack]=ON    ;
45:   ;
46:  DO[213:EnbEjectorFwd]=OFF ;
47:   ;
48:  !Move Out of Mold ;
49:L P[…] 2000mm/sec CNT100    ;
50:   ;
51:  !Exit Press, Start Press Cycle ;
52:  UFRAME_NUM=… ;
53:  UTOOL_NUM=… ;
54:   ;
55:J P[…] 100% CNT100 DB    0.0mm,CALL INTLK_OFF_MCH1    ;
56:   ;
57:  LBL[999] ;
58:  END ;
59:   ;
60:  LBL[900] ;
61:  !Alarm State ;
62:  F[30:CellAlarm]=(ON) ;
63:  END ;
64:   ;
65:   ;
/POS
/END