summaryrefslogtreecommitdiff
path: root/nc_files/g881.ngc
blob: d77df776a37e9f6af16778f804cf35cd423c61fa (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
35
36
37
o<g881> sub
(debug, in g881); x=[#1] y=[#2] z=[#3] r=[#4])

(debug, g881 call_level= #<_call_level> remap_level=#<_remap_level>)

o<g881_havex> if [EXISTS[#<x>]]
(debug, X param set: #<x>)
o<g881_havex> endif

o<g881_havey> if [EXISTS[#<y>]]
(debug, Y param set: #<y>)
o<g881_havey> endif

o<g881_havez> if [EXISTS[#<z>]]
(debug, Z param set: #<z>)
o<g881_havez> endif

o<g881_havep> if [EXISTS[#<p>]]
(debug, P param set: #<p>)
o<g881_havep> endif

o<g881_haveq> if [EXISTS[#<q>]]
(debug, Q param set: #<q>)
o<g881_haveq> endif

o<g881_haver> if [EXISTS[#<r>]]
(debug, R param set: #<r>)
o<g881_haver> endif

;m250

(debug, end g881)


o<g881> endsub [1]
m2