HEIDENHAIN TNC 335 Technical Manual - Manual (Page 281)

4-184
TNC 360 13 Hirth Coupling 8/95
CMT 47 ;HIRTH_4_AXIS
;----CLEAR ERROR MESSAGE----
LN
M527 ;HIRTH_ERR_4
AN M527 ;HIRTH_ERR_4
R M2933 ;PN_ERR_HIRTH_NOTINPOS
EM ; END OF HIRTH MODULE
LBL 47 ;HIRTH_4_AXIS
;----CALCULATE LEFT AND RIGHT GRID POINT ---
L
D140 ;REFPOS_4TH_AXIS
/ W232 ;GRID_4
PSW
X
W232 ;GRID_4
= D152 ;RIGHT_GRID
PLW
+
K1 ;ONE
X W232 ;GRID_4
= D156 ;RIGHT_GRID
;----CALCULATE DIST (DIFFERENCE FROM LEFT AND RIGHT GRID) ---
L
D140 ;REFPOS_4_AXIS
- D152 ;RIGHT_GRID
PSW
CM
29 ;GENERATE ABSOLUTE VALUE
PL D160 ;DIF_LEFT
L D140 ;REFPOS_4_AXIS
- D156 ;RIGHT_GRID
PSW
CM
29 ; GENERATE ABSOLUTE VALUE
PL D164 ;DIF_RIGHT
;----COMPARE DISTANCE LEFT > < RIGHT ? ----
L
D164 ;LOAD DIF.-RIGHT
< D160 ;LOAD DIF.-LEFT
CMT 49 ;RIGHT GRID IS NEARER
CMF 50 ;RIGHT GRID IS NEARER
;----HIRTH GRID CONTACTED----
L
M2 ;MP_EDITOR_ACTIVE
A M2011 ;NP_M2011_4_INPOS
= M597 ;G_HIRTH_4A_INPOS
;----HIRTH-ERROR 4-AXIS----
LN
M600 ;MANAL MODE OF OPERATION
AN M2 ;MP_EDITOR_ACTIVE
A M2011 ;NP_M2011_4_INPOS
S M527 ;HIRTH_ERR_4
;----ERASE ERROR WITH NC START----
L
I132 ;I_NC_START
R M527 ;HIRTH_ERR_4
;----DISPLAY ERROR----
L
M527 ;HIRTH_ERR_4
S M2933 ;PN_ERR_HIRTH_NOTINPOS
;----RELEASE FOR POSITIONING TO THE GRID----
LN
M2011 ;NP_M2011_4_INPOS
S M530 ;POSRELEASE_4A
;----MOVE HIRTH-ACHSE TO THE GRID----
L
M600 ;MANUAL OPERATING MODE