HEIDENHAIN TNC 335 Technical Manual - Manual (Page 505)

7-126
TNC 360 5 Compatibility with TNC 355 8/95
JPT 211
L K+1 ;load 1 as actual value
B= M3032 ;
EM
Decrement actual value of pocket number
(M3032 to M3039) = (M3032 to M3039) - 1
LBL 220
;M3266 (TNC 355)
LB M3200 ;low byte from MP4310.3
= B255 ;number of mag. pockets
LB M3032 ;actual value
- K+1 ;decrement by 1
B= M3032 ;
JPT 211
L B255 ;load number of mag. pockets
B= M3032 ;as actual value
LBL221
EM
Compare actual and nominal values of pocket number
LBL230 ;M3267 (TNC 355)
LB M3032 ;read actual value from markers
= B250 ;actual value
LB M3024 ;read nominal value from markers
= B252 ;nominal value
LW M3200 ;read reduction and tool max
= W254 ;high byte reduc. byte 254, low byte max. T byte 255
L B250
== B252 ;test actual/nominal for parity
= M3040 ;actual== nominal
JPT 231 ;if actual==nominal then end
L B250 ;actual - nominal=>B248
- B252
= B248
> K+0
JPT 232
L- B248
= B248 ;B248:=Abs(actual - nominal)
LBL232
;
Compute reduction
L B255
- B254
<= B248
O[
L
B248
<= B254
]
=
M3041 ;Reduction reached
; Compute shortest path