blob: 1b6d1ab7c10f5204ff10107c92eae3fb29e2732e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
; This demonstrates doing an M61 remapped to a named oword sub
;
; to activate, incantate as follows in the ini file:
;
; [RS274NGC]
; # remap M61 to a named oword subroutine.
; # parameter #1: the Q value
; M61_COMMAND=o<m61demo>call
;
;
O<m61demo> sub
;
; O<m61demo> if ;; trigger error report
;
(DEBUG,m61demo.ngc: M61 Q=#1)
; test fail-change line from gladevcp
M66 P2 L0
O<m61demo_test_fail> if [#5399 EQ 1]
(DEBUG, digital-input-02=#5399 - returning -1 to fail M61)
; a return value < 0 fails the M61
O<m61demo> return [-1]
O<m61demo_test_fail> endif
; return the tool number to commit the change.
; return a negative return to abort the interpreter with a message like
; "M61 failed (<return value>)" - the tool number will be unchanged
;
O<m61demo> endsub [#1]
m2
|
