Detailed description
2.11 Subroutine call through NC language replacement
Basic logic functions: Mode group, channel, program operation, reset response (K1)
186 Function Manual, 11/2006, 6FC5397-0BP10-2BA0
Programming with main and replacement subroutine
N410 G01 F1000 X10 T1 = 5 D1
;
Main program
N1000 PROC D_T_SUB_PROG DISPLOF
SBLOF
;
Replacement subroutine
...
N4100 IF $C_T_PROG==TRUE
;
Scan whether address T has been programmed
N4110
;
Replacement for address T with tool no.
N4120
POS[B]=CAC($C_T) ;
Move revolver to indexing position
N4130
T[$C_TE]=$C_T ;
Select tool (T selection)
N4140 ENDIF
N4300 IF $C_T_PROG==TRUE
;
Scan whether address D has been programmed
N4300
;
Replacement for address D
N4310
D=$C_D ;
Select offset (D selection)
N4320 ENDIF
N4400 IF $C_DL_PROG==TRUE
;
Scan whether address DL has been programmed
N4410
;
Replacement for address DL
N4420
D=$C_DL ;
Select insert offset
N4430 ENDIF
...
N9999 RET
This causes the part program line
"N410 G01 F1000 X10 T1=5 D1" to execute the following program:
N1000 PROC D_T_SUB_PROG DISPLOF
SBLOF
;
Replacement subroutine
...
N4100 IF $C_T_PROG==TRUE
;
Scan whether address T has been programmed
N4110
;
Replacement for address T with tool no.
N4120
POS[B]=CAC($C_T) ;
Move revolver to indexing position
N4130
T[$C_TE]=$C_T ;
Select tool (T selection)
N4140 ENDIF
N4300 IF $C_T_PROG==TRUE
;
Scan whether address D has been programmed
N4300
;
Replacement for address D
N4310
D=$C_D ;
Select offset (D selection)
N4320 ENDIF
N4400 IF $C_DL_PROG==TRUE
;
Scan whether address DL has been programmed
N4430 ENDIF
N9999 RET
N410 G01 F1000 X10
;
Rest of N410 without tool programming