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

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