0  BEGIN PGM M503 MM 
1  * - User M function comment ------ *
2  ; Marker for output: (M6001 ~ M6016)
3  ;   M6001 -> User M func  1 output
4  ;   M6002 -> User M func  2 output
5  ;     :               :
6  ;   M6016 -> User M func 16 output
7  ;
8  ; Marker for input: (M6101 ~ M6116)
9  ;   M6101 -> User M func  1 input
10 ;   M6102 -> User M func  2 input
11 ;     :               :
12 ;   M6116 -> User M func 16 input
13 ;===================================
14 ;=== Workpiece unclamping ==========
15 FN 17: SYSWRITE ID 2000 NR10 IDX6003 =+1
16 ;=== Waiting for clamped singal ====
17 LBL 1
18 FN 18: SYSREAD Q1 = ID2000 NR10 IDX6103
19 FN 12: IF +Q1 LT +1 GOTO LBL 1
20 ;=== Waiting for operator checked ==
21 LBL 2
22 FN 18: SYSREAD Q2 = ID2000 NR10 IDX6104
23 FN 12: IF +Q1 LT +1 GOTO LBL 2
24 ;=== Workpiece clamping ============
25 FN 17: SYSWRITE ID 2000 NR10 IDX6003 =+0
26 ;=== Waiting for unclamped singal ==
27 LBL 3
28 FN 18: SYSREAD Q3 = ID2000 NR10 IDX6105
29 FN 12: IF +Q1 LT +1 GOTO LBL 3
30 LBL 99
31 END PGM M503 MM