
B-63343EN/02 SAMPLE PROGRAM 3.USER PROGRAMS CALLED BY USER PROGRAM CALLING SIGNALS
- 175 -
M02;
M99
/************************************************
/* CLSP15 User Program SUB#15 *
/************************************************
O1064
N99 #21974=#21974 AND 32768 ; /* 97/09/01
#21974=#21974 OR 32768
M02;
M99
/************************************************
/* CLSP16 User Program SUB#16 *
/************************************************
O1065
N99 #21974=#21974 AND 65536 ; /* 97/09/01
#21974=#21974 OR 65536
M02;
M99
/************************************************
/* SOUT *
/************************************************
/*O1066 IF [#22131 EQ #0 ]GOTO 99
/* S#22131
/*N99 #21974=#21974 AND 32 ; /* 97/09/01
/* #21974=#21974 OR 32
/* M02;
/* M99
O1066 #1=#4002 ; GET MODAL G96or G97 code
#2=[P9092] ; GET SPINDLE SPEED for G96
IF [#1 EQ 96]GOTO 10 ;
#2=[P9093] ; GET SPINDLE SPEED for G97
N10 IF [#2 NE #0]GOTO15 ; IF EMPTY?
#2=0 ; THEN SET 0
N15 IF[#9490 NE 0]GOTO50 ; IF INTIAL SCREEN ELSE JMP
S#2 ;
GOTO99 ;
N50 IF [#22131 EQ #0 ] THEN ;
S#2 ;
ELSE
S#22131 ;
ENDIF ;
N99 #21974=#21974 AND 32 ;
#21974=#21974 OR 32
M02;
M99