
B-63343EN/02 SAMPLE PROGRAM 3.USER PROGRAMS CALLED BY USER PROGRAM CALLING SIGNALS
- 173 -
/************************************************
O1053 G98
IF [#22129 EQ #0 ]GOTO 99
F#22129
N99 #21974=#21974 AND 128 ; /* 97/09/01
#21974=#21974 OR 128
M02;
M99
/************************************************
/* TOUT *
/************************************************
/*O1054 G30 U0 W0
O1054 IF [#9490 NE 0 ]GOTO20 ; IF INITIAL SCREEN? ELSE JMP20
#1=[P9091] ; GET T CODE COMMON PARAMETER 9091
IF [#1 EQ #0]THEN #1=0 ; IF T CODE PARAM EMPTY?
#21780=#1*101
GOTO50 ;
N20 IF [#22127 EQ #0 ]THEN
#1=[P9091]
ELSE
#1=#22127
ENDIF
IF [#1 EQ #0]THEN #1=0
#21780=#1*101
N50 T#21780
N99 #21974=#21974 AND 64 ; /* 97/09/01
#21974=#21974 OR 64
M02;
M99
/************************************************
/* M03 *
/************************************************
/*O1055 M03; ; /* 98/01/07
/* IF [#22131 EQ #0 ]GOTO 99 ; /* 98/01/07
/* S#22131 ; /* 98/01/07
O1055 #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#2M03 ;
GOTO99 ;
N50 IF [#22131 EQ #0 ] THEN ; /* 98/01/07 START
S#2M03 ;
ELSE
S#22131 M03 ;
ENDIF ; /* 98/01/07 END
N99 #21974=#21974 AND 1 ; /* 97/09/01
#21974=#21974 OR 1
M02 ;
M99;
/************************************************
/* M04 *
/************************************************
/*O1056 M04; ; /* 98/01/07 START
/* IF [#22131 EQ #0 ]GOTO 99
/* S#22131
O1056 #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