
3.USER PROGRAMS CALLED BY USER PROGRAM CALLING SIGNALS SAMPLE PROGRAM B-63343EN/02
- 172 -
3 USER PROGRAMS CALLED BY USER
PROGRAM CALLING SIGNALS
/*
/* Execution Macro for Auxriary function
/*
/************************************************
/* CSS ON *
/************************************************
O1050 G50 S[P9090] ; OUTPUT MAX SPINDLE SPEED 9090
#1=[P9092] ; GET SPINDLE SPEED PARAM 9092
IF [#1 NE #0]GOTO10 ; IF EMPTY THEN
#1=0 ; SET 0
N10 IF [#9490 NE 0 ]GOTO20 ; IF INITIAL SCREEN? ELSE JMP20
G96S#1 ; OUTPUT G96
GOTO50 ;
N20 IF [#22131 EQ #0] THEN ;IF PROCESS DATA SPINDLE SPEED EMPTY?
G96S#1 ;THEN SET COMMON PARAMETER DATA
ELSE ;
G96 S#22131 ;
ENDIF
N50 #21974=#21974 AND 512 ; /* 97/09/01
#21974=#21974 OR 512 ;
M02 ;
N99 M99
/************************************************
/* CSS OFF *
/************************************************
O1051 #1=[P9093] ; GET SPINDLE SPEED PARAM 9093
IF [#1 NE #0]GOTO10 ; IF EMPTY THEN
#1=0 ; SET 0
N10 IF [#9490 NE 0 ]GOTO20 ; IF INITIAL SCREEN? ELSE JMP20
G97S#1 ; OUTPUT G97
GOTO50 ;
N20 IF [#22131 EQ #0 ] THEN
G97S#1
ELSE
; G97 S#10009; ; /* 98/02/27
G97 S#22131; ; /* 98/02/27
ENDIF
N50 #21974=#21974 AND 1024 ; /* 97/09/01
#21974=#21974 OR 1024
M02 ;
M99 ;
/************************************************
/* FREV *
/************************************************
O1052 G99
IF [#22129 EQ #0 ]GOTO 99
F#22129
N99 #21974=#21974 AND 256 ; /* 97/09/01
#21974=#21974 OR 256
M02;
M99
/************************************************
/* FMIN *