21 Appendix
230 Mov P1 'Return to the origin once
231 GoTo *LBFCHK
232 '
233 '##### Suction of substrates #####
234 *S85CLOSE
235 HClose 1 'Turn suction ON
236 Return
237 '##### Suction/release of substrates #####
238 *S86OPEN
239 HOpen 1 'Turn suction OFF
240 Return
241 '
242 '##### Turning on the signal is waited for #####
243 'MX80ENA:ENABLE/DISABLE of check(1/0)
244 'MX80SIG:Check signal number
245 'MX80SEC:Check second number(S)
246 'MY80SKP:OK/TIMEOUT(1/0)
247 *S80CWON
248 If MX80ENA=1 Then 'If the signal check is ENABLE
249 M_Timer(1)=0
250 MY80SKP=0
251 MX80SEC=MX80SEC * 1000 'Second -> Millisecond
252 *L80LOP
253 If (M_Timer(1)>MX80SEC) Or (MY80SKP<>0) Then *L80END
254 If M_In(MX80SIG)=1 Then MY80SKP=1 'If the signal specified is turned on
255 GoTo *L80LOP
256 Else 'If the signal check is DISABLE
257 Dly MX80SEC 'Wait at the specified check time
258 MY80SKP=1 'OK
259 EndIf
260 *L80END
261 Return
262 '
263 '##### Turning off the signal is waited for #####
264 'MX81ENA:ENABLE/DISABLE of check(1/0)
265 'MX81SIG:Check signal number
266 'MX81SEC:Check second number(S)
267 'MY81SKP:OK/TIMEOUT(1/0)
268 *S81CWOFF
269 If MX81ENA=1 Then 'If the signal check is ENABLE
270 M_Timer(1)=0
271 MY81SKP=0
272 MX81SEC=MX81SEC * 1000 'Second -> Millisecond
273 *L81LOP
274 If (M_Timer(1)>MX81SEC) Or (MY81SKP<>0) Then *L81END
275 If M_In(MX81SIG)=0 Then MY81SKP=1 'If the signal specified is turned off
276 GoTo *L81LOP
277 Else 'If the signal check is DISABLE
278 Dly MX80SEC 'Wait at the specified check time
279 MY81SKP=1 'OK
280 EndIf
281 *L81END
282 Return
PWK=(+1.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
PRI=(+1.00,+1.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
P1=(+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
PBPOS=(+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
PX50CUR=(+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
PRNG=(+300.00,+200.00,+400.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
PTN=(+1.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00,+0.00)(0,0)
Sample Programs 21-131
To Next Page
Loading...
