Siemens SINUMERIK 828D

K1: Mode group, channel, program operation, reset response
9.15 Replacing functions by subprograms
Basic Functions
646 Function Manual, 09/2011, 6FC5397-0BP40-2BA0
Main program
Subprogram "D_T_SUB_PROG"
MD10717 $MN_T_NO_FCT_CYCLE_NAME = "D_T_SUB_PROG" Replacement
subprogram
for M function
MD10719 $MN_T_NO_FCT_CYCLE_MODE = 'H2' Call at block start
MD22550 $MC_TOOL_CHANGE_MODE = 0 Tool change with T
function
Programming Comment
PROC MAIN
... ;
N10 G01 F1000 X10 T1=5 D1 ;
;
T and D function replaced by calling
"D_T_SUB_PROG" at start of block
... ;
N90 M30
Programming Comment
N1000 PROC D_T_SUB_PROG DISPLOF SBLOF
N4100 IF $C_T_PROG==TRUE ; IF address T is programmed
N4120 POS[B]=CAC($C_T) ; Approach the indexing position
N4130 T[$C_TE]=$C_T ; Select tool (T selection)
N4140 ENDIF ; ENDIF
N4300 IF $C_T_PROG==TRUE ; IF address D is programmed
N4320 D=$C_D ; Select offset (D selection)
N4330 ENDIF ; ENDIF
N4400 IF $C_DL_PROG==TRUE ; IF address DL is programmed
N4420 D=$C_DL ; Select insert offset
N4430 ENDIF ; ENDIF
N9999 RET