30 lines
646 B
Plaintext
30 lines
646 B
Plaintext
&ACCESS RVO
|
|
&REL 1
|
|
&COMMENT BrkTst-main task for unconfigured brake test axes
|
|
&PARAM EDITMASK = *
|
|
&PARAM DISKPATH = KRC:\R1\TP\BrakeTest
|
|
DEF BRAKETESTAXES(AxesBitMask: IN)
|
|
;BRAKETESTAXES(AxesBitMask: IN)
|
|
;examples for parameter AxesBitMask
|
|
;no parameter or -1 means all configured axes
|
|
;'b00000000000011' means axis 1 and 2
|
|
;'b10000000000001' means axis 1 and 12
|
|
;'b11000000000000' means axis 11 and 12
|
|
;FOLD {H}
|
|
INT AxesBitMask
|
|
|
|
ON_ERROR_PROCEED
|
|
AxesBitMask=AxesBitMask*1
|
|
|
|
IF ($ERR.Number<>0) THEN
|
|
AxesBitMask=-1
|
|
ERR_CLEAR($ERR)
|
|
ELSE
|
|
ERR_RAISE($ERR)
|
|
ENDIF
|
|
|
|
gBraketestForce=true
|
|
BRAKETESTREQ(AxesBitMask)
|
|
gBraketestForce=false
|
|
;ENDFOLD
|
|
END |
