PROC CYCLE81(REAL RTP,REAL RFP,REAL SDIS,REAL DP,REAL DPR)SAVE SBLOF

DISPLOF
;VERSION: 06.04.21 Dec 02, 2003
;CHANGE : 06.04.01 Nov 04, 2002
;Bohren, Zentrieren
DEF AXIS _Z
DEF REAL HH2
DEF INT HH7
DEF BOOL _MDG
IF HH7 GOTOF _MM1B
_Z=$P_AXN3 DPR=ABS(DPR) SDIS=ABS(SDIS)
IF DPR ==0 GOTOF _MM1
IF RTP == RFP GOTOF FEHL1
HH2=RFP-((RTP-RFP)/ABS(RTP-RFP)*DPR)
IF DP==0 GOTOF _MM0 IF DP==HH2 GOTOF _MM1
N10 MSG("$80000")
_MDG=1
N1 _MM0: DP=HH2
_MM1:HH2=RTP-RFP
IF RFP==DP GOTOF _MM2
IF HH2 ==0 GOTOF _MM1A IF HH2/ABS(HH2) <> (RFP-DP)/ABS(RFP-DP) GOTOF FEHL1
_MM1A:HH7=1
_MM1B:
SBLON
AX[_Z]=RFP+SDIS*(RFP-DP)/ABS(RFP-DP) G0 G64 G90
SBLOF
N2 G1 G60 AX[_Z]=DP
SBLON
N3 G0 G64 AX[_Z]=RTP
SBLOF
_MM2:
IF _MDG==1
MSG("")
ENDIF
RET
N20 FEHL1:STOPRE
SETAL(61101)
RET

程序中的IF HH7没有判断标准，表示什么意思，是直接跳转吗