22 lines
337 B
Plaintext
22 lines
337 B
Plaintext
%
|
|
; test calling subprograms with expressions
|
|
|
|
; call sub O100: use variable in expression with rs274ngc O-sub
|
|
#2 = 10
|
|
O[#2 * 10] call
|
|
|
|
; call sub O200: use expression in M98 P-word
|
|
M98 P[5 * 5 * 2 * 2 + 100]
|
|
|
|
M30
|
|
|
|
O100 sub ; rs274ngc subroutine
|
|
(print,In sub 100)
|
|
O100 endsub
|
|
|
|
O200 ; numbered subprogram
|
|
(print,In sub 200)
|
|
M99
|
|
|
|
%
|