Decrement Actual Value Of Pocket Number; Compare Actual And Nominal Values Of Pocket Number - HEIDENHAIN TNC 415 Technical Manual

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
01.98 TNC 407/TNC 415/TNC 425 5 Compatibility with TNC 355 7-183