PROC CYCLE81(REAL RTP,REAL RFP,REAL SDIS,REAL DP,REAL DPR) SAVE SBLOF DISPLOF
;VERSION: 06.04.24 Mar 26, 2004
;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:SETAL(61101)
RET

本人看不懂的有“IF HH7 GOTOF _MM1B”怎么没有判断比较？
_MDG=1表示的什么意思？
IF _MDG==1
MSG("") 又是什么意思？

"AX[_Z]"和“STOPRE”“SETAL(61101)”这几句也挺重要。请高手解释一下含义。 如果可能，请高手通讲一遍。不胜感激！