HEIDENHAIN TNC 335 Technical Manual - Manual (Page 283)

4-186
TNC 360 13 Hirth Coupling 8/95
PL W232 ;GRID_4
;----READ MP1030.3 INPOS---
PS
K1030 ;MP1030
PS K3 ;MP_EDITOR
CM 9032
L M3171 ;NP_M3171_MODULE_ERR
S M2956 ;PN_MODULEERRSUBM
S M2815 ;PN_M2815_PLC_EMERGENCY_STOP
PL W236 ;POS_WINDOW_4
L M528 ;INIT_ACTIVE
R M528 ;INIT_ACTIVE
EM
; ABSOLUTE VALUE GENERATION
LBL
29 ;ABSOLUTE VALUE GENERATION
PLW ;READ DATA FROM D-STACK
PSW ;AND WRITE AGAIN
>=
K0 ;IF POSITIVE THEN END OF MODULE
JPT 30 ;LABEL END OF MODULE
PLW ;IF NEGATIVE THEN 2ND COMPLEMENT
XON
K0 ;ZERO
+ K1 ;ONE
PSW ;STORE DATA ON STACK
EM