西门子系统–测头程序

;_N_L9810_SPF

;$PATH=/_N_SPF_DIR

;PROC L9810 SAVE DISPLOF

EXTERN L9710(REAL,REAL,REAL,REAL)

; REN PROT POSN

IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN9

L9724

IF R9<>9999 GOTOF LN3

IF RENC[17]<>9999 GOTOF LN2

RENC[15]=60

L9700; NO FEED RATE

LN2:

R9=RENC[17]

LN3:

RENC[17]=R9

RENC[48]=0

LN4:

L9710(R24,R25,R26,R9); PROTECT MOVE

IF RENC[49]<>2 GOTOF LN8

GOTOF LN9

LN8:

RENC[48]=7

IF R13==1 GOTOF LN9

RENC[15]=50

L9700; PATH OBSTRUCTED

LN9:

L9800; CLEAR INPUTS

STOPRE

RET