HEIDENHAIN TNC 407 (243 020) Technical Manual - Manual (Page 644)

01.98
TNC 407/TNC 415/TNC 425 5 Compatibility with TNC 355 7-183
JPT 211
L K+1 ;load 1 as actual value
B= M3032 ;
LBL 211
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 ;
> K+0
JPT
221
L B255 ;load number of mag. pockets
B= M3032 ;as actual value
LBL 221
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