Technical Manual TNC 360 - heidenhain - DR. JOHANNES ...

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